@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 ; UPWARD by Greg Knauss; CHECKSUM DATA;[6A 3D EB A8 39 AC 1E D9 ; FF 74 FC 62 C0 0B 27 6C ; 92 E6 FF 87 E9 7E E6 T}9F ; AA A6 E8 78 A7 9A 95 62 ; 80 D9 29 79 79 70 EF 7C ; C0 85 AA CD 1A B4 EF EB ; B8 E1 E9 F2 DD FB 7B D0 ; 45 29 D6 58U} AB 75 E8 7E ; 8F 16 A5 2E D9 6E 31 61 ]BYTE P,PLY=1780,PIC,PL=1784,PD=1772, DRW=[1],SKX,SKY=1782,SPIC=[1], SSP=[3],V}SAC=[80],SCT=[0],DAX, DAY=1783,DART,Y,S,I,L,PM,PC=53253, PPC=53260,SLO,SHI,LO,HI,N,V,ES,STR, SN,LNS=[0]BYTE ARRAY SW}T="D:UPSET.A"INT X1,Y1,K,SX,SY,DX,DYCARD DRB,DL,CH,SC=[0],HSC=[0],AIR,JPROC DLIST() [112 112 112 71 0 0 6X} 2 0 2 128 0 101 0 0 37 37 37 37 37 37 37 37 37 5 65 0 0]RETURNPROC DLI() [ 72 169Y} 0 141 10 212 141 22 208 169 0 141 23 208 169 0 141 24 208 169 0 141 25 208 169 0 141 10 212 169 0Z} 141 26 208 169 0 141 9 212 104 64]RETURNPROC PLRVBI() [162 3 189 244 6 240 89 56 221 240 6 240 [} 83 141 254 6 106 141 255 6 142 253 6 24 169 0 109 253 6 24 109 252 6 133 204 133 206 189 240 6 1\}33 203 173 254 6 133 205 189 248 6 170 232 46 255 6 144 16 168 177 203 145 205 169 0 145 203 136 202 208 2]}44 76 87 6 160 0 177 203 145 205 169 0 145 203 200 202 208 244 174 253 6 173 254 6 157 240 6 189 23^}6 6 240 48 133 203 24 138 141 253 6 109 235 6 133 204 24 173 253 6 109 252 6 133 206 189 240 6 133 20_}5 189 248 6 170 160 0 177 203 145 205 200 202 208 248 174 253 6 169 0 157 236 6 202 48 3 76 2 6`} 76 98 228 0 0]RETURNPROC CHSTORE() [170 170 170 170 170 170 170 170 85 170 170 170 170 170 170 170 0 8a}5 170 170 170 170 170 170 0 0 85 170 170 170 170 170 0 0 0 85 170 170 170 170 0 0 0 0 85 170 17b}0 170 0 0 0 0 0 85 170 170 0 0 0 0 0 0 85 170 0 0 0 0 0 0 0 85 168 32 0c} 0 0 0 0 0 170 42 32 0 0 0 0 0 170 42 34 0 0 0 0 0 170 170 170 168 32 0 0 0d} 170 170 170 170 168 32 0 0 170 170 170 170 170 168 32 0 170 170 170 170 170 170 40 32 0 0 0 0 e} 0 0 0 0 85 170 170 170 170 170 170 32 85 170 42 42 42 10 10 0 85 170 170 168 168 160 128 128 f} 0 0 64 128 144 164 168 169 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 2 6 10 g}26 42 106 170 42 42 10 10 2 2 2 170 168 160 128 128 128 0 0 125 190 190 190 174 190 190 190 48 6h}0 60 60 12 60 60 60 186 190 190 190 174 190 190 190 255 255 255 255 255 255 255 255 255 191 191 191 175 175 17i}1 170 255 254 254 250 250 234 170 170 170 171 175 175 191 191 255 255 170 234 234 250 250 250 254 254]RETURNPROCj} GPIX() [ 56 56 56 16 124 254 186 186 186 124 56 40 40 40 40 108 56 186 186 146 254 124 56 56 56 56 k}56 40 40 40 40 108 184 184 186 210 122 62 60 56 56 60 60 44 40 44 32 96 56 186 186 146 254 124 56 l}56 56 56 56 40 40 40 40 108 58 58 186 150 188 248 120 56 56 120 120 104 40 104 8 12 28 24 28 m}8 28 60 60 62 60 30 31 17 50 34 32 48 28 24 28 8 60 125 95 94 28 28 28 54 98 66 67 0 n} 28 24 28 8 28 60 60 60 62 28 108 60 20 4 4 6 28 24 28 8 28 28 28 28 28 28 30 30 28o} 8 8 12 56 24 56 16 56 60 60 124 60 120 248 136 76 68 4 12 56 24 56 16 60 190 250 122 56 p} 56 56 108 70 66 194 0 56 24 56 16 56 60 60 60 120 56 54 60 24 16 16 48 56 24 56 16 56 56 q} 56 56 56 56 120 120 56 8 8 24 56 58 58 18 126 252 184 184 184 120 56 40 40 40 40 108]RETURNPRr}OC SPIX() [ 0 0 0 0 0 0 40 186 214 124 56 16 40 56 214 124 56 16 40 56 84 254 186 16 40 56s} 84 254 56 16]RETURNPROC MUS() [ 0 0 0 0 150 0 100 100 0 0 75 0 100 100 0 55 75 100 0 1t}00 75 55 0 0]PROC MUS1() [250 0 0 250 0 0 250 0 0 250 0 0 250 0 0 250 0 0 250 0 u}0 250 0 0]PROC SETUP() Graphics(0) Poke(82,0) Poke(752,1) PrintE(" ") CH=(Peek(106)-40)*256 MoveBlock(CH+8v}0,CHSTORE,272) Zero(CH,8) DL=PeekC(560) SHI=Peek(106)-36 SLO=0 MoveBlock(DL,DLIST,29) J=PeekC(88) PokeC(DL+4,J)w} PokeC(DL+13,SHI*256) PokeC(DL+26,DL) Zero(704,9) Poke(DLI+2,0) Poke(DLI+10,0) Poke(DLI+15,0) Poke(DLI+20,0) x}Poke(DLI+25,0) Poke(DLI+35,CH/256) PokeC(512,DLI) Poke(54286,192) MoveBlock(1536,PLRVBI,160) PM=Peek(106)-16 DRB=y}PM*256+1 Zero(DRB+1024,1024) Poke(623,4) Poke(559,62) Poke(1788,PM+4) Poke(53277,3) Poke(54279,PM) Poke(1771,PMz}) PL=16 Poke(1785,3) PD=1 Poke(1773,1) SKY=6 SKX=0 Poke(1786,6) Poke(1774,0) Poke(1787,1) Poke(1775,1) {}MoveBlock(DRB,GPIX,240) MoveBlock(DRB+511,SPIX,30) FOR J=DRB TO DRB+2 DO Poke(J+256,56) Poke(J+512+255,60) OD |} POKEC(548,PLRVBI) RETURNPROC OXY() Color=32 Plot(38,2) DrawTo(AIR/200+5,2)RETURNPROC LIFE() Color=32 Plot(}}38,1) DrawTo(STR/6-2,1)RETURNPROC PLAY() V==+2 IF V>15 THEN N==+1 V=0 Sound(0,0,0,0) Sound(1,0,0,0) ~}FI IF N=24 THEN N=0 FI J=Peek(MUS+N) IF J>0 THEN Sound(0,J,12,15-V) FI J=Peek(MUS1+N) IF J>0 THEN S}ound(1,J,10,15-V) FI RETURNPROC MOVE() PLY==+Y1 P==+X1 Poke(53248,P) Poke(53249,P) Poke(1781,PLY+15) Poke(}704,15) IF PPC=6 THEN STR==-1 Poke(704,70) LIFE() FI IF PPC=10 OR PPC=8 THEN STR==-25 Poke(53251,0)} DART=0 LIFE() FIRETURNPROC SRTDRT() DART=0 Poke(53251,0) DAX=Rand(50)+100 DAY=0RETURNPROC BANG() } DAX=DAX+DX Poke(53251,DAX) IF DAX=2 OR DAX=252 THEN DART=0 SRTDRT() FIRETURNPROC SKYLER() IF SCT=SSP THE}N SCT=0 IF SKX MOD SAC=0 THEN SX=0 SY=0 IF SKX

P THEN } SX=-1 FI IF SKYPLY THEN SY=-1 FI FI SPIC=}=+1 IF SPIC=5 THEN SPIC=1 FI Poke(1774,SPIC*6) SKY==+SY SKX==+SX Poke(53250,SKX) FI SCT==+1}RETURNPROC WAY() X1=0 Y1=0 IF S=14 THEN Y1=-1 LO=1 HI=4 FI IF S=13 THEN Y1=1 LO=1 HI=4} FI IF S=7 THEN X1=1 LO=5 HI=8 FI IF S=11 THEN X1=-1 LO=9 HI=12 FI IF X1<>0 THEN K=X1} FIRETURNPROC LEGAL() IF PC=0 THEN Y1=1 X1=0 FI IF PC=1 OR PC=9 THEN Y1=0 FI IF PC=2 THEN P==-}K Y1=1 X1=0 FI IF PC=3 THEN Y1=-1 FI IF PC=4 OR PC=6 THEN X1=0 FI IF P<48 THEN P=48 FI IF} P>202 THEN P=202 FIRETURNPROC ANIMATE() IF S=15 THEN IF PC=1 OR PC=5 OR PC=9 THEN PD=DRW FI IF} PC=0 THEN PD=DRW+16 FI FI IF PC=1 OR PC=9 THEN IF S=13 OR S=14 THEN PD=DRW+208 S=15 FI F}I IF (S=7 OR S=11) AND (PC=4 OR PC=6) THEN S=15 FI IF S<>15 THEN IF (X1<>0 AND P MOD 2=0) OR (PC<>0} AND Y1<>0 AND PLY MOD 3=0) OR (PC=0 AND (S=7 OR S=11)) THEN PIC==+1 FI IF PICHI THEN} PIC=LO FI PD=DRW+PIC*16 FIRETURNPROC JUMP() IF X1=1 THEN PD=DRW+96 FI IF X1=-1 THEN PD=DRW}+160 FI FOR I=1 TO 40 DO IF I>35 THEN Y1=2 FI IF I<19 THEN Y1=1 FI IF I<11 THEN Y1=}0 FI IF I<8 THEN Y1=-1 FI IF I<4 THEN Y1=-2 FI Poke(53278,0) FOR J=1 TO 750 DO OD } IF (PC=4 OR PC=6) AND I>10 THEN PD=DRW+32 FI IF PC>0 AND PC<>2 AND I>10 THEN RETURN FI IF PLY=18}9 OR STR<54 THEN RETURN FI IF P<48 OR P>202 THEN X1=-X1 K=X1 FI IF PC=2 THEN X1=-X1 } FI MOVE() SKYLER() PLAY() IF DART=1 THEN BANG() FI ODRETURNPROC DN() SndRst() FOR S=1 }TO 6 DO FOR I=0 TO 15 DO Poke(54277,I) PLY==-1 SKY==-1 DAY==-1 Poke(1781,PLY+15) FOR }J=1 TO 100 DO OD OD Poke(54277,0) SLO==+40 IF SLO<40 THEN SHI==+1 FI Poke(DL+13,SLO) Poke(D}L+14,SHI) OD SRTDRT() SC==-10RETURNPROC UP() SndRst() FOR S=1 TO 6 DO Poke(54277,15) SLO==-40 IF SL}O>215 THEN SHI==-1 FI Poke(DL+13,SLO) Poke(DL+14,SHI) I=15 FOR Y=1 TO 16 DO Poke(54277,I) } I==-1 PLY==+1 SKY==+1 DAY==+1 Poke(1781,PLY+15) FOR J=1 TO 100 DO OD OD OD SRTDRT()} SC==+10RETURNPROC FADEIN() FOR I=0 TO 15 DO Poke(704,I) Poke(707,I) Poke(710,I) IF I<5 THEN Pok}e(DLI+20,64+I) FI IF I<5 THEN Poke(712,144+I) FI IF I<7 THEN Poke(DLI+10,48+I) Poke(709,I)} FI IF I<9 THEN Poke(DLI+2,48+I) Poke(706,I) FI IF I<11 THEN Poke(DLI+15,I) FI IF I<}13 THEN Poke(708,32+I) FI FOR J=1 TO 2000 DO OD Sound(0,200,8,15-I) ODRETURNPROC PLRGO() FOR I=0 TO} 3 DO Poke(704+I,0) Poke(53248+I,0) OD DN() PLY=200 DN() Poke(559,0) Poke(712,0) UP() PLY=50 UP()R}ETURNPROC PAUSE() Poke(764,255) SndRst() Position(27,0) Print("PAUSED") WHILE Peek(764)<>33 DO OD Position(27,}0) Print(" ") Poke(764,255)RETURNPROC TITLE() SndRst() J=PeekC(88) Poke(77,0) Poke(88,SLO-40) Poke(89,}SHI-1) Print("***> B*C ") Print(" A******") Print("***C 3 ") Print(" }B******") Print("*** ") Print(" 4B****") Print("**C + + ++> + ") Print("+ A+> ++> }++> 3B**") Print("*C * * * * * ") Print("* * * * * *B* B*") Print("*> * * *+C * + ") Print("* *+* *}+C * * *") Print("** *>* * *>*A") Print("* * * *B> *A* A*") Print("**> B*C * B***") Print("C * }* * B>**C A**") Print("B**+++++++++++++++++") Print("+++++++++++++++++**C") Print(" 3456789876543456789") Print("8}987654345678987653 ") Zero(SHI*256+400,600) PokeC(88,J) Print("} ") Position(4,1) Print("Copyright 1985} ") Print("ANALOG Computing") IF HSC=0 THEN Position(13,2) Print("By Greg Knauss") FI IF HSC>0 THEN Posit}ion(13,2) Print("High Score: ") PrintC(HSC) FI AIR=6600 STR=246 SN=1 N=0 V=0 P=183 PLY=187 S=15 P}IC=0 MOVE() FADEIN() FOR L=1 TO 5 DO PLY=187 PD=DRW+208 FOR J=1 TO 10000 DO OD PD=DRW FOR J=1 TO 1000}0 DO OD OD SRTDRT() S=11 WHILE Peek(53279)<>6 AND STrig(0)<>0 DO AIR=6600 STR=246 IF P=190 THEN } S=11 FI IF P=58 THEN S=7 FI PLY=187 WAY() MOVE() ANIMATE() SKYLER() PLAY() } Poke(53278,0) FOR J=1 TO 700 DO OD IF Peek(53279)=5 THEN SSP==-1 SCT=0 IF SSP=0 THEN SSP=3} FI SndRst() FOR J=1 TO 250 DO Sound(0,J,10,15-J/16) OD FI IF Peek(53279)=3 THEN } SAC==-20 IF SAC=0 THEN SAC=80 FI SndRst() FOR J=1 TO 250 DO Sound(0,250-J,10,15-J/1}6) OD FI IF P=DAX AND DART=0 AND DAY=0 THEN DART=1 DAY=Rand(100)+75 DX=Rand(2) } IF DX=0 THEN DX=-3 DAX=245 FI IF DX=1 THEN DX=3 DAX=3 FI FI IF} DART=1 THEN BANG() FI IF DART=0 THEN SRTDRT() FI OD SC=110 PLRGO() SHI=SHI+4 Poke(DL+14,SH}I)RETURNPROC ERR() Close(1) IF SN=1 THEN Position(0,1) Print(" Please insert a ") PrintE("disk with Upwar}d sets ") Print(" present and press") Print(" the . ") Poke(712,149) Poke(559,62) WHILE STr}ig(0)=1 DO OD SSP==+1 SAC==+20 Poke(559,0) Poke(712,0) FI SN=1 SSP==-1 IF SSP=0 THEN SSP=1 SA}C==-20 IF SAC=0 THEN SAC=20 SSP=1 FI FI Open(1,"D:UPSET.A",4,0)RETURNPROC READSET() IF LNS=0 TH}EN Close(1) LNS=1 Poke(ST+9,SN+64) Error=ERR Open(1,ST,4,0) FOR J=0 TO 2999 DO S=GetD(1) }Poke(SHI*256+J,S) OD FI Close(1) AIR=6600 STR=246 ES=0 Print("} ") Position(2,1) Print("Str:}") Print("") Position(2,2) Print("Air:") Print("") F}OR J=3000 TO 3079 DO Poke(SHI*256+J,10) OD Poke(559,62) FADEIN() FOR P=1 TO 11 DO DN() PLY=200 OD PD=}DRW Poke(704,0) P=185 PLY=187 MOVE() FOR I=0 TO 15 DO Poke(704,I) FOR J=1 TO 3000 DO OD ODRETURNPROC }GOGOGO() DO SETUP() TITLE() DO READSET() WHILE ES=0 DO Poke(77,0) IF PC=8 OR PC=10 }OR PC=12 OR STR<54 OR AIR<54 THEN ES=1 FI IF PLY<110 AND SLO=0 THEN ES=2 } FI AIR==-1 IF AIR MOD 200=0 THEN OXY() FI S=Stick(0) WAY() IF ST}rig(0)=0 AND PC<>0 AND PC<>2 AND PC<>3 AND PC<>8 THEN JUMP() FI LEGAL() } MOVE() SKYLER() ANIMATE() PLAY() Poke(53278,0) IF P=DAX AND DART=0 AND }DAY=0 THEN DART=1 DAY=PLY+10 DX=Rand(2) IF DX=0 THEN DX=-3 DA}X=245 FI IF DX=1 THEN DX=3 DAX=3 FI FI IF DART=1 THEN } BANG() FI IF PLY>189 THEN DN() FI IF PLY<85 THEN UP() FI} FOR J=1 TO 700 DO OD IF Peek(764)=33 THEN PAUSE() FI OD IF ES=2 THEN S}C==+(STR/3)+(AIR/100) Poke(706,0) Poke(707,0) Position(25,0) Print("SCORE: ") PrintCE}(SC) Print(" ") Print("Congratulations!") PrintE(" ") Print(" For next }cavern ") Print("press the .") WHILE STrig(0)=1 DO PD=DRW+16 X1=0 SKY=}200 JUMP() FOR J=1 TO 800 DO OD OD Zero(SHI*256+400,600) PLRGO() SC==+110} LNS=0 SN==+1 FI UNTIL ES=1 OD PD=DRW+16 FOR I=0 TO 15 DO PL==-1 PLY==+1} Poke(704,15-I) SKYLER() IF DART=1 THEN BANG() FI PLAY() FOR J=1 TO 1000 DO OD } OD S=0 WHILE STrig(0)=1 DO SKYLER() IF DART=1 THEN BANG() FI PLAY() S==+1 } IF S=1 THEN Position(21,0) Print(" ") FI IF S=100 THEN Position(21,0)} Print(" SCORE: ") PrintC(SC) IF SC>HSC THEN Print("") FI Print(" ") } FI FOR DL=1 TO 800 DO OD OD IF SC>HSC THEN HSC=SC FI IF SN>1 THEN LNS=0 FI ODRETURN") yC$L (c)1983 Action Computer Services  B JKIHiDiELV`L|$ } |$ BLV`tL$$l L$ &` Fj`8冨凪` %EӅӥ } %`ʆǪƩ Ɛee` %ƦʆǢ &Ɛeǐ C% C%L % %'&&&8儨児 }祂*L %&&*ń8&&L % %`hihiHHȱȱL$c !#3` }L$JJJJ`H $h`Hȩh $L0& $L0& d$L0& l$L0& r$H8 }`HhHh &L0& BHI V䅠L0& L& |$L0&Ԇ ؠPIPP` } 'P l$L0& ,'L& 'L1' E'L'H- &8塪墨hLE' ^'L& e'L' 'ȹP` }텠8堨塪 '芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H }& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护 }°ڱ%ȱ%E &L(担CS &L(I ^'L(H Y(L( ,'L( &B V 0&NLMȑ }` MLN%B VL0&S:A)E:F)H & I)J) T& &h)0ID)E)LT&[\ZUVT` )D)E) }` )L' y)L& )L&) ` )L' e%` 0d $ҥ `2)2 }ҩ`p`0)9@*`@0)ӈJJJJ)`Ѕ`ȱ`` t*ȥ`Hh }ƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡` }`ťƤe8夰L+ Ƥ8`ŦeѠe桊L+ P }60 0 177 203 D:UPSET.A+205 200 202 208 248 253 L+pppGe%%%%%%%%%A`L+H ԍЩЩЩЩ ԩ }Щ h@`L,Y8Sjmm̅ν˭ͽ.ˑͩˈLWˑͩ0m }mνͽˑ0LLb`L,UUUUUUUU } * *" ( U U*** U@ *j**  }}0<<< <<<ꪪ`L-888||8((((l8|88888((((lz><88<<,(, }`8|88888((((l::x88xxh(h <<><2" 0<}_^6bBC<<<>l< 888<<|/ t*+i t*Щ t*+ԩ t*+ t* t* t*+ } t* t* t* t*--++ *+i+i.. *+++++i }2+i22+2+L2 +i+i8 t*+i+iii< t*+Ы+Lo2,,$ ~*`L2 }& )ȅ++ %ii )`L 3 & )+ %8 )`LX3+i }+͝+L3++ ) )+IL3+.m+.i d*++++L38+ + }).m+.i d*++++L 48+ + )`L$4m++m+++Щ t*+Щ t*i } t* t* IL48++F t* 3 I IL48++Щ t*+ 3`L4+Щ t*2 )id+`L }4+m+++Щ t*+I +IL5+ 4`L 5+M+L5+++ %L5+++++͉+LS5+Ȍ+ }+͌+Lh5++L|5+Ȍ+L5++++IL5++ e% t*m++m+ }++Щ t*+`L5+++++IL6++Ȍ+++I L)6+Ȍ++++ILF6+Ȍ++++I L }d6++ + ++ +L{6++++`L6L6+Ȍ+++I I L6++IL68++++Ȍ }+++IL6++I IL7+++0L70+͉+L7ʍ+`L#7+IL\7II I LK7+ }L\7+iI I L7+I +IL7+iЍ++I +I L7I IL7++ILZ8+ + }L7+ %BL8+ +L8 %L#8+I +I L#8++͚+ +͊+L<8++ }+ e%+e`L^8+I +ILx8+i`+I +IL8+i+(͕+L9#͕+L8+++L8 }+Ȍ++ L8+++L8+++L9++Щ t*+Ȍ+++L.9++L9I I }LR9 ͕+LR9+i АLq9ILq9 ͕+Lq9`I +6L9`+0 ͉+L98++++++++IL }98++++ !4 5 U3+IL9 4+L8`L9 *+͔+L:+͕+Ll:+ԩ t*888 }i t*+Ȍ+d++Lf:++LL:+L:ԩ t*+i(++(L:++i +i+ t*+i+i }+ t*+L9 48+ +++`L: *+͔+L;ԩ t*8+(+͘+L;8+++i +i+ t*+i }+i+ t*++͓+L;+ԩ t*8++i t*+Ȍ+d++L;++L;+LN };+L: 4+i ++i+`L;+͕+L=+ t*+ t*+ t*+L#<+i+i@m+ t*+ }L><m+ t*+Lr<+i +i0m+ t*+ t*+ L<+i+i0m+ t*+ t* }+ L<+i+i+ t*+ L< m+ t*+Ȍ+++L=++L<8+ȩ )+L;`L"= }+͕+Le=m+i t*m+i t*+L'= 9ȍ 9/ t* t* :2 :`L= t* * } y)L=PAUSED= & d*I!L=L= y)L= = & t*`L= *X d*++M t*8+(X t }*8+Y t*LH>***> B*C >3 &Lg> A******>R &L>***C 3 >q &L> } B******> &L>*** > &L> 4B****> &L?**C + + ++> + > &L!?+ A+> ++> + }+> 3B**? &L@?*C * * * * * ?+ &L_?* * * * * *B* B*?J &L~?*> * * *+C * + ?i &L?* *+* *+C * }* *? &L?** *>* * *>*A? &L?* * * *B> *A* A*? &L?**> B*C * B***? &L@C * * * B>**C } A**@ &L8@B**+++++++++++++++++@# &LW@+++++++++++++++++**C@B &Lv@ 3456789876543456789@a &L@89876543456789 }87653 @ &+ e%iiX *++X ~*L@} Ģ@ & y)LACopyright 19 }85 @ &L*AANALOG ComputingA &+ +L^A y)LWABy Greg KnaussAH &++LA y)LA High Score: A }y &++ ,'+ȍ++++++++ !4 ;+͖+L8B+iЍ+Ȍ++'+L B++ }LA++Ȍ++'+L2B++LB+LA 4 +Щ d*ILND ]*LND+ȍ+++ILzB ++I:L }B+ 5 !4 7 5 U3Щ t*+Ȍ+++LB++LBЩ d*ILBC8++++LB+ *+Ȍ+ }++LBC++ %8宅 + )++LCЩ d*ILC8+++LhCP+ *+Ȍ++ }+LC8+++ %8嬅 )+н+LtC+M+L3D+L3DL3D+d )iK )++ }+ +LD++++I +IL3D++++IL@D 4+LKD 4L@B+n+ =+i++i+i+ } t*`LD &+ILTE y)LD Please insert a D &LDdisk with Upward sets D ~&LD present and pressD }&L E the . D & t*>/ t* ]*IL6EL%E++i+/ t* t*+8+++LE+8+ }++LE++LE D:UPSET.AE T&`LE+LSF &++i +i+i@ t*D$D$ }++ T&+++ +LSF &++ e%m+m++ t*+д+LF &+ȍ++ }+L~F} ĢFo & y)LFStr:F &LFF & y)LFAir: }F &LGF & +++ +L\G+ e%m+m+ t*+п+LG>/ t* } ;+ ͉+LG 9ȍ+LmG+ t*+ !4+͕+LG+ t*+Ȍ++ +LG++LG+L }G`LG / = E+LIM t*I$I I +6+6+L1H+nLHH+LHH+8++++ }++ %L|H 2 D*+ 5 ]*LHLHILHILHILH [8 |6 !4 5 7 U3Щ t*+M+ }LHI+LHILHI+i  )+++ +L(I++++I +ILHI++++ILUI 4 }LbI 9ULoI :+Ȍ+++LI++LxI d*I!LI =LG+ILKK+ %+e+i }d++ %e+e+ t* t* y)LJSCORE: J &++ ='L?J J2 &LZJCongratul }ations!JI &LpJ Jd ~&LJ For next cavern Jz &LJpress the .J & ]*ILK+i+ }+ȍ [8+Ȍ+ ++LJ++LJLJ+ e%iiX * =+in++i+++ }+ILG+i+͕+LK88+ t* 5+ILK 4 U3+Ȍ+++LK++LK+LcK }+ ]*ILL 5+ILK 4 U3++ILL y)LL L &+IdL|L y)LAL SCORE: L5 }&++ ,'++++LnLLgLLe &LuL Lq &+Ȍ+ ;++LL++LLLK++++LL++++͠+ }LL+LG``G+LnLLgLLe &LuL Lq &+Ȍ+ ;++LL++LLLK++++LL++++͠+ k<:,/ n%-@&"!67,.>:,% x%-A"!67,.>:,% (+}-@7"!67,.>:,% ($6-?:C:,}* A@!!***************************!!* ITEM DATA *!!***************************267B:?},&,.ITM%,6.26- 6-%!AP (CREATING ITEM DATA LINE"7<,46-%@}" AA67,.=:B %,,67B:,%,. DATA 76.7<,A A@(6.7<%, A(67B:,%,.167B:A},%,.,17<@!,4NONEApO9+7<,0GET*7@3<@5,07<,,)7<,4CE6-O A,6B}-@:7,,%!@4,6-6%@0 67B:,%,.=:,(""**************************** ""* ACCESS TO ITEMS LC}INES **""****************************4997<,4GET)7<@!,4NONE)7<,4CA>#6-@:7,,#"@2D}AH A67,.IF IN$<>R (CREATING POS ACCESS LINE\6.7<@2, Apf<67B:,%,. OR I(E}N,67B:,%,.=:&,<67B:,%,.)p7<,4AA zB67B:,%,. OR R<>N(6-@:7,,%4!@4B6-&@0F}67B:,%,.=:,''7@3<@6,4NONEA P$6.7@3<@E,$ APb7@<@,4IG}267B:,%,. OR I(NC67B:,%,.=:,X67B:,%,.)<>-N1b A PB67B:,%,. OR ABS(I(N.67B:,%,.=:,B67B:,%H},.))<>R567B:,%,. THEN .67B:,%,.=:A:,%,5(C67,.=:A:,%,"67,. A$=96.7@F<@p,C AI}p:67B:,%,.:I(N)67B:,%,.=:&,:67B:,%,.)=*7<,4A 67B:,%,.R* A,6-@:7,,%J}!@4,6-6%@067B:,%,.=:,&67B:,%,. :UL=N1:G.N950&()67,.=:A:,%,"67,. REM)(K} (CREATING NEG ACCESS LINE$$7@q<@q,4 A6-@:7,, A$/67,.IF IN$=%6.7<@2L},/ Ap.B67B:,%,. AND R=N(6-@:7,,%4!@4B6-&@0867B:,%,.=:,BJ67B:,%,. AND NOTM} I(N167B:,%,.=:&,J67B:,%,. ) THEN A$=L$6.7@q<@,$ ApV*67B:,%,.:G.N950 (* AN}`""****************************j""* COMMAND LINES *t""****************************~/67B:,&,.O}COM%/ A3 6-@:7,, A(CREATING COMMAND LINE A@@:7@),,"AP}967B:,%,. AND R=N967B:,%,.=:@:7@),,%,'7<,4NONE A' A0 AP 67B:,%Q},.:G.N950 (227@U<@U,4 )7<,4NONEA`#6-@:7,, A# A@@:7@),,"R} A967B:,%,. AND R=N967B:,%,.=:@:7@),,%,<67B:,%,. THEN A$=26.7@U<@y,< ApS} *67B:,%,.:G.N950 (* A`!!***************************!!* FATAL COMMAND LINES *(!!*********T}******************2/67B:,&,.FAT%/ A3P< 4A# F(CREATING 'FATAL' LINEP6U}-@:7,, AZ A@d@:7@),,"An867B:,%,. AND R=867B:,%,.=:@:7@),,%,x7V}<,4NONEA AP!67B:,%,.:G.13000!(227@U<@U,4 )7<,4NONEA@6-@:W}7,, A A@867B:,%,. AND R=867B:,%,.=:@:7@),,%,<67B:,%,. THEN A$=26.7@UX}<@y,< Ap*67B:,%,.:G.N950 (* A@ ************************** * MOVE COMMANDS *Y} **************************/67B:,&,.MOV%/ A3p 6-@:7,, A(CREATIZ}NG MOVEMENT LINE A@@:7@),,"A"967B:,%,. AND R=N967B:,%,.=:@:7@),,%,,'7<[},4NONE A' A6 AP@X67B:,%,.:R=N567B:,%,.=:@:7@,,%,Q67B:,%,. :UL=N1:G.N950X\}(J227@U<@U,4 )7<,4NONEA0T6-@:7,, A^ A@h@:7@),,"A`r]}867B:,%,. AND R=867B:,%,.=:@:7@),,%,| A*67B:,%,.:G.N950 (* A0 ***********^}*************** * ITEM COMMANDS * **************************/67B:,&,.CHG%/ A3_} 6-@:7,, A""(CREATING ITEM COMMAND LINE+67,. IF IN$<>!6.7<,+ Ap7<,4`}NONEApZ67B:,%,. OR I(N*6.7<@(,4 APE67B:,%,.=:,Z67B:,%,.)<>-N1''7A"<A%a},4NONEA:67B:,%,. OR I(N06.7A"<A4,: AP)67B:,%,.=:,)67B:,%,.)<>-N1''7@b}<@,4NONEA0:67B:,%,. OR I(N06.7@<@,: AP(67B:,%,.=:,(67B:,%,.)<>c}N0&@:7@),,"AP0967B:,%,. OR R<>N967B:,%,.=:@:7@),,%,:567B:,%,. THEN .67B:,%,.d}=:A:,%,5(D67,.=:A:,%,N''7@<@,4NONEA X267,. I(N(6.7@<@,2 APe}bl67,.=:, 67B:,%,.)=P7@<@,4N*7@<@,4Rb67B:,%,.-R:l A l67@<f}@,4R,67B:,%,.R6 A v67B:,%,.-N1:''7@<@,4NONEA$6.7@<A,g}$ AP:67B:,%,.I(N&67B:,%,.=:,:67B:,%,.)=N0:''7A <A,4NONEA667B:,%,.Iq}B%DOS SYSB*)DUP SYSBzSUPWARD ACTBTUPWARD OBJB{!WIZCOMP BASB;WIZFRAMEBAS(N,6.7A <A!,6 AP(67B:,%,.=:,(67B:,%,.)=N0:<67B:,%,. UL=N1:A$=26.7@0<@T,r}< Ap 67B:,%,.:G.N950 ()67,.=:A:,%,"67,. REM)($$7@U<@U,4 A <6s}-@:7,, A<(CREATING NEG ITEM COMMAND LINE*67,. IF IN$= 6.7<,* ApC67B:,%,. AND 37t}A"<A%,0NONEC67B:,%,.(B67B:,%,. I(N'6.7<@(,1 APB67B:,%,.=:, <67B:,%,.)<>u}-N1<7A"<A%,4NONEA a67B:,%,. OR I(N06.7A"<A4,: APK67B:,%,.=:,a67B:,%v},.)<>-N1) <67B:,%,. THEN A$=26.7@U<@y,< Ap**67B:,%,.:G.N950 (* A 4!!******w}*********************>!!* FINAL COMMANDS *H!!***************************R/67B:,&,.FIN%x}/ A30\ 6-@:7,, Af(CREATING GAME END LINEp A@z@:7@),,"A!967B:,y}%,. AND R=N967B:,%,.=:@:7@),,%,'7<,4NONE A' A" AP'67B:,%,.:G.13000'z}(@227@U<@U,4 )7<,4NONEA!@6-@:7,, A A@@:7@),,"A"p{}867B:,%,. AND R=867B:,%,.=:@:7@),,%, A*67B:,%,.:G.N950 (* A!@!!*****|}**********************!!* CREATE SEARCH STRINGS * !!*************************** (CREATING VERB TABLE LINE 5}}67B:,&,.FAT6."6-(6-56.HFUESP$ 767,.10210 %67,.VB$(N1)=.67,.767,.. - ~}A##6--(FATAL8  AA#`B  A  A#`L ;67B:,&,.COM%/ A$;(CO}MMANDV  AA#`  A  A#j 867B:,&,.ITM%/ A$P8(ITEMt ( (7}<@!,4NONEA$ ~ .6.7<, A" A.A$   A  A$  867B:,&,.MOV%}/ A$8(MOVE  AA$`  A  A$` :67B:,&,.FIN%/ A%:(F}INAL   AA$  A  A$ :67B:,&,.CHG%/ A%@:(CHANGE  A}A$  A  A%  067B:,%,.67B:,%,.&(0 A% &67B:,%,.67B:,%,.&( . }6-%67,.=:B%,.67,. VB$( F67,.=:$@,(67B:,%,.)=667B:,%,.<6-C6.F$ S67B:,&},.ITM1@E67,. 10200 IT$=S67B:,%,. (CREATING ITEM TABLE LINE( ' -6.}7<,' A2 ,7<,467B:,%,." , A&`< $$P:'@0,'@0A&PF >67B:,%,.67B:,%,.}&(>67,.10201 IT$(91)=P 67B:,%,.  A&`Z 67B:,%,. d +67B:,%,.67B:,%,.&(+}n **************************x * MISC LINES * ************************** (CREATING MISC LINES} R A' 67B:,&,.INT$/6)=)M6-$@x%R F67,. 10060 NN="67,.=:,567B:,}%,.:NV=F67B:,%,.=:, 367B:,%,.:SI='67B:,%,.=:,-"36- -67B:,%,.:L=&67B:,%,.=:,-(} %67B:,&,.NAM%   !67,. 12200 DATA !67,. D-B:,&7<,1A*7<,/}ZD67<,.>:@:7<,,%@2,   (67B:,%,.,!67B:,%,.(( ] 67,.9060 OPEN#N1,N4,N0,)67,.;6}7@!,.D:J67@#,.]67B:,%,..DAT !!*************************** !!* INTRO * !!*****}**********************" H A)67B:,&,.INT*1)8)H6-$@x%, : -%(67,.=:}B)%,:67,. INTRO$(6 >67,.=:$@x&@w,067B:,%,.)=>67B:,%,.@ ..IF X=LH+N1 THEN GOSUB 200:N$=N}$(N1,A+N1)J *67B:,%,.67B:,%,.&(* T ^ **************************h * CREATE PROGRAM *}r **************************| J+A((J(LOAD >:@4,D:WIZFRAME.BAS>:@4, >67B:,&,.LN}S((>(ENTER >:@4,>:@4, a67B:,&,.BAS((=(SAVE >:@4,>:@4,@(C(S( POKE 842,12}V(Y(a(RUN  -AB@ & ************************** * INITIALIZE * ********}****************** ee;,;,;,9,;@,;A ,;,;@,;,;@,;AP,9@&, ff};A4,;@x,;,;@&,;,;,;@r,;A,;AP,;,;@7, ( 6.D:6.NSEWUD(6}.>:@4, ED:FILENAME.DAT$)267,.E67B:,%,..LNS  *-@&}68,- $6-*6- & 6.67B:,&,.ITM& * A1 -@P"*6-% 97<,4#}67B:,%,.7<,+6-%/ 9 A1 & %!67+&,$&<+&,$,.7<,% 0 :' 67B:,%,. 6.&6-0 A}: A0: ee104,104,133,204,104,133,203,104,133,206,104,133,205,104,104,133,207,162,0,142,255,6,134,213,232D ]]160,0,177},203,209,205,208,8,200,192,3,208,245,134,212,96,173,255,6,24,105,3,197,207,240N TT16,141,255,6,165,205,24,105,3,133,205,144},217,230,206,176,213,169,0,133,212,96X gg104,104,133,209,104,133,208,104,104,168,136,240,6,177,208,201,32,240,247,132,212,1}69,0,133,213,96b aa104,104,133,204,104,133,203,104,133,206,104,133,205,104,141,1,6,104,141,0,6,104,104,133,207l [[162,0,1}42,2,6,142,3,6,134,213,232,160,0,177,203,209,205,208,8,200,196,207,208,245,134v OO212,96,173,2,6,24,101,207,141,2,6,144,3,2}38,3,6,173,2,6,205,0,6,208,8,173 \\3,6,205,1,6,240,13,165,205,24,101,207,133,205,144,200,230,206,176,196,169,0,133,212,96} QQ216,104,104,133,204,104,133,203,104,104,133,205,160,0,177,203,201,33,240,11 DD24,105,1,145,203,200,196,205,208,240,96},169,61,240,244,208,242 "F:A,"A6" A FC(ERROR F:A, AT LINE F:A,%F:A,$AV}F "F:A,"A6" AP A2@ K+AAR/2@u=-@PA K2} ? -!(TROUBLE WITH ITEMS!'-?(NO  FOUND!  -( PRESS ANY KEY %K:)"%} F:A,"A6A0 A2@ F:A,"A6A#  A2@ F:A,"A6A  } A2@* F:A,"A6A4 A2@> F:A,"A6A!0H A2@ D:WIZCOMP.BAS {h~DANN1N1NN1N1NNNNSN1IICCELUNN2NNNN1N1ROQINN1INN2N2INN1N2N95N1}N3N2N3VNITVBN676FN900ZN2N2N2N2N2N3N3N3N3N3N3N3N3N4N4N4N4N4N4N4N4N4N4N5DNATNFASAVA}TAINTRO }@} !"#$%&'()*+,-}./0123456789:;<}=>?@ABCDEFGHIJKL}MNOPQRSTUVWXYZ[\}]^_`ab B'6-?:C:,:,/ :-@7"!6}7,.>:,% :D$(23,23)=CHR$(N0)%-@y"!67,.>:,% (-@5"!67,.>:,% ($ B:,! }(A%6-?:C:,<<<@$,% @E>6-?:C:,<<<,-+%%%%%"4(None> A p}(N (S (E (W (U (D 96-?:C:,<<<,'6-?:C:,<<<,96-?}:C:,<<<,'6-?:C:,<<<,'6-?:C:,<<<,+ 6-6--+O:8,,A t> 6-% "6.7$&<}$,(-, 26-:6-%>   !-(*(-(Nothing96-?:C:,<<<,'6-?:C:,<<<,96}-?:C:,<<<,'6-?:C:,<<<,'6-?:C:,<<<,) 6--8,6 ) A 06.7$&<$,- }&6-%,6-0 (-(NothingL 6-6-6-5AR-2'-+ 52 A}`ARC6-?:C:,<<<,'6-?:C:,<<<,96-?:C:,<<<,?-C(B:, A36-?:C:,