@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( 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` ) 1?  }l?<0 LlD:RAMDISK.SYS;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   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;DELV䌚 !B y`@ʆ 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 V (` 9 V⪍ ઍ  -'}LL ŝDEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE JLV B V BLVDEHI BLi1 } 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 SINGLEY!'#!,}O&))(&w*.6)z'',&؆莟R'S  vu DEfHI b1]#:! @ =0ɛ8A0.)-} ȅ t1 z1iil-! t1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.}.|~ 1 0 0JB 18Lv%|DL%DIRECTORY--SEARCH SPEC,LIST FILE?)# 0 0 &|/}D" t1L NOT A DISK FILEN !B 1L # t1 !BDED:}:1BJ|DE 10}DEBHI 1 h0ߢ 0.  0?詛 t1 =0YЛ1} 1 #LX" #L  BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED2} COPYING---DN::# 0|D .L$]#^#_#JB|DE 1BHI3}`D#E 1`#0: B 1L ^#_#_#^# B 1j#1$0SYS1}:#`# # `# .#Ƚ`#4} # 𩛙#t# t1,]#PD#EL- .BJD#E 1 1HH 0hh|DLv%1}:́5}# L% #D#EL% 1 0 . .0% t1L WILD CARDS NOT ALLOWED IN DESTINATION 0 .|K}Ξ 0 L1i) t1 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 USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.@}FE! +L1   `)  / }2 }2 0.* t1 =0 0)INSERT BOTH DISKS, TYPEA} RETURN", t1 =038逍 , t1L ,, B*  LF+, 0B} ", t1 =0 + e,0,0 ,L\+ ,ii ,Hí0Ξ, 0 A, t1 =0,Ф, 0'!"C} 2L1ƭ!EF 5L1L , ,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,D}TYPE RETURNINSERT DESTINATION DISK,TYPE RETURN`  `8 rL1`) t1* tE}1 =0Y`hhL NAME OF FILE TO MOVE?, 0 0|DL% .," t1 / 0 .@L# .BJ 1  DF}EHIB V L1 ,A t1 /,L-  JB|,]#P#DE 1 HI BDG}EHHII 1 B 1 ," t1 /,0L%- B V,]#P," t1 / 0L#L ) t1* t1 =0Yj3H}83}mm ݭ}`8}``|* ? ɛI},`|:(|Ѣ. t1L `DESTINATION CANT BE DOS.SYS/ 0H{ 12Δ 18J}/L /) 1 Π 1 0 ξhAΞB,0 J 1 BÝDEHI,K}HŝDE 1HIHIDELSAVE-GIVE FILE,START,END(,INIT,RUN)O 0 z1`BL}DEPHI V` 0H z1 L 0 n0 t1LB0`PLEASE TYPE 1 LETTER,0`hhL / 1L0M}L1 ,;ɛ7,"ɛ:ݦ1ݥA"D|ݤD|ȩ:|ȩ|ɛ,,(/N}+.ީT1 t1,ɛ`轤{NAME TOO LONG B VL ` Lz1I H1EDLb1O}|mDiE` V0`8d/8 i:111 t1 L ERROR- 132ɛ+,' d20*..P} ө62 t1``F2TOO MANY DIGITSINVALID HEXADECIMAL PARAMETER800 0 8 00`,0'D8Q}00 H,ɛh`2Lt1NEED D1 THRU D8 2 2 &2 2 (`FEL5R} 00 H,ɛh`2Lt1NEED D1 THRU D8 2 2 &2 2 (`FEL58<<  B JKIHiDiELV`L8 8 BLV`LxT}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`HU}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0ICV}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::iX}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8Y} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9Z}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  [} L;D8:; :9 :Y;L-@@ $( SEr}LECTION >0@@ @] Ap-@$@ +( =-@$@ OAdAUY A]s}H27@<@,4P*+"@*",>6-@H A7@<@,4X.m27@<@t},4P*+"@)"@,>6-@X0@c@m AG7@<@,4D(6-@u}2 A =@G A$$7@<@,4SA17@<@,4L'@1 A: v}6-A:,& @)!&@&0 A: A_ B(}@;@@G6-w}S"@_6-@4$-@% @$ +67@<@,.7@<@,S67@<@,.x}7@<@,l67@<@,..67@<@,.7@<@,Y 6.-@@,6-@:7<,y},B"@F)"@XY67B:,%@,.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G z}@@+@e@=ARG Apr +@-@@4(@LOADINGF-@{}@d(@7@<@,n A@r%a A(@4(@FILE NOT FOUNDT(@OR NOT|} A LOAD FILE^ A`a%XPRINTER SECTION]5 A0@5@@^.@.@}}@P:_(@ SIDE (` A@b$-@@d$@g> @ /~}P:'@,"'@> @ l q#@@# AvV-@"8(ҠԠΠ}ŠB AL BV AE'(@ %(@ 0@;@E AD:DIRECT} BLOCK1 FNT 009 1:*.*AE'(@ %(@ 0@;@E AD:DIRECT!0 REM 塒籱32000 CLR :GRAPHICS 0:STMTAB=PEEK(136)+PEEK(137)*256:POKE 82,2:POKE 83,39:DIM L$(114)32001 LIN}E=PEEK(STMTAB)+PEEK(STMTAB+1)*25632002 IF LINE=32000 THEN 3201532003 PRINT CHR$(125):POSITION 2,6:LIST LINE32004 LOCATE 3+}LEN(STR$(LINE)),7,A:LOCATE 4+LEN(STR$(LINE)),7,B:LOCATE 5+LEN(STR$(LINE)),7,C32005 IF A=82 AND B=69 AND C=77 THEN 320093200}6 L=1:FOR X=7 TO 9:FOR Y=2 TO 39:LOCATE Y,X,M:L$(L)=CHR$(M):L=L+1:NEXT Y:NEXT X32007 FOR X=1 TO 110:IF L$(X,X+3)=":REM" THEN} 3201232008 NEXT X:STMTAB=STMTAB+PEEK(STMTAB+2):GOTO 3200132009 PRINT CHR$(125):POSITION 2,6:PRINT LINE32010 POSITION 0,0:}POKE 842,13:POSITION 2,7:PRINT "CONT":POSITION 2,4:STOP 32011 POKE 842,12:GOTO 3200132012 PRINT CHR$(125):POSITION 2,6:PRIN}T L$(1,X-1):PRINT "CONT"32013 POSITION 0,0:POKE 842,13:POSITION 2,4:STOP 32014 POKE 842,12:STMTAB=STMTAB+PEEK(STMTAB+2):GOT}O 3200132015 PRINT CHR$(125):POSITION 2,6:FOR X=32000 TO 32016:PRINT X:NEXT X:PRINT "PRINT CHR$(125):POKE 842,12:END"32016 }POKE 842,13:POSITION 2,2:STOP OSITION 2,6:FOR X=32000 TO 32016:PRINT X:NEXT X:PRINT "PRINT CHR$(125):POKE 842,12:END"32016 0o TIMECHECKSU塒籲 ;@,1 +A}R@1( PROCESSING...6-#(--A6AX"#6-%)- 2:BPh(7( ***ERRO}R IN DATA STATEMENTS***:<J"@@K%(=(assette or isk ?J)@F.@g*@h}$@. @`P"@gA`ZU('(Type Y to create AUTORUN.SYSU()źExisting AUTORUN.SYS will be del}etedd)@@n@ A @@3@ D:AUTORUN.SYSxq BU58@}@ D:AUTORUN.SYSK*@AU^*@AUq*@<*@@)*@A"}<*@@6-A6AX'*@F:,+ 6@:(%(AUTORUN.SYS is now on disk7AR}:R(,(!Position tape, press and E(and press ...R)@oA('A)@}9A0AHKA1@]A2AUoA3@'A4@$'A5@]A}@'A@9AAA4KABA4]ACA4GAd5@@}A(C:GAdAU]AP@'ARAH9AS@KAVA1]AW}6-?:C:hhhLV,<@,C@(.(Boot file is now on tape@ARC104,169,0,133,178,160}4,177,130,217,218,6208,56,136,16,246,32156,6,165,178,208,9160,8,169,48,145,176"136,16,251,169,58,1}60,2,145,176,160,5,1456176,169,71,141,40,2@169,6,141,41,2,169J2,162,0,160,60,32T92,228,169,198,133,1}2^169,6,133,13,96,160h4,177,130,217,218,6r208,66,136,16,246,216|32,156,6,169,58,1602,145,176,160,5,}145176,160,7,177,176,24105,1,145,176,217,2106,144,25,169,48,145176,136,177,176,24,1051,145,176,}217,210,6144,8,169,48,145,176136,136,16,219,169,2162,0,160,60,32,92228,96,169,2,162,0160,0,32,9}2,228,96160,0,169,129,145,134160,4,169,8,145,134200,200,145,134,136,1690,145,134,200,200,145134},160,2,177,134,24&101,140,133,176,200,1770134,101,141,133,177,96:169,255,133,178,32,17D6,32,64,21,24,96N}51,52,48,54,58,48X54,58,84,73,77,69b 164 D2:TIME.BAS6:169,255,133,178,32,17D6,32,64,21,24,96NIh8  0:G()< \ƅ  `B :i0}i0۩< \` \`ȑȑeȱe`  @`3406:06:TIMEi0h !|TIMEA塒籲 *;@,;@,*6-?:A6, + } (Enter current time  ('#(Enter time to sound alarm '2 +@<R-@@ "(@R }AP:F:B7p,'@,$@%@FT 4-@@ ((@?(}It's time...QA@@ }TP @`D2:TIMEDEMO.BASFT 4-@@ ((@?(}It's time...QA@@ *; 糳; Sneak Attack by David PlotkinMODULEBYTE ChrBase=756,Max,Bkgrnd=710, Fate=53770,Level=[1],Cur$}sIn=752, Stick=632,Ps,Loud=[0],Indx=[0], DownL=[0],DownR=[0],Loud1=[0], Snd1=$D208,Snd2=$D20F,Freq=[169], Wsync=$D40A$},Colbk=$D018, Nmien=$D40E,Hard=[15], Consol=53279CARD Scrn=88,RamSet,HiMem=$2E5, Score=[0],Comp=[300],Sdlst=560, $}Vdslst=512CARD ARRAY Linept(24)BYTE ARRAY Charset,Chopperstatus(30), Chopperx(30),Choppery(30), Expx(60),Expy(60),E$}xpStatus(60), TrStatus(30),Trx(30),Try(30), MisStatus(30),Misx(30),Misy(30), Ll(20),Rr(20),Dlist, ShapeTable(0)= $}[254 16 124 71 127 12 62 0 127 8 62 226 254 24 126 0 96 96 48 48 24 60 231 255 24 24 24 $}24 24 60 231 255 6 6 12 12 24 60 231 255 128 85 17 66 24 170 91 131 60 126 255 255 195 66 36$} 24 60 36 24 255 60 24 36 102 0 0 0 0 0 0 0 0 60 36 24 255 60 24 36 102 60 $} 36 219 255 60 24 36 102 60 60 24 60 60 24 24 28 60 60 24 60 60 60 102 195]PROC Download();Step$} back HiMem and move the;character set into RAMCARD IndexBYTE Val RamSet=(HiMem-$400)&$FC00 ChrBase=RamSet RSH 8 HiM$}em=RamSet FOR Index=0 TO 1023 DO Val=Peek(57344+Index) Poke(RamSet+Index,Val) OD Charset=RamSetRETURNPROC Dl$}int();the display list interrupt routine [$48 $8A $48 $98 $48] Wsync=1 Colbk=50 [$68 $A8 $68 $AA $68 $40]PROC Scor$}eline();set up the dli Dlist=Sdlst Vdslst=Dlint Dlist(27)=130 Nmien=$C0RETURNPROC Update();print score and level$} Position(1,23) Print("Score: ") Position(8,23) PrintC(Score) Position(18,23) Print("Level: ") Position(25,23)$} PrintB(Level)RETURNPROC Title()BYTE colpf0=53270,colpf1=53271, colpf2=53273,colpf3=53273, rtclock=20,vcount=5$}4283 Graphics(18) Position(3,4) PrintD(6,"SNEAK ATTACK") Position(8,5) PrintD(6,"BY") Position(3,7) PrintD(6,"d$}avid plotkin") Position(3,9) PrintD(6," ") WHILE Consol<>6 DO colpf3=Fate Wsync=0 colpf0=128-vcou$}nt+rtclock RSH 2 colpf1=vcount+rtclock RSH 2 ODRETURNPROC Gr0Init();Set up the address of each screen;line and ini$}tializeCARD xx Graphics(0) CursIn=1 Print(" ") FOR xx=0 TO 23 DO Linept(xx)=Scrn+(40*xx) OD FOR xx=0 TO 29 D$}O Chopperstatus(xx)=0 Chopperx(xx)=0 Choppery(xx)=0 Misx(xx)=0 Misy(xx)=0 MisStatus(xx)=0 TrStatu$}s(xx)=0 OD FOR xx=0 TO 59 DO ExpStatus(xx)=0 OD FOR xx=0 TO 19 DO Ll(xx)=0 Rr(xx)=0 OD Bkgrnd=0 Upd$}ate()RETURNPROC Plot0(BYTE x,y,ch);Plot a char at location x,yBYTE ARRAY line line=Linept(y) line(x)=chRETURNBYTE$} FUNC Locate0(BYTE x,y);Returns the value of the char at x,yBYTE ARRAY line line=Linept(y)RETURN(line(x))PROC Noise()$};the explosion noises IF Loud=0 AND Loud1=0 AND Freq=169 THEN RETURN FI IF Loud THEn Loud==-2 S$}ound(0,90,8,Loud) FI IF Loud1 THEN Loud1==-2 Sound(1,150,8,Loud1) FI IF Freq<168 THEN Freq==+8 Sound($}2,Freq,10,4) ELSE Freq=169 Sound(2,0,0,0) FIRETURNPROC HitChute(BYTE wh);see which chute was hit by missile w$}hBYTE lp FOR lp=0 TO 29 DO IF Misx(wh)=Trx(lp) AND (Misy(wh)=Try(lp) OR Misy(wh)=Try(lp)+1) THEN $} TrStatus(lp)=2 Plot0(trx(lp),Try(lp),0) Plot0(Trx(lp),Try(lp)+1,10) Plot0(Trx(lp),Try(lp)+2,0) EX$}IT FI OD IF Try(lp) LSH 3 < Freq THEN Freq=Try(lp) LSH 3 FIRETURNPROC HitMan(BYTE wh);see which man was hit$} by missile whBYTE lp FOR lp=0 TO 29 DO IF Misx(wh)=Trx(lp) AND (Misy(wh)=Try(lp)+1 OR Misy(wh)=Try$}(lp)+2) THEN TrStatus(lp)=3 Plot0(Trx(lp),Try(lp)+1,6) Plot0(Trx(lp),Try(lp),0) Plot0(Trx(lp),Try(lp)$}+2,0) FI OD Loud1=12RETURNPROC ExplodeChopper(BYTE lp);explosions in place of Chopper lpBYTE lq FOR lq=0 TO 59$} STEP 2 DO ;find empty IF ExpStatus(lq)=0 THEN ExpStatus(lq)=1 ExpStatus(lq+1)=1 Expx(lq)=Chopperx$}(lp) Expx(lq+1)=Chopperx(lp)+1 Expy(lq)=Choppery(lp) Expy(lq+1)=Choppery(lp) Chopperstatus(lp)=0 $} Plot0(Expx(lq),Expy(lq),6) Plot0(Expx(lq+1),Expy(lq+1),6) EXIT FI ODRETURNPROC HitChopper(BYTE wh);wh$}ich chopper was hit by missile whBYTE lp FOR lp=0 TO 29 DO IF Misy(wh)=Choppery(lp) AND (Misx(wh)=Chopperx(lp) $}OR Misx(wh)=Chopperx(lp)+1) THEN ExplodeChopper(lp) EXIT FI OD Loud=12RETURNPROC MissileHit(BY$}TE wh);see if missile wh hit anythingBYTE dum dum=Locate0(Misx(wh),Misy(wh)) IF dum=0 THEN Plot0(Misx(wh),Misy(wh),$}84) RETURN FI MisStatus(wh)=0 IF dum=1 OR dum=2 THEN HitChopper(wh) Score==+1 ELSEIF (dum=7 AND Indx<6 OR$} dum=8 AND Indx>3) THEN HitChute(wh) Score==+2 ELSEIF (dum=8 AND Indx<4 OR dum=9 AND Indx>1) TH$}EN HitMan(wh) Score==+1 FIRETURNPROC Modify();Modify the RAM character setCARD xx FOR xx=0 TO 103 DO Cha$}rset(xx+8)=ShapeTable(xx) ODRETURNPROC LaunchTrooper(BYTE wh);drop a paratrooper from chopper whBYTE lp IF Fate>240-$}(Level LSH 1) THEN FOR lp=0 TO 29 DO ;find MT trooper IF TrStatus(lp)=0 THEN ;got one TrStatus(lp)=1 $} Trx(lp)=Chopperx(wh) IF Trx(lp)=0 THEN Trx(lp)=1 FI Try(lp)=Choppery(wh)+1 Plot0($}Trx(lp),Try(lp),7) Plot0(Trx(lp),Try(lp)+1,8) Plot0(Trx(lp),Try(lp)+2,9) EXIT FI OD FIRE$}TURNPROC EraseChopper(BYTE wh);erase chopper number wh Plot0(Chopperx(wh),Choppery(wh),0) Plot0(Chopperx(wh)+1,Chopper$}y(wh),0) Chopperstatus(wh)=0 Chopperx(wh)=0 Choppery(wh)=0RETURNPROC DrawChopper(BYTE wh);draw chopper number wh $}Plot0(Chopperx(wh),Choppery(wh),1) Plot0(Chopperx(wh)+1,Choppery(wh),2)RETURNPROC ClearScreen();clear the screenBYTE l$}p FOR lp=0 TO 29 DO IF Chopperstatus(lp) THEN EraseChopper(lp) FI IF TrStatus(lp) THEN TrStatus(l$}p)=0 Plot0(Trx(lp),Try(lp),0) Plot0(Trx(lp),Try(lp)+1,0) Plot0(Trx(lp),Try(lp)+2,0) FI IF MisStatus$}(lp)=1 THEN MisStatus(lp)=0 Plot0(Misx(lp),Misy(lp),0) FI OD FOR lp=0 TO 59 STEP 2 DO IF ExpStatus(lp$})=1 THEN ExpStatus(lp)=0 ExpStatus(lp+1)=0 Plot0(Expx(lp),Expy(lp),0) Plot0(Expx(lp+1),Expy(lp+1),0)$} FI ODRETURNPROC MoveChopper();move the choppersBYTE lp,ps=[0] FOR lp=0 TO 29 DO IF Chopperstatus(lp)=1 THEN $};right IF Chopperx(lp)=38 THEN EraseChopper(lp) ELSE Plot0(Chopperx(lp), Choppery(l$}p),0) Chopperx(lp)==+1 DrawChopper(lp) LaunchTrooper(lp) FI FI IF Chopperstatus(lp)=2 T$}HEN ;left IF Chopperx(lp)=0 THEN EraseChopper(lp) ELSE Plot0(Chopperx(lp)+1, Choppe$}ry(lp),0) Chopperx(lp)==-1 DrawChopper(lp) LaunchTrooper(lp) FI FI OD IF ps=0 THEN $} Charset(8)=56 Charset(16)=28 ps=1 ELSE ps=0 Charset(8)=254 Charset(16)=127 FIRETURNPROC LaunchCho$}pper();Decide whether to send off a new;chopper, which side, how high upBYTE lp IF Fate>230-(Level LSH 1) THEN FOR l$}p=0 TO 29 DO ;find MT chopper IF Chopperstatus(lp)=0 THEN Choppery(lp)=Rand(Hard) IF Fate>128 THEN $} Chopperx(lp)=38 ;right side Chopperstatus(lp)=2 ELSE Chopperx(lp)=0 ;left side Ch$}opperstatus(lp)=1 FI DrawChopper(lp) EXIT FI OD FIRETURNPROC DrawBase();draw the base$}BYTE lp FOR lp=19 TO 21 DO Plot0(lp,22,128) OD Plot0(20,21,4)RETURNPROC AimGun();read the joystick and move th$}e base IF Stick=11 THEN Ps=3 ELSEIF Stick=7 THEN Ps=5 ELSE Ps=4 FI Plot0(20,21,Ps)RETURNPROC Shoot()$};send off a bulletBYTE trig=644,lp,flg=[0] IF trig=1 OR flg=0 THEN flg=1 RETURN FI FOR lp=0 TO 29 DO ;find em$}pty shot IF MisStatus(lp)=0 THEN ;got one MisStatus(lp)=1 Misy(lp)=20 IF Ps=3 THEN Misx(lp)=19$} ELSEIF Ps=5 THEN Misx(lp)=21 ELSE MISX(lp)=20 FI MissileHit(lp) EXIT FI O$}D flg=0RETURNPROC MoveShots();move the fired bulletsBYTE lp FOR lp=0 TO 29 DO ;for each shot IF MisStatus(lp)=1 $}THEN Plot0(Misx(lp),Misy(lp),0) IF Stick=11 THEN Misx(lp)==-1 ELSEIF Stick=7 THEN Misx(lp)=$}=+1 ELSE Misy(lp)==-1 FI IF (Misx(lp)<>39 AND Misy(lp)<>255 AND Misx(lp)<>0) TH$}EN MissileHit(lp) ELSE MisStatus(lp)=0 FI FI ODRETURNPROC MoveExplosions();move the exp$}losionsBYTE lp FOR lp=0 TO 59 STEP 2 DO IF ExpStatus(lp)=1 THEN Plot0(Expx(lp),Expy(lp),0) Plot0(Expx(lp+1$}),Expy(lp+1),0) Expy(lp)==+1 Expy(lp+1)==+1 Expx(lp)==-1 Expx(lp+1)==+1 IF Expy(lp)<>22 AND Exp$}x(lp)<>0 AND Expx(lp+1)<>39 THEN Plot0(Expx(lp),Expy(lp),6) Plot0(Expx(lp+1),Expy(lp+1),6) ELS$}E ExpStatus(lp)=0 ExpStatus(lp+1)=0 FI FI ODRETURNPROC BaseExplode();explode the baseBYTE AR$}RAY endx(0)=[16 24 17 23 20], endy(0)=[22 22 19 19 17]BYTE lp,time=20 color=38 FOR lp=0 TO 4 DO Plot(20,2$}2) DrawTo(endx(lp),endy(lp)) OD FOR lp=0 TO 16 DO Sound(0,Fate,8,16-lp) Sound(1,Fate,8,16-lp) time=0 $}DO UNTIL time=15 OD OD SndRst() color=32 FOR lp=0 TO 4 DO Plot(20,22) DrawTo(endx(lp),endy(lp)) O$}DRETURNPROC EndRight();move the troopers from the right;to the baseBYTE lp,lq,nn,time=20 FOR lp=0 TO 19 DO IF Rr($}lp)=1 THEN lq=21+lp WHILE lq>20 DO IF nn=12 THEN nn=13 ELSE nn=12 FI$} Plot0(lq,22,nn) time=0 DO UNTIL time=10 OD Plot0(lq,22,0) lq==-1 $} OD Plot0(21,22,11) FI OD FOR lp=0 TO 3 DO Plot0(21,22-lp,11) time=0 DO UNTIL time=10 $}OD OD BaseExplode()RETURNPROC EndLeft();Move the troopers from the left to;the baseBYTE lp,lq,lc,nn,time=20 FOR l$}p=0 TO 19 DO lq=19-lp IF Ll(lq)=1 THEN FOR lc=lq TO 19 DO IF nn=12 THEN nn=13 ELSE $} nn=12 FI Plot0(lc,22,nn) time=0 DO UNTIL time=10 OD Plot0(l$}c,22,0) OD Plot0(19,22,11) FI OD FOR lp=0 TO 3 DO Plot0(19,22-lp,11) time=0 DO UNTIL ti$}me=10 OD OD BaseExplode()RETURNPROC EndPrint();print the end of game message and;test for new gameBYTE trig=644$},lp Position(10,7) Print("Game Over...Final Score:") Position(15,8) PrintC(Score) Position(15,9) Print("FINAL LEV$}EL :") PrintB(Level) Position(10,20) Print("Press to play again") DO UNTIL trig=0 OD DownL=0 DownR=0 $} Put(125) FOR lp=0 TO 19 DO Ll(lp)=0 Rr(lp)=0 OD Score=0 Level=1 DrawBase() Update() Hard=15RETURNPR$}OC GameOverTwo();game over when four troopers downBYTE lp SndRst() ClearScreen() Loud=0 Loud1=0 Freq=169 FOR lp$}=0 TO 19 DO IF Ll(lp)=1 THEN Plot0(lp,22,11) FI IF Rr(lp)=1 THEN Plot0(lp+21,22,11) FI OD IF %}DownL=4 THEN EndLeft() ELSE EndRight() FI EndPrint()RETURNPROC GameOverOne();game over when trooper lands o%}n baseBYTE lp SndRst() ClearScreen() Loud=0 Loud1=0 Freq=169 FOR lp=0 TO 19 DO IF Ll(lp)=1 THEN Plot0(%}lp,22,11) FI IF Rr(lp)=1 THEN Plot0(lp+21,22,11) FI OD BaseExplode() EndPrint()RETURNPROC TrooperD%}own(BYTE wh);redraw trooper wh at bottom of screenBYTE cc TrStatus(wh)=0 cc=Trx(wh) Plot0(Trx(wh),Try(wh),0) ;erase c%}hute Plot0(Trx(wh),Try(wh)+1,11) ;replace IF Trx(wh)<20 AND Ll(cc)=0 THEN Ll(cc)=1 DownL==+1 ELSEIF Trx(wh)>20 %}AND Rr(cc-21)=0 THEN Rr(cc-21)=1 DownR==+1 ELSEIF Trx(wh)=20 THEN GameOverOne() FI IF DownL=4 OR D%}ownR=4 THEN GameOverTwo() FIRETURNPROC TrooperFall();make trooper fall when chute hitBYTE lp,qq,cc FOR lp=0 TO 2%}9 DO IF TrStatus(lp)=2 THEN Plot0(Trx(lp),Try(lp)+1,0) Try(lp)==+1 If Try(lp)=21 THEN cc=Trx(lp%}) IF Trx(lp)<20 AND Ll(cc)=1 THEN DownL==-1 Ll(cc)=0 ELSEIF Trx(lp)>20 AND % } Rr(cc-21)=1 THEN Rr(cc-21)=0 DownR==-1 FI FI IF (Try(lp)<22 AND Trx(lp)<>20) % } OR (Try(lp)<20 AND Trx(lp)=20) THEN Plot0(Trx(lp),Try(lp)+1,10) ELSE TrStatus(lp)=0 % }FI FI ODRETURNPROC MoveTroopers();move paratroopers down screenBYTE lp,qqBYTE ARRAY Trooper(0)= [60 126 255 % }255 195 66 36 24 60 36 24 255 60 24 36 102 0 0 0 0 0 0 0 0] FOR lp=0 TO Indx DO Char% }set(56+lp)=0 OD MoveBlock(Charset+56+Indx+1, Trooper,16) Indx==+1 IF Indx<8 THEN RETURN FI Indx=0%} FOR lp=0 TO 29 DO IF TrStatus(lp)=1 THEN Plot0(Trx(lp),Try(lp),0) Try(lp)==+1 IF Try(lp)=21 THEN %} TrooperDown(lp) FI FI IF TrStatus(lp)=3 THEN TrStatus(lp)=0 Plot0(Trx(lp),Try(lp)+1,0) FI%} OD MoveBlock(Charset+56,Trooper,24) FOR lp=0 TO 29 DO IF TrStatus(lp)=1 THEN Plot0(Trx(lp),Try(lp),7) P%}lot0(Trx(lp),Try(lp)+1,8) Plot0(Trx(lp),Try(lp)+2,9) FI ODRETURNPROC NewLevel();go to higher levelBYTE lp,ti%}me=20 Level==+1 IF Level>100 THEN Level=100 FI SndRst() Loud=0 Loud1=0 Freq=169 Comp==+300 FOR lp=10 TO%} 150 STEP 10 DO Sound(0,lp,10,4) Sound(1,lp+10,10,4) time=0 DO UNTIL time=2 OD OD Position(25,2%}3) PrintB(Level) IF Level>8 THEN Hard=19 FI SndRst()RETURNPROC Main()BYTE time=20,lp,ch=764 Title() Gr0In%}it() Snd1=0 Snd2=3 Download() Modify() DrawBase() ScoreLine() DO LaunchChopper() MoveChopper() Move%}Explosions() Noise() TrooperFall() MoveTroopers() Position(8,23) PrintC(Score) IF Score>Comp THEN %} NewLevel() FI time=0 FOR lp=2 TO 6 STEP 2 DO AimGun() Shoot() MoveShots() DO U%}NTIL time=lp OD OD ODRETURN 2 TO 6 STEP 2 DO AimGun() Shoot() MoveShots() DO U$+HI!&&BRINOUTMPMIAIMAAADHADLFLSRDESFCOUNMAINJNNICNN)} )}糳 ))RAPID GRAPHICS CONVERTER, LISTING 1B)}Y CHARLES JACKSON (c) 1985, ANTIC PUBLISHING(B@e!6-@6F:B2y,"@B6-2 @)}<=AR@+@A=B7tAF$Pq +@ @`)AR@;AA)}MAA_A@(qA @Z@-@@((@RAPID<-@AP@ \)}C-@@+(@GRAPHICS?-@APC ^D-@@,(@ CONVERTER@-@AP) }D d=(%( By Charles Jackson9-@AP= i4(*( (c) 1985, Antic Publishing4 @`n<<)!};@,;@,;Av,;Ay`,;@,x\67@,.#67Ay`,.267@,.86.D6-AHP)"}6.\6-@- 6-C:,6-P:'AV,-6-&$AV'-@A '6-e AP+)#})A@&;A @E AH(a(Type of SOURCE filee%0@@%6-"@#)$}" A@# AP!) AP"((Filename" @`&B:, @ A@& A)%}` A A)AA;A >(\(Type of DESTINATION file`/0@@! )&}@`/6-"@#" A@# A!) A((Filename&B:, @)'} A@& AP66(+"@*7B:,&@(A(D(o(&Insert destination disk, press Ԡ F:).}B2y,@AD -@6@,A0 : @`D BWWAA0AA)/} AAAAApA!%# (} #(DISK DIRECTORY4)0}AB&@@+AB)@4RESTON=@1@@D:*.*=6-@$$)1}7@<@,0 A !!( 7@<@,  ( 6-( Ap ( ( (@Q)2}AdAU((-( Press any keyQ(or RETURN for another directory&;#@@K:0)@;)3}@0"AUA@:<AdAU'AB&A9AB)@<$DH @`'(} (1) Micropa)4}interH((2) Micro Illustrator/KoalaN0((3) Fun With Art0((4) Paint (Atari)X/((5) Paint (Reston)/((6) Vi)5}sualizerbc((7) Moviemaker0((8) Graphics MasterG((9) Atarigraphicsc((10) Graphics Machinel$v6. )6}(MP TO MI COMPRESSED;7Av<Av,4;67Av<Av,.5l+67@<@,.7Av)7}<Av,S67@<@,.7Av<Av,l67@<@,. 67@<@ ,.W% #A!-)8}@!@(%"67<,.>:, !!0,0,155,155,155,155,162,255-@@`/6-$A(&@/6)9}-$A'&A&G#67<%A&,.7<%A&,G67%A'<%A',.>:AU, ##67Aw<Aw,.>:A):},##67Aw ,.7Av!<Av,. @@.(@ @$+@+@);}@ KEEP AN MP FILE*(@@4$>;AB,HLOAD AN MI PICTURER #A)<}\-A6AVf " p zGG162,16,169,1,157,72,3,169,0,157,73,3,32,86,228,48,1,96,104,104,96@@6)=}.6hBDEHI  <OO67@U,.<    )>}ĩOO67A,.:AU,QQ67A),.>`RɥPee`/)@}eeGG67A,.4(eeЕee@@2 )A}@@2AY6-?:C:,,&&67Av<Av,.>:F:A,,D-@@67)B}%Av<%Av,.>:F:A%,,D *@+*AY@4 @`$+@+@)C}@GET A MP/GM FILE$[%@@%%@3%@G%@@[%@ @0)D}.*6-?:C:hhhLV,<@,*@8$B,6-AH,@@LFWA to MPV- 6-C:,)E}6-P:'AV,-6-&$AV`3%@@%%@3%@j+%@@$+%@ @1)F}t6-?:C:hhhLV,<@,~@++67@<A@,.7Ac<ACB,++67A@<Av,.7ACY<A)G}yX,++67Av<Av,.7@<@,$: 6.67@,.+67Ay`,.:67@,.MP to )H}FWA\\67@<@e,.Ay5pppNP^^67@f<A2,.C)I}N`__67A3<A,.D)J}YY67A<Ab,.>Ahhhh@L_)K}++67Ac<ACB,.7@<A@,++67ACY<AyX,.7A@<Av,67AyY<Ay`,. ++67@)L}<@,.7Av<Av,M @@?(@7@<Ay`,J@M$MP TO VIS()M} 6.2l+67@<@,.7Av<Av,D67@<@,.l67@<@,.7Av<Av,<6-)N}@F-@Af@PE367<%@9,.7$@@&@9<$@@,A6-%@@E ZM @@)O}?(@7@<A3&,J@M$dVIS TO MPn- 6-C:,6-P:'AV,-6-&$AVx )P}@@[%@@%%@3%@G%@AT[%@ @*6-)Q}?:C:hhhLV,<@,*@6-@S+67Av<Av,.7@<@,S67Av<Av,.7@<)R}@,-A@;;67$@@%@<$@@%@@,.7<%@9,;;67$@@%@A<$)S}@@%@,.7<%@9,6-%@@ $MM TO MP- 6-C:,6-P:'AV,-6-&$AV+)T}@+@@[%@@%%@3%@G%@@[%@ @)U}*6-?:C:hhhLV,<@,*@-@A8@@@a6-@$&@967<%@9,.7<%@)V}9,a67%@@<%@y,.7<%@9," ,++67Av<Av,.7A8A<A8D,6$@MP TO MMJ267)W}@,.#67A8V,.267@,.T-@AAvA`^6-'@&@Ph##67<%@y,.7<%)X}@y,r |++67A8A<A8D,.7Av<Av,J @@?(@7@<A8V,J)Y}@$MP TO GM+@+@@#(@ @#$AG TO MP )Z}A@[ 6. 367@<@,.7Av<Av,[67@<@,.7Av<Av,67Av<Av,.)[}$MP TO AG[ 6. 367@<@,.7Av<Av,[67@<@,.7Av<Av,67Av<)\}Av,.+@+@@(@267@,.#67Av,.267@,.&/$)]}(@7@<A,/@0$:0AB&@@'AB)@0RESTONDPAINT TO MPN- 6-C:,)^}6-P:'AV,-6-&$AVX+@+@@b[%@@%%@3%@)_}G%@AD[%@ @l*6-?:C:hhhLV,<@,*@v6.7@<@,J+67@)`}<A2,.7@<A2,36.J6.7@<A2,-@A2@@a6-@$&@967<%)a}@9,.7<%@9,a67%@@<%@y,.7<%@9, ++67Av<Av,.7@<@,'AB&)b}A'AB)@$0AB&@@'AB)@0RESTONMP TO PAINT267@,.#67A2)c},.267@,.6.7Av<Av,-@AAbA`6-'@&@P##67<%@y,.)d}7<%@y,  A 6.6.267@<@,. @1(D(3(p0nHA67@,. J @@?(@)e}7@<A2,J@*'AB&A'AB)@4$>+@+@@H)f}0"(@7@<Av,-@0$ D:CONVERT.BAS@4$>+@+@@H(D`FNTEMPARCASLLA-q}.?B%DOS SYSB*)DUP SYSB SRAMDISK SYSB\AUTORUN SYSB#^DIRECT B REMOVER LSTBTIME BASBTIME BINBTIMEDEMOBASBuSNEAK ACTBNCONVERT BASBgCODEWRITBASBCODEWRITBINBBOXIN BASBgHALLEY BASBFHIDESEEKBASBC_ATRAIN BAS紱 CODEWRITER IIIBY STEVE STUNTZ (c) 1985, ANTIC PUBLISHING(2&;@ ,;@ ,;@,26--r}*e6.D:CODEWRIT.EXE" @D-@P@@D:*.*[@e @P, 6.C:6--s}A(2 A`<I(+( }Creating the MORSE CODE RECEIVEI(machine language program.d3-@@3(Workin-t}g...please stand byn## "6-;,#6-@x 6.".-@B:,@.ARAUL6-&-u}@#-@@L((Countdown...T-P:'@,) =!67<,.>:A:7<%@,,,/6-%@3 = A -v}A"A(((7(Prepare tape, press [RETURN].A A/(/($Press [START] to write file to disk. F:B2-w}y,@At%@%@@(( Writing to (@@ +-x}( Ġ 852cc255255000128251128032038129169056141002211169001141000211169060141002211169001141000211173048-y}cc002133180173049002133181169130160012145180160028145180169063141000002169129141001002169255141cc228132141229132169032-z}141231132169064141230132169015141232132169000141241132141234132141235132cc14123613214123713214123813214123913214124013216-{}9002141233132173223130133178173224130133179169cc1921410142120321311290761221282240062080171640841920232080111640851920392-|}08005160001140241132$cc168189001228072189000228072152096172241132192001208008032045129160000140241132096164085192034.cc-}}1440151920392400111691600320121301640851920392082450962010022080131600001400002111600471400018cc21007622512816000114000021-~}1160000140001210096160000140225131185185130162006032128128238225131Bcc1722251311920382082380961650842521282471291412261311-}65085141227131169000133084169002133085096Lcc173226131133084173227131133085169030162006032128128169031162006032128128096032-}055129032226128Vcc096032250128032226128032013129096169125162006032128128096072152072032093129169000133077173000`cc21104-}1002205233132208003076089129032109129104168104064172228132177178205230132240005024105001jcc1451780962382281321732331320321-}98128073002141233132172228132169000145178096032198129173237132tcc201001208027238229132032081130169001077234132141234132201-}001208006032169129076168129032233129~cc09617323513220100724002123823513217222913217717820523213214400405607619412902411023-}6132096174cc229132236228132240016232236228132208015172228132177178205230132240005169000076229129169001141cc2371320961-}72229132177178205232132144024032021130032051248129243130130172229132177178205231132cc144008032176128169160032012130096162-}006032128128032160128096056110236132238235132173235132201cc00817601002411023613223823513207602813016900014123513209616204-}0189225130205236132240013232224cc0912400030760531301690630760751301380731280320121300961742381322322240162400262382381321-}72229cc132177178024109239132141239132169000109240132141240132076118130032119130096024110240132110239cc132024110240132-}110239132173239132141230132024110239132173239132141231132024110239132173239132cc14123213202411023913217323913202410923113-}2141231132169000141239132141240132141238132096032032cc0671111001011191141051161011140320730730730320320320320320320660890-}32083084069086069032083084cc085078084090032228131000000000000000000000000000000000000000000000000000000000244130059131000-}cc000000000000000000000000000000000000254000000000000000000000109109034042115104106041063062060cc05604803203303503904-}707108525504925507600000601702100900202001101600403001301800700501502202733010008003012024014025029019224002225002000128-} D2:MORSE.BAS0000601702100900202001101600403001301800700501502202733010008003012024014025029019224002225002000128, &8өө<өӭ01 ?䄍儩 焩@愩脩ꄍ넍섍턍鄭߂1} LzT U'񄨽HH` -`U"' U'` Ӡ/LဠӠ`ჹ წ1}&`T⃥UラTU`⃅TヅU  ` 7 ` `} `HH ]M)LY mhh@䄱i`1}䄭 ƀI鄬䄩` Ɓ QMꄍ L `넬儱脐8Ln`䄱L偩`1}儱脐  3󂂬儱焐 ` `8n넭 nL`( [L5?LKI `儱m1}mLv w`nnnnnnnm焍焩` Codewriter III BY STEVE STUNTZ 1};mm"*shj)?><80 !#'/GU1L      BY STEVE STUNTZ 0f)*OOXYXYLOOLTD5} 5}㸵緹 BOX-INBY J.D. CASTEN (c) 1985, ANTIC PUBLISHIN5}GAY AdN-@#-@@#:(@F:@,N"@AUi-6-@q&15}-"@2AEn"AaA%s%"A26-6-% APx A}/6-+ ,&+!,#6-+ 5},&+!,)6-/6-/ 6-%6-%1/"AaA0)"@2Aa,) AE 6-6- 5}AP1 @2,%B7gAC1B7g ,6-6-6-F:A2,:6-%+ @,&+!@5}* @,6-%+"@ )"@)"@,&+"@)"@)"@, 6-%N:&,06-%N:&,15}0+"*",)"A"@2AS 6-6-1#!A()6-/6-71C!A(I6-S A5}E )@2,#6-)6-5B2y?@E,k-6@@--6@@91%5}%Y"@)"Aa)"A2] a k A A|6-F:@,$-@@"@(@YOU TR5}APED HIMV-AU?Pl2@@p |B7aN-@@"1(@ PRESS START NF:B5}2y,@A A,^-@#@2!,-/@K2@0&@@O [B7a5}^$o-@@"+(@YOU LOSE5@2;,E@K,Y-AUo2@@# @5}#A@& B7a Ay6-F:A,&@&A0+@<AVJ6-$AV5}y6-?:C:"h˅̥ͩj΢ˑ͈`,,~-@%@H%"%) ;AY@4H;@,Z5}A@(lA A~AAT~A@r6.V%STARTSELECT5}%ST~6-@-@@-(@ !x !?-@@ Y(@5} by jd castenk-@@}(@%-@@(@&-@@7(@5}I-@@Z(@dAaj,v/@/@@! o/@!/',@@9/@5}@K/@@]/@@o,@@-@@w)-@@C(@7<%5}@ ,I6-X6-F:B2y,h"@*v6-&@|"6-@j@#-@@' 9-@5}@\(@ DIFFICULTY:@&` j A0q AA2,)/@;/@@!G/@!5}M/_B7h@q-@@#!(@TIME:!Aa5-@AW6-P:H:,$@%5}@,y6-P:H:,$@ %@,,2@@@&B7a *-@6? :25}@> J6-@4V6-@b6-@ h6-n6-z6-@6-6-6-0g @4,@#,5}/6-@E6-$@&@Q@]@ g Ann255,129,189,165,165,189,129,255,28,28,9,127,92,28,5}52,6,66,36,60,90,60,66,189,129,255,255,255,255,255,255))255,255,56,56,144,254,58,56,44,96,0 D2:BOXIN.BAS27,92,28,4t22KKRDATRTITLEKSETOFFCURSEOFCUDDUMMPPD18PERPERILASCNODPERIOSEMAXIECCEINCLDY9}VFFPRTRUUQQQQQELMYBHIJNDDRKHMMDAHMIAMIILALTSCCSJTTUERERRCHSE9}@ 9}9} !"#$%&'()*+,-.9}/0123456789:;<=>9}?@ABCDEFGHIJKLMN9}OPQRSTUVWXYZ[\]9}^_`abcd㸵網 ****************** HALLEY HUNTE9}R ** BY *(* HARRY HAMMOND *)******************+**********************,* COPYRIGHT (9}c) 1985 */* ANALOG COMPUTING *2**********************<Fh6-@6-@=;,;@,9,;9}@,T6.٠Ҡ^ A1h+@P_-@6(AAD%;-O:&@,_-P:H:,$@9},P:H:,$@#,%Z$(@.  6-##$ d?A@S#-@)-?(@7<,nK29}@@'-@@+ / 92G-AK xg-@!.(@analog computing<-A9}QA F:B7p,U gA @}-@@*(@LOADING<-@@ W(@ CHAR9}ACTER SETi-@@(@ _&;@1,;@,;@u,4-@18"D67,.>:,H 9}Q6-C:,_-@K"67,.>:,  6-C:,.-@u2">67,.>:,B K6-C:,OAA49}++AY=A A7OAAD6-F:@,!A',6-&A(8@DB7tr%69}-F:A`,%AV$F:Aa,@%@F:%@,%X-%@%@(d@h r A203@9}K:,F:Ad,AU3)(>:A%,HALLEY EPHEMERIS6-@6-'A6-A6-9}Ap6-@XS6-@v6-@5"6-?rg,6-Ab#6( HALLEY HUNTER(@$$( an a9}tari owner's guideJ&&( to the 1985-86 apparitionT%"( of HALLEY'S COMET%(h( byr( HARRY9} HAMMOND((6-?:<, A  A0A(>:A%,(>(&crunching numbers for r;a; and dec;;;;A( 6-9}6-A%A6-A A6-AA6- A6- A@9} 6-6-+A`',$+'Ae%, 6- Ap 6-$ 6-& 6-06-&$G:,&:O:,=9}AD6-'+&$E:,,N 6-&X A`b&&6-M:+%,'+&,,$+G:','E:',,l6-$D:,v6-$A'9} 6-%6-$+&$,'+%$E:,, 6-& 6- 6-$ 6-$6-G:,$G:,6-D:'M:6$%,,69}-D:+G:,'E:,,$E:,,6-$A'%'@*Ap'6-%A  6-%A` 6-$6-$E9}:, 6-Au 6-Ar   6-Av* 6-4  6-> A@H%%6-+A`'Ae%9},$+'@@,R 6-\ Apf 6-p 6-$z6-?g $$6-%+A`',$$G:&?C,6-%@SC9}!A`6-&A`  6-%A`6-+&AQ@,$6-+&$,'+%$E:,,6-+&,$6-+&9},$ A@6-$G:,6-'+&$E:,, 6-D:,6-$A'% A6-$G:,6-'9}+&+$E:,,,$ 6-D:,.6-$A'%%A8!A`6-&A`B  6-%A`L 6-$V6-9}$+G:,'E:,,$G:&,`6-'+$G:,,j 6-D:,t6-?@0d~6-G:,$E:,6-%E:,$G:,$G:,6-D:'M:6$%9},,6-$A'6-+G:,'E:,,$E:,!!6-&++G:,'E:,,$G:,,'E:, 6-D:,6-$A'6-P:'@9},6-P:'@,%&"@)&"%6-%A`%&")&"@%6-%A &"6@ 6-%A9}` &"66-&A 6-'@6-$%$6-&$$$E:,( 6-M:,26-'E:,< 6-F 9}A`P 6-6-Z6-'@d A`n6-$@x6-@6-@!  6-@!6-@D9}6-%@$?CC$K:, 6-%$@P$?CC$K:,6-P:@$,'@9-@9(%o;k;;;now fo9}r altitude and azimuth;;; A$0SCREEN OUTPUT(>:A%,6-?:,,)(!HALLEY'S COMET for date indicated,9}(88(date: //  hrs;  min;--(%days before(-) or after(+) perihelion+(((closest approa9}ch to sun): P:,+(--(%coordinates**************************DD(right ascension: P:A$%?P,'A9} hours"FF(declination: P:$A%?P,'A degrees,JJ(: P:@$+',%9}?P,'@ degrees6MJ(: P:@$+',%?P,'@ degreesM(J--(%distances****9}************************T++(comet to sun:  a;u;^( (approx; P:@$,h( million mi;)r,,(9}comet to earth:  a;u;|( (approx; P:@$,( million mi;)(##(predicted magnitude**** 9} --(%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^MB(:PRESS 'CTL-P' FOR PRINTOUT, ANY OTHER KEY FOR ANOTHER DATEM6-?:<,9}* )"@ A3* A A6-+&,'@6-P:%,6-Ae$+&%,%P:,9}A!+"* @),)"!6-&!A0 6-&6-@1$ AP& 6-%06-P:@09}`$,&@c:6-%%&Ae$D$N AX!A`A b6-%A`l  $v A9}6-&A`A`$ A 6-$A6-P:%?P,6-'A$VALID DATE9} SUBROUTINE,( ( (,( enter a valid date:$-@@$( (mo/dy/yr)6-@6-@ 9}A!INPUT DATE -@@( $*ENTER VALID DATE4 ->(xx-xx-xxH - >:AS,9}R A#0MONTH\ 6-A:,f )!@A!p67<,.67@,./z(>:@1, A#0DA9}Y 6-A:, A!"*!@)A!AA+"@)"@)"@ )"@,*!@0A!9}!@1A! 6-+67@<@,.+67@,./ >:@1, A#0YR 6-A:,9} )!@A!67@<@,. AdAU$ INPUT TWO DIGITS -$  )68,-.9} BACKSPACE MEANS RESTART8 "A&' A!B IGNORE NONDIGIT ENTRIESL !! @H)!@WA#@V  (>:9},ECHO INPUT`  j 6.>:8,,67,.>:8,,t $~ ALTITUDE AND AZIMUTH 6-@e6-'A  A&9}6-$@$ 6- 6-$@$ 6- 6-$ 6($(input latitude, longitude*06-66-  9}6-$6-$  6-&%LHA 6-G:,$G:, 6-%E:,$E:,$E:, 6-&$  !6-M:, A% 9}6-D:', A& 6-N:,$'( 6-E:,$G:,2 6-&G:,$E:,$E:,< 6-6E:,$G:,F  "6-N:,$'P 9}"A&pZ 6-D:',d   6-%n   6-%%x $ ""GREENWICH MEAN SIDEREAL TIME FROM JULIAN DATE 9} A( 6-&CEE 6-'Be%6-P:, 6-$Be%%CEE 6-+&%?P,'Be% 6-BAT%A9}(f$ 6-%Cd$ 6-%? 1$$ 6-&= $$$ 6-'Bd6-&P:, ''6-@$$+%+&?P9},$@'7,   6-%@$ !@$6-&@$ $"  6-P:,6-@`$+&,,  6-P:,6-@`$9}+&,6 H=HRS, M=MIN., S=SEC. GMST@ GREGORIAN INPUT FOR HALLEYJ  6-P:,6-&&?PT 666-6P:@$+P:+%@ 9},'@,%,'@,^ %6-N:&@ ,%6-O:&@ ,h 6-P:%$P:'@,,r $$6-6P:+P:'A,%,$?u9},| ""6-%P:Au$'@ ,%% 6-%Cr)%Ag$ A)  6-%6-& 44J IS INT(JULIAN DAY N9}O.), F IS FRACTIONAL PART $ FIND UT Y-@!-(time to observe (hr,min)3C!@$) O-@!Y9} A0 C(>:A%,(<(#is that daylight savings time (y/n)C) 1-@.(what time zone are you in?1(9} !!( (1) eastern (2) central ""( (3) mountain (4) pacific ( (5) other 8((select:)89} @I)!@SA00 -@(  '6-&@D"@ ' A1P "@6-&& - 6-%9}@$%6-&@$-6-%0   6-@$%6-&: 6-%'@$%'A@D $N j( (j(\what is th9}e hour difference between your time zone and greenwich (west is +, east is -)X b $l ERROR HANDLERv R6-F:9}A,46-F:A,%AV$F:A,R"@)"@A2  V++(UH-OH! ERROR # HAPPENED...I(CHECK 9}IT OUT AND RERUN...NSV (>:AS, A1  LOAD CHARACTER SET $$6-+F:A,&@,$AV 9}%-@I"%6-%$@ ;-@"%)!@;%&A% "  AV'AV:}"$ OUTPUT TO PRINTER !@P:(!( ))( DATA FOR HALLEY'S COMET 50(%^^^^^^^^^^^^^^^:}^^^^^^^^^^^^^^^^^^^^^^5( (Latitude & Longitude: +(O:, !( S + A3p ( N * ((:}O:, ( W( A34 ( E> @(@(Date: //  hrs.  min.H 00(%Days:} before(-) or after(+) perihelionR 0+((closest approach to sun): P:,0(f 00(%Coordinates----------------------:}----p GG(Right ascension: P:A$%?P,'A hoursz II(Declination: P:$A%?P:},'A degrees MM(ALTITUDE: P:@$+',%?P,'@ degrees RM(AZIMUTH: :} P:@$+',%?P,'@ degreesR( 00(%DISTANCES---------------------------- ..(Comet to :}sun:  a.u. 33( (approx. P:@$, million miles) //(Comet to earth:  a.u.:} 83( (approx. P:@$, million miles)8( ;$(Predicted magnitude----)(.(3(8;$mm104,1: }69,0,141,7,212,169,4,141,111,2,104,170,104,168,169,7,32,92,228,169,58,141,47,2,169,2,141,29,208,96BB104,169,0,141,2,208,1: }41,240,2,169,7,160,98,162,228,76,92,228WW216,169,1,141,240,2,169,58,141,47,2,169,0,170,157,0,6,202,208,250,165,85,10,10,2: }4XX105,48,141,2,208,165,84,10,10,10,24,105,1,105,31,168,162,8,169,240,153,0,6,200,202SS208,247,230,0,165,0,74,74,74,4: }1,1,208,4,165,1,208,2,165,2,141,194,2,76,98,228X0,0,0,0,0,0,0,0,07,16,16,0,0,0,0,0,08,16,64,64,64,64,64,64,1: }69,64,16,16,16,16,16,16,6410,0,85,85,0,85,85,0,011,0,32,32,32,168,32,32,012,0,0,0,0,0,32,32,128:}13,0,0,0,168,0,0,0,014,0,0,0,0,0,32,32,015,0,4,4,16,16,64,64,0,16!!0,168,136,136,136,136,168,0 17,0,160,:}32,32,32,32,168,0!!18,0,168,8,40,160,128,168,0 19,0,168,8,168,8,8,168,0 20,0,8,40,136,168,8,8,0,21 0,168,1:}28,168,8,136,168,0*""22,0,168,128,168,136,136,1684""0,23,0,168,8,32,32,128,128,0>""24,0,168,136,168,136,136,168H :}0,25,0,168,136,168,8,8,8,0R26,0,0,16,0,0,16,0,0\27,0,0,0,0,0,16,16,031,0,84,68,4,20,0,16,097,0,16,84,6:}8,68,84,68,0"98,0,80,68,80,68,68,80,0,99,0,16,68,64,64,68,16,06100,0,80,68,68,68,68,80,0@101,0,84,64,84,6:}4,64,84,0J102,0,84,64,84,64,64,64,0T103,0,20,64,64,68,68,84,0^104,0,68,68,84,68,68,68,0h105,0,84,16,16,16:},16,84,0r106,0,4,4,4,4,68,20,0|107,0,68,68,68,80,68,68,0108,0,64,64,64,64,64,84,0109,0,68,84,84,68,68,6:}8,0110,0,68,68,84,84,68,68,0111,0,16,68,68,68,68,16,0112,0,80,68,68,80,64,64,0113,0,16,68,68,68,68,16:},4114,0,80,68,84,80,68,68,0115,0,84,64,84,4,4,84,0116,0,84,16,16,16,16,16,0117,0,68,68,68,68,68,84,0:}118,0,68,68,68,68,84,16,0119,0,68,68,68,84,84,68,0120,0,68,68,16,16,68,68,0 121,0,68,68,84,16,16,16,0:} 122,0,84,4,16,16,64,84,0 D2:HALLEY.BAS,84,84,68,0120,0,68,68,16,16,68,68,0 121,0,68,68,84,16,16,16,082""NN1FILL2LENFILLANN5N1N1N5377N1NCN3CN25N25N70N70N71NN70N70SCN8N8MSTRN4TTN3M>}ATCGNNN1N1NG2N1ROTN65N65BSCORTRYCNN71N1NN1N2N76XADDYADDPPMPLN6N10N20TSCORMIN360SEN6TES>}CORN3N10N25N30PMMOVPLRDLISCHRSELO >} >} !"#$%&'(>})*+,-./012345678>}9:;@<=@>?@ABCDEFGH> }IJKLMNOPQRSTUVW>!}粳 +--------------------++ HIDE AND SEEK ++ BY +(+ GREG>"} PECK +2+--------------------+<+ COPYRIGHT (C) 1985 +F+ ANALOG COMPUTING +P+--------------------+>#}Zd A `n# -6-C:,!#6-C:,x6-?:$}%A6-%O6-%@$ !6-& !6-&3 &#36-F:,%F:,$46-P:H:,$>%},206-?:C:,&}$&<$,.7,'6-%+ + ")"+P:H:,$%,A0AP; ")";P:H:,$%,A0ApAA>'}? --%%(7$&<$,12%5 ?2$9 --%-(7+&,$&<+&,$,92%>(}667$&<$,.7+&,$&,# -236.6$) -67<,.7&, ) AE --367>)}$&%<$&%,.7$%&,7 ; E A"6-?:C:,*} 26.$@< A A#<(score time lvl/scrJ< ((high score cursors.>+}4<(T# "#(  @@@^; 6-%#( /@5!;h !r>,} !| ! ! !*" !*" !*" !*" >-}!*" !*"-@w!6-'6--2 6-F:,!F:,&#6-,F:, 2>.}(F:,AG6-%8R:,,6-%8R:,,(6-F:,22G6-?:<<<<<<, (T:,2 A>/}F:,AF:B2R,ApB2x 6-!Ah6-Ah&  6-0!@B>0}6-@B: ApD+ 6-F:,6-F:,!+2NT:,AX+ !+ A>1}pb 2R:,"Al*R:,"*+")", 2* APv*R:,"*+")", 2* A2 6>2}-F:,!F:,&#6-,F:, 2(F:,A T:, $ A/6-P:',&6-P:+&,',)6->3}$%/6-5 A -57$&<$,07<%,A@ 6-% "AP- -2!@2>4})-- # 2- # 26-%A2!(6-62 A,2AP->5} )2,$9 26-F:,$%F:,(6-P:',96-P:+&$,',*6-P:+&$&$,',"6-$&*6-$ >6}(.  % 6-%(%2# !6-#( %6-?:<<<<<<,'% >7}A *A6-P:',6-&$"6-$%,6-$%A6-?:<<<<<<,4?2Au-!)-- 3;>8}-? >, 2&6-?:<<<<<<,,H"6APR& 6-&"&( @@\ ">9}( @ f " ' Ap# ( # A zF2A%*( 2-6 >:}@2F6-T:,A M (( .G( SELECT LEVEL - M6-3 #(>;} PRESS BUTTON 3(T:,A 0 (R:,$6-%*"06-2 #( PRESS BUTTON 2T:><},A 0% (}6-6-6-% A """">=}"AF:,&@ +)6-F:,&A(/!5AB7tCC;,;@T,>>};,;,;,;,;,;,;,;@X,W6. #6-C:,/AR5;W6-F:A`,%F:Aa>?},$?%@h-#%%' 3A?AYG -%@%% +@46-C:,G(>@} READING DATA$+@"-"'67,.>:,+ .1@V-@T!"-67,.>:,1 8% ->A}"!67,.>:,% B1@x-@X!"-67,.>:,1 L1AF-@W!"-67,.>:,1 V1>B}AX-@X!"-67,.>:,1 `JAx-"'67,.>:,+ 66-F:,%BBByJ6-$j(9,>C}9,-"$68,-( t( -"68,- (A~cAY@F!B2w-B2V9B2W>D}?EQA#]6-Ac6-$$6-?:<<<<A<@p<,J6-F:,%.6-?:C:,<BsD<$<A$>E},:AVJ6-$%Av7 -%@ %-3%Ap7 -@#% ? 6-$%>F}-)%A- 5%?@= ,///!/)6.0467,.0=67,.V (} >G}AV6.H}babbbbbababbbbbbbaabbbbbbbbOO67A!,.I}bbbbbbabaaaababaabbbbbbbaabababbbbbbaababbbbbbbaabbbbbaaaaab_O67AA,.J}baabbbbbbbbaba_6-F:,%F:,$D6-?:C:,K}ECK *-.  $ ( SELECT LEVEL -$6- (-  R:,6-%" 6-(2 >L}#( 2T:,A2 (}6- A <CONSTANTSF1,3,4,6,2,5,8,10,11,14,15P 16,17>M},18,19,20,50,60,64,88Z89,7,13,30,36,35,45,100d106,200,254,255,256,300n!!656,657,704,705,708,709,710x712,764>N},53770,3600 PM$>>216,104,104,104,133,213,104,24,105,2,133,206,104,133,205AA104,133,204,104,133,203,104,104,133,2>O}08,104,104,133,209,104>>104,24,101,209,133,207,166,213,240,16,165,205,24,105,128;;133,205,165,206,105,0,133,206,202,2>P}08,240,160,0,162,0CC196,209,144,19,196,207,176,15,132,212,138,168,177,203,164,212CC145,205,232,169,0,240,4,169,0,145,>Q}205,200,192,128,208,224,166213,165,208,157,0,208,96 MOV$AA104,104,133,205,104,133,204,104,133,207,104,133,206,>R}104,133BB209,104,133,208,166,209,240,16,160,0,177,204,145,206,136,208CC249,230,205,230,207,202,208,242,164,208,136,19>S}2,255,240,7,177204,145,206,24,144,244,96 MSTR$@@104,104,133,205,104,133,204,104,133,207,104,133,206,169,60<>T}<133,208,162,0,160,0,177,204,145,206,200,196,208,240,27";;232,224,30,240,3,24,144,239,216,165,206,24,105,10,133,<<206,>U}165,207,105,0,133,207,162,0,24,144,220,192,240,2406<<37,165,204,24,105,60,133,204,165,205,105,0,133,205,169@CC240,133,2>V}08,160,0,165,206,24,105,70,133,206,165,207,105,0,133J207,162,0,24,144,179,96,0T FILL$^==104,104,133,204,104,133,2>W}03,160,255,173,10,210,41,1,240hBB5,169,98,24,144,2,169,97,200,145,203,192,255,208,235,166,204rBB232,134,204,173,10,210,>X}41,1,240,5,169,98,24,144,2,169,97,200|!!145,203,192,44,208,235,96,0 FILL2$==104,104,133,204,104,133,203,160,255,1>Y}73,10,210,41,3,240BB5,169,98,24,144,2,169,97,200,145,203,192,255,208,235,166,204BB232,134,204,173,10,210,41,3,240,5,1>Z}69,98,24,144,2,169,97,200145,203,192,44,208,235,96 ROT$DD104,104,133,204,104,133,203,104,133,206,104,133,205,1>[}69,12,133DD207,169,255,133,208,162,12,216,165,207,168,177,203,230,208,164EE208,145,205,138,201,4,48,6,233,4,170,24,14>\}4,236,230,207,166,207 224,16,240,3,24,144,223,96 PLR$AA252,252,132,132,132,132,132,132,132,132,132,132,132,132,>]}132132,132,132,252,252STICK DATA4,4,4,0,-4,-4,-4,0,0,0,04,-4,0,0,4,-4,0,0,4,-4,0D2:HIDESEEK.B>^}AS""NN1FILL2LENFILLANN5N1N1N5377N1NCN3CN25N25N70N70N71NN70N70SCN8N8MSTRN4TTN3M< O!d!ASCRBTRN1TRN2TRN3TRK1TRK2TRK3WLBLPRPVVTSTAROFFHLSCXXXDISCLTMVNCB`} Ba}Bb} !"#$%&'()*⸵dABc}LPHABET TRAINDEFINE STRINGS +@-@@5(@AlPhAbEtG-@@Z(@tRaInlBd}-@@(@INITIALIZING ..ss;@,;@,;@,;A,;A,;A,;@(Be},;@(,;@(,;@,j;@,(67@,.>:,H67@<@,.>:,W67@,.dBf};@,j6.D;@,#A.-@@2"@67<,.>:,D 1,3,7,255,255,7,3,1D;@,Bg}#A.-@@2"@67<,.>:,D %%128,192,224,255,255,224,192,1287 #A !-@@%"Bh}367<,.>:,7 //24,36,66,129,129,129,129,129,129,129,66,0W67A,. #A22-@@$6"D67Bi}<,.>:,H W67@%,.WW77,84,84,0,84,84,205,212,212,128,212,212,13,20,20,0,20,20,141,148,148,128,148,148W67ABj},. #AB2-@@$6"D67<,.>:,H W67@%,.SS0,32,32,32,32,32,0,96,96,96,96,96,0,160,16Bk}0,160,160,160,0,224,224,224,224,22467A,.>:,;67@<@,.>:,J67@,.f-@ABl}`@67<,.>:'@%@, 7 #Ab!-@@(%"367<,.>:,7 CC0,0,0,0,0,0,0,0,0,Bm}0,0,0,0,0,0,0,84,84,0,0,0,0,84,84,0,84,0,0,7 #Af!-@@(%"367<,.>:,7  QQ0,0,0,0,0,0,0,0,0,0,0Bn},0,0,0,0,224,224,224,224,224,224,224,21,32,32,32,32,0,7 #Ar!-@@(%"367<,.>:,7 AA0,0,0,0,0,Bo}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,13,22,0,0,SET ASIDE PM AREAa +@*AF:A,&@A6-F:ABp},%@MBByW+@a A "/ #A!-AA%"+/ ,""32,255,18,82,50,255,34,52,57Bq}6o-@@A(@>:AB,>:AB,>:AB,S-@@o(@--------------@D-Br}@)-@@ @(@>:Aq,D J'AY@F'B2w@TMAP A$ ONTO PM AREA^.%6Bs}-F:A4,%F:A5,$AV.6-C:,|<6-$AV%A&,6-P:'AV,<6-&$AV[%@%@Bt}3%@@G%@[%@@MAP SCR$ ONTO SCREEN AREAN%6-F:@,%AV$F:Bu}@,-6-&>6-P:'AV,N6-&$AV%@%@S%@@+%@@?Bv}%@@S%@@'6-@`6-@'6-@PN67<%@,."B2H6-@Bw}@YJ67<,.>:@$,N 267A<A,.&6-@d2B2P267A<A,.&6-AX2B2Bx}QTRUCK COMES IN FROM RIGHTy-@@6-' APK2A@'@_-@By}@ c g y@wPRINT WORD9 A,-@&B:,'@@9(@LOOP TO MOVE TBz}RAINC6-R:,("@*!@66-&@C6-6@3"@* AV'6-%@36-@B{} @A`$$P:'@,"'@A`"6@6-&@&"@6-%@.MOVEB|} TRAIN0''67A<A,.7<%@,:''67Aa<A,.7<%@,BSOUND IF TRAIN MOVINGD''67AAB}}<A`,.7<%@,N+ "+2X1 +2A@@16-b T:B~},"@AjPICK UP LETTERl+6-@:7%@,,+"Av-@@%6-%@B}867<%@,.w2+%A,$+'@"P:'@,,@@-@@   l)6-BsD%B}AV%@$'@=-@@h67%@<%@,.>:F:%&@,,l *67A)%<A9%,.*B}B2II6-@%%67<,.>:,I67AA<A`,.7<%@,-@@P%6-&@867B}<%@,.S67A)%<A9%,.2+%A,$+'@"P:'@,,@@-@@B}_  -2A-@@O6-%@[B2P_ ''REM IF LETTER NOT CORRECT B}DROP IT)&@2@:7%@,,) A U!-@@2%@$/6-%@=6-%@IB2PUB}B2IL:2%A$+'@"P:'@,,@@> L6-%@-@@%6-%@@6B}7A)%<A9%,.d2%A@@h 67A)%<A9%,.6-@%/67<,.>:'@B}%@,S67@g<@,.7<%@,q-+&@H,'@@(@>:AB,\-@@0XB}2A%A$H:,@+@0&,'@\ n6-&@B2PZ2%A$+'@B}"P:'@,,@@n!@dAP)6-@B2I)6-&@`-@@9%6-%@B}867<%@,.\2%A@@`  6%26 B:,A!!WB}ORD CORRECT-MOVE TRUCK OUTp -@@6@&6-0 APT2A@'@h-@@B} l p  A @ g-@@)(@ E-@A`@c67<,.>:'@%@,B}g *j6-#-@@"767<,.>:,; M-@@`(@ j A2//ROUTINE FB}OR PUTTING INCORRECT LETTER BACK4Z-@@Z2@P%@P$+'@"P:'@,,@@>B}w6-%@6-%@-6-&@9B2IEB2PQB2QU w2Hi-B}@@%6-&@36-&@A6-&@MB2IYB2PeB2Qi R-@@%6-B}&@36-%@?B2PKB2QY6-%@t67A)%<A9%,.67<%@,. \-@B}@'%6-%@1B2Q?6-%@Z67A)%<A9%,.m67<%@,.2%A@@B} f-@@;2%A@@I6-%@\67<%@,.w67A)%<A9%B},.{ 67<,.>:,p\-@@0X2A%A$H:,@+@0&,'@\ z{'67AAB}<A`,.7<%@,B67A)%<A9%,.V-@@d6-&@w67<%@,.{ /%2B}/ A&&MACHINE LEVEL-MOVE CHARACTER SETAVD;@#,#A 0.-@B}@#2"@67<,.>:,D ^^104,104,133,204,104,133,203,104,133,206,104,133,205,160,0,177,203,145,205,136,208,249,96B}56-BsD%A%6-$AV56-?:C:,<<,-%@ =6-BsD%AV-6-$AV%AVB}=6-?:C:,<<,#-%@AU# ?6-$AV#A /-A`Ag3";%? 0,0,6B}0,102,219,219,102,60AV$PICK A WORD SUBROUTINEB #A 7-@P:H:,$@0,%@;"B}? B$22DOG,CAT,BIRD,HAND,COW,HORSE,PET,FROG,FLY,ARM66HAIR,TOE,FINGER,LEG,FACE,EAR,MOUTH,BAT,WORK,PLAY;;WAGON,BIB}KE,MILK,WATER,JUICE,BREAD,ANT,GOAT,GHOST,FLATPRINT TRUCK SUBROUTINEr'67A<A ,.7<%@,K67@