@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u; PRINT SHOP GRAPHIC EDITOR;MAIN PROGRAM;D:ADVPEDIT.ACT;by ROBERT PLOTKIN;COPYRIGHT 1988 BY ANALOG COMPUTING;; T} CHECKSUM DATA;[00 BB 45 B1 6D 66 30 56 ; F0 E7 76 B4 87 24 DB 46 ; 6E 9F 7B B0 7A FC 70 FD ; 27 0B E4 04 93 B2 91 7EU} ; 55 9B C3 43 DA 96 BE 73 ; F6 DC AC AE 2F 21 8A ]BYTE I,J,K,CNTOLD,CNTNEW,A,C,CON, COLOVER,BITE,BIT,XD,YD,TEXTURE,V} GX,GY,RX,RY,DRAW,LMODE,PN,LNUMBYTE ARRAY XB1($100),YB1($100), XB2($100),YB2($100),GRPH(572), SCREEN, SQW}=[128 64 32 16 8 4 2 1], DIGIT="00"CARD SPEED=[0]PROC MYERR(BYTE ERR) RETURN;Ignore BREAK keyBYTE FUNC GRAPHIC(BYTX}E X,Y)BYTE ARRAY MASK= [128 64 32 16 8 4 2 1]RETURN(GRPH(Y*11+X RSH 3) RSH(7!(X&7))&1)PROC PGRAPHIC(BYTE X,Y,Y}VAL)BYTE ARRAY MASK=[127 191 223 239 247 251 253 254]BITE=X&7GRPH(Y*11+X RSH 3)==&MASK(BITE)% VAL LSZ}H(7!BITE)RETURNPROC GRVALS(BYTE X,Y)RX=X LSH 1 RY=24+3*YRETURNPROC PLOT8(BYTE X BYTE Y)BYTE POINTER POSBYTE ARRAY MA[}SK=[127 191 223 239 247 251 253 254]POS=SCREEN+Y*40+X RSH 3 BITE=X&7POS^==&MASK(BITE)%COLOR LSH (7!BITE)RETURNPROC PLOT\}G(BYTE X,Y)GRVALS(X,Y)PLOT8(RX,RY) PLOT8(RX+1,RY)PLOT8(RX,RY+1) PLOT8(RX+1,RY+1)PLOT8(RX,RY+2) PLOT8(RX+1,RY+2)RETURN]}PROC PPLOTG(BYTE X,Y,VAL)PLOTG(X,Y) PGRAPHIC(X,Y,VAL)RETURNPROC PUT8(BYTE X,Y,CHR)BYTE INVBYTE POINTER POS,CHPOSPOS=S^}CREEN+Y*320+XINV=CHR&128 CHR==&127IF INV=128 THEN INV=255 FIIF CHR>31 AND CHR<96 THEN CHR==-32 ELSEIF CHR<32 THEN CHR==+6_}4 FICHPOS=57344+CHR*8FOR I=0 TO 7 DO POS^=CHPOS^!INV POS==+40 CHPOS==+1ODRETURNPROC PRINT8(BYTE X,Y BYTE A`}RRAY WORD)FOR J=1 TO WORD(0) DO PUT8(X+J-1,Y,WORD(J))ODRETURNPROC KEEP(BYTE TX,TY)IF TX=88 OR TX=255 OR TY=52 OR TYa}=255 THEN RETURNFIIF GRAPHIC(TX,TY)#COLOVER THEN IF TEXTURE=2 THEN IF GRAPHIC(TX-XD,TY)=COLOVER AND GRAPHIC(TX,TY-Yb}D)=COLOVER THEN RETURN FI FI PPLOTG(TX,TY,COLOR!1) XB2(CNTNEW)=TX YB2(CNTNEW)=TY CNTNEW==+1FIRETURNPROC FILL()Bc}YTE ARRAY XDIR=[1 255 0 0], YDIR=[0 0 1 255], XDIR2=[1 1 255 255], YDIR2=[255 1 1 255];Diamd}ond Fill Subroutine;From ANALOG #16, February 1984;Translated to ACTION! by;Robert PlotkinXB1(0)=GX YB1(0)=GYIF GRAPHIC(e}GX,GY)=COLOVER THEN RETURNFI PPLOTG(GX,GY,COLOVER)CNTOLD=1DO CNTNEW=0 FOR I=1 TO CNTOLD DO FOR J=0 TO 3 DO IF TEXTUf}RE=2 THEN XD=XDIR2(J) YD=YDIR2(J) ELSE XD=XDIR(J) YD=YDIR(J) FI KEEP(XB1(I-1)+XD,YB1(I-1)+YD) OD OD CNTOLD=CNTNEg}W IF CNTOLD=0 THEN EXIT FI MOVEBLOCK(YB1,YB2,CNTOLD) MOVEBLOCK(XB1,XB2,CNTOLD)ODRETURNPROC CLEARSCREEN()ZERO(SCREEN,7h}680)RETURNPROC SGRAPHIC()BYTE MASK,LCARD GPOS,SPOSGPOS=0 SPOS=960FOR I=0 TO 51 DO FOR J=0 TO 10 DO MASK=128 FOR K=0i} TO 1 DO BIT=0 BITE=0 FOR L=0 TO 3 DO IF (MASK&GRPH(GPOS))=0 THEN BITE==%SQ(BIT)%SQ(BIT+1) FI BIT==+2 MASK==Rj}SH 1 OD SCREEN(SPOS)=BITE SCREEN(SPOS+40)=BITE SCREEN(SPOS+80)=BITE SPOS==+1 OD GPOS==+1 OD SPOS==+98ODRETURk}NPROC MAKENUM(BYTE NUM)IF NUM<10 THEN DIGIT(1)=0 ELSE DIGIT(1)=NUM/10FI DIGIT(2)=NUM MOD 10RETURNPROC SDIGIT(BYTE X)l}PUT8(X,23,DIGIT(1)+48)PUT8(X+1,23,DIGIT(2)+48)RETURNPROC SHOWXY()MAKENUM(GX) SDIGIT(5)MAKENUM(GY) SDIGIT(12)RETURNPm}ROC CLEARSLINE()FOR J=0 TO 39 DO PUT8(J,2,32) ODRETURNPROC SHOWSPECS()CARD ARRAY DON(2),FON(3),LON(3)DON(0)="OFF" DON(1n})="ON "FON(0)="OFF " FON(1)="PURE "FON(2)="CHECKER"LON(0)="OFF "LON(1)="CONTINUOUS"LON(2)="RAY "PRINT8(o}7,2,DON(DRAW))PRINT8(16,2,FON(TEXTURE))PRINT8(29,2,LON(LMODE))RETURNPROC INITVALS()GX=44 GY=25 TEXTURE=0 DRAW=1 C=0CONp}=0 LMODE=0RETURNPROC CLEARGRAPHIC()ZERO(GRPH,572) INITVALS()RETURNPROC STATLINE()PRINT8(2,2,"- - ")q}PRINT8(24,2,"- ")RETURNPROC PCMD(BYTE ARRAY TEXT)PRINT8(25,LNUM,TEXT) LNUM==+1RETURNPROC DRAWSCREEN()GRAr}PHICS(24) SCREEN=PEEKC(88)SGRAPHIC() PRINT8(2,0,"ĠԠРà") STATLINE()PRINT8(27,4,"") s}LNUM=6PCMD(" OR >UP") PCMD(" OR >LEFT")PCMD(" OR >RIGHT")PCMD(" OR >DOWN")PCMD(">DRAW TOGGLE")PCMD(">FILL TOGGt}LE")PCMD(">LINE TOGGLE")PCMD(">NEGATE")PCMD(">SPEED( )") PCMD(" ")PCMD("̭>CLEAR")PCMD("̭>QUIT")PCMD("̭u}>SAVE")PCMD("̭>MOIRE")PCMD("̭>INVERT")PCMD("̭>LOAD")PUT8(33,14,(SPEED/750)+48)PRINT8(3,23,"X=") PRINT8(1v}0,23,"Y=")SHOWXY() SHOWSPECS()RETURNINCLUDE"D:PSHOPIO.ACT";GET SAVE&LOAD ROUTINESPROC LINE(BYTE X1,Y1,X2,Y2);Drawto sw}ubroutine;From SPLASH IN ACTION!;ANTIC Volume 3, Number 4 April 1985BYTE X,Y,XF,YFINT A,B,T,DX,DYPPLOTG(X1,Y1,DRAW) PPLx}OTG(X2,Y2,DRAW)IF X2>X1 THEN DX=X2-X1 XF=0ELSE DX=X1-X2 XF=1FIIF Y2>Y1 THEN DY=Y2-Y1 YF=0ELSE DY=Y1-Y2 YF=1FIIF DX<2 Ay}ND DY<2 THEN RETURN FIX=X1 Y=Y1IF DX>DY THEN A=DY+DY T=A-DX B=T-DX FOR I=2 TO DX DO IF XF=0 THEN X==+1 ELSE X==-1 FI z}IF T<0 THEN T==+A ELSE T==+B IF YF=0 THEN Y==+1 ELSE Y==-1 FI FI PPLOTG(X,Y,DRAW) ODELSE A=DX+DX T=A-DY B=T-DY FOR{} I=2 TO DY DO IF YF=0 THEN Y==+1 ELSE Y==-1 FI IF T<0 THEN T==+A ELSE T==+B IF XF=0 THEN X==+1 ELSE X==-1 FI FI PP|}LOTG(X,Y,DRAW) ODFIRETURNPROC NEGATE()CARD GPOSFOR GPOS=0 TO 571 DO GRPH(GPOS)==!255OD SGRAPHIC()RETURNPROC INVERT}}()BYTE ARRAY TLINE(11)CARD POS1,POS2FOR I=0 TO 25 DO POS1=GRPH+I*11 POS2=GRPH+(51-I)*11 MOVEBLOCK(TLINE,POS1,11) MOVEBL~}OCK(POS1,POS2,11) MOVEBLOCK(POS2,TLINE,11)OD SGRAPHIC()RETURNPROC CNGCOLOR()DRAW=C C==!1 COLOR=CRETURNPROC MLINE(BYT}E X,Y)LINE(44,25,X,Y) CNGCOLOR()RETURNPROC MOIRE(BYTE MNUM)BYTE TXY,TEMPDTEMPD=DRAWIF MNUM=1 THEN FOR TXY=0 TO 87 DO} LINE(0,0,TXY,51) CNGCOLOR() OD FOR TXY=0 TO 87 DO LINE(87,51,TXY,0) CNGCOLOR() ODELSE FOR TXY=0 TO 87 DO MLINE(TXY,51}) OD FOR TXY=0 TO 51 DO MLINE(87,TXY) OD FOR TXY=0 TO 87 DO MLINE(TXY,0) OD FOR TXY=0 TO 51 DO MLINE(0,TXY) ODFI DRAW=TEM}PD C=DRAW!1RETURNPROC MAIN()BYTE ST,MASK,KEY=764,MOVEBYTE ARRAY XDIR=[0 0 255 1], YDIR=[255 1 0 0],XP(2),YP(2), } MKEY1=['-'='+'*], MKEY2=['I'M'J'K]CARD SCNT=[0]DRAWSCREEN() KEY=255DO CON==!1 COLOR=CON PLOTG(GX,GY) IF STRIG(0)=0} THEN IF LMODE THEN XP(PN)=GX YP(PN)=GY IF PN THEN COLOR=C LINE(XP(0),YP(0),GX,GY) IF LMODE=1 THEN XP(0)=GX YP(0})=GY FI FI PN==%1 ELSEIF TEXTURE=0 THEN COLOR=C PPLOTG(GX,GY,DRAW) ELSE COLOR=C COLOVER=DRAW FILL() FI FI ST}=STICK(0) MOVE=0 IF KEY=255 THEN A=0 ELSE A=GETD(1) FI IF ST#15 OR A#0 THEN FOR SCNT=0 TO SPEED DO OD COLOR=GRAPHIC(G}X,GY)!1 PLOTG(GX,GY) MASK=1 FOR I=0 TO 3 DO IF (ST&MASK)=0 OR A=MKEY1(I) OR A=MKEY2(I) THEN GX==+XDIR(I) GY==+Y}DIR(I) MOVE=1 FI MASK==LSH 1 OD IF GY=255 THEN GY=51 FI IF GY=52 THEN GY=0 FI IF GX=255 THEN GX=87 FI IF GX=88 T}HEN GX=0 FI SHOWXY() FI IF A='F THEN TEXTURE==+1 LMODE=0 IF TEXTURE=3 THEN TEXTURE=0 FI ELSEIF A='D THEN DRAW==!1 }C==!1 ELSEIF A=' THEN ;CTRL-C CLEARSLINE() PRINT8(2,2, " TO CLEAR GRAPHIC AREA") A=GETD(1) IF A=155 THEN CL}EARGRAPHIC() SGRAPHIC() SHOWXY() FI ELSEIF A=' THEN ;CTRL-Q CLEARSLINE() PRINT8(2,2, " '' TO QUIT PROGRAM") }A=GETD(1) IF A='Y THEN EXIT FI ELSEIF A='L THEN LMODE==+1 IF LMODE=3 THEN LMODE=0 FI PN=0 TEXTURE=0 ELSEIF A='N THE}N NEGATE() ELSEIF A=' THEN ;CTRL-M CLEARSLINE() PRINT8(2,2, "WHICH PATTERN(1 OR 2)?") A=GETD(1)-48 IF A=1 OR A=2 TH}EN MOIRE(A) FI ELSEIF A=' THEN INVERT() ;CTRL-I ELSEIF A='Z THEN CLEARSLINE() PRINT8(6,2,"CURSOR SPEED>") A=GETD(1)} IF A>='0 AND A<='9 THEN SPEED=(A-48)*750 PUT8(33,14,A) FI ELSEIF A=' THEN LOAD() ;CTRL-G ELSEIF A=' THEN SAVE()} ;CTRL-S FI IF MOVE=0 AND A#0 THEN STATLINE() SHOWSPECS() FIODRETURNPROC RESET=58484();Leave program by warmstart}PROC SETUP()CLOSE(1) OPEN(1,"K:",4,0) ERROR=MYERRCLEARGRAPHIC() MAIN() RESET()RETURN8484();Leave program by warmstartZjjCHOLSHOHHPROVPROVPROVYARDPARCLUBSWINGDDDSDISIITKEKEYDIFNULOOBYTCCCSTROKDE }VDEVPPNPOUTPOINFSCSTARRESACPAUSDDATAMOVESWAA  }  }@ !"#$%& }'()*+,-./01234@56 }@7@8B9:; ""****************************""* FAIRWAY CHALLENGE *""* } BY J. T. PAPE *(""* COPYRIGHT 1988 *2""* BY ANALOG COMPUTING *7""**************************** }8<****RECORD DATA****Fj A @)@eS@@ D:RECORD.DAT`)@ }j @P6-A Z@d AC`n****MAIN LOOP****xg +@AAy1A @ }CAUAA@gAA AAVAR6-%@6-= @3 }!-@@-,9/@= A AAApA`A@A A A! }pA"PA# A#A$pA%PA&0A'A'A(` @,r%6-P:H:,$@,& }@F6-+H:,&?I,'@`6-P:H:,$@,f6-l6-r6-F AT,1-@ }F(@Q-@+(@=-@@Q(@[ A } A0B(%Club ׬׬׬ɠɬננ :L A[4A 6. A`Q A0 A08(Sw }ing :B AQ4A0 6. AZ AP A0A($Direction άӬŬ׬Ŭ׬ }נ :K AZ4AP 6. A@22()}( }"11(( ,A A@+( Correct?5 APA6-63 } A  A%6-%?P36-%?P@-@J- A`-+@),ATA 1@ },/-@@3 7=,A ^ 1 A hI-@@!@+ A 1,; A } ?E,I r' A @,' A0|% ,6-%@% Ab -@6@ }<2@%@@ b2h(}Out of Bounds8(ٺ Stroke and DistanceF }6-%@L6-R6-X6-b@h,1 6-6-#-@A' 1 A****TROUBLE****6-P }:H:,$@,c"@3( }Deep Rough5")"@U(Ԡ̺ Lose One Strokec6-%@c }"Ae!( }In the Trees7")"@U(ĺ Lose One Strokec6-%@k"A2"(}In the Bush }es8")"@]( Šź Lose One Strokek6-%@e"@( }Sand Trap4")"@ }@6-@e( Ġź Must Use Sand Wedge$****INPUT ROUTINE****@AdAU @@@ }@K: 6.$)@$"AUA "A&6. AA(6-&A }(&0"F:A,"*@06-&@2099+!@G* @X,)+!@d* @,A: AD } 6.>:,N&67B:,%@,.(& A X5A@d'A2@5$b****SWING ROUTINE* }***l @(,v-@A  @0, A ' @, A ' A ? @ }0, A ?2@Z @(, A :-@6@PV2 }@@Z  @, A  A$, A $****MISC ROUTINES****-@ }@% $(}Selecte -@ 6?0<2@w@@ b2 }e$AdAU%F:Ad,"@5'% A F:Ad,"@CA  A`****CUMU }LATIVE SCORE****  ( }Lying:  (Total: *"(even4!( over> (O:, }underH$-@A !(}$$R****INCREMENT BALL****\! 4N6-&@!6-%f! 4W6-&@ }!6-%p! 4E6-%@!6-%z! 4S6-%@!6-%( 4SW6-%@(6-&@( 4 }SE6-%@(6-%@( 4NW6-&@(6-&@( 4NE6-&@(6-%@5-+4NW) }4NE)4SW)4SE,*"56-%5-+4NW)4NE)4SW)4SE,*"@56-% 6-P:,6-P:,$*** }*WHERE IS IT****R7"@)"@G)"@a)"@Y)"@CE6-%@H'R A)@+"@2+2AU }@@U"@3+-@@Q2'@@$@U K"@+- }@@PG2@ @K J"A2,-@6@F2$$@J }L"Ae,-@6@PH2@3@L (%2($""*** }*INITIALIZE CLUB DATA****$7741W)43W)44W)42I)43I)44IA.7745I)46I)47I)48I)49I)4 }PWA84SWAB' AL-"@*0SW Ap#'- AV- 41W6. 1 Wood -6 }-@%`C 43W6. 3 Wood 56-@%'@C6-'@0jC 44W6. 4 Wood 56-@%' }@C6-'@PtC 42I6. 2 Iron 56-@ p%'@C6-'@`~C 43I6. 3 Iron 56-@ } %'@C6-'@pC 44I6. 4 Iron 56-@p%'@C6-'@C 45I6. 5 Iron } 56-@%'@C6-'@C 46I6. 6 Iron 56-@p%'@C6-'@C 47I6. } 7 Iron 56-@%'@C6-'@C 48I6. 8 Iron 56-@p%'@C6-'@ C 49 }I6. 9 Iron 56-@%'@C6-'@0C 4PW6. Pitch Wedge 56-@p%'@C6-'@@ }O 4SW6. Sand Wedge +"A6-@%'@O6-'@P"@6-@%5"@356 }-'+@%P:H:,$@,,$''****INITIALIZE SWING STRENGTH****4F)4H)4EA ' A0 }/ 4H6. Half ,6-'@/$/ 4E6. Easy ,6-'@/$(6. Full $2'' }****INITIALIZE DIRECTION DATA****<%%4N)4S)4E)4WApF))4NE)4NW)4SE)4SWApP' AP }Z( 4E6. East (#AHd) 4NE6. North East )#AIPn) 4SW6. South West )#AP }x( 4W6. West (#AH) 4NW6. North West )#AIP( 4N6. North (#AIP) } 4SE6. South East )#AP ( 4S6. South (#AP ""6@$6-$@%- }@"%%%  AP@@d'B7t@d9AR@K@w }]A@doA1AUA$****HOLE 1****36-A6-@'6-36-@ }O @2!-@@-,@9/@= O,@M A2,@1,@ };ApM,@@W @a,@@)@C;,@@ E@YW,@@ }@,@@1,@@C,@@U,@@g,@@y,@@,@ }@"g Ae,@@1,@@C,@@U,@@g,@@,$6* }***HOLE 2****@36-A`6-@'6-@36-@JQ @2!-@@ -,@9/@M/ }%@Q TM @3,@@1,@@ ;ApM,@ @ ^U A2,@@ }1,@@C,@U/@hW @Y,@@)@C;,@@E@a }W,@@r1 Ae,@@ 1/@@|C @,@@1,@@C,@ }@ $****HOLE 3****36-A`6-@'6-@36-@E @2!-@@-,@ }A/@%@E W @C,@@)@G;,@@E@aW,@@1  }A2,@@1,@@y Ae,@@1/@@C/@@U,@@ }g/@@y/@@C @,@@1,@@C,@@$****HOLE } 4****36-A@6-@'6-@36-@ @2!-@@-,@9/@= Q-@ }@],@i/@m ,@@ @,@@)@Y;,@@E@C }W,@@a@as,@@}@G,@@y Ae,@@1/@@ }C,@@U,@@g,@@y/@@C A2,@@1,@@C, }@@U @,@@ 1,@@C,@@U,@@& Ap,@ }@0$:****HOLE 5****D36-A 6-@'6-@36-@NE @2!-@@-,@ }A/@%@E XW @Y,@@)@C;,@@E@aW,@@b Ae },@@ 1/@@ C/@@U/@@g,@@y/@@,@@ }/@@lM A2,@@1,@@;ApM,@ @vC @,@ @ }1,@@C,@@$****HOLE 6****36-@6-A'6-@36-@ = @ }2!-@@-,@9/@=  @Y,@@)@;,@@ E@CW, }@@ a@as,@@}@G,@@  @3,@@1,@@C,@ }@U,@@_@q,@@,@@ A2,@@1,@@ };AeM,@@_,@@q,@@,@@,@@$****HOLE 7** }**36-A`6-@'6-@36-@ m @2!-@@-,@9/@= Q-@ }@],i/@m _ A2,@@1,@@;@3M,@_, }@W @Y,@@)@C;,@@ E@aW,@@ Ap,@ @ })@;,@@M,@@_,@@q,@@,@@ g Ae,@ }@1,@C/@U,@@g,@@$ ****HOLE 8*****36-@6- }A'6-@36-@4 @2!-@@-,@9/@E,@Q/@U i-@ }@u,@/@9 > @3,@@1,@@;A2M,@@_,@ }@q,@@,@@,@@,@@H @Y,@@)@ };,@@E@CW,@@a@Gs,@@}@a,@@Rg @,@ }@1,@@C,@@U,@@g/@@\ Ae,@@1/@@ }C,@@U/@@g,@@y,@@Ap,@@f$p****HOLE 9 }****z36-A6-@'6-@ 36-@= @2!-@@-,@9/@=  A }e,@@1/@@C/@@U,@@g,@@q@3,@@, }@@W @,@@)@C;,@ @E@GW,@@U @,@ }@1,@@C,@@U,@@M A2,@@1,@@;ApM, }@@$****HOLE 10****36-A 6-@'6-@36-@m @2!-@@ }-,@9/@= Q-@@],@i/@m W @Y,@@)@;,@ }@E@CW,@@ @,@@1,@@C,@@U,@@g },@@qAp,@ @ A2,@@1,@@ ;AeM,@@_, }@@q,@@,@@,@@,@@$ ****HOLE 11**** 36-A` }6-@'6-@36-@  O @2!-@@-,9/@= O,@@$ q  }Ae,@@1/@C/@U/@@_Apq,@ @. W @Y,@ }@)@C;,@@ E@aW,@@8 q A2,@@1,@@;@ }M,@@_,@@q,@@B $L ****HOLE 12****V 36-A`6-@ '6-@36 }-@` = @2!-@@-,@9/@= j U @3,@@1,@@C,@ }@U,@@t W @,@@)@C;,@ @E@GW,@@~ y A }2,@@1,@@C,@@U,@@g,@@y,@@ C @ },@@1,@@C,@ @ $ ****HOLE 13**** 36-A6-@'6-@36 }-@ @2!-@@-,9/@M,@%@a/@%@u,%@ }/@%@  U Ae,@1/@C,@@U/@@ M A2, }@1,@@;ApM,@@ @Y,@@)@;,@@E@ }CW,@@a@Gs,@@}@a,@@ y @,@@1,@@ }C,@@U,@ @g,@@y,@@ $ ****HOLE 14**** 36-@6-A }'6-@ 36-@ = @2!-@@-,@9/@=  M A2,@@1,@ }@;ApM,@@  y Ae,@@1/@@C/@@U,@@ }g/@@y/@@ W @,@ @)@C;,@@E@GW,@@ }( C @,@@1,@ @C,@@2 $< ****HOLE 15****F 36-@6-A '6- }@36-@ P O @2!-@@-,@9/@= O,@@Z q A2,@@ }1,@@;@M,@@_,@@q,@@d @Y,@@)@ };,@@ E@CW,@@ a@Gs,@@ }@a,@@n g Ae,@ }@1,@@C,@@U,@@g,@@x $ ****HOLE 16**** 36-@ }6-A@'6-@36-@ E @2!-@ @-,A/@&@E  _ A2,@ }@1,@@C,@@MAp_,@ @ W @Y,@@)@C;,@ }@E@aW,@@ U Ae,@ 1/@C,@@U/@@ U } @,@@ 1,@@C,@@U,@@ $ ****HOLE 17**** 36-@ }6-A`'6-@36-@ } @2!-@@-,@9/@= Q-@@],@ }i/@},%@@ /%@@  M A2,@@1,@@;ApM,@ } @ W @Y,@@)@C;,@@E@aW,@@ Ae,@ }@1/@@C/@@U,@@g/@@y,@@,@@,@ }@ g @,@@1,@@C,@@U,@@g/@@ $" *** }*HOLE 18****, 36-@6-A'6-36-@6 e @2!-@ @5,&@A/@ }M,@a/@&@e @ W @Y,@@)@C;,@@E@aW,@@ }J _ A2,@1,@C/@MAp_,@@T U @,@@ }1,@@C,@@U,@@ ^ Ae,@ @ 1/@@ C,@@U },@@g,@@y,@@,@@h $r ****GREEN****| g +@AA }1A @CAUAA@gAAy  AAVAR ]6-P:H:,$ !}@,)6-@C6-P:H:,$@ ,I6-] @A)` 1 A),1/@ 1 "} AS,@1/@@ U Ae,@1/@@C,@U/@@ #} y @3,@1/@@C,@U/@@g,@y/@@ $} ,@'/@@9,@@K/@@],@ o/@@ ,@@ %} /@@  o,@'/@@9,@K/@@],@o/@ &}@ ,@'/@@9,@@K/@@],@o/@@,@ '}@/@@  As, Q-@+(@=-@@Q(@ (} )-@A )"A30 W @,52AU@@W2 )} -@@P  X A0 A0?("Putting Stroke Πؠ :I AX4A0 *} 6-A:,& !! @)!@ A00 Q%6-P:H:,$@,&@G6-P:H:,$@,&@Q A +}: &O:&,!@6-%& A1PD O:&,!@6-%N  ! A46-@X    A406- ,}b @ -@6@<2@@@ l -@v "@6-&@ " -}6-%@ ! 6-!6- !!@6-@!6- = 1@,/-@@ .}3 7=,   # @,Ai#, I -@A! +@21,?6-%@ /}I A0 -@@  -@6@ #2@@@#  K!-@AP$ 0}@% ) K2 '6-%@6-@2' A4` ****NO PUTT!**** " 1}6-&@ "@6-%@ W @,52AU@@W2 2} I-@@5 !/+@21,E-@I * P As,0-@6@ 3}L2@3@P 4 1-@AP '6-@21 A4`> ****WEST PUTT****H  6-6-A 4}i,R X A','-@A+ 5@;,E A OA'U,X$\ ****EAST PUTT****f 5} 6-6-Ai,p X @,'-@A+ 5@;,E A O@U,X$z *** 6}*SCORECARD**** "@ A9` 16-%+&,'"@*@r% 1 AA P +A 1A 7}@@FAF:A,P A 3 @%67<%@,.=:,36-%@ 3!@ %67<%@ 8},.=:,36-%@ ?"@ 6-@6%367<%@,.=:,?6-@ 1"@167<%@,.=:+@r 9}%,&, 11((+--------------------------------------+ 11((|SCORECARD | 11((|----------- :}---------------------------| 11((|HOLE | 1| 2| 3| 4| 5| 6| 7| 8| 9|OUT| 11((|-------|--|--|--|--|--|--|--|--|--|--- ;}| 11((|PAR | 4| 4| 3| 5| 4| 3| 4| 5| 4| 36|11((|-------|--|--|--|--|--|--|--|--|--|---|(|SCORE 11( <}(|--------------------------------------|$11((| U.S.G.A. RULES GOVERN PLAY |.11((|------------------------ =}--------------|811((|HOLE |10|11|12|13|14|15|16|17|18| IN|B11((|-------|--|--|--|--|--|--|--|--|--|---|L11((|PA >}R | 4| 4| 3| 5| 4| 3| 4| 5| 4| 36|V11((|-------|--|--|--|--|--|--|--|--|--|---|`(|SCORE j11((|---------- ?}------------------------|---|t11((|NAME DATE TOTAL| |~00((+------------------------------------- @}-+@A9`"@!-@6@-(@r%;@r%"M-@%@`(COURSE RECORD!^ A}-@!B((HARDCOPY OF SCORECARD? TAdAU^ A@ F:Ad,"@CA7 B} F:Ad,"@5A8p A7PX A7@-@!<(READY PRINTER AND NAdAUX A C}@ F:Ad,@A7****SCREEN DUMP****9@.@@P:9(@%%6 D}-F:@,%AV$F:@,@-@+-@9@6-F:$@@%%,' @d6-%@2 E}' A8` '!@c* @'6-&@d2(@>:, #(@' 2@N-@!2( F} TO RESTART PROGRAMDB2yN A@( F:B2y,@A82)AdAU AGp) A  G}<B-@!B(( TO CONTINUE TO EXITF1AdAU'B2y1 A@P F:B H}2y,"@A Z4F:Ad,"@(*-@!4 A7@d A9 n****ACE!****x_ +A I}@1A; AMAVA&_@@( ( ( à J}( Š( ( ( ( ( ( &-@% K}@&( HOLE IN ONE!*-@#@*(CONGRATULATIONS!V6-@#-@@-#ABp7 ABK- L}@@ O S V$****COURSE RECORD****6-@r% +@ A"Y-@@3(@ M}ӡE-@@Y(@A NEW,O-@@)(@COURSE;-@@ O(@ N}RECORD6#6-A#AC@# AB@%%6-?:C:hiЎ `,,JD AA7@@ O} D:RECORD.DATD*@T@$^****MUSIC PLAYER****h ""6@ABPr6-$@'|2 P}@@-@  AB(%2($****MUSIC DATA**** Q}==60,2,72,2,0,2,72,4,0,8,72,2,81,2,72,2,68,1,0,2,72,2,0,2==72,2,81,2,0,2,81,4,0,8,81,2,91,2,81,2,72,1,0,2,91,2,0,2== R}81,2,72,2,0,2,72,4,0,8,72,2,81,2,72,2,68,1,0,2,53,2,0,2//53,2,60,2,53,2,60,2,68,2,0,2,81,2,91,1,-1cc60,1,0,1,60,8,0,2 S},60,8,0,2,60,1,0,1,60,8,0,2,60,8,0,2,47,1,0,1,60,8,0,2,60,8,0,2,60,8,0,1,0,2dd47,1,0,1,47,1,0,1,47,8,0,2,47,8,0,2,47,1,0, T}1,47,8,0,2,47,8,0,2,40,1,0,1,47,8,0,2,47,8,0,2,47,8``0,1,0,1,0,1,0,2,40,1,0,1,81,2,85,2,81,2,72,1,0,1,81,2,0,1,0,1,0,1,0, U}2,64,1,0,1,60,1,0,1,-1))243,1,162,1,121,1,0,2,96,16,91,1,-1****FRONT PAGE****_ +@A @1A V}C@U@@9_ A<%6-F:A`,%F:Aa,$AV9%@@f<(eA W}@8'-@@ <(@FAIRWAYN-@@e(@ &q('( Course Ar X}chitectF( John T. Papeq(& COPYRIGHT 1988 BY ANALOG COMPUTING0#6-@#AC# AB:=-@ Y}=(@Next Tee Time : 28 secondsDss;@,;@,;@,;@,;@,;@2, Z};@2,;@2,;@,;@,N$$****REDIFINE CHARACTER SET****X(6-F:A,&@(6-$AVb? # [}ADp!-@@2%"167,.>:,; AP? l6-?:C:,<<BsD,v55104,104,133,215,104,133,214,104,133,21 \}3,104,13311212,162,4,160,0,177,212,145,214,200,208,249$$230,213,230,215,202,208,240,96 #AEp""6@ ]}AGp6-$@%-@"%%% AP  AE##****CHARACTER DEFINITIONS ^}****$$62,0,212,214,215,180,180,180,0''1,255,255,255,255,255,255,255,255&&61,255,255,255,255,255,223,139,14, _}0,0,36,24,90,24,0,05,0,16,40,84,170,84,16,16 8,0,56,124,124,62,62,28,0""10,128,128,176,160,18,53,5,2 ((11,2 `}55,231,235,239,239,239,207,255*((15,128,224,248,254,254,248,224,128432,0,0,0,0,0,0,0,16>9,0,0,0,0,0,0,0,28H a}13,24,56,40,8,8,8,8,28R2,0,8,62,54,28,42,42,42\7,0,8,62,54,28,34,98,170f!!63,0,16,124,124,56,84,84,84p!!14,0, b}16,124,124,56,68,70,85z""27,0,24,24,60,60,126,126,25559,1,7,31,127,127,31,7,1""29,255,126,126,60,60,24,24,0 c}-1?6-6-'6-@36-?6-0*6. | | | | | | | | | | |06.$ d}****EAST****28,0,8,62,54,28,42,42,42$$30,128,136,188,244,28,36,34,423,60,40,60,52,28,36,34,416,1,17,61 e},47,56,36,36,68 60,60,20,60,44,56,36,36,68-1****WEST****!!28,0,16,124,124,56,84,84,8430,1,17,61,63 f},56,36,68,84$ 3,60,20,60,60,56,36,68,148.##6,128,136,188,252,28,36,36,348 60,60,40,60,60,28,36,36,34B-1L g}****NORTH****V28,0,16,56,56,56,52,50,57`!!30,0,16,56,40,56,48,112,185j""3,64,144,248,120,56,48,48,57t6,0,18,5 q}B%DOS SYSB*)DUP SYSB?SADVPEDITACTBFAIRWAY BASB%tPSHOPIO ACTBSLAVE BASBESMAP 1 wZSNOWEDITM65SNOWEDITOBJ SNOWFONT SYSEQU M658,62,56,48,48,56~!!60,128,80,56,56,56,48,48,56-1****SOUTH****28,0,8,28,20,28,44,76,156!!30,0,72,92,1 r}24,28,12,12,1563,1,10,28,28,28,12,12,1566,0,8,28,20,28,12,14,2960,2,9,31,30,28,12,12,28-1@ A s}F:A,%@=AF:A,%@@$D:FAIRWAYN.BAS60,2,9,31,30,28,12,12,28-1@ A K; PRINT SHOP GRAPHIC EDITOR;PRINT SHOP I/O SUBROUTINES ;D:PSHOPIO.ACT;by ROBERT PLOTKIN; COPYRIGHT 1988 BY ANAu}LOG COMPUTING;; CHECKSUM DATA;[E0 CE 39 4E 5E 3E 3D CB ; CF 0F 25 FB 7A 77 B8 B2 ; C4 5C B2 CA 8C 84 95 41 ; 1D 9v}8 A6 22 B8 ]MODULEBYTE KIND,PSFLAG,NAMENUM,EOPF,FOUND, HKIND,STATUS=771,CB,CM,NLENBYTE ARRAY BUFF(128),VTBUFF(128),w} PSHOP(0)="PRINT SHOP:CLK!", FILE(32),NAME(32)CARD CURRDS,LASTDS,SSEC,NXSEC,CSBYTE POINTER NAMEP=NAMEPROC SIO=x}$E453()PROC GKEY()POSITION(3,23) PRINT("Ӡ٠٠ϠŠ")A=GETD(1)RETURNPROC SIOERR()POSITION(12,4y})PRINT(">Disk Error<") GKEY()RETURNPROC DOSIO(BYTE CMD CARD ADR,SNUM)CARD SECBUF=772,SECNUM=778POKE(770,CMD) SECBUFz}=ADR SECNUM=SNUMPOKE(769,1)SIO() IF STATUS#1 THEN SIOERR() FIRETURNPROC GETSECTOR(CARD SNUM,BUFADR)DOSIO('R,BUFADR,SNUM{})RETURNPROC PUTSECTOR(CARD SNUM,BUFADR)DOSIO('P,BUFADR,SNUM)RETURNBYTE FUNC COMPARE(BYTE ARRAY S1,S2)BYTE LOOP,FLAGF|}LAG=1FOR LOOP=0 TO 15 DO IF S1(LOOP)#S2(LOOP) THEN FLAG=0 FIODRETURN(FLAG)PROC WHICH()BYTE BNUM,BITGETSECTOR(361,VTB}}UFF)IF STATUS=1 THEN PSFLAG=COMPARE(PSHOP+1,VTBUFF) IF PSFLAG=1 THEN LASTDS=361 BNUM=16 BIT=128 DO IF (VTBUFF(BNUM)~}&BIT)=0 OR BNUM=31 THEN EXIT FI BIT==RSH 1 LASTDS==+1 IF BIT=0 THEN BIT=128 BNUM==+1 FI OD IF LASTDS=361 THEN L}ASTDS=362 FI ELSE POSITION(5,4) PRINT( "THIS IS NOT A PRINT SHOP DISK!") GKEY() FIFIRETURNPROC OPENDIR()CURRDS=362} EOPF=0 NAMENUM=0GETSECTOR(362,BUFF)RETURNPROC GETNAME()DO MOVEBLOCK(NAME,BUFF+NAMENUM,32) NAMENUM==+32 IF NAMENUM=12}8 THEN NAMENUM=0 CURRDS==+1 GETSECTOR(CURRDS,BUFF) FI KIND=NAME(18)IF CURRDS>LASTDS THEN EOPF=1 FIUNTIL NAMEP^#0 AND KIN}D=0 OR EOPF=1ODRETURNPROC PSFIND(BYTE ARRAY CNAME)FOUND=0DO GETNAME()IF COMPARE(NAME,CNAME)=1 THEN SSEC=PEEKC(NAME+16}) FOUND=1 EXITFI IF EOPF=1 THEN EXIT FIODRETURNPROC PSLOAD()BYTE POINTER POSBYTE COUNTWHICH() IF PSFLAG=0 THEN RETURN} FIIF STATUS=1 THEN OPENDIR() PSFIND(FILE) IF FOUND=0 AND STATUS=1 THEN POSITION(8,4) PRINT( ">File Not Found<") G}KEY() FIFIIF FOUND=1 AND STATUS=1 THEN POS=GRPH FOR COUNT=0 TO 4 DO GETSECTOR(SSEC,POS) SSEC=PEEKC(POS+126) POS==+126} ODFIRETURNPROC DALLOC(CARD SECNUM)BYTE BNUM,MASK,BITA=SECNUM-362 BNUM=A RSH 3BIT=A-BNUM LSH 3 MASK=SQ(BIT)VTBUFF(BN}UM+16)==%MASKRETURNPROC ALLOC(CARD SECNUM)BYTE BNUM,MASK,BITBNUM=SECNUM RSH 3BIT=SECNUM-BNUM LSH 3 MASK=SQ(BIT)VTBUFF(}BNUM+32)==%MASKRETURNCARD FUNC GETSSEC()DO IF (VTBUFF(CB)&CM)=0 THEN RETURN(CS) FI CS==+1 CM==RSH 1 IF CM=0 THEN CM=12}8 CB==+1 FIUNTIL CS=720ODRETURN(0)PROC DFULL()POSITION(5,4) PRINT(">Disk Full-Save Incomplete<")GKEY()RETURNPR}OC PSSAVE()CARD NXSECBYTE POINTER POSCARD POINTER POS2CM=64 CS=1 CB=32WHICH() IF PSFLAG=0 THEN RETURN FIOPENDIR() PSFIN}D(FILE)IF FOUND=0 THEN GETSECTOR(LASTDS,BUFF) GETSECTOR(361,VTBUFF) NAMENUM=0 DO IF BUFF(NAMENUM)=0 THEN EXIT FI IF N}AMENUM=128 THEN LASTDS==+1 EXIT FI NAMENUM==+32 OD DALLOC(LASTDS) IF NAMENUM=128 THEN ZERO(BUFF,128) NAMENUM=0 FI MOVEB}LOCK(BUFF+NAMENUM,FILE,16) NAMENUM==+16 SSEC=GETSSEC()IF SSEC=0 THEN DFULL() RETURN FIPOKEC(BUFF+NAMENUM,SSEC) NAMENUM==+2}BUFF(NAMENUM)=0 BUFF(NAMENUM+1)='XBUFF(NAMENUM+2)=60 BUFF(NAMENUM+3)=2PUTSECTOR(LASTDS,BUFF)FIPOS=GRPH POS2=BUFF+126FOR} I=1 TO 5 DO ALLOC(SSEC) MOVEBLOCK(BUFF,POS,126) NXSEC=GETSSEC() IF NXSEC=0 THEN DFULL() EXIT FI POS2^=NXSEC PUTSECTOR(SS}EC,BUFF) SSEC=NXSEC POS==+126OD PUTSECTOR(361,VTBUFF)RETURNPROC DIR()BYTE LM=82,LINE=84PUT(125) LM=12 POSITION(12,0) W}HICH()IF PSFLAG=0 THEN RETURN FI OPENDIR()DO GETNAME() IF KIND=0 AND NAMEP^#0 THEN FOR K=0 TO 15 DO PUT(NAME(K)) OD PU}TE() FI IF EOPF=1 OR STATUS#1 THEN EXIT FI IF LINE=23 THEN GKEY() PUT(125) FIOD GKEY()RETURNPROC GETFILE()BYTE LOOPN}LEN=0DO A=GETD(1) IF A=27 THEN NLEN=255 EXIT ELSEIF A=155 THEN PUT(A) IF NLEN=0 THEN DIR() FI EXIT ELSEIF A=126 THEN }IF NLEN#0 THEN PUT(A) NLEN==-1 FI ELSEIF NLEN#15 THEN PUT(A) FILE(NLEN)=A NLEN==+1 FIODFOR LOOP=NLEN TO 15 DO FILE(LOO}P)=32ODRETURNPROC INFILE(BYTE LTYPE)DO PUT(125) POKE(82,2) POSITION(13,0) IF LTYPE='L THEN PRINT("") ELSE PRIN}T("") FI PRINT("à") POSITION(2,10) PRINTE ("TYPE IN NAME OF GRAPHIC OR") PRINTE ("PRESS FOR GRAPHI}C LIST") PRINTE(" TO EXIT") PUT('>) GETFILE() UNTIL NLEN#0ODRETURNPROC LOAD()GRAPHICS(0) INFILE('L)IF NLEN#255 }THEN PSLOAD() FIDRAWSCREEN()RETURNPROC SAVE()GRAPHICS(0) INFILE('S)IF NLEN#255 THEN PSSAVE() FIDRAWSCREEN()RETURN5 {TTSITMVBNNNNNNNN1ZURITIDVBCVSZABINXCODGGGKEPWTCSTKKGHEDRSBS}CLGFHXKKXYPDLGNHCWBWFTWDSCCENDNNN1DITEMROOITEMNI@@#@H@'}@@@@ @ @ @  @I@"}PPAh1AQQA  AK 22d  {A!"#@}$@%@&'()*+,-./012@}3@456@7 8 9@(:;<@=>?@@AB}CDEFGHIJK@ LMNO P  QR)}S= T@UVBW@X@YZ@[\]^_BY CLAYTON }WALNUMLAST REV. 7/8/84##(MINOR ADJUSTMENTS ON 5/9/88)6-@#6-@H'6-@'36-?6-@}K6-@W6-@c6-@o6-@{6-@6-@6-@6-@ 6-@;,;,} B %5( AT THE CAMP6-@B+6-@D5 A !( IN A TENT6-! A /(IN A DARK PASS}AGE%6-@h/ A C( IN A CLEARING!6-@D-6-@B96-@C A (( ON A BEACH6-@@( }A I(AT THE CASTLE GATES'6-@36-@$?6-@0I A 5( IN A MEADOW6-@+6-@5} A )(6-@6-@) A 5( IN A MEADOW6-@D+6-@5 A )(6-@6}-@) A (6-@ A )(6-@6-@!) A A(6-@ 6-@"+6-}@P76-@RA A A(6-@!6-@#+6-@&76-@HA A  A(6-@"6-@$}+6-@F76-@(A A !)(6-@#6-@) A #,(IN A GUARDROOM"6-@", A %4(}IN A SMALL DINING ROOM*6-@#4 A '4( ON A BEACH6-@*6-@V4 A (Q(IN A SHORT HALL#6-}@S/6-@2;6-@3G6-@5Q A )E(IN A SHORT HALL#6-@4/6-@6;6-@1E A *}/(IN A WEAPONS ROOM%6-@1/ A +6 (IN A MAGICIAN'S WORKSHOP,6-@26 A ,,(IN A GUARDROOM"6-}@1, A -+( IN A KEY ROOM!6-@2+ A 1)(6-@6-@B) A 2(6-@@ A} 35(6-@@6-@+6-@5 A 4(6-@B A 55(6-@6-@D+6-@}5 A 6(6-@D A 7(6-@# A 8,(IN A TOOL ROOM"6-@#, A 9(}6-@" A :3(IN A PLACE OF WORSHIP)6-@"3 A ;(6-@! A <.(IN A SUPPLY ROOM}$6-@!. A =(6-@! A >-(IN A SMALL ROOM#6-@!- A AL( ON A BEACH6-@V}*6-@066-@VB6-@L A E)(6-@26-@a) A F)(6-@`6-@b) A} G)(6-@a6-@c) A H)(6-@b6-@d) A I)(6-@c6-@e) A }J(6-@d A K(6-@` A L(6-@a A M(6-@b A N(}6-@c A O(6-@d A P(6-@e A ******INITIALIZE*******cc;$,9},9,;$@,9,9,;,;@ ,;@ ,;@P,;,;@ ,l9@,;@,#-,68,}-0 66-<6-B6-H6-N6-T6-Z6-`6-f6-l6-W 6-6-6-6-!6-'6--6-36-96-?}6-E6-K6-Q6-W6-hh;@,;@,;@",;@,;@ ,;@,;@ ,;@ ,;}@ ,I-@67<,. " 56. CELOPEN CELLI6. GUADEAD GUARD -68,- F -67$&}%<$,.""567$&%<$,.9"B68,-F &"-@""68,-& L 6.BESIDE THE CASTLE WALL86.}IN A LONG HALLWAYL6. IN THE FORESTY6. IN A TREE.6.IN THE SLAVE CELLARS>6. IN A CELLY6.FACING A WOODEN DO}ORD(.("DO YOU WANT TO RESTORE AN OLD GAME2:4YD B+******DIRECTION*******,Y A6-6-}6-%6-+6-16-5+GAADSA Y6--3#"@B)"@@)"@D368@,-6.%%"@}*8@ ,"6B01 AR(YOU'RE  ?##*****PRE-DIRECTION HERE******@2"@(2(There is a} large lake here.BG"@G(3On the other side of the lake you see a castle.CB"@2(1(There's a huge} wooden doorB( to the east.D"@2)"@ 6-E"@`)"@6-F8 6--(8,*"%}@Y868@E,-6G 6-I"@2*"6-@`J "*"6-@Vh;%%%%%!(&( }Š:.-768,-; m# !( West#68@,-n$ !( North$68@,-o# !( East#68}@,-p$ !( South$68@,-q! !( Up!68@,-r# !( Down#68@,-|(~ }( 6-) -O:8,,"6-%) A  ( A "(:"( 7$&%<$," A}=)+"@&)"@5,*8@3,63 Ad= A`1*"@&6-6-' AdP1 AP7*"}@56-#6-@ - AdP7 AP""*****DESCRIPTIONS HERE******e8@,"6*"-6-P:H:,$@,%}3"e( Parrot says, >:@4,BRRRAAAAAAAAKKK!!!O "1(#Don't forget to kneel when you openL( it, Bilgor.>:@}4,O(!A_"@6*8@7,"6#6-_(7A man behind a counter asks: 'What key do you want?'M}( Enter Number:(!) +(C(Sorry, no such key.M A: *"(*(That one was misplaced.06-: }AP 68@#,- AJ"@6*(There's a man standing@(behind a counter.J AP 2}6-6-*****INPUT******NAR(((,8AR;(N4LOOKA? }"@*4PRAY*"*"5(Nothing happens.? APO#"@1*4U*8@ ,"6E(The door's closed and locked!}O APk"@*4PRAY" Aba(A voice says, >:@4,Ask and receive>:@4,.k Aam"}@I*4PRAYg(>:@4,4How dare you defile this room, infidel! DIE!!!>:@4,m6- Ab A`})"@*4N Ad) A`Q"@g**"*4S!6-18@,"676-=6-G AdPQ AP} Ad A`]"@h**"*4S!6-18@,"6=6-@I6-@S AdP] AP} Ad A`'4 SAVE GAME B ' A- --B:,"*47$&<$&,At  A}7-(!Your opponent blocks your escape!7 AP 8,6-8, A$($ AP}0IA I (}( (0(:8-I8,"A( 78,$&%<8,$,B }8@7,"6(/(:B(Guard's Helmet( ( AP***EXTRA**** ?/"@*+4KNEEL)4}CRAWL)4STOOP,56-? APP) -)7<,47$&<$,A A7(I don't understand >:@4,>:}@4,.A APX2-B:,7<,0  ((HUH?2 AP]6.7%:@4,>:@4,.< AP0 8, &(You can't }carry that!0 AP1 -8,"68,-'68,-61 APP. $(You can't carry anymore.(.6- A}P*******TALK*******k"@f*4MAN6-k(ITHE MAN SAYS: There's a secret passage from the cellars,} but watch'(out for the rats!' APN"*"@*4SOL!6-$(N(%THE SOLDIER SAYS: 'GASP...They...th}eyRR(Ftook everything...GASP...You must save the princess...but...but...WW(Kfor Nimral's sake, don't go w}ithout a weapon...You wouldn't last...you..'Z(And then he died. (J67A<A,.SOLDEAD SOLDIER P6-}Z APk%"@6*8@7,6*4MANa(7THE MAN SAYS: Get out! Only guards are allowed here.k APg4+}8@,"6*4PAR,)+8@,"*4PAR,]($The parrot says: 'BRRRRAAAAAAKKKKK!'g APQ"@*4GUAG(+G}et out of here! We don't like your kind.Q AP AP******DROP*******@"@5*8,"6*4DUS0( O}n the trunk66-@ AP#4MAC)4LAN)4AXE#6-+%"@q*8@2,"6*4CLO+6-wI(=The girl} gets dressed...much to your disappointment.X68@,-m68@ ,-@qw Ae *68@2,- }B@* A/)"@6**8@#,"6*4KEY/6-D8@7,"6*4HEL+68@7,-6:68@7,-D }A3@6**4KEY)( Not here!3 AP4 -"47$&%<$&%,48,"6A $(Y}ou don't have it.$ AP -8,"A  A 2 68,-68,-)"@6*4KEY268,-}68@2,- APP******READ******e!"@*+4WRI)4PLA,e(?Prayer and good deeds are t}he sincerest form of worship+!"@*+4WRI)4PLA,+ APh4PAP*8@","6(b(?Somebody he}lp, please! They've taken me prisoner and are goingh6-HH(+8},"6)8,",*4CHE4(It looks magical.> AP-#(You see nothing of interest- AP"(There's a label." }AP******PUSH******* !K+"@S*8@%,"6@S*4BUTA68@&,-6@SK APP"f"@2}*4BUT8(You just pressed the alarm!!T(A guard comes running!!Z6-`6-f6-#S-%2@p@}3-@P7 A2O-@%S $  AdP AP2 AP3******GO*******4'"*4T}EN6-@' A6P)"@*+4LAK)4WAT)4CAS,F(You don't swim very wellP AP7i*"@*4}DOO=(An arrow whizzes over your headI6-@ S Ae Y6-_6-i A8j"@*4DOO6(The door is b}ooby trapped!`(%An arrow buries itself in your chest!j A`9l-"@F)"@H)"@P)"@R36-C8@!},"6K6-%N(l(The key unlocked the door:)(The door is locked.) AP;d"@0*4BOA.(You cros}s the lake:6-@P68@4,-6@Z Ae d A<S+"@*8@4,"6@*4BOA16-=6-@0}S68@4,-6@0=J#(You get in the boat and6(cross the lake@ Ae J A>A+"@S*8@&,"6}@S*4DOO76-@1A A?9'*8@E,"6*+4DOO)4CEL,/6-%9 A@A*+4DOO)4CEL,7(Th}e door is locked tight.A APA/"@h**4TUN%6-@ / AB# "*"6-@V# AH AP}o********CLIMB*******p?-+"@B)"@@)"@D,*4TRE56-%? A AP*******FIGHT**}********71+"@2)"@&)"@5,*4GUA*!76-71+"@h)"@g,*+4RAT)4DWA,*!76-^} BP @.( You hit him!66-&< ?(N( He's dead!T6-^ A A 5*"@2!68 }@G,-6+ Ae 5 AB*"@&(67Ab<A,..6-8 Ae B AP*"@g667Ai }<A,. DWADEAD DWARF<6-F Ae P AB*"@5(67AF<Ah,..6-8 Ae B AT* }"@h:67A6<AX,.RATDEAD GIANT RAT@6-J Ae T A4 *!( You missed 6-* AdP4 AP } AdP AP AP********MOVE********7"@*4SHR-68@&,-6@7 A }7"@S*4POR-68@%,-6@S7 APP3"@h*4NES6-!)6.S3 Af-68@D,}-6@h#6-- APP AP, -%@Y"6-"', A n*"*8@#,"6368@E},-6+%@Y,<68,-Z(The key unlocks the door.d Ae n A-#(You don't have the key.- APG}"@*4DOO=67Av<A,.DOOOPEN DOOR G Ah7+"@P)"@R)"@H)"@F,*4DOO=6-}M8@!,6^( It's locked.h APB&(The key unlocked the door..6-%8 Ae B AP"@5}*"*4TRU@67AE<Ag,. TRUOPEN TRUNKF6-P AQ"@2*4DOO6-,8@0,G(The handle'}s too high.Q AP`*8@0,"/(You stand on the stoolF(and open the door.L6-V Ae ` A A}P*****SMASH******xJ8@$,"6*+8@$,"6)+"@(*8@$,"@(,,*4CHEr67A<A0,.}CHESMASHED CHESTx6-s (B(3There's a burst of light from the chest, and..._-@6@s0@}E-@  +-A/ E6-P:H:,$@f,%- AeP!@`#6-- A} 6- AZ%"@e*8@,"6*4DOO468@,-P(The door is smashed in!Z AQ AP}******WEAR******18@7,"6*4HEL'6-@71 A AP*********WAVE***********x!8}@,"6@*4WAN-6-@K(There's a burst of flame.a"@ *"x(A door burns away!/*"*"}6-6-% Ae / A AP=8@H,"6*4ROD!6-=(The rod starts glowing.;*"*"}1(There's a burned wooden door.; AH3 *"3(#You see a wooden door to the north.>-A 4(}The rod stops glowing.> AP2(( Nice try, but you can't do that.2 APK******CHANGES********L' -}8,"68,-'68,-6[  6- APP__TENTENT,-6,MANOLD MAN,-66,PARPARROT,45,STASTATUE OF NIMRAL,-11,GUAGUARD,}-14,SHRSHRUBS,-19ccPORPORTRAIT ON THE WALL,-53,GUAGUARD,-26,DUSMAGIC DUST,34,CHESMALL CHEST,28,WANWAND OF FIRE,0``STA}STATUE OF GOLGOLOTH,-49,MACMACE,33,LANLANCE,33,AXEAXE,33,GUAGUARD,-35,DWAEVIL DWARF,-67aaTRETREES,0,GIRNAKED GIRL,-71,PRI }PRINCESS SHALA,0,BLUBLUE KEY,0,PAPPIECE OF PAPER,7,KEYKEY,0aaHAMHAMMER,47,BUTBUTTON,0,DOOSECRET DOOR,0,NESHUGE RAT'S NEST!},-68,BUTBUTTON,-32,TRUTRUNK,-35nnSTOSTOOL,31,SOLWOUNDED SOLDIER,-17,CLOA WOMAN'S CLOTHES,15,SWOSWORD,0,BOABOAT,0,GIAGIANT"},-55,PARPARROT,4 ddHELGUARD'S HELMET,0,CELCELL #1,-60,CELCELL #2,-61,CELCELL #3,-62,CELCELL #4,-63,CELCELL #5,-64``CEL#}CELL #6,-65,TUNTUNNEL,0,DOOOPEN DOOR,0,RATGIANT RAT,-68,GUADEAD GUARD,0,RODGLASS ROD,514WWW N E S U D GETTAKDROPUTGI$}VREALOOPUSPREGO ENTCLIATTFIGMOVOPESMAWEATALASKWAV>551,1,2,2,2,3,4,5,5,6,6,7,8,8,9,10,11,12,13,13,14 (OK-A%}P  ApR(-AU@& A`* 42>2A(R( YOU'RE DEAD!q?(*( Do you wan&}t to play again?8K:?)r>:,4Y%s>:,4Y%t(COWARDu" 22%@'}"$(( ONE WORD:] +4SWORD)4WEAPON,*"#(.(GIVEN!C68@3,-@M Ae S6-] A(}B4BOAT((GIVEN!268@4,-6@86-B AP/(%(You have no need for that!/ AP8/6-Ab)}%-Au@/ Ab9-@P Ab:#-Au@# Ab; 22*}$<? 22%'0@/03 ;6-%? -A FC(;A guard leaps forward +} and runs you through!F$24((You're attacked!!*-@P. 46-7I6-P:H:,$@,% "(3( You',}re hit!!;6-&I A`< ! (( It's a miss!A$b&((You're rat food!!& A`c0(-("The dwarf s-}tabs you with a dagger!0$dH --@6,2A <2A"D-H f -@` i.}R-@6$2A42A<-@ D R-@n 22$x-AP/} $-@AP $. 6-6-68@4,-$6-. A'i++6-F:A`,%AV$F:Aa,%0}9&@fG%@U%@i%@%@e'O%@&F:A`,1%@'F:Aa,=AO1}A@T'/ -(THE-/( SLAVE CELLARS'6-@(OF%-@6( '_ -2}6(% _(# by CLAYTON WALNUM 'A-AUA'-3}+ / AAAT'7-A +%A 7A@2'U -U(G You and your party, faithful4} followers of the god Nimral, were$'JJ(Bescorting the Princess Shala to the castle of her betrothed..'QQ(IUn5}fortunately as you camped for the night, the dreaded Slave Masters of8'QQ(IGolgoloth attacked. You fought bravely 6}but were unable to hold offB'KK(Cthe savage slavers. The last thing you heard before being struckL'?5(-unconscious was7} the princess's scream.? B0V'##( You awake and look about.`'QQ(I The bodies of your men lay strewn arou8}nd you, but there is no sign ofj'SS(Kthe princess. You are filled with fury and vow that the Slave Masters, t'GG(?fol9}lowers of the evil Golgoloth, will taste your vengence.~'C+(# But you are alone and weaponless.C( What will you d:}o?'@( ( ((Ӡξ#6(PLEASE WAIT...@ A'N( ( ((Ӡξ#'+3A EA;}A`K-N$*@ BP,(RESTORE FROM APE OR ISK0@4DB * 0T( B+H(,(!CUE TAP<}E THEN PRESS TWICE.0>C:H B% + D:SLAVE.DAT++=}+ +3-$@/67<%@",.3 + -68,- + ->}68,- +' -68,- $'$*+!((NO GAME DATA SAVED!!.>( (SAVE TO APE OR ISK$,4?}D46.,> B .0TB .P(,(!CUE TAPE THEN PRESS TWICE.086.,FC:P B 0.@} D:SLAVE.DAT... /.. / A}/--$"6.7<%@",) - // - 8, !-+ 8,/ /! - 8, B}!$2O +@-+(CONGRATULATIONS!7-@O(you have rescued2#-@#( the princess2AC}-ACA)252%A2%2+2%@ '-A+ 2- -2D} #+@3- A`6# -8,"@2#68,-6   $:6-P:H:,$,%$ D:SLAVE.BAS2trn````````````ltrn``````````````````````ln``````````ln````````````````ln``````````ln`````````F}`ltbdbdbdbdbdbdbdG}bdrn``````````````fdbh````lt bdbdbdbdbdH}bdbdbdbdbdbdbdbdbdbdI}bdbdrn``````xp````````````jvbdxp````````ltrn``jvbdbdJ}bdbdbdbdbdbdbdbdrn``````````jp``````````ltrn``jp``ln``K}````jp``jp``````fdbdxp````````````ltrn``````````jp````ltbdbdbd  bdbL}dbdbdbdbdbdbdbdxp``ltrn````````jvbdM}bdbdxp````````````````jvbdbd````jvbdxp````````jvbdN}bdbdbdbd bdrn``O}jp``````jp``````````````````jvrn````````ln````````````jp``````````````jp``````````````````fh````````````````````ln````jP}v  bd bdbdbdQ} ``````````ltbdbdrn````````````````````````````````````````ltbdrn``ltbR}drn````````````ltbdbdbdbd bdbdbdbdbdS}bdbdbdrn``ltbdbdbdbdrn``````ln``````ln````````````````ltbdbdbdbd bdT}bdbd``````fdbdxpltbdbdbdbdbdbdbdbdbdbdbdbdbdU}xp``ln``fd bdbdbdbdbdbdbdbdxp`` bd````````jvbdbdbdbdV}bdbdbd``````````jvbdbdbdbdbdbd bdbd bdbdW}bdbdbdbdbdbdbdxp````````jvxp````````````````````jp``````````````xp``jp``jX}vxp``jv``jvxp``````````````````jvxp``jvY}<9dEInX;-----------------------xX;X;Scrolling Screen EditorX;for SNOWPLOW!X;X;by: Barry KolbeX;and Br[}yan SchappelX;X;-----------------------X;PASSPASS PASS>D:SYSEQU.M65 ICP?SCNM\}EM PMB" MYPMB,P1MEMMYPMB6CHSETPMB@TXTWINJCHRLN1TXTWIN(TCHRLN2TXTWIN^TXLN]}TXTWINxhSTSLNTXTWINPrSC2SCNMEM|SC3SC2SC4SC3SC5SC4SC6SC5SC7SC6^}SC8SC7SC9SC8SC10SC9 BCKUPX; X1 X2 X3 PGT CREG PXP_}& PYP0 NYP: DRXD DRYN NPTSX INITABb SPRTl LRCRSv LRSCRL UDSCRL UDCRS`} XPOS YPOS PCHR CXPOS LRADD UDADDXERXFLG KCHRS  DBH DBV YH2a} YH3  DLIDX IL  JL*X;4X;Display List>X;HRDL1 p=p=p\ EfSL1 SCNMEMp Ez SC2b} E SC3 E SC4 E SC5 E SC6 E SC7 E SC8 E SC9 E SC10$ . TXc}TWIN8 ===AB DL1LIVEI`X;jX;Display List InterrupttX;~0BEGIN!STRTDLI5Q> PCHBASEd}Q>  PCOLPF1A5 $DLIDX QDLICL9 PCOLPF2Q> PCOLBK  PWSYNC #DLIDX7(>27<9FX;PX;Start e}of ProgramZX;d STRT%>2n MDLQDL18x PBCKUP81IMDLRSTRT CLRSCNRBEG CLRTXT SETSTS PLRMEM SEf}TPMG CLRPM DEFPLRQ> %>4VBI $>5VBI SETVBVX; Q>5DL1PSDLSTL" Q>4DL1, PSDLSTL6 INIT@ g} SHWCRSJ SHWXYT CHRCRS^X;hX;Try StickrX;|CHKSTKQSTICK0R> FAKEY GENMOV TIME !CHKSTK AKEh}YQCH SWITCH DAKEYR> FTRYTRG$>&CH%>CKCMPRCMKEY8 FGTCM1& ICKCMP0 GTRYTRG: GTCMCDi}T?N>X QCMTAB9b PJMPOFlQCMTAB9v PJMPOF CLRLN1 JMPOF  CLRLN1 SHWXY !AKEYTRYTRGQj}STRIG0 HCHKSTK PLOT !CHKSTKX;X;Immed. VblankX; VBI%>VBI1QCOLOR08  PCOLPF081  IVBI1* Q>5k}CHSET4 PCHBASE>3H 'DLIDXR !SYSVBV\X;fX;General Move RoutinepX;zGENMOVR>;;right?HTLF !MVRTX; X;l}TimerX;TIME DELAY SHWXYQ> PATRACT:X;TLFR> ;;left?HTUP !MVLF X; X;Move Up$ X;. TUm}PR>8 HTDNB UP1QUDCRSL FAA3;;scrol?V "UDCRS` "YPOSj QNYPt ;~ S> PNYP TU1!UPDN AA3QUDSCRL FNOUn}D "UDSCRL "YPOS SCRUP NOUD: X; X;Move Down X; TDNR> HTUR DN1QUDCRS R>  FAA4;;scroll?( #o}UDCRS2 #YPOS< QNYPF ,P O>Z PNYPd !TU1n AA4QUDSCRLx R> FNOUD #UDSCRL SCRDN #YPOS : X;Up-Rip}ght TURR> HTDR MVRT !UP1 X;Down-Right TDRR> HTUL MVRT !DN1 X;Up-Left" TULR> , HTDL6 q}MVLF@ !UP1J X;Down-LeftT TDLR> ^ HNSTh MVLFr  DN1| NST: X; X;Move Up and Down X; UPDN PLRMEM ERr}SPLR QNYP PPYP !PUTPLR X; X;Erase Player X; ERSPLRQ> %PYP $> EMLP@IL7 3& 00 IEML: :D X;s}N X;Set up Player MemoryX X;b PLRMEMQ>5MYPMBl PILv Q> PIL : X; X;Move Right X; MVRTQLRCRS R>'t} HAA1 Q> PLRADD QLRSCRL R>X;;end scrn FNOLR #LRSCRL #XPOS SCRLR NOLR:* AA1#LRCRS4 #XPOS> u}QPXPH ,R O>\ PPXPf MV1QPXPp PHPOSP0z : X; X;Move Left X; MVLFQLRCRS FAA2 "LRCRS QPXP ; Sv}> PPXP "XPOS !MV1 AA2QLRSCRL FNOLR "LRSCRL "XPOS$Q>. PLRADD8 !SCRLRBX;LX;Close IOCBVX;`w} CLOSE&X1jQ> t PICCOM9~ CIOV$X1:X;X;Set up PMGX;SETPMGQ>> PSDMCTLQ> PGPRIORQ>x} PGRACTL Q>5PMB PPMBASE Q>l PPCOLR0Q>( PSIZEP02 PSIZEP1<:FX;PX;Clear P/M areaZX;dCLRPMQ>5y}MYPMBn PILxQ>PIL CA2%> CA1P@IL73HCA1:X;X;Define PlayersX;DEFPLR%> 'NYP'z}PYP PLRMEM PUTPLRQ>. PHPOSP0"PPXP,:6X;@X;Put Player on screenJX;TPUTPLR%PYP^$>hDF1QPL0D{}EF9r P@IL7|23(>HDF1:X;X;Delay LoopX; DELAY$> &RTCLOKYLP1$RTCLOK(> HYLP1:|}X;DLICL =B=NBF A000 A&A2I @== =`0PL0DEF ===: ===D ===N ===X}}P1DEF ===b ===lX;vX;Show Char SetX;SHWCRS$SPRT2AT?T?T?T?T?>0A~}%>SH1PCHRLN18 PCHRLN280 A*14ISH1>:HX;RX;Init Memory\X;f INIT%>pQ>zINILPPINITAB}81 IINILPX;set up 128%>C PM128L Q>5SCNMEM PM128HTLPQM128L8,O>PM128L8 QM128H8}O>PM128H83$)>!.HTLP8 OPNKEYB Q>5CHSETL PCHBASVQ>` PNMIENj Q>5DLItPVDSLST~ Q>4DLI} PVDSLST:X;X;Plot a CharacterX;PLOT$YPOS QM128L9PJL QM128H9 PJL QPCHR %XPOS P@JL7} :X;STSCRLQ>5SL1( PJL2 Q>4SL1<PJLF:PX;ZX;Scroll Left/rightdX;nSCRLR STSCRLx%> SLRQ@JL}7, OLRADD P@JL7333)>HSLR:X;X;Scroll DownX; SCRDN%>SQ1QSL18 PSL18" }QSL18, PSL1863@3J3T)>^HSQ1h QSL1r,|O> PSL1 QSL1O> PSL1:X;X;Scro}ll UpX; SCRUP%>SUP1QSL18 PSL18 QSL18 PSL18111& HSUP10QSL1:;DS>NPSL1X Q}SL1bS>l PSL1v:X;X;Clear ScreenX;CLRSCNQ>5SCNMEM PILQ>PIL$> ;;10 pages CS1%}>CSLPP@IL71)> HCSLP #IL 0ICS1 :*X;4X;Character Cursor>X;HCHRCRS%>;;eraseRQ>\}CR13f PP1MEM8p)>zHCR1X;define playr%>Ș$>CR2QP1DEF9 PP1MEM832(>HCR2 Q>ICPP}HPOSP0 PPXPQ>M PPCOLR1:X;$X;Move Character Cursor.X;8KSELECT$>4CHRMESB Q>5CHRMESL PRINTV}MVCRSQSTICK0`R>jHBHt !CKTRG2~BHR>;;rt?HML QCXPOSR>FBB #CXPOS QPXP,O>!BF} BBQ> PCXPOS Q>ICPHBF X;MLR> ;;lef?HMU( QCXPOS2FBE< "CXPOSF QPXPP;ZS>dBFPPXP}nPHPOSP0x !SLOW BEQ> PCXPOSQ>HBFX;up MUR>HMD QSPRTFBC "SPRTDOC SHWCRS }!SLOW BCQ> PSPRTHDOCX;" MDR> , HCKTRG26 #SPRT@ QSPRTJR>THDOC^Q>h PSPRTrFDOC|X;}CKTRG2QSTRIG0HSJ CLICK DELAYCTRQSTRIG0FCTR $SPRT2AT?T?T?T?T?, OCXPOS&;0}S> : PPCHRD !DELAYNSLOW DELAYX SJ!MVCRSbX;lX;Print Text x=lo,a=hivX; PRINT&IL PIL%>ML}P3 Q@IL7 PTXLN8IMLPM> PTXLN8:X;CHRMES AChoose characteA COLMES AColor register 0-A}DRWMES ADraw modA BLKMES ABlock filAFNTMES ALoading fonA DEFMES ADefine blocA*STPMES ACopy blocA4X};>X;HX;RCLRLN1%>'\Q>fCN1PTXLN8p1zICN1:X;X;Clear Text WindowX;CLRTXT%>Q>}CTLPPTXTWIN81)> HCTLP:X; X;X;COLORS$>4COLMES Q>5COLMES$ PRINT. CKEYQCH8$>B}R>L FCKEYV R>;;out`FCAj%>tCMSRCLRKEY8~FCCC1ICMS GCKEY CA&CH:CCCQCLREG8;;offset}PCREG;;save it CLRLN1X;Change Register $>4REGMES Q>5REGMES PRINT DISREG  %CREG QCOLOR085(M>}2PX2<7FM>PPX3ZCSTKQSTICK0d R>;;rtnHCLFxQX2,O>PX2 !SCOLR CLFR> HCUPQX2;}S>PX2 !SCOLR CUPR>HCDN#X3#X3QX3"M>,PX36 !SCOLR@ CDNR> J HCSTGT"X3^"X3h}QX3rM>|PX3 SCOLRQX2LX3 %CREG PCOLOR08 DISREG DELAYCSTGQSTRIG0 HCSTKCC2QSTRIG0H}CC2:X;CLRKEY 2==== CLREG ==== X; X;Show X/Y Position& X;0 SHWXYQXPOS: $> D RJUST}N QYPOSX $>b RJUSTl X;v X;Show character X; %YPOS WHER %XPOS Q@JL7 PSTSLN X; NOERM%> }NLPQNOM8 PSTSLN8 1 INLP :!X; !X;Right justify a number!X; !RJUSTPFR0*!Q>4! PFR0>!AH!5R! IFP}\! FASCf!%>p!Q> 0z! RJ1PNBF8!1!IRJ1!%>!RJ23! Q@INBUFF7!IRJ2!M>! P@INBUFF7!3!C!N>!M>}!>"%>"RJ3Q@INBUFF7" PNBF9$"3."28"(>B"HRJ3L"%>V"7`">j" RJ4QNBF8t"M>~" PSTSLN9"0"1"IRJ4"}:"X;"X;Set up Status Line"X;"SETSTS%>'"Q>"STLPPSTSLN8"1" ISTLP#%> #STLXQSLD8#PSTSLN8#1(}# ISTLX2# !SHWXY<#SLD AX:000 Y:000 CHAR: AF# AError:AP#X;Z#WHERQM128L8d#PJLn# QM128H8x# PJL#:#X;# DR}AWQ># PNPTS# Q>5DRWMES# $>4DRWMES# PRINT#DRG GETTWO#EDRP#DODRWQDRX# RDRX#FDUD;;up/dn#QDRY$ }RDRY$HDRP$ QDRX"$RDRX,$EDR56$5@$QDRXJ$ PDRXT$7^$PDRXh$ DR5 DRLRr$!DRG|$ DRPQ>$PCH$:$X};$X;Up and Down$DUDQDRY$RDRY$FDRP$ EUYOK$5$QDRY$ PDRY$7$PDRY%UYOK DWUD%!DRP%X;&%X;D}o Up/Down Draw0%DWUD%DRY:% DDB WHERD%%DRXN% QPCHRX% P@JL7b% "DRYl% %DRYv%)DRY%HDDB% WHER%%DRX}% QPCHR% P@JL7%:%X;%X;Draw left and right% DRLR%DRY% WHER% %DRX% QPCHR% DR7P@JL7&1 &)DRX&HDR7} & P@JL7*&DR8:4&X;>&X;Click SpeakerH&X;R& CLICKQ>\& PCONSOLf&:p&X;z& BLOCKQ>& PNPTS& Q>5BLKMES& $>4BLKME}S& PRINT& GETTWO&DBAB&BAC:&BABQDRX&RDRX&FBAC&DBAC& QDRY&RDRY'FBAC'DBAC' #DRY$'} BAD DRLR.'#DRY8'QDRYB' RDRYL'HBADV'FBAC`'X;j'X;Get two screen Positionst'GETTWOQ>~' PNPTS' GTWOQCH'}R>'HDRS'Q>'PCH';':'DRSQSTICK0'R>'FDRU' GENMOV' TIME(DRUQSTRIG0 ( HGTWO( CLICK(RE}LQSTRIG0((FREL2( #NPTS<( %NPTSF( QXPOSP( PDRX8Z( QYPOSd( PDRY8n( QNPTSx(R>(FGOM( !GTWO(GOM,(:(CMTAB} KSELECT( COLORS( DRAW( BRIGHT( BLOCK( FONT( LOADM( SAVEM( QUIT) CLRMAP) RESTART) HOME") }DEFINE,) XEROX6) DEFKEY@)X;J)CMKEY ==:= T) =8==>=/^) ==9=%h) =-r)X;k c d q clr ^h h m x t|)}X;)X;Change Luminance of Player)X;)BRIGHTQPCOLR0)N>) PPCOLR0):)X;)X;Load Font)X;)FONT$>4FNTMES) Q>}5FNTMES) PRINT) GTNAME*DFAA*:* FAA$>&* CLOSE0*Q>:* PICCOM9D* Q>5FNAMEN* PICBAH9X* Q>4FNAMEb* PICBAL}9l*Q>v* PAUX29*Q>* PAUX19* CIOV*IFAB* FAC'X2* !IOERR* FABQ>* PICCOM9* Q>5CHSET* PICBAH9*Q>}* PICBAL9*Q>+ PICBLH9 +Q>+ PICBLL9 + CIOV*+'X24+ GIOERR>+$>H+ CLOSER+ !NOERM\+X;f+ IOERR$>p+ CL}OSEz+ ZFR0+QX2+$>"+ RJUST+ !GETKEY+X;+X;Open keyboard+X;+OPNKEY$> + CLOSE+Q>+ PICCOM9+ Q>5K}DEV+ PICBAH9, Q>4KDEV, PICBAL9,Q>$, PAUX29.,Q>8, PAUX19B, !CIOVL,X;V,NOM =ANoneA`,KDEV AK:A=EOLj,}X;t,X;Get a Key from CIO~,GETKEYQ>,$> , PICBLL9, PICBLH9,Q>, PICCOM9, !CIOV,X;,X;Get filename,X;,}GTNAME%>,C,GT1PTXLN8-3 -)> -HGT1-Q>$(- PTXLN2-Q><- PTXLNF-$>P- INLP&X3Z-Q>?d-PTXLN}9;;cursorn-Q>x-P-Q>@-P- GETKEY-$X3-R>-HGT2-;-:- GT2R>- FINEOL-M>-R> - DINLP}.R>~. HINEXT.(>". FINLP,.06.Q>@. PTXLN9J. PTXLN9T. FINLP^.X;h. INEXTR>`r. FINLP|.R>{. EINLP.(}> . FINLP.5.PFNAME9.U?.U?.U?.U?.M>.?.7.M>/ LA2I8/ PTXLN9/2&/ HINLP0/X;:/INEOLPFN}AME9D/,N/:X/X;b/X;Show color registerl/X;v/DISREG%CREG/RGDQCRG18/ PTXLN / QCRG28/ PTXLN / QCOLOR08}/5/M>/V?/V?/V?/V?/ HEX/ PTXLN07 0M>0 HEX 0 PTXLN*0:40X;>0HEX>H0 QHEXB9R0:\0X;f0HEX}B A0123456789ABCDEFAp0X;z0CRG1 A00111A0CRG2 A89012A0'REGMES A Color: 7 Hue:$ Lum:A0X;0X;Load a Map0LO}ADMQ>;;read0PX20Q>0PPGT0 Q>5LODMES0 $>4LODMES0INLOD PRINT0 GTNAME0 DNMOK1:1 NMOK$>1 CLOSE$1}QX2.1 PAUX1981Q>B1 PICCOM9L1 Q>5FNAMEV1 PICBAH9`1 Q>4FNAMEj1 PICBAL9t1Q>~1 PAUX291 CIOV1 IRWOK1'X21}RWER!IOERR1 RWOK$>1 Q>5SCNMEM1 PICBAH91 Q>4SCNMEM1 PICBAL91Q>1 PICBLL91Q> 2 PICBLH9 2QPGT2 PICCOM}92 CIOV(2'X222 GRWER<2$>F2 CLOSEP2 !NOERMZ2X;d2X;Save a mapn2X;x2SAVEMQ>;;write2PX22Q> 2PPGT2 Q>}5SAVMES2 $>4SAVMES2 !INLOD2X;2 X;2QUITQ>5QUTMES2 $>4QUTMES2 PRINT2 SURE2ENOQ37373 MOVEB"3Q}>,3 PHPOSP063PHPOSP0@3Q>J3 %>4SYSVBVT3 $>5SYSVBV^3 SETVBVh3 !WARMSVr3NOQ:|3X;3X;Clear Map3CLRMAPQ>5S}URMES3 $>4SURMES3 PRINT3 SURE3EERT3 CLRSCN3ERT:3X;3 X;3 SUREQCH3$>3R>#4FNO4R>+4 HS}URE&4&CH04,:4:D4 NO&CHN4;X4:b4LODMES ALoading filAl4SAVMES ASaving filAv4%SURMES ACLEAR! Are you sure Y/A}4$QUTMES AQUIT! Are you sure Y/A4X;4 X;4RESTART MOVEB47474 !RSTRT4X;4 X;4HOME MOVEB4747}4 !RBEG5X; 5X;Get Display List back5 MOVEB%>2 5MDLBQBCKUP8*5 PDL18451>5 IMDLBH5:R5X;\5X;Define blockf5DEFI}NEQ>5DEFMESp5 $>4DEFMESz5 PRINT5Q>5 PNPTS5 GETTWO5DDFJ5DFR:5DFJQDRY5;5SDRY5R> 5EDFR5 >;};keep5 QDRX5;6SDRX6R> 6EDFR$6PDBH.6&DBV86Q>B6PYH3L6QDRXV6PYH2`6 #DRXj6 #DRYt6 DFK%DRY~}6 WHER6 DFL%YH26 Q@JL76%YH36 PDEFBLK86#YH36#YH26QYH26 RDRX6HDFL6QDRX6PYH26#DRY7QDRY }7 RDRY7HDFK7Q>(7PXERXFLG;;set flag27:<7X;F7 X;P7XEROXQXERXFLG;;chk ifZ7HXEROX1;;block definedd7:n7}XEROX1Q>5STPMESx7 $>4STPMES7 PRINT7XSTQSTICK07R>7FXKY7 GENMOV7 TIME7 XKYQCH7R>7 HXTRG7Q>}7PCH7:7XTRGQSTRIG08HXST8 CLICK8XT2QSTRIG0"8FXT2,8 DELAY68 QXPOS@8PDRXJ8PYH3T8,^8ODBHh8 PDRX}r8 #DRX|8R>8DXAA8XAB:8 XAAQYPOS8PDRY8,8ODBV8 PDRY8 #DRY8R>8EXAB8 X;do xerox8Q>}8PYH29 XLQ%DRY9 WHER9 XLP%YH2&9 QDEFBLK809%YH3:9 P@JL7D9#YH3N9#YH2X9QYH3b9 RDRXl9HXLPv9QDRX9P}YH39#DRY9QDRY9 RDRY9HXLQ9:9X;9X;Define a key9DEFKEY KSELECT9 Q>5KEYMES9 $>4KEYMES9 PRINT9 DK}EYQCH:R> : FDKEY:R> :HDKO*::4: DKO%> >:DK2RKEYK8H:FDK3R:1\:IDK2f: GDKEYp: DK3QPCHRz: PKCHRS8:::}X;:)KEYMES A Define 1-0 A:X;:KEYK ===: ==3=5: 0=2:X;:X;Switch keys:X;:SW}ITCH%> :SW1RKEYK8:FSW2;1;ISW1;;$;:.;SW2QKCHRS88; PPCHRB;Q>L;PCHV;,`;:j;FNAME AD:At;X;~;; }M128L$; M128H$; DEFBLKx;; BEGIN;SW2QKCHRS88; PPCHRB;Q>L;PCHV;,`;:j;FNAME AD:At;X;~;; 3pppEEEEEEEEEEA0:L&0H ԩ ЊH62ЩЍ hh@2 23 4 5 u1 1 1 2"}0 \10 s2 Y2 <5 K3x 0 0Le0 :/60 6060 }4 }4 <5Lu0а 2Le0Ј"} ȄL_L~1 +2 <5M` L1ƒƔ8L[1ƑƔ 3` " 攥iL0 2` ~1L0 ~1"}L1  1L0  1 1` u1 h1L2``'X 2`擥i`Ə8ƓL1Ɛ"}L2 B V䦀`>/oЩԩlЍ `` u1 2.Ѕ`A2``B000 "}@ ` ʊ,ʊ` ;.; ;i ;.;i/;! 7ԩ0` "};.;`` 2e`ii`פּ8逍`"} `șȢQ2?ЅM`&4 4xL3 斥iL3? Ɩ8"}L 4Ǝ Y2L 4 接⭄" b6 +2 e8 L+2 +2L{3ȱz)z`#hoosechar"}acte#olorregister $rawmod"lockfil,oadingfon$efinebloc#opybloc'x``64 4 25"} 0`75 }4{8 4 48H)h)x iL5 8L5 悥)L5 ƂƂ) 48 +2"}`2 b5 b5 5f7o`ԩՊH ؠ092ȱ)ȘI)92h92)Pʈ"}`'P5UL<589#(!2%rror ;.;`4H 4 6 Ŋ ŌʼnHh O6L5`ŋH"}h 26L6 5ƌċ 5` 5ĉ``4Q 4 6`ʼnŋ O6拥Ō"}8`x 0 0 b6捤L6`t345 7h6788 909999::: 8>/9%-I`[4 4 7"}` 1B:EDKJ VLp7BEDIH V䄁0 1LV5 1 Dڥ" b5L7 1B7EDK"}JLVK: HIBLV $?@ 78`ɛ<) ~ʩ`{ H"}:****)h)=2Ф:`q8v8H)JJJJ \8h) \8`a8`!"#$%&#olor(ue,um"}9W 4 7` 1JB:EDK VLp7EDH IB V䄁0ۢ 1LV5 9cL89 4 @"}9hh 9ЍЩ_ \Lt`9n 4 @9 23`# +`8`,oadingfil3avingfil#,%!2!reyousure915)4!rey"}ousure9 9hhL10 9hhL402`4g 4 6`8 8 셤挤 5R;榥Ŋ拥Ō"}ܩ``4s 4x 0 0` b6 +2eɀ`e 5R;榥Ŋ"}拥Ō` t3: 4` :0襕`$efine 3502 :8``D:0 w*? _WWW_ꠢꪪ 0&}ccccc8<<<c``~pppww``|l`cc>66wwccUU0PTUU <&}f ?g``ss```cccp~88cc``sss  ~00v|vs888fkc?3sss&}?3ss?3sppcc?3ppp`  33ssccc6ck>6f<>8888xx>>?ppppppppp?||~|&}>>888~>?ppppppppp?||~&}|>>888~>@@@@]Qu@E@@]Q]&}QuE@@u@E@@@@@UU&}~x|nf8x8u@E@@@@@UU$ dX;------------------------nX;SYSTEM EQUATES FILE FORxX;ATARI HOME COMPUTERSX;------------------------X; X;*}DISK I/OX;DSKINVS SIOVYDDEVICDUNIT;;D: UNITDCOMND;;D: commandDSTATSDBUFLO*};;sector bufferDBUFHIDTIMLODBYTLODBYTHI DSECLO ;;sector #"DSECHI ,X;6X;CI*}O ROUTINES@X;JCIOVV;;CIO vectorTICCOMB;;command^ICBALD;;buffer addressh ICBAHErICBLLH;;buffer *}len| ICBLHI AUX1J AUX2K RUNADINITADX;X;SCREEN HANDLER/INTERRUPTSX;VDSLST;;DL*}I vectorVBREAK;;BRK vectorVKEYBD;;keyboard vecSRTIMR+;;key repeatSDMCTL/;;DMA controlSDLSTL*}0;;display listPCOLR0PCOLR1PCOLR2&PCOLR30COLOR0:COLOR1DCOLOR2NCOLOR*}3XCOLOR4bCHBAS;;char setlSETVBV\vSYSVBV_XITVBVb NMIENԔVCOUNT ԞCHBASE *} WSYNC Բ CHACTCHACTLCRSINHCHRSET;;ROM charactersX; X;MISC.X;CONSOL;;conso*}le keys RTCLOK  CH CH1 SSFLAG*KBCODE 4KEYDEL> MEMLOHSHFLOKRWARMSVt\*}COLDSVwf LBUFFp EOLzRANDOM ҄X;X;Device VectorsX;HATABSEDITRVSCRENV*}KEYBDV PRINTV0CASETV@X;X;PAGE ZERO LOCATIONSX; CASINI TRAMSZ WARMST BOOT? $*} DOSVEC . DOSINI 8 POKMSKB BRKKEYL SOUNDRAV CRITICB` ATRACTMj KEYDEFyt LMARGNR~ RMARGN*}S ROWCRST COLCRSU SAVMSCX RAMTOPjX;X;FLOATING POINTX; FR0 FRE FR1 FR2*} FRX EEXP  NSIGN ESIGNFCHRFLG( DIGRT2 CIX< INBUFFF RADFLGP AFPZ FASC+}d IFPn FPIx ZFR0Dڂ ZF1Fڌ FSUB`ږ FADDfڠ FMULڪ FDIV(۴PLYEVL@ݾ FMOVE+} EXP EXP10 LOG LOG10X;X;STICK, PADDLES, TRIGGERSX;PADDL0pPADDL1q"PADDL2+}r,PADDL3s6STICK0x@STICK1yJPTRIG0|TPTRIG1}^PTRIG2~hPTRIG3rSTRIG0|STRIG1+}X;X;AUDIO CONTROLX; AUDF1Ү AUDC1Ҹ AUDF2 AUDC2 AUDF3 AUDC3 AUDF4+} AUDC4AUDCTL SKCTLX;X;P/M GRAPHICSX;&PMBASE0GPRIORo:HPOSP0DHPOSP1N+}HPOSP2XHPOSP3b M0PFl M1PFv M2PFЀ M3PFЊHPOSM0ДHPOSM1ОHPOSM2ШHPOSM3+}в P0PFм P1PF P2PF P3PFSIZEP0SIZEP1 SIZEP2 SIZEP3  M0PL  M1+}PL  M2PL  M3PL *SIZEM ;;missile size4P0PL ;;player/pf> P1PL H P2PLR P3PL\COLPM+}0fCOLPM1pCOLPM2zCOLPM3ЄCOLPF0ЎCOLPF1ИCOLPF2ТCOLPF3Ь COLBKжGRACT+ }LHITCLRpCOLPM2zCOLPM3ЄCOLPF0ЎCOLPF1ИCOLPF2ТCOLPF3Ь COLBKжGRACT(?