#@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`  `8  ɐ     `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.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8: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 ALLOWED228 FREE SECTORS COPYING---D1:DISKFIX.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- 160ɛ+,' 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 D8u8<<  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-@m}@ $( SELECTION >0@@ @] Ap-@$@ +( =-@$@ OAdAn}UY A], 4DOS@e@) A ,.S27@<@,4P*+"@)"@,=@o}I6-@S AL7@<@,4P(6-@B0@L AG7@<@,4Dp}(6-@2 A =@G A$$7@<@,4SA: 6-A:,& @)!&@&0 Aq}: A_ B(}@;@@G6-S"@_6-@4$-@%r} @$ +67@<@,.7@<@,S67@<@,.7@<@,l67@<@,.s}.67@<@,.7@<@,Y 6.-@@,6-@:7<,,B"@F)"@XY67B:,%@,t}.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G @@+@e@=Au}RG Apr +@-@@4(@LOADINGF-@@d(@7@<@,nv} A@r%h A(@4(@FILE NOT FOUNDT(@OR NOT A LOAD FILE^ A`h AXC Bw}AR@1@C@@9b1 }ATARI SYSTEM STATUS1  ...WORKING...glhh;Ax},;@@,;@@,;A,;@,;@,;@@,;@@,;A#,v8 AP-@@y}P:8@,@,6.P: G A@<@@D2:*z}.*G@LL6.BD1: ˠŠD2: ˠŠ A--6.#D1: ˠ{}Š C A @8@@R:C@aa6.WR1: ӭԠ|}R2: ӭԠR3: ӭԠOO67B:,%@,.7R4: Р}}1@1@@D:*.*-@@@''7@<@~},4SECTA-@!   ''7@<@,4SECTA@ A $@ -}@"@!$ *. A .7@5<@5,42A04 A>''@@D2:*.*H}@R''7@<@,4SECTAp\ A@f-@"@# p--@ @"- }IJz8@ -@ @ 8 ı7-7 ATARI SYSTEM STATUS UP TIME:i-}@B 'DEVICES PRESENT SYSTEM DRIVE FILES:T-@#@i EXT U-@$  E:} 3  S: D  K: U  C: *-@*  -@ }( 4(6.P: D7@4<@4,4 D6.!D2: ˠŠW 4W6}.FR1: ӭԠR2: ӭԠf 4f67B:,%@,.GR3: ӭԠ}R4: РXX ODEVICES NOT PRESENT } h-@ . ź?  BASICh #٠ź})6-AP!%I:,)  Bytes/=6-+'A$,46-P:$@%?,'@= K.-@} |.-@33 *$E-@E *}.--@@#-@) |- 8.-@ @##-@* |. B F:Ad},AUA`LaE6-P:+F:@,$BU6%F:@,$AV%F:@ ,,'@Y'C@,S!%@Ya6-%@`V6-}P:'@`,6-&`D 6.=:,"67B:,%@,.:. @D67B:,%@,.0j67B:,%@,.=:,t-@1}  ~ A"F:Ad,"@1" A"F:Ad,"@0" A04F:Ad,"@}*AdAU4 APF:Ad,"@(*@@4+FAdAUP A66POKE 82,2:PO}KE 83,39:GRAPHICS 0:POKE 764,255:NEW!6.D:*.*!AdAU AP"6.D2:*.*"AdAU A}P6.SYSTEM DRIVE FILES:67@<@,4266.DISK DRIVE 2 FILES:-@ @ 5 A}@5@@ -@@@''7@<@,4SECTA`(-}@! 2 <''7@<@,4SECTA`F@ A@P"@AZ8-@}-@!4  8 d-@"@!n9@'7@<@,429-@"@#x }%- % A@% D:D!n9@'7@<@,429-@"@#x 8u*CLOCSECMINHOURFRECORRECHOURSMINSSECSZEROHHHGXYXYPYMXYXYXYXYFMHXYSLMD}LISIIICHARIPPCAXYXYPXPYHORSITHEN1AKJTICPMNICLOCKCLOCKCLOCK2GOTO70MTMINAA $dB@$}@ }@A=An=Ap@@7@5@2@0@ @}!@u"@H#@$@%&'@5(@4)@$*+,Bv-B.Bt/0B}12@3@4@56@I@789:@D;@B@<@=>?@}ABC@IDEFGHI@JKLMNO}P 9+@%@'AR9@@(-@@((@CLOCKV-@}V(@3this program simulates a real- time clock.(m-@m(@JTO SET THE CLOCK MOVE }THE JOYSTICK (PORT 1) TO THE RIGHT OR LEFT.2i-@i @Fwhen the time has been set press the f}ire button to startthe clock.<S-@S @0PRESS BREAK& CLOAD+ RETURN FOR THE NEXT PROGRAM.F"" @}PRESS 1 TO STARTK##@@K:P$)@$"@2@U+@%@20}@@<@?#K6-@IU A&&9@`,9@`,;@,6-@D6-@7'6-@2}36-@5?6-@ K6-@BW6-@5c6-@0o6-@4{6-@6-6@6-@u6-@H}68@`,-68@`,-A-@Y#68,-E:,/68,-G:,=6-%@A VG-@Y}+,8,$%8,$%/ G,8@`,8@`,`K-@G,8@$,$@9%8@$,$@7%K ~}G AP A6-' A0-6-7 A =6-G A@- 6- A@# A - A0 - }6- A # A0P- A@ x 6- A0 A AGet time F:@ ,!AS}A<<6-+F:@,$BU6%F:@,$AV%F:@ ,,'(6-P:'A6,(!@A6-P:}'@`,&$@` 6-P:,&$@`&$A6" R:,@A,@w$?@C@ }'@9@C A Minutes(6-@"(6-6@Y= %,}8@` ,8@`,=/8&,$%8&,$%< @%,8@`,8@`,9/8,$%8,$%<$ Hours (6-@}"(6-6@U g %,8@`,8@`,g/8$@%P:'@,&,$%8$@%P:'@},&,$% f @%,8@`,8@`,c/8$@%P:'@,,$%8$@%P:'@,,$%f$ 26-@}%"* @26-6@Y A0 Seconds(6-@"(6-6@Y= %,8@`},8@`,=/8&,$%8&,$%< @%,8@`,8@`,9/8,$%8,$%<$ NumbersCalculate} start of screenK%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,$AV-@@"}IIFind position of character in character set and its screen position@&6-BsD%+@:,&@2,$@@6-%$@@%}&@""Poke character to the screen7-@,%$@ F:%,0 4 7$P1,13,2,2,15,10,3,16,2}2Z4,15,34,5,13,42,6,10,44d7,7,42,8,5,34,9,4,22n1,4,10,0,5,10x1,6,2,1,7,21,9,0,2,10,0@Set time}J9 %,8@`,8@`,9/8,$%8,$%T96-6-% A@ / A0 9 A r16-R:},'T:,"1 A|# AP"@# A"@ A AP-6-%+"@},!!@Y-6-A 6- A 6-@5 @*"A6-"6-6@} A0 A@ $  -6-%+"@,!!@-6-& * 6- A0 A ' A@ *$4! A} A@ $"9@ '@9@"''6-+$A6%$@`%?%,$"06-P:}'BU6, @06-&$BU6"6-P:'AV, @06-&$AVR2@@@@f-}@A j 2@",@ ,T:,"@A@" A(#(C) APS 19}84 D1:CLOCK.BAS?E(F? y",@ ,T:,"@A@" A(#(C) APS 19'$2 F A  Ҡś4AR@'@4;@,Q0@}@70@@@Q0@@( A2--(%RIVER RESCUE - THORN EMI - CARTRIDGE<XX(P}In this game you have to sail your powerboat along a fairly straight riverFWW(Oavoiding or shooting alligators, barg}es and rocks. You gain points for distanceP##(travelled and targets shot.Zww(oThere is a secondary theme in the game } which involves picking up passengers from jetties on the north bankduu(mof the river and depositing them safely on the} south bank. For this courageous action you earn bonus points.nTT(LThe powerboat is controlled by the joystick. The} boat can be moved up xPP(Hor down and also forward and back within the limits of the screen. A A}tt(kThe screen constantly scrolls forward from right to left. So backward movementappears to be slow forward( m}ovement.WW(OThe further forward you move on the screen, the higher the points - but you::(2get less warning of an}y obstackes in your path.WW(OUp to nine men can be carried in a boat at any one time. As pickup jetties areUU(Mop}posite drop-off jetties this means that only ten jetties need be visited]](Uto score for nine men. Any men being ca}rried when a boat hits an obstacle arelost! A ARR(JIn play the game is repetative after the initia}l novelty has worn off.UU(MThe graphics are stunning, but with onlyone moving object on the screen (yourUU(Mboat) the}re is not much action. The noises produced are rather uninspired--(%considering the Atari's capabilities.UU(MThi}s game offers a good challenge for a few weeks of play, but it will not%%(become a much used favourite. A} A"(1. READ THIS AGAIN,(2. LIST THIS PROGRAM6(3. LOAD NEXT PROGRAM@( YOUR CHOICEJ A0}T!! @)!@A0^"@%h"@+r"@AT | A0} AP,+ B+(}ǠԠ6%D1:RIVERRES.CUE@(# GET KEY2#3-@#3(}ӠΠϠ<# AF#$&00((}ҠŠ&$ D1:RIVER.LOA}:'@``Ϡ<# AF#$&00((}ҠŠ&$ D1:RIVER.LOA QA @@D@9A@84AR@'@4;@},Q0@@70@@@Q0@@( A2//('GET MORE FROM THE} ATARI - IAN SINCLAIR<((( PUBLISHED BY GRANADA PUBLISHINGF__(WIn this book Ian Sinclair gives a good introduction to} heavy programming on theAtari.PYY(PIn the range of Atari reading this book fits nicely after the 'Atari Basic' bookZAA}(9and just in front of the 'Atari Basic Reference Manual'_ A AdXX(PThe book starts with an introduct}ory chapter and covers all the capabilitiesnQQ(Iof the Atari - with the exception of joysticks and paddles. The earl}y xWW(Ocover the basic concepts in computing: Printing, Variables, Strings, DecisionsUU(Mand repetive programs. Chapt}er 6 covers the cassette recorder, covering data pp(gstorage as well as program storage. It also covers a subject not us}usally looked at - that of the<<(4 planning of a program before actually writing it.(A most useful chapter}.cc([Later chapters cover defining your own characters, using the graphics modes and sound. A A}WW(OThe book is well written with the new user in mind, but there is enough meatVV(Nto give the more experienced use}rs some useful tips. I can recommend this book..(&as a useful addition to the bookshelf.VV(NFinally I wish to thank }Granada Publishing for permission to use someGG(?of the sound routines from the book to illustrate this review.}**("Press RETURN to begin the show!!! A A( SURF SOUND4-@@4-@P}6@2@@"-@@P ,   6%%2@-}@A  J(GUNSHOT EFFECTT-@@^%%2@@h-@A} r%%2w-@A | -@A (PNEUMATIC DRILL}-@@%%2A@@-@A %%2}-@A  -@A (UNANSWERED PHONE-@@ A}-@A  A-@A  &-@A 0(AIRCRAFT TAKING OFF}:-@ @`D!!2@'@N AX b -@`@ 6@l))2}@'@%@v A %%2 A%%2@@}@%%2@A@@-@A G%2G2@}$ -@@P *$ A A(1. READ THIS AGAIN(2. LIST THIS} PROGRAM (3. LOAD THE NEXT PROGRAM( YOUR CHOICE AP$!! @)!@AP."@}%8"@+B"@AT L AP/ -@A  AP,+ B}+(}ǠԠ6"Ad@"(CLOAD@(# GET KEY2#3-@#3(ӠΠϠ}<# AF#$&11()}ԠŠ͠Šɠ&$ D1:BOOK.REV f@ Ϡ{LM$$SVALJOYPOSFLAARPOINDEIDFLANCFLAMIMAALIMFLA@@@&A #@@ }@@@ @ @  SOUND STUDIOCHRIS PA }LMER' +'0@@ @(70@@70@@23AR@'@ }36-@7;@, B<"9@4<@," AF AP ApP"F:B2y," }@" A Z! A A! Ad"@ Ai" An%"@6- }% @x#"*"# A @SOUND ROUTINE@@-8@<@,8@<@, }8@<@,K 8@3<@,"@K-68@4<@,8@4<@,g 8@<@,"@ }g2%8@<@,%8@<@,8@<@,g 8@<@,"@g2@%8@< }@,%8@<@,8@<@,g 8@#<@,"@g2@%8@"<@,%8@!< }@,8@$<@,g 8@1<@,"@g2@%8@0<@,%8@)<@,8@2<@ }, T:,"A$ 8@3<@,"@$  %2G2@ }i2@2@6-@"$SET MAXI }MUM/MINIMUM 6-6-<-"@)"@ )"@)"@%96-@<$H-"@)"@)"@ })"@&96-E6-AUH$H-"@)"@)"@)"@'96-E6-AUH$I-"@ })"@)"@ )"@(:6-6@PF6-@PI$&H-"@)"@)"@!)"@)96-E6-@ }H$0I-"@)"@)"@")"@0:6-6@F6-@I$:H-"@)"@)"@#)"@1 }96-E6-@H$DH-"@)"@)"@$)"@296-E6-@H$N*"@36- }'6-@*$X+"@46-6@(6-@+$l$READ JOYSTICK6-R:,6-T:,6- }"@6-&@"@6-%@'"@6-@'6-@$("@6-6 }@(6-@8!@46-@= @6-@4B$LMOVE CURSORV-8<@,8<@ },`  j-8<@,8<@,t 8<@,~$INCREASE/DECREASE!!68<@,-8<@,%!}28<@,!268<@,-8<@,&28<@, 268<@,-8<@,&++"@)"@)!}"@AP$-@@568@%@$<@,-8@<@,q-8@%@$<@!},8@%@$<@,( 8@%@$<@,568@%@$<@,-8@<@!},q-8@%@$<@,8@%@$<@,( 8@%@$<@,568@%@$!}<@,-8@<@,q-8@%@$<@,8@%@$<@,( 8@%@$<@!},  $ APCHECK FOR LIMIT-@XX8@<@,%8@%@$<@,%!}8@4<@, APXX8@<@,%8@%@$<@,%8@4<@,!AUAP!} $ (((6-@"$MAIN MENU11()}Πՠ(!}(1) ENTER EDIT MODE((2) LIST SOUND ROUTINE++(#(3) LIST SOUND ROUTINE + VARIABLES((4) EXIT PROGRAM ,-! }@,(ENTER YOUR CHOICE A ` 34)21A `* 6-A:,4''@pA0A@! }A> A ` LIST SOUND ROUTINE 22(*}ĠŠ AA 9-! }@#9(PRESS TO RETURN TO MENU F:B2y,"@A  A0P A9$$LIST SOUND ROUT! }INE + VARIABLES11()}ĠŠӠ(200 REM SOUND ROUTINE[[( 220 FOR S=8@<@! }, TO 8@<@, STEP 8@<@,aa(230 IF 8@3<@,=1 THEN FOR T=-8@4<@!}, TO 8@4<@,zz(240 IF 8@<@,=1 THEN SOUND 0,S+8@<@,+T,8@<@!},,8@<@,zz(250 IF 8@<@,=1 THEN SOUND 1,S+8@<@,+T,8@<@!},,8@<@,zz(260 IF 8@#<@,=1 THEN SOUND 2,S+8@"<@,+T,8@!<@,!},8@$<@,zz(270 IF 8@1<@,=1 THEN SOUND 3,S+8@0<@,+T,8@)<@,,!}8@2<@,""(273 IF STRIG(0)=0 THEN 28533(275 IF 8@3<@,=1 THEN NEXT T( 280 NEXT S!}KK(C285 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0:SFLAG=1( 290 RETURN9-@#9(PRESS !} TO RETURN TO MENU F:B2y,"@A  A@ A SET UP SCREEN FRAME (}B-!}B((ĠϠA-@A('A!}-@A('A-@A('!}-@-@@//('//('      !}   //(' &&( &&(٠!}  &&((PRESS FOR MENU<$XDISPLAY DATAb-@!}@4l.-8<@,8<@,.(8<@,v $@PRIME ARRAYSJ! #A!-@@4T "!}^68<@,-h68<@,-r68<@,-| $>>0,1,6,1,7,6,255,11,6,1,15,6,10,20,6,0,24,6!},1,31,6,8,35,6>>1,1,9,1,7,9,255,11,9,1,15,9,10,20,9,0,24,9,1,31,9,8,35,9FF2,1,12,1,7,12,255,11,12,1,15,12,10,20,12,0,!}24,12,1,31,12,8,35,12FF3,1,15,1,7,15,255,11,15,1,15,15,10,20,15,0,24,15,1,31,15,8,35,150,16,18,0,26,18(#END OF !}PROGRAM2#11()}Ԡ͠<#((1) EXIT PROGRAMF#((2) LOOK AT LISTINGP#((3) RU!}N AGAINZ#,-@,(ENTER YOUR CHOICEd# APn#33)21APx#! 41(}END OF SIDE 1!! }# 42+# 43%# AP' INTRO'11()}ĠϠϠ$'tt(lW!!}elcome to the Sound Studio. With this program you will be able to experiment with various sound effects..'rr(iVirtually !"}all the program is driven by ajoystick. Using this you can move an 'edit cursor' around the8'PP(H screen and adjust!#} the values contained in various sound registers.B'tt(kThe basis of the program is four SOUND commands contained within !$}two nested loops. The first loop letsL'gg(^ you produce either a rising or falling tone, whilst the second loop lets y!%}ou add a secondaryV'""('warble' to the base note.[' BP`'11()}ĠϠϠj'(!&}ˠt'ff(^The left and right axis of the joystick moves the cursor sequentially through the registers.~'::(2T!'}he cursor will wrap round at the end ofeach line.'vv(nUp and down movement of the joystick causes the value of the cur!(}rent registerto be increased or decreased.'ss(kPressing the fire button causes the sound routine to activated. Pressi!)}ng it again will stop the sound.'WW(OPressing the SELECT key whilst in edit mode will return you to the main menu.' !*}BP'11()}ĠϠϠ'( Π'++(#The main menu offers four options.'??(7!+}The first option will transfer you to the edit mode.'VV(NThe second option will list the sound routine as it is used !,}in the program.'dd(\The third option will list the sound routine and show the absolute values used in it.'99(1T!-}he final option will exit from the program.( BP (11()}ĠϠϠ((!.}(""( ((..(&VOICE FIXED SOUND CHANNEL NUMBER2(&&(STR 0/255 START OF L!/}OOP<($$(END 255/0 END OF LOOPF(((( STEP -50/50 LOOP STEP VALUEP(--(%CHR 0/14 VOICE CHARACTERISTIC!0}Z(//('OFFSET -10/10 OFFSET FROM BASE VALUEd(%%(ACT 1/0 VOICE ON/OFFn((VOL 0/15 VOLUMEx($$(S/L!1}OOP 1/0 LOOP ON/OFF(''(RANGE 0/10 LOOP RANGE +/-(//('Feel free to experiment and have fun!( BP!2}($:CONTINUE:A BP-@#=(ӠΠϠA:$D1:SOUNDSTO.DIO9 A!3}7:CONTINUE:A BP-@#=(ӠΠϠA:$D1:SOUNDSTO.DIO9 A `??QQQQQQ1Q1Q1Q1Q1Q2Q2Q2Q2Q3Q5Q5Q6Q7Q10Q11Q12Q12Q13Q19Q25Q31Q31Q63Q70Q75AB%5}CDEFGQAQAQAQAQAHIJKLMNOPQARAASTAAAAAAAAAAAAAAAAAAAAAAABB%6}BBBBBBBBBBBBBBBBBBLLL1243LLLLLLLLL124LOC%7} %8} !"#$%&%9}'()*+,-./0123456%:}789:;<=>?@ABCDE%;}FGHIJKLMNOPQRSTU%<}VWXYZ[\]^_`abcde%=}fghijklmnopqrst%>}uvwxyz{|}~22%?}MAILING.LIST, COPYRIGHT (c) 1980, ATARI,INC.77""%@}RR0,2,4,3,6,10,12,13,9,8,20,16,15,7,5,50,19,64,8029,103,9110,9120,128,9130,191mm256,3310,9310,4630,9700,752,1,445,93%A}90,9360,9070,9220,9230,3235,3240,9250,4500,9000,9020,9030,3050,3090**8000,2016,112,2000,3000,764,255,9100 O 6-6-%B}6-'AVA&3@E@@@O A$$;,;,;,;,;A ,6. Ў h`%C};A ,;@,++"D;@E,D6.-hhhhhhhEԅP%ԅP%D}ԅԩ`..;,;,;,;,;,;@8,;,  -67B:,%,.  ( ;,6. MAILING LIST*"6-%E}A 6-";A,- 6-;@W,2 6-I:,6-P:',4 6-$%$%@U6 6-& @R7%F}7 6-;,;$,#-$367B:,%,. 7 9 6-6-6-:nn6.dLAST FIRST MIDDLESTREET;CI%G}TY <NSTATE OPZIP QYAREA Z\PHONE ]dEXTRA exFCC6.9LT FST FST. FNLT FNLT FST, FNT FN%H}d' ' '' A`g7 6. 6- A"& *3B:, 7 h7<,4L  i7<,4A A%I}P j7<,4P  k7<,4E A@ l7<,4D A` mB:,"An7<,%J}4SO Ap o7<,4SA  p   rB+ -*(ATARI MAILING LIST6-@B(PROGRAMt6%K}-@3( COPYRIGHT (c) 1980 ATARI,INC.6$%+00  %6-d -"(RECORDS IN MEMORY:(-%L}5(OPTIONS:8(K( OAD a file N(d( DD new recordsJ(+( RINT/DISPLAY selected records.(J( DIT selec%M}ted recordsS($( ELETE selected records'(;( RT the file>(S( VE the file & -#(WHICH OPTION DESI%N}RED&$& 2- #2&$6 00(}-26. LOAD ROUTINE6(  AE$5%O} A #0Y*0N+(5 A  0Y$L+(#WHAT FILE NAME(PUSH TO EXIT)46.D:8 <@%P} IB:,"L$B:,"A 7<,4:6. B:, A 7<,4:6.  67,.%Q}   0//DATAA A!  A   $*+ (}-( END OF %R}FILE$( +$H M %A#AWK )(CURRENT COUNT =  RECORDSK(MAXIMUM COUNT =  RECOR%S}DS\//(THIS FILE HAS  ADDITIONAL RECORDS.^)(CONTINUE LOAD(Y/N) %)_ 4YA#Aa 0N%T}( A!Bf '$% ( 6-(}-((LOADING RECORD,  A$ 6-%- A. 1 )%U}4//EOR' AU1 A#3 4//EODA#B :6-$+&,% 6-%%6-%067<,.: A#PQ %V} A#HS  AE$V  $X ) 6-6-& &67B:,&%,.)$`  6-A$ e I -6-$+&,%W}%'6-@:7<,,7?:C:,<<<,:'@6-F6-I$o  t    6-$y  AE'$ I 00(}%X}(/6. 2(6 <6-@ FI$ AP N$( WILL YOU BE USING PRINTER( .2:4N@6-D%Y} N A0  ! 0Y (! A0 6-  J -$(FORMATTED OUTPUT(Y/N)*.64N@ A4J %Z}A0 ! 0Y (! A0 A2P   $ ' 6-6-6-6-!6-'6- % (}  %[}" A20%$ A@  "A00  A0@  A06 A00  6-( $ A0"%\} $   *$  6-   (((( 6-$+&, 2 -6-$+&,%((7<%,%]}2(: $ (7<, A ! $$ (A1  A1p$ 6- $! (A1%&  6- A1@%^}($+  6- A1p6-0 $5  6- A1U($:  6- A26-? $D  %!6-%_}$I % 6-%6-%!6-%6-N $S  & 6-$X % 6-&6-& 6-%6-] $b "A1%`}g -l < 6--% 6-# )6-3 A1@96-<$v  A1{  6-6-& $| (%a} A2$} 6- $ A2% - > -&6-& !6-% +6-5 A1U;6->$ !A2%b}  6-6-& $ ( A1p$ 6- $ *#( NO RECORDS SELECTED' *$ J6-$+&,%1%c}6-?:C:,<@c<@:7<,,<,G-$%@:7%<%,,J$ 0 6-$%6-@:7<,,-6-?:C:,<<<,0$ P:(%d}   (}-( `%( HOW MANY BLANK LINESD(BETWEEN RECORDS (0 TO 50)JN`*A2` ;%e} -@!-(0 TO 50 ONLY, PLEASE1 ; A2R   6- A  6-& (A2  6- 6-%f} 76-@:7%<%,, A3) A 7 A2 "A2  -(   # A6-%#%g}A2p  $ ! 6-%6-!6-@:7<,,% 6-%  !( $ 7<,4FA30 7<,0T %q}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB7^MENU BASB&CLOCK BASBRIVER LOABBOOK REVBISOUNDSTODIOB4MALING EXEBSLOANANALEXEBgHALLEY EXEB xTYPOII LSTBVARIABLEBASBFLASH2 BASB+PRNTSTARBASBPRNTSTARDOCROMAN BASLAREACODEBAS +LOTTOPIKBAS8TIME BAS_FCALENDARBASRPMTEST BASHAUTOSHOW130  6-%6-@:7<,, ((7%<%,  6-%6-  N 6-%6-@:7<,,'6-$+&,%+ 36-%9%r}6-N7<,0SA3H &!*7<,4 6-&& A3E '6.7<,B:,"*4 #6-'   ( H %s}I 5P:6-6-#6-)6-/6-56-J < A((!-% .( 8 A< M  $%t}( (}6.  %($3 6-6-6-6-!6-'6--6-36-E:  *%u}$ 6-$ (} 6- AP$ ] -7()POSITION CURSOR AND MAKE CORRECTION,?( ORI A%v}@O-W( ]6-  6-"A@b9  -9(' ȠΠҠȠ. -(%w}.B:, A@a(-B:,7<,4_(67<,.  B:,"67,. 96.7<,-$6-%x}$+&,%907<%,A@`T 6-&6--%,67<,. 0 @67<%,.7,F6-N6-%T-2 (%y}6-$+&,%((7<%,2(:# (7<,6-# A@%   A@"A@@!  %z}" A06! A@@A@  $& (}-( 6-&->"(ALL OR SOME RECORDS (A/S)& %{}*. >4AAEc 0S  AE (}AEg( CRITERIA:-.6-@($+&,%>(7%|}<%, `(7%<%, 7%<%@',d g(!AEp9 Ap(!( WHICH FIELD% +/9 AGP%}}5( '( IS AN INVALID FIELD+ 5 AEZ6-@($% 67<%,.;(COMPARE WITH WHICH AEZ6%~}7%<%@',.Q(( COMPARISONS:2( EQ:  EQual to Q( NE:  Not Equal to l"( GT:  Greater%} Than >( LT:  Less Than A(b(WHICH TWO LETTER COMPARISONhl))4EQ)4NE)4LT)4GTAEQ%}A ( IS INVALID #-1( 7-A AE@T67%<%,.6-% *-@0 T(PUSH %} FOR FINER SELECTIONN -1(#PUSH TO COLLECT AND CONTINUEN( FOR MAIN MENU  " '$%} "*   AE)"*AEY AEp1 (}-@#( SEARCHING1AG- %}6--6-$+&,%-6-@:7<,,/?:C:,<<<,%6-?:C:,<<<,/ AEg6-?:C:,<<<,6-%#67%}<,.>:,  # AG7 (}-@#( SEARCHING)6-7 AGS -6-$+&,%'6-@:7<,,7?:%}C:,<<<,I6-?:C:,<<<,S AFD 6- 6-@:7<,,#-76-@($+&,%D6.7<%,(6.7%<%,%}6-%(6-%@'&!*7<,4 6-&& AE56.7<,-$6-$+&,%17<%,05  &%}!*7<,4 6-&& AE6.7<,4EQ*4 4NE*0 4GT*3  4LT*2 %} 6- AF@ "6- %  6-?:C:,<<<,%6-%*(6-?:C:,<<<,/67<,.>:,W   %}\ ( a< -,( RECORDS HAVE BEEN SELECTED.0 6(}<6-rD 6.-=67B:,%,. %} A D$ 6-B:,6-"$&!*7<,4 6-&& AGU/ -6-$+&,%&6.7<%,/6-B:%},&!*7<,4 6-&& AGe7<,47<,6-   $&E: AR&6- A$%}( >  (}-'( Ġ*(-(:(TYPE IN:> > -0(!ENTER '!' OR '' TO FINISH RECORD6-%}>-W6-$+&,% 6-&%+(7<%,:6-F:@,I6-F:@,P(:W6.1 -67B:,%,._ %}$(*-1(: B:,"6. ##7<,4!)7<,4AQ(-B:,7<,4_(67<,. ;%} 6.-B:,)67B:,%,. - ;4AP A<67<,.-(((7<%,/(:8(7<,%}< K  (}-/(CURRENT RECORD COMPLETE=6-$+&,%K6-@:7<,,(?:C:,<<<,6-%Q -/(!PUSH %} TO ADD ANOTHER RECORDM( FOR MAIN MENUQ   " $ "  AP AQP%}B AP/(WANT TO USE A NEW NAME (Y/N)3 7?4NB$U 0Y (} ARZ/( WHAT NEW NAME(( (MA%}X:12 CHAR),/$p- 00 6.$ *-$u' 6-6-6-6-!6-'6-z< (} ( %}!-5(NO RECORDS LEFT9 <$1 -'(PUSH 'D' TO DELETE RECORD1 A@ "A``@XA%}`@B   -&(,-B(Šՠ (Y)   0YA`C  6-%}-& ;67%<%%,. C6-%,   -%(67%<%,. ,  A`"A`@%}!  " A06! A`@A`$XZ 00(}-((2 AP5(? ApB(%}Z(SORT ON WHAT FIELD]R    AGP$(( D( IS NOT A VALID LABELH R Apdf6-$+&,% %}(}!--(SORTING0(`(ESTIMATED TOTAL TIME: @P$ SECONDSf6-l6-P:',"Apq 6-6-%}&v 6-{K 6-%6- $6.7%<%,*6-. =6.7%<%,K3AppQ6-$+&,%6-$+&,%# 06%}.7<%,D67<%,.7<%,Q67<%,. 6-& App Ap5 6-%!Ap  Ap0  %} $@2 00(}-((2 APJ9  ((2( RECORDS HAVE BEEN SELECTED.6 9$L1 A%}0Y*0N'(1 AM 0Y$TL+(#WHAT FILE NAME(PUSH TO EXIT)46.D:8 <@ IB:,"L$%}VB:,"A(W7<,4:6. XB:, A(Y7<,4:6. \ 67,.]< %}(}#-5( SAVING RECORD<(^C(//DATA(('-56-$+&,%C6-@:7<,,`?:C:,<<<,%}APc 6- 6-h$ -* 6-$+&,%$ i(7<,m% *(//EOR% AUr  *%}(//EOD &#$(# - $<# APA#$F#  $n# s# A $x#%}Au|# A$}#  $~#F:,A# -6-((#(( # A%}# (F:,*( #% 6-F:,4 %6-#6-F:B2y,$#6-?:C:,,$# 6-$+&,$# %}6-%6-%$#%-@&%( Š#(( Š#$#t-@2(PUSH FOR P%}AGE DIRECTIONW( TO PAGE THROUGH DATAt( FOR MAIN MENU#$$Q6-$+&,%6-@:7<,,16-?:C:%},<<<,C6-?:C:,<<<,Q67<,.>:,$ !6-&$$$ A5$6( }FILE FULL - /( RECORDS IN MEM%}ORY3 6$$< 6-%-'867B:,%,. < $46-&P:',$! -067B:,%,. 4 $%} 6-%$B6-$+&,%$67<,.>:P:',,?67%<%,.>:&$P:',,B$"$,6.7%<%,,6-$@:7<,,%@:7<,,'$/6%}.7%<%,,6-$@:7<,,%@:7<,,/$,$j #6-$F:A,%F:A,26-F:A,< A`K6-F:@,Z6-F:@%},f-@!j .$")"Ax0$")"A2$++"A3)"A8)"A9A3$"A6A%}4$!!!A9* AFA6$!!"Ab)"AiA8$")!* AqA:$A &(POSSIBLE BAD%} PROGRAM LOAD:A(ERROR  AT LINE <$;+(#PLEASE RELOAD PROGRAM AND TRY AGAIN5 B8&;>$1-@!)(INPUT%} ERROR:TRY AGAIN- 1 @$2&( NUMERIC DATA ONLY,PLEASE* . 2 B$# A    # C$ ! D$%}$E$ "@@@BF$i (}-,(DEVICE DOES NOT RESPOND:2-O(MAKE SURE IT'S CONNECTEDi( AND %}TURNED ON!G$8 -(TRY AGAIN (Y/N)$(84YA0H$ 4N $I$ ( AJ$'(END OF FILE %}ON INPUT $ '$N$*(DISK FULL - USE ANOTHER# ' *$O$Q !(}INPUT/OUTPUT ERROR: J($ IF USING TAPE, REWIND AND%} TRY AGAINN Q$P$'(INPUT ERROR: CONTINUING# ' ^$ -_$ A`$ A` $c$0 -(!NAME ERR%}OR OR NOT FOUND:TRY AGAIN0$$AA$$ 6-(0$$ 0$$*(FIELDS:-'%}&$P:',"*($+6-$+&,%!(7<%, % ((+$$& 2- #2&$$=  -(-%}7(PRINTING IN PROGRESS=-$V2(* PUSH TO PAUSE BETWEEN RECORDSS( TO QUIT PRINTINGV$$ %}*$$ "'6-$$5 -(-5(PUSH TO CONTINUE$   A$  6%}- A$$()")"$$6-F:B2y,*$$F  -"C(+PRINT WILL PAUSE AFTER CURREN%}T RECORDF$$52(*PRINT WILL STOP AFTER CURRENT RECORD5$$V  (((('6-$+&,/-=6-$+&,%%}L(7<%,V(:$3 -7<,0 )(7<,3 A`$ (_$  ( A  $%(%}-A (%-($%B6-$+&,%16-?:C:,<A'<@:7<,,<,?67<,.>:,B$%# - (ARE YOU SURE%}(Y/N)#$%@ -#(PREPARE TAPE RECORDER)-@(AND PRESS ANY KEY%3K:)#0(>:AU,3$%}& (}  A&")"A) &7<,4C: &    & !  & A0 & A%}$&$ (}-( FILE FULL! $$& -( FILE NAME: $&( -(-%( NUMBER ($ D:MALING.%}BAS EC:A ER ($ D:MALING.$d0)-)QQQQQQQQQQ1Q1Q1Q1Q1Q1Q1Q1Q1Q2Q2Q2Q2Q2Q2Q2Q3Q3Q3Q4Q5Q7Q8Q10Q16Q17Q18Q20Q25)}Q25Q27Q30Q33Q38Q43Q44Q46Q59Q69Q69Q73Q75Q76Q76Q89Q92Q96Q98LNILTTMLINECNPASYEARSFFINABADAS)}HIIIXFINPFESBABJTPTOTTITOTBORDRGSNFINISLINEPRINTBEGISJSELECFFINYEARSIPAKEYADBAMSBABCALDP)}MMPMAVAAYEAARATFVAFYEAPVBAMKSNBSNYKERETRNZZ)} )} !"#$%&')}()*+,-./0123456)}789:;<=>?@A@BCDEF)}GHIJKLMNOPQRSTUV)}WXYZ[\]^_`abcde)}fghijklmnopqrstu)}vwxy@z{|}~6-6-@'6-@36-@)}?6-@K6-@W6-@c6-@o6-@{6-@6-@6-@6-@6-@6-)}@ 6-@6->P6-@6-@ 6-@!6-@"6-@'6-@36-@&?6-@)}(K6-BPW6-@8c6-@9o6-@@{6-A0P6-@u6-A06-A6-A`6-Ap)}6-A6-A'6-A2P36-AU?6-B2yK6-A3W6-A#0c6-Ao6-A$0{6-A@)}6-A4`6-A%{6-A&6-A'6-A036-AR?6-A'`K6-AdW6-A(c6-A) o6)}-A `{6-A >>> HOMELOAN ANALYSIS <<<>>> COPYRIGHT 1982 <<<(>>> VERSION 1.1 <<<2)}>>> BY JIM SKINNER <<:, !)} '# @F)"@G)!@W' %67<,.>:,(>:,!6-%% A 6-F:,6-T:,$6-F:A2,-6)}-F:,7")"A A  6-8, @" -( ")""6-% ")"6-& !6-)}  6-& -(=>-@E" & "ApA A A PAA AA0)}APA!0A!A"0A"A#,  @ " J "    T "  )} ^   " r |s@w'A@66-F:@,KF:@,!A(_@&A)}(sB7t&A($ A@d!$$32@U- )2,$3KSND 02)}= - 2'-A+ 306$=BSND- 2- #2&$-GSND 6)}- A 6-% A 6-)+  0!0)0e%( Π)};( $ Monthe(  YEARS % $&(($( DATEPRININTBAL((DN0 6.=:,)}B:,""67<,. 067<,.=:,X= A@6.=:,-7B:,&:,6 j 6-F:,"' t 3  )}$ 6-6-%%  6-9 A6- ! '6--6-36-96-C -2()}# CALCULATING >-@$C(U -3($ (Press to Exit Calculation) ;6-&E-%M)}-U6-%(   A@2 6-6-%<5 6-$6-P:+%,$,'$6-$-6-P:,56-'Z7 6-&6-%6)}-%$6-F:,* -'36-7 n  APx 6-&L  -8( CALCULATING  )}B2L2 *    - 6-&6-6-6-&# ) - > -"(LAST PAYMENT %)}(!>( +  BALLOON $- +% 00%0-0A 0  +  )} HOME A  LOAN ,W  ANALYSIS 8  Ԡ R  ٠͠ W T?)}  !',-/3/9/?/h F:, A@r   A:,!C  )} 6-A:, A:,!@P % 6-A:,6.6-'!6-% A:, @  6-A:,6)}- &D 6-A:, )!6-X b 6-A:,  6-A:,   A:,  6-)}A:,   6-A:,6- *H 6-A:,6.   Rp 6-A:,  6-A:, )} 6-A:,    6-A:,  $ '  6-6-6- #6-' L V A:, @ j  6-A:,)} ~  / A%`6-+&,&!6-''6-/6-% # "6-+%,#+$,# A$ 6-+%,#++$,&, $6-$)}$'+&,$6-P:+%,$,' A%' 3 6.=:,#7B:,&*};,;@5,;,9,*67,. 567,. >67,.h [16.'| | [6.# then *}press l P06.&--------------------------------------4 > A7B F P A  = 6.0'* }-=(# I couldn't read the last number  I -2(# you typed... Please try again. 7; E BI  * } O -)(Purchase Price......... /-O(Down Payment...........  O -)(Interest Rate......... /-* }O(Balloon Payment........  O -)(Length of Loan in Years /-O(Monthly Payment........ O -)(* }Year of First Payment. /-O(Month of First Payment. $V -)(Amortization Year...... /-V("* } 8U -)(Appraised Value........ 5-@U(Appraised Year......... LO -)(*}Appreciation rate...... /-O(Resale Value........... `R -)(Resale Year............ /-R( *} t$~J#-"68,- "$J1,1,1,9,7,5,7,2,6,4,2,4,1,7,4,5,7,4,1D1:LOADANAL.BAS*}AAAb8,- "$J1,1,1,9,7,5,7,2,6,4,2,4,1,7,4,5,7,4,1D1:LOADANAL.BAS(1#22KKRDATRTITLEKSETOFFCURSEOFCUDDUMMPPD18PERPERILASCNODPERIOSEMAXIECCEINCLDY.}VFFPRTRUUQQQQQELMYBHIJNDDRKHMMDAHMIAMIILALTSCCSJTTUERERRCHSE.}@ .}.} !"#$%&'()*+,-..}/0123456789:;<=>.}?@ABCDEFGHIJKLMN.}OPQRSTUVWXYZ[\].}^_`abcd ****************** HALLEY HUNTER ** BY *.}(* HARRY HAMMOND *)******************+**********************,* COPYRIGHT (c) 1985 */* ANALOG C.}OMPUTING *2**********************<Fh6-@6-@=;,;@,9,;@,T6.٠.}Ҡ^ A1h+@P_-@6(AAD%;-O:&@,_-P:H:,$@,P:H:,$@#,%Z$(.}@.  6-##$ d?A@S#-@)-?(@7<,nK2@@'-.}@@+ / 92G-AK xg-@!.(@analog computing<-AQA F:B7p,.}U gA @}-@@*(@LOADING<-@@ W(@ CHARACTER SETi-@@. }(@ _&;@1,;@,;@u,4-@18"D67,.>:,H Q6-C:,_-@K.!}"67,.>:,  6-C:,.-@u2">67,.>:,B K6-C:,OAA4++AY=A ."}A7OAAD6-F:@,!A',6-&A(8@DB7tr%6-F:A`,%AV$F:A.#}a,@%@F:%@,%X-%@%@(d@h r A203@K:,F:Ad,AU.$}3)(>:A%,HALLEY EPHEMERIS6-@6-'A6-A6-Ap6-@XS.%}6-@v6-@5"6-?rg,6-Ab#6( HALLEY HUNTER(@$$( an atari owner's guideJ&&(.&} to the 1985-86 apparitionT%"( of HALLEY'S COMET%(h( byr( HARRY HAMMOND((6-?:<.'}, A  A0A(>:A%,(>(&crunching numbers for r;a; and dec;;;;A( 6-6-A%A.(}6-A A6-AA6- A6- A@ 6-6-+A`',.)}$+'Ae%, 6- Ap 6-$ 6-& 6-06-&$G:,&:O:,=AD6-'+&$E:.*},,N 6-&X A`b&&6-M:+%,'+&,,$+G:','E:',,l6-$D:,v6-$A' 6-%6-$+&$,.+}'+%$E:,, 6-& 6- 6-$ 6-$6-G:,$G:,6-D:'M:6$%,,6-D:+G:,'E:,,$E:,,6.,}-$A'%'@*Ap'6-%A  6-%A` 6-$6-$E:, 6-Au .-}6-Ar   6-Av* 6-4  6-> A@H%%6-+A`'Ae%,$+'@@,R 6-\..} Apf 6-p 6-$z6-?g $$6-%+A`',$$G:&?C,6-%@SC!A`6-&A`./}  6-%A`6-+&AQ@,$6-+&$,'+%$E:,,6-+&,$6-+&,$ A@.0}6-$G:,6-'+&$E:,, 6-D:,6-$A'% A6-$G:,6-'+&+$E:,,,$ 6-D:,..1}6-$A'%%A8!A`6-&A`B  6-%A`L 6-$V6-$+G:,'E:,,$G:&,`6.2}-'+$G:,,j 6-D:,t6-?@0d~6-G:,$E:,6-%E:,$G:,$G:,6-D:'M:6$%,,6-$A'.3}6-+G:,'E:,,$E:,!!6-&++G:,'E:,,$G:,,'E:, 6-D:,6-$A'6-P:'@,6-P:'@,.4}%&"@)&"%6-%A`%&")&"@%6-%A &"6@ 6-%A` &"66-&A.5} 6-'@6-$%$6-&$$$E:,( 6-M:,26-'E:,< 6-F A`P 6-6-Z.6}6-'@d A`n6-$@x6-@6-@!  6-@!6-@D6-%@$?CC.7}$K:, 6-%$@P$?CC$K:,6-P:@$,'@9-@9(%o;k;;;now for altitude and azimuth;;;.8} A$0SCREEN OUTPUT(>:A%,6-?:,,)(!HALLEY'S COMET for date indicated,(88(date: /.9}/  hrs;  min;--(%days before(-) or after(+) perihelion+(((closest approach to sun): P:,+(--(.:}%coordinates**************************DD(right ascension: P:A$%?P,'A hours"FF(declinatio.;}n: P:$A%?P,'A degrees,JJ(: P:@$+',%?P,'@ degree.<}s6MJ(: P:@$+',%?P,'@ degreesM(J--(%distances****************************T.=}++(comet to sun:  a;u;^( (approx; P:@$,h( million mi;)r,,(comet to earth: .>}  a;u;|( (approx; P:@$,( million mi;)(##(predicted magnitude**** --(%^^^^^^^^^^^^^^^.?}^^^^^^^^^^^^^^^^^^^^^^MB(:PRESS 'CTL-P' FOR PRINTOUT, ANY OTHER KEY FOR ANOTHER DATEM6-?:<,* )"@ .@}A3* A A6-+&,'@6-P:%,6-Ae$+&%,%P:,A!+"* @).A},)"!6-&!A0 6-&6-@1$ AP& 6-%06-P:@0`$,&@c:6-%.B}%&Ae$D$N AX!A`A b6-%A`l  $v A6-&A`.C}A`$ A 6-$A6-P:%?P,6-'A$VALID DATE SUBROUTINE,( ( (,(.D} enter a valid date:$-@@$( (mo/dy/yr)6-@6-@ A!INPUT DATE -.E}@@( $*ENTER VALID DATE4 ->(xx-xx-xxH - >:AS,R A#0MONTH\ 6.F}-A:,f )!@A!p67<,.67@,./z(>:@1, A#0DAY 6-A:, A!.G}"*!@)A!AA+"@)"@)"@ )"@,*!@0A!!@1A! 6.H}-+67@<@,.+67@,./ >:@1, A#0YR 6-A:, )!@A!.I}67@<@,. AdAU$ INPUT TWO DIGITS -$  )68,-. BACKSPACE MEANS RESTAR.J}T8 "A&' A!B IGNORE NONDIGIT ENTRIESL !! @H)!@WA#@V  (>:,ECHO INPUT`  j .K}6.>:8,,67,.>:8,,t $~ ALTITUDE AND AZIMUTH 6-@e6-'A  A&6-$@$ 6-.L} 6-$@$ 6- 6-$ 6($(input latitude, longitude*06-66-  6-$6-$  6-&%.M}LHA 6-G:,$G:, 6-%E:,$E:,$E:, 6-&$  !6-M:, A% 6-D:', A& .N}6-N:,$'( 6-E:,$G:,2 6-&G:,$E:,$E:,< 6-6E:,$G:,F  "6-N:,$'P "A&pZ 6-D:',d.O}   6-%n   6-%%x $ ""GREENWICH MEAN SIDEREAL TIME FROM JULIAN DATE A( 6-&CEE.P} 6-'Be%6-P:, 6-$Be%%CEE 6-+&%?P,'Be% 6-BAT%A(f$ 6-%Cd$.Q} 6-%? 1$$ 6-&= $$$ 6-'Bd6-&P:, ''6-@$$+%+&?P,$@'7,   6-.R}%@$ !@$6-&@$ $"  6-P:,6-@`$+&,,  6-P:,6-@`$+&,6 H=HRS, M=MIN., .S}S=SEC. GMST@ GREGORIAN INPUT FOR HALLEYJ  6-P:,6-&&?PT 666-6P:@$+P:+%@ ,'@,%,'@,.T}^ %6-N:&@ ,%6-O:&@ ,h 6-P:%$P:'@,,r $$6-6P:+P:'A,%,$?u,| ""6-%P:Au$'@ .U},%% 6-%Cr)%Ag$ A)  6-%6-& 44J IS INT(JULIAN DAY NO.), F IS FRACTIONAL PART.V} $ FIND UT Y-@!-(time to observe (hr,min)3C!@$) O-@!Y A0 C(>:A%,.W}(<(#is that daylight savings time (y/n)C) 1-@.(what time zone are you in?1( !!( (1) eastern (2) c.X}entral ""( (3) mountain (4) pacific ( (5) other 8((select:)8 @I)!@SA00.Y} -@(  '6-&@D"@ ' A1P "@6-&& - 6-%@$%6-&@$.Z}-6-%0   6-@$%6-&: 6-%'@$%'A@D $N j( (j(\what is the hour difference between .[} your time zome and greenwich (west is +, east is -)X b $l ERROR HANDLERv R6-F:A,46-F:A,%A.\}V$F:A,R"@)"@A2  V++(UH-OH! ERROR # HAPPENED...I(CHECK IT OUT AND RERUN...NS.]}V (>:AS, A1  LOAD CHARACTER SET $$6-+F:A,&@,$AV %-@I"%6-%.^}$@ ;-@"%)!@;%&A% "  AV'AV"$ OUTPUT TO PRINTER._} !@P:(!( ))( DATA FOR HALLEY'S COMET 50(%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5(.`} (Latitude & Longitude: +(O:, !( S + A3p ( N * ((O:, ( W( .a}A34 ( E> @(@(Date: //  hrs.  min.H 00(%Days before(-) or after(+) per.b}ihelionR 0+((closest approach to sun): P:,0(f 00(%Coordinates--------------------------p GG(Right ascen.c}sion: P:A$%?P,'A hoursz II(Declination: P:$A%?P,'A degrees .d}MM(ALTITUDE: P:@$+',%?P,'@ degrees RM(AZIMUTH: P:@$+',%.e}?P,'@ degreesR( 00(%DISTANCES---------------------------- ..(Comet to sun:  a.u..f} 33( (approx. P:@$, million miles) //(Comet to earth:  a.u. 83( (approx. P:@.g}$, million miles)8( ;$(Predicted magnitude----)(.(3(8;$mm104,169,0,141,7,212,169,4,141,1.h}11,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,141,240,2,169,7,160,98,162,.i}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,24XX105,48,141,2,208,16.j}5,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,41,1,208,4,165,1,208,2,165,.k}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,169,64,16,16,16,16,16.l},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,12813,0,0,0,168,0,0,0,0.m}14,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,.n}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,128,168,8,136,168,0*""22.o},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,.p}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,68,68,84,68,0"98,0,80,.q}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,64,64,84,0J102,0,84,64.r},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,.s}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,68,0110,0,68,68,84,84.t},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,.u}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,0118,0,68,68,68,68,84,.v}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.w},0 D1:HALLEY.BAS120,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,(32000 REM TYPO II BY ANDY BARTON32010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN2y} #2,4,0,"E":OPEN #3,5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSITION 2,3:? "type in a program line"32z}2060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINE$(1,1)="*" THEN B=VAL(LIN2{}E$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 PO2|}KE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION2}} 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3205032150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE2~}$(D,D))):NEXT D32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+653222}00 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "if CODE does not mach press and2} edit line above.":GOTO 32050ON 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "if CODE does not mach press and02 VARLSLSTVAXXCp{%%6-F:A0,%F:A1,$AVq{%%6-F:A2,%F:A36},$AVr{-&@s{ 6-F:,t{(!A'(>:&A(,( Bu{POKE 838,166:POKE 839,238v{ (>:,6}w{ D!:VARIABLE.BASs{ 6-F:,t{(!A'(>:&A(,( Bu{POKE 838,166:POKE 839,238v{ (>:,4 )PeDUMMA9@Q@A6 / +!-A6A8%"+/ GG162,0,189,0,224,15:}7,0,120,189,0,225,157,0,121,189,0,226,157,0,122MM189,0,227,157,0,123,232,224,255,208,227,162,120,142,244,2,104,162,6,160:}(EE46,169,7,76,92,228,174,89,6,228,20,208,33,162,0,135,20,174,90,62HH142,66,6,160,0,185,91,6,153,0,121,200,192,8,208,245:},232,224,95,208<HH2,162,91,142,90,6,76,98,228,3,91,102,204,153,51,102,204,153,51,102F204,153,51P$( ( (($( @:}@@@@@@@@@@@@@@Z1-@@-( @ @ 1 d( @@@@@@@@@@@@@@@n6-?:A6, D!:FLASH2.BA:}S@@@@@@@@@@@@Z1-@@-( @ @ 1 d( @@@@@@@@@@@@@@@n6-?:A6, D!:FLASH2.BA8QLINEBANCODHCODLCODZBUZKSIZBLANKCOL1COL2COL3RTESTFILENAMETITLEPAGFILFINISHEFILENAMECOLU>}MNCOLINNLNSPRYNTLYNCFBYTFLATESPCODETYPOPSTARFINISCOLLOSPACLADCOUN>}  @ A6 *8%)8@>}9(@8 @@@ !@"@#@P>}$@%&'()*+,-Ax.B(y/0d!!*************>}**************!!*MULTI-COLUMN TEXT PRINTER*,!!* by THOMAS J. ANDREWS *!!***************************Xh +>}AA1A >;@,R-@@d67,.>:AS,h ((6-C:hhhhh>} Ȅԩ`, -@3(ɭΠԠE-@@L(by^-@@t(ʮ>}w(z(}((-6-@@$@$;A2,-6-C:,EE;,;,;,;,;@A,;@,;@,;@@>},L16-6-@'6-16.D1:5 6. 67,.#67@,.)6./6.56.! A B>}! AaxA A(@5@@A6- A(@-@6-@>}6-@@-@&@lW@B:,"@W7@<@,4XXX)7@<@,4A>}A!A"A#467<,. A$67<,. A$67<,.` 6-%@6-%@9>}  (   A3 LF:A,"Ap(}!(7(FILE NOT FOUND!!!B@L AbT >F:A,"A`>})( DRIVE# ERROR4@> Ad KF:A,"AD(}!(6(DISK DRIVE ERRORA@K A3 .F:A>},"A6$6-@. A3 '( DISK ERROR@' Ab 6-%@H Z AU@8@>}@P:Z @>:@',>:@d, 6-@6-@@1"@1 @>:@',>:@H>},t& @>:@,& @%"@%(@>:@ ,<%"@%(@>:@,>}-@&@' 6."@'6. hN67B:,%@,.7<,567B:,%@,.7<,N67B:,%@>},.7<,+6-?:<}%(@>:@,--(@7@<@6,-  -$AQ`+(@7@<@5,- E>}ND -76-C(}DONE !S( Press a Key] A`%@ASPdP(HPause for Paper Change - Check Your >} Printer - Press any Key When ReadyZ Ad A6"@'-@&&@2(@6  A|>}9 (}-@@0(Ҡҡ3(6(9(P)(!PRESS TO RESTART THIS PAGEP("PRESS Š TO RESTAR>}T PROGRAMD##(PRESS TO STOP PROGRAM3AR@ A3"AUA4 "@2%p AX>}@(>:A%,8#(#(BE SURE DISK IS IN DRIVE.(.(#BE SURE PRINTER AND PAPER ARE READY1( ( (1(>} (PRESS FOR DISK DIRECTORYd@@ 8TO CHANGE DRIVE NO., USE 'Dn:' WITH NO FILE NAME),(,(!ENTER NAME OF 40->}COLUMN TEXT FILE,((XXXXXXXX.XXX), A(4" A, Ad* 4D:6.D1: A* Ad>}X\B:,"@B7@<@,4D*7@<@,4:H6.R A\ Ad8 6.B:,!@17@>}<@,4:86. 2B:,!@+7@<@,4:26.67B:,%@,.6.7B:,!@*(F>}ILENAME TOO LONG !-(7 AfL+@+@@! A!-@@P@>}B:,!@@8(NOT A 40-COLUMN FILE;'F@P AxCB:,!@@)6-@,'/(9 BC A>} @4@((4(NOT A 40-COLUMN TEXT FILE !$($(PRESS ANY KEY TO CONTINUE Al Ab>} # 6.67@,.*.*# }4!V A@5@@I-@@dV@! >} ( ! `" F:A,"A6A"( DISK ERROR(#@$#I@.@@>}K:;)@F@I$#?6-@f6-@`-AR@?@@T$\*(" CHOOSE COLUMNS & LIN>}E SPACING<@@\(. 2-COLUMN - 6 LINES/INCH$t#(. 2-COLUMN - 8 LINES/INCHC(. 3-COLUMN - 6 LINES/IN>}CHb(. 3-COLUMN - 8 LINES/INCHt@@%4 A"@I%6-@16-@4$%L"@P6->}@'6-@=6-'@$@I6-@L$%*"@Q6-@'6-@*$H&L"@R6-@>}'6-@=6-'@$@I6-@L$& (} A'2 (}-@@2(CHOOSE PAPER TYPE:t'*-@>}@*(. SINGLE SHEETS'6-@@-(. CONTINUOUS PAPER0(3(6(<( AAR(>}"@I6-@$)"@P6-@$h)AR@ B)U+ #}PAGE HEADING? (40 CHAR. MA>}X)/>B:,!@@U6.7@<@@,0*8 6.,6-+@@&B:,,'@%@567,.8$D:PRNTSTAR.BASA<| PRINT STAR by Thomas J. Andrews Print Star is a program originallB}y written for the purpose of printing documentation files in multiple formats. It requires a 48k Atari 8-bit computB}er, one or more disk drives, and an Epson compatable printer. Print Star reads text files that have 40 character recorB}ds and formats them into two or three columns printed at 6 or 8 lines per inch, on standard 8 1/2 by 11 inch paper. B} Print Star is menu driven, and thus is easy to operate. When you are asked for the file name, pressing RETURN will B}give you the default drive directory. Entering a file name with no device code will automatically use the default driveB}. To change the default drive number, use "Dn:",("n" will be the new drive number). Don't forget the colon. To putB} an unformatted file into 40 (or fewer) character records, do this: Use a word processor that allows you to PRINT (not B}save) to a disk file, such as Textpro, Speedscript, or Atariwriter Plus. Load the unformatted file, set your left marB}gin to 2 and your right margin to 39. Also set your page length to be as long as possible, and eliminate top and bottomB} margins. Now "PRINT" the document to a disk file, and use this file for Print Star. Print Star is a shareware proB}gram and as such you are bound by your Honor as an Atarian to pay my suggested fee if you use it. My fee is: a letterB} with suggestions for a better program. I wish to develop Print Star into a multi-purpose text file printer that is botB}h versatile and easy to use. In order to do this, I am asking for suggestions for features that you would like to seeB} in such a program. Already suggested are the ability to read other than 40 coulmn character files, a "print preview" fB}eature so that you can see how full a page is with different formats, and the ability to start with other than theB} first page. I'm sure there are more ideas out there. If anyone has an idea for a program that they'd like to see doneB}, I'd be happy to hear about it-maybe I could do one! Send all replies to: THOMAS J. ANDREWB}S 7805 US ROUTE 20 MANLIUS NY 13104 Many thanks to Ken Wickert, intrepid 8-bit librB}arian for A.C.E. of Syracuse, NY and Atari 8-bit booster extrordinaire, for his help with the development and distribB}ution of this program. Truly, Tom Andrews Please send E-MAIL commB}ents to Ken Wickert about this program and I will forward them to Tom. GEnie K.WICKERT CompuServe 70731,2322 DelphiB} KWICKERT *Ken* CKERT CompuServe 70731,2322 Delphi@WAB, @ ORIGROMANWORKCHARF9F5F4F1ARABIDONCHAHIVALOVAQ(<=?F}@B@ @ @ A @@@@PROMANF} NUMERAL CONVERTERBY DAVID STONE (c) 1987, ANTIC PUBLISHING ]];@ ,;@ ,;@ ,;@,;@F},;@,;@,;@,M +A@1A@CA @M A2/67B:F},%@,.!6-&$,6-P:',/$dG 6.6-!6-+#A?-@@G"n0-B:,@F}6@07<,0A`x "B:,6-@76.7@<, B:,.6.7%@,76-B:,6-@F}B:,7<,0)6-%&,'6 A` 6-%  ' A    $# 6-A:,6-6.##AF}=6-&A367B:,%@,.M= A6-%A6-A,6-'@"&6-P:F}',,6-)"@ 6. @P) A5@6.!6-@+ @P5 Ap)"@6.F} @P) A5@6.!6-@+ @P5 Ap!@A0"$\ A(}%F}AR7-@@ R(Numeral to convert: ?\ A/@"AR@%(/ A,,+@:F}, @e,%@AAE (}-@@E(%(-@@F}(( | Roman | ?-@@ ?(%(-@@(( | Arabic | F}?-@@?(%E-@7@(|--@7@3(|EAR@F}R-@@"6((Press any key to continue)HAdAUR A F:Ad,"AUA /F}AdAU A%(}/ AD*-@#A ' *$N3 -@6?P,A F}0 3$X>>M,1000,100,D,500,100,C,100,10,L,50,10,X,10,1,V,5,1,I,1,1b##CM,D,CD,C,XC,L,XL,X,IX,V,IV,I D1:ROMAN.BASF}0 3$X>>M,1000,100,D,500,100,C,100,10,L,50,10,X,10,1,V,5,1,I,1,1b##CM,D,CD,C,XC,L,XL,X,IX,V,IV,I D1:ROMAN.BASD%%+ AREA CODE LOCATER!!(ENTER ZERO TO END PROGRAM((INPUT AREA CODEJ} ("(ZZP:'A,A@`@AA A@A`AA2 AJ}<&AA@AA`ApA A@A0APA`AAApApA0J}A@A pA`AAF AP&AA@ApAPA`AA`AJ}AApAAAApAPAApA AA@Z Ad&AJ}AAAPA AAAAAPAAAPAPApAAJ}ApA@A n Ax&AAPAA0A A`ApA AAPJ}AAApA A0APAAA A A&AA@A@J}A0A@AAA AAPAAA0A AAAA`AJ}A A&AA `A A A @AAAAA`AAJ}A`A@A AA A` A&AAAAA0A0APJ}AA@AAAA0AApAAA`AAP AJ}&A A AAAAAA0AAAAA0AA 0AJ}A@AA A P'(NOT A VALID AREA CODE' @ .(ALABAMA($( ALL LOCATIONS. @ -J}(ALASKA(#( ALL LOCATIONS- @ .(ARIZONA($( ALL LOCATIONS. @ /(ARKANSAS(%( ALL LOCATIONS/J} @ *( CALIFORNIA( (FRESNO* @ /( CALIFORNIA(%( LOS ANGELES/ @ ,( CALIFORNIA("(SAJ}N JOSE, @ "1( CALIFORNIA('( SAN FRANCISCO1 @ ,-( CALIFORNIA(#( SAN DIEGO- @ 6.( CALIFORJ}NIA($( SANTA ROSA. @ @*( CALIFORNIA( (ORANGE* @ J/( CALIFORNIA(%( BAKERSFIELD/ @ T.J}( CALIFORNIA($( SACRAMENTO. @ ^/(COLORADO(%( ALL LOCATIONS/ @ h2( CONNECTICUT((( ALL LOCATIJ}ONS2 @ r/(DELAWARE(%( ALL LOCATIONS/ @ |"(WASHINGTON, D.C." @ D(FLORIDA(0(FT. LAUDJ}ERDALEKEY WEST:(MIAMID @ 9(FLORIDA(/( FT. MYERS WINTER HAVEN9 @ ;(FLORIDA(1( JACKSONVJ}ILLE TALLAHASSEE; @ /(GEORGIA(%(ATLANTAROME/ @ 4(GEORGIA(*(SAVANNAHWAYCROSS4 @ J}-(HAWAII(#( ALL LOCATIONS- @ , (IDAHO("( ALL LOCATIONS, @ -(ILLINOIS(#( SPRINGFIELJ}D- @ ((ILLINOIS((PEORIA( @ ?(ILLINOIS(((AURORACHICAGO5(WAUKEGAN? @ B(ILLJ}INOIS()(ALTON CENTRALIA8( MT. VERNONB @ *(ILLINOIS( (ROCKFORD* @ =(INDIANA(((GARYJ} SOUTH BEND3(WARSAW= @ 6(INDIANA(,( INDIANAPOLISKOKOMO6 @ +(INDIANA(!( EVANSVILLE+ @J} % (IOWA((DUBUQUE% @ &( (IOWA(( DES MOINES( @ 0, (IOWA("(COUNCIL BLUFFS, @ J}:4(KANSAS(*( DODGE CITYWICHITA4 @ DH(KANSAS(*(LAWRENCE MANHATTAN>(SALINATOPEKAH @ J}NS(KENTUCKY(.( FRANKFORT LOUISVILLEI(PADUCAH SHELBYVILLES @ X8(KENTUCKY(.( COVINGTON WINCHEJ}STER8 @ b<( LOUISIANA(2( LAKE CHARLES SHREVEPORT< @ l<( LOUISIANA(2( BATON ROUGE NEW ORLEANSJ}< @ v, (MAINE("( ALL LOCATIONS, @ /(MARYLAND(%( ALL LOCATIONS/ @ 2( MASSACHUSETTS(J}(( SPRINGFIELD2 @ T( MASSACHUSETTS(1(BOSTON NEW BEDFORDJ(PLYMOUTH WORCESTERT @ ?(MICHIGANJ}(+( ANN ARBORDETROIT5(FLINT? @ )(MICHIGAN((LANSING) @ K(MICHIGAN(3( BATTLE CREEKK} GRAND RAPIDSA( KALAMAZOOK @ *(MICHIGAN( (ESCANABA* @ )( MINNESOTA((DULUTH) @ ,K}( MINNESOTA("( ROCHESTER, @ 8( MINNESOTA(.( MINNEAPOLISST PAUL8 @ 2( MISSISSIPPI((( ALK}L LOCATIONS2 @ d(MISSOURI(1(CAPE GIRARDEAUCOLUMBIAH(FULTONHANNIBALd(JEFFERSON CITYMEXICO3K}( POPLAR BLUFFROLLA)(ST LOUIS3 @ 6(MISSOURI(,(JOPLIN SPRINGFIELD6 @  k(MISSOURI(.(K}BELTON INDEPENDENCEI( KANSAS CITYMARSHALLa( ST JOSEPHSEDALIAk @ .(MONTANA($( ALL LOCATIONS. @ K} 1(NEBRASKA('(LINCOLNOMAHA1 @ *.(NEBRASKA($( NORTH PLATTE. @ 4-(NEVADA(#( ALL K}LOCATIONS- @ >4( NEW HAMPSHIRE(*( ALL LOCATIONS4 @ HT( NEW JERSEY(-( HACKENSACKNEWARKJ( NEW K}BRUNSWICKPATERSONT @ RF( NEW JERSEY(0( ATLANTIC CITYCAMDEN<(TRENTONF @ \1( NEW MEXICO('(K} ALL LOCATIONS1 @ f/(NEW YORK(%( NEW YORK CITY/ @ p*(NEW YORK( (SYRACUSE* @ z+(NEW K }YORK(!( HEMPSTEAD+ @ 6(NEW YORK(,(ALBANY SCHENECTADY6 @ ,(NEW YORK("( BINGHAMTON, @ K }G(NEW YORK(/(BUFFALO NIAGARA FALLS=( ROCHESTERG @ .(NEW YORK($( WHITE PLAINS. @ =K }(NORTH CAROLINA(3( CHARLOTTE SALISBURY= @ N(NORTH CAROLINA(2( GREENVILLERALEIGHD( WINSTON-SALEMK }N @ 3( NORTH DAKOTA()( ALL LOCATIONS3 @ > (OHIO(%(AKRON CLEVELAND4( YOUNGSTOWN> @ K }$ (OHIO((TOLEDO$ @ 1 (OHIO('( CINCINNATIDAYTON1 @ & (OHIO((COLUMBUS& @ ^K}(OKLAHOMA(&(ENIDNORMANE( OKLAHOMA CITY PONCA CITYT( STILLWATER^ @ P(OKLAHOMA(0( BARTLESVILLK}E MCALESTERF(MUSKOGEETULSAP @ -(OREGON(#( ALL LOCATIONS- @ M( PENNSYLVANIA(2(ALLENTOK}WN (LEHIGH CO.)C( PHILADELPHIAM @ 0( PENNSYLVANIA(&( PITTSBURGH0 @ $;( PENNSYLVANIA(1( HARRISBK}URGSCRANTON; @ .4( PENNSYLVANIA(*(ALTOONAERIE4 @ 83( RHODE ISLAND()( ALL LOCATIONS3 @ K}B5(SOUTH CAROLINA(+( ALL LOCATIONS5 @ L3( SOUTH DAKOTA()( ALL LOCATIONS3 @ V:( TENNESSEEK}(0( CHATTANOOGA NASHVILLE: @ `*( TENNESSEE( (MEMPHIS* @ j< (TEXAS(%(DALLASDENISON<(ENK}NIS GREENVILLEtE( JEFFERSON LONGVIEW1(PARISSHERMAN;(TYLERE @ ~F (TEXAS()(BAY CITYBEAUMONK}TF(BRYANCOLLEGE STATIONN(FREEPORT GALVESTON5( HUNTSVILLEORANGED( TEXAS CITYN @ < (TEXAS(K}$(ALICEAUSTIN<(BANDERABEEVILLEG%( BROWNSVILLECARRIZO SPRINGSG(CORPUS CHRISTI CRYSTAL CITY<(DELK} RIO EAGLE PASS<(FLATONIAFREDERICKSBURG7(FREER GEORGETOWN7(GOLIAD HALLETTSVILLE1(HONDO KERRK}VILLE1(LAMPASASLAREDO:( MARBLE FALLSMCALLEN:(ROCKPORT SAN ANTONIO$(UVALDEVICTORIA$ @ K}0 (TEXAS(&(BAYTOWNHOUSTON0 @ F (TEXAS(&(AMARILLOBORGER<(DALHARTLUBBOCKF @ < (TEK}XAS()(DENTON FORT WORTH<(TEMPLEWACO( WICHITA FALLS @ ? (TEXAS(&(ABILENEALPINE?( BK}IG SPRINGEL PASO 2(MIDLANDODESSA(( SAN ANGELO2 @ + (UTAH(!( ALL LOCATIONS+ @ .(VERMOK}NT($( ALL LOCATIONS. @ (D(VIRGINIA(+( ARLINGTONROANOKE:( WINCHESTERD @ 2X(VIRGINIA(6(K}CHARLOTTESVILLE NEWPORT NEWSN(NORFOLKRICHMONDX @ <C( WASHINGTON(+(OLYMPIASEATTLE9( VANCOUVERC K}@ F9( WASHINGTON(/(SPOKANE WALLA WALLA9 @ P4( WEST VIRGINIA(*( ALL LOCATIONS4 @ ZC( WIK}SCONSIN(.( GREEN BAY MILWAUKEE9(RACINEC @ d*( WISCONSIN( (MADISON* @ n6( WISCONSIN(,( EK }AU CLAIREWAUSAU6 @ x.(WYOMING($( ALL LOCATIONS. @ g(ANGUILLAANTIGUA3(BAHAMASBARBADOSK!}I(BEQUIABERMUDAg(CAYMAN ISLANDSDOMINICAm( DOMINICAN REPJAMAICA9( MONTSERRATMUSTIQUER(NEVIS PAK"}LM ISLANDm( PUERTO RICOST KITTSa(ST LUCIA ST VINCENT5(TRINIDADTOBAGOW( UNION ISLANDVIRGIN ISLANDSaK#} @ 0(CANADA(&(BRITISH COLUMBIA0 @ 6(CANADA((ALBERTA,( CALGARY6 @ ,(CANADAK$}("( SASKATCHEWAN, @ ((CANADA((MANITOBA( @ :(CANADA((ONTARIO0( THUNDER BAY: @ K%}8(CANADA((ONTARIO.( NORTH BAY8 @ 5(CANADA((ONTARIO+( LONDON5 @ 6(CANADAK&}((ONTARIO,( TORONTO6 @ 5(CANADA((ONTARIO+( OTTAWA5 @ 6(CANADA((QUEBEC,(K'} MONTREAL6 @ 4(CANADA((QUEBEC*( QUEBEC4 @ &(CANADA((QUEBEC& @ -(CANADK(}A(#( NEW FOUNDLAND- @ "-(CANADA(#( NEW BRUNSWICK- @ ,D(CANADA(*(PRINCE EDWARD ISLAND:( NK)}OVA SCOTIAD @ 6+(MEXICO(!( MEXICO CITY+ @ @0(MEXICO(&(NORTHWEST MEXICO0 @ D:AREAK*}CODE.BASAD @ 6+(MEXICO(!( MEXICO CITY+ @ @0(MEXICO(&(NORTHWEST MEXICO0 @ D:AREAH t !BQPP1P2@ O,}LOTTOPIKBY JOHN FERGUSON(c)1988, ANTIC PUBLISHING:6-@I:THE HIGHEST NUMBER IN YOUR STATE'S LO-}OTTO <<9@,;@,;@0,;@0,;@, A %@@"(>:A%,%(#( O.} LOTTO NUMBERS(( 2-@@<+-@'68,-6@+ F6-P:H:O/},$,%@P-@Z"8,@pd&8,"6@68,-& @pn!!8@,6@O0}A0x (6--@E8,!8%@, 6-8,468,-8%@,E68%@O1},- %6-%@% @AP 6. -@;6.=:8,,B:,"@$6.,6.0O2};67@,..67B:,%@,. .67B:,%@,.  ( ('"@(@'(@ O3}( ((More0"@(@%(@0(@",44N)4NO$@@1(>:A%,4O4}6 @0@((>:A%,(((@@E( LOTTOPIKJ.( (.( Do you want the results printO5}ed?T7( ( $-@F:@ ,36-H:,7 ^+6-4Y)4YES+6-@h Ar:"@O6}@:@@P:|G"@1(@ LOTTO NUMBERS<(@G(@ O7}@05( (%(PRINTER NOT RESPONDING!((+(5 A0D2:LOTTOPIK.BASLOTTO NUMBERS<(@G(@ LS !SHMHMMSSHSKK@@@H @S9} @ @ @ @@AD 6-AD##@@S:}K:2&&;@,;@,;@,d CLOCKnx+@%@-@(@S;}-@@W6-6-'6-36-?6-K6-W6-@H3-@@S<}3(@WHAT TIME IS IT?M A-@@7(@ Ӻ A AG6-M6->(@S=}((@ minutes: 2 A86->6->(@((@ 2 A86->6-G-@S>}@ #-@C(@ G 67@<@,.>:%,;67@<@,.>:%,W67@S?}<@,.>:%,s67@<@,.>:%,67@<@,.>:%,67@<@,.>:%,6-%@S@}!@ )6-76-%@C!@O6-]6-%@i!@ u6-6-%@O!@SA}6-)6-%@5!@ A6-O6-%@76-$@%!@+6-76-@6SB}7@<@,.>:%,;67@<@,.>:%,W67@<@,.>:%,s67@<@,.>:%,67@<@SC},.>:%,67@<@,.>:%,-@ .-@@.(@:: APSD}7)@"AU(6-46-7$#!@W) @H# A*@3)@"SE}AU$6-&06-3$#!@W) @H# A#*@6-& 6-&#$D:TIME"Ps3/I/FASTAMONTHDFBLKYDDAYCLNULLMMSTERROMOVBOPC25C6C25CONSOKENUDAYEAMDPSCHOICDWG}COROFYASCSAVAD WH} WI} !"#$%&'()*+WJ},-.;@9,;@v,;@,;@,;@,;@ ,;@,;@,;AEWK},;A,;@,;@1,5 #A0!-@@9%"167,.>:,5 %6.%6-A@WL}N&;@9,;Ab,;A,:-@@9>"J67,.>:,N ?6-AU6-@d'6-AV36-BWM}2y?6-Ad= 6._67Ab,._+67@,.16.76.=6.[+AY%AA7AWN}AIA @[AR@c-@@'@@9@@9c(%WO} --(%̠ǠҠ --(% --(%WP}Ǡ砠 0-(%0( $$( $$( | A WQ}JANUARY G JULY |$$( | B FEBRUARY H AUGUST |$$( | C MARCH I SEPTEMBER |$$( | D APRIL J OCTOBEWR}R |$$( | E MAY K NOVEMBER |$$( | F JUNE L DECEMBER |$$( A($(WS} ŠԠȠ6AY@4A@5@@K:*)@5@/6-&@d/WT} @)!@@"#A%"6-$7 6--@@(+6-A76-@%#( ENWU}TER YEAR BELOW (#(&q%(USE Π TO INCREASE YEAR((J(USE Ԡ TO DECREASE YEARM(n(PRESS Ԡ TO SELECTWV} YEARq('(( (( |Һ1985|)@( (AY@4<-@@"@ * 6WW}-F:, "@@B+"@6-%@,"@6-&@-"@6- @P. AWX}6-A/!A6-A05-@('-@@2+ 5 @B2-@@((WY}3+(( YOU ENTERED THE FOLLOWING MONTH:+(4(, ((5 (IF THIS IS CORRECT, THEN6(PRESS THE START KEY.WZ}(7&&(IF IT IS INCORRECT, THEN PRESS8(THE OPTION KEY.9 6-F:, "@@W:#"@ A # @`W[};.@@$@. @< (}AY'AA9A @KAAW\}N(`@@r@@9AR@ @b=/,($| | | | | | | |/$>/(/($W]}?,,($| |@,,($W^}A,,($|SUN |MON |TUE |WED |THR |FRI |SAT |BX-@@@($J @aT @aW_}X F,,($G#( | | |#( | | |H( I6-+@@&B:W`},,'@J-@(K/-@@(+-@3@/(L AMAY@4PF:,@Wa}@Z A6 A^A6-@%@$%6-@A-@@!@h-@@7Wb}@m"@6-o!@ 6-&@r - (s$7<,4-%@$(*v!@ Wc}6-%@w " $x6-%@  $ A@@"%-@"%(Wd}( OPTION WINDOW /(/(  AP6-@6-@ 6-F:, "We}@A "@AO"@6-%@+6-%@7!@C6-@O6-@O"Wf}@6-&@+6-&@7 @C6-@O6-@-@#@(2-@#2(7+@$Wg},&@<@$, A 6-6"@#-@@(, 6 @"@AWh}"@A #"@ A# @}@@'-@@B(V-@Wi}@ b-@}( 4 -@@!4(*-@@ Wj}*(Please enter the*-@@*(date you wish to.-@@"(examine..ARm A1-Wk}@@-( ~~~:@LAR@U6-A:,m @)!A1t-@@ t(Z Wl}   B-@@*( Wm}66-@B6-@6.7A$&A,-@@g-@%@ 8(7@ $&@<@ Wn}$,< N@@`@@2g(o@(@@K:46-@@6-@F6.Wo}\-%@%@ hARo($)@$"AUAU"@'A"A&A`Wp}!!!AU* A`A@!!!@'* @2A@!!!A$* A(A@!ASA@)6Wq}-%@"@2)6-@!@ 6-@   6-U-%@%@ %"AU1(>:Wr},=6-@K67<,.>:,U A@167<,.>:,"AS167<,.>:@, (>:, A@έנWs}&&67@ $&@<@ $,.)6-%@!@)6-@&&6.7@ $&@<@ $,%6-@Wt}6-AU% APŠ6-&@% @6-@% A@3 (_)67%@:@,Ww}<$6-?:C:,<@:AS,9 A%v67B:,%@,..w6-&Ax67B:,%@W~},.=:,y<-@@<("DELETING MONTH... z<-@@ <(" W} {5 A@&@3@2"@5%| A @E( /(ӠW}E( E(GO TO NEW MONTH/( E(DELETE A MONTH E( /(W}DISK DIRECTORY E( E(EXIT WINDOW /( E(UU6.KW}ӠϠϠנŠȠˠ٠Ԡנjj6.`APPOINTMENTS GO TO NEW MONTHW}DELETE A MONTH GG67B:,%@,./DISK DIRECTORY EXIT WINDOW $W}ŠȠ@ 6.D: 67B:,%@,.QB:, @(67B:,%@,..G67B:,%@,.W}=:&A,Q A >67@<@,..>67@<@,.=:&A,$ A $@@W}@##67@<@,.>:@,$$6-?:C:,<@:@W},2 6. 67,. %67@,.2(@F 6._67Ab,._+67@,.8(@C@F$W}RAR@'@@99-@@"R( SELECT=PRINT OUT2-@@#2(OPTION=SAVE START=W}EXIT 6-F:, "@A B"@$&@' A& @ԠԠ2@W} A 2@@P:5-@B:,(7<,4>:@,567<,.  ''(@*************W}*********''(@* APPOINTMENTS *''(@**********************2(@'(@ ,W}2(@=-@A@ 9(@7<%@,= 2(@2(@**********************W}@1-@@"1( 2-@@#2(OPERATION COMPLETE. !-@W}A !' A @ŠӠƠȠ6-&A#A%-@W}" T #AP-@"# F"@*'@"P:'@,T6-%@$3,6,6,2,4,7,2,5,1,3,6W},14,7,7,3,5,1,3,6,2,4,7,25,1,1,4,6,2,4,7,3,5,1,36,3,3,6,1,4,6,2,5,7,3,51,4,4,7,2,5,7,3,6,1,4,62W},5,5,1,3,6,1,4,7,2,5,73,6,6,2,4,7,2,5,1,3,6,14,1,1,4,6,2,4,7,3,5,1,36,2,2,5,7,3,5,1,4,6,2,47,3,3,6,1,W}4,6,2,5,7,3,51,4,4,7,2,5,7,3,6,1,4,62,6,6,2,4,7,2,5,1,3,6,14,7,7,3,5,1,3,6,2,4,7,25,1,1,4,6,2,4,7,3,5W},1,36,2,2,5,7,3,5,1,4,6,2,4))31,28,31,30,31,30,31,31,30,31,30,31%%6-F:@,%F:@,$AV6-&A$W}6-?:C:,<<<A ,$6-?:C:,<<<A ,$ˠ٠+@+@@D:W}*.*--@@-(--@@-( DISK DIRECTORY --@@-(W}8-@@! A0.@8 A@9-@%@5(7@<@, 9 W}@/-@%@/($-@%@$( /-@%@/(W}&-@@#&( PRESS STARTF:,@A5 A  @//7@W}<@,4 FREE SECTORSA00 AB-A:7@<@,,!@0$'6-&@ $ (}7"W}(THERE IS NOT A FILE FOR 7(ON THIS DISK!!!(= RE-ENTER DATA!!(Ԡ= CREATE NEW FILE 6-FW}:,"@$="@'@(@3@= @ A  EE104,104,104,10,10,10,10,170W},169,7,157,66,3,104,157,69,3,104,157 GG68,3,104,157,73,3,104,157,72,3,32,86,228,132,212,160,0,132,213,96 SS104,104,133,W}215,104,133,214,104,133,217,104,133,216,104,133,218,104,170,160,0& MM177,214,145,216,200,208,4,230,215,230,217,202,208,242,W}198,218,16,238,96ҠŠR+A@p+A @=@@O@@9R(&W}6-F:A,&"ApA@$(AN ERROR HAS OCCOURED!!($(i"AbO(;THERE IS NOT ENOUGH ROOM ON THE DISKW} TO CREATE A FILE FOR R(U(X(f( RUNib"AD_(KTHERE IS NO DISK IN DRIVE #1, OR THE DISK HAS A WRITE-PW}ROTECT NOTCH ON IT.b/,(ERROR - >:AU, RUN/YV(4THE FILE FOR THAT MONTH IS NOT ON THIS DISKEW}TTE.>:AU, RUNY'JANUARY,31'FEBRUARY,29'MARCH,31'APRIL,30' MAY,31' JUNE,30' W}JULY,31'AUGUST,31'SEPTEMBER,30'OCTOBER,31'NOVEMBER,30'DECEMBER,31D:CALENDAR.BASUNE,30' TqLDRIVMINUTERP@sA3@A6@?4fffA2** DISK DRIVE SPEED TEST<[}** COMPUTE! MAY 82 P.126d-@r"nA6% x(>:A%,( DRIVE NUMBERA[}6-?:A6,!6-F:A,!6-F:A,6-+AV$%,'A66-P:A'%?P,( (([}RPM'S = ( (" A(SLOW" A"!A(FAST" A(OK, DON'T ADJUST.1[}04,169,1,141,10,3,169,0141,11,3,141,4,3,169,5141,5,3,173,74,6,141,13,169,82,141,2,3,169,5141,73,6,32,[}83,228,206,73 6,208,248,169,100,141,73,6$169,0,133,19,133,20,32,83.!!228,206,73,6,208,248,165,208!!164,19,141[},75,6,140,76,6,96 D:RPMTEST0,141,73,6$169,0,133,19,133,20,32,83.!!228,206,73,6,208,248,165,208!!164,19,141X#P##MAINFILEMODENAMETEMPFILESDPICDLSFILPICPICOROKLPIMEMLMEMHDLISLOHIGWAIRRRRRSSSS_}SZZZZZFFFFFIIIISKCTCONSOCONSOLNOPICDISKLID_} _} !"#$%&_}'()*+,-./012345_}6789:; 99WAS MODIFIED TO ATARI 1029 PRINTER BY SASY MOULLEMNNNTHE INVERSE PR_}OCESS IS TO PRINT AS ON THE FIRST SCREEN NOT ON THE SECOND44BECAUSE THE PRINTER NORMALLY PRINTS IN INVERSEdà_}ΛOOThis program displays Micro Illustrator files in a continuous slide show.MMIt loads one file in one part of mem_}ory, while it displays another fileQQin a second area of memory. Then it fades the screen to black, switches theNNdis_}play list to the newly loaded picture, and fades back up. The programRRruns continuously, showing the selected .PIC" file_}s on a disk. Requires 48K.ee;A0,;A,;@a,;@,;@,;@$@d,;@,;@_},m +'0@@A0@@[0@@mAYq%6-F:A`_},%AV$F:Aa,9%@ @2M%@'@_AY@4qAR@U-#(>:_}A%,5-@@U( M A G I C L A N T E R N 3-@@!3(PRESS ANY KEY TO CONTINUEZ-@_}@4( MODIFIED TO ATARI 1029 Z(! BY SASY MOULLEM TL.02/660782 X-@@4(S.O.M.-- COMPANY PRODUCT_}S X( CALL FOR SAFTWARE PRODUCTSU-@@5(FOR APPLE OR ATARI COMPUTERG-@@U( +CREDITS+_}<-@@<("For Touch Tablet & Koala Pad Files:-@@:( Please send comments via Mail A`_}##. PUT DISK I/O SUBROUTINES IN"". PAGE FOUR CASSETTE BUFFER.ee162,16,169,0,157,72,3,169,0,157,73,3,32,86,228_},192,0,48,9,238,31,4,208,3,238,32,4,96,104,104,96-A$AT "  $$. ROUTINE TO CHANGE GRAPHIC_}S 8. TO GRAPHICS MODE E"GG6.=h01eeAO ݩ֩N`6##. MAIN$ IS A MACHIN_}E LANGUAGE@"". ROUTINE TO DECOMPRESS .PICJ!!. FILES MADE BY THE PROGRAMT"". 'MICRO ILLUSTRATOR' AND TO^##. DISPLA_}Y THEM ON THE SCREEN.rww67@,.dhBDE   D   _}  |ww67A,.d!  XY X!  FD))  _} ww67A,.d ]GPee`/ee(e_}--67A,.eee`##67A<A,.>:@4,##67AW<AW,.>:@4,HHT_}HE FOLLOWING PATCHES DIVERT THE COLOR INFORMATION TO MEMORY $5FC4HHTO $5FC8, AND MAKE THE LOAD ADDRESS FOR THE SCREEN IMA_}GE VARIABLE.##67A"<A",.>:Ai,##67A#<A#,.>:@,##67A(<A(,.>:Ai,##67_}A)<A),.>:A),##67@d<@d,.>:@,##67@r<@r,.>:@,##67@<@,.>:_}@,##67@<@,.>:@,##67@<@,.>:@,--READ DISK DIRECTORY AND FIND .PIC FILES_}@ +'0@@A0@@[0@@mAY6-_}F:A`,%AV$F:Aa,-@1 "% !MM5,66,64,156,4,2,2,2,2,0,2,2,2,2,0,2,2,2,2,0,2,2,_}2,2,5,2,2,2,2,65,32,156"#+AE,#1+AY,@410@@@$U-#(>:A%,5-_}@U( M A G I C L A N T E R N %7!-@@ 7(NO PICTURES FOUND&KAR@'_}-@@ C(WHICH DISK DRIVE (1-4)?K6. '! A`"@1!6.1("@06.2)"@&_}6.3*"@$6.4+"@S6.8,4 A@-36-6-'6-36-A ._}F6.D1:*.PIC)67@<@,.F@@/'6-6-'6-0@1_}$$7@<@,0 A:6-%@D//67$@&@<$@,.7@,N A`X%"_}6-@% A@g6-@6-jB-@B((r-@_}s< AP-%@<(7$@&@<$@,t u6-@6-v AP- (>:_}A,wB-@B((x7-@@7(PRESS ESCAPE FOR PICT_}URESy2-@@ 2(PRESS SPACE BAR FOR SHOWz<-@@!<("PRESS CONSOLE SWITCH TO START OVER{W-@_}@"E(*USE  AND RETURN TO SELECT PICTURESWAR@. A`@$@. A@_} AP-( #"@ #6-%@"@(6- A`)"@!@)6-&@_})"@!@)6-&@+"@ &@+6-%@@AU"AU_}!@AUu6-%@Q67$@&@<$@,.7$@&@<$@,[ APi-&@_}o(*u6-@3A0"A@6- (}0-@ @ 0(=THE SHOW I_}S STARTING=3-@@!3(PRESS START FOR MAIN MENU7-@@"7(SELECT/PAUSES OPTION/RESUMES_}@((START LOADING IN THE FIRST PICTURE##67A)<A),.>:@, A @..NOW THAT ITS LOADED, SET _}UP GRAPHICS 7.5+@%@6-?:C:,,!6-F:@,!6-F:@,%%6-F:A`,%AV$F:Aa,_}6-%@6-%@,6-@6-@,SPEED OF FADES "". NOW DISPLAY ALL .PIC FILES. FOUND ON THE_} DISK. DISPLAY LOW, LOAD HI* A FADE DOWN4+%@@+%AA> ApFADE UPH_}##67A)<A),.>:A),R A @\DISPLAY HI, LOAD LOWf A FADE DOWNp+%@A)+%_}AADz ApFADE UP##67A)<A),.>:@, A @ A++SUBROUTINE TO PICK A_}ND LOAD A PICTURE6-%@@w"@A `-@AP) Ap"@_}'') A@5"@A X,T:,"5%D:PR  A `# Ap@# A X_}!A06.D1: C"@(C67@<@,.7$@&@<$@,C@(_}C67@<@,.7$@&@<$@,67@<@,.-@@+7<,4 67,._}.PIC!'+ A   @@6-?:C:,,@$KKTHAT'S THE LAST PICTURE, PU_}T THE TITLE UP WHILE WE LOAD THE FIRST ONEX6-!+@%@3-@@N @ MAGIC LANTERNX A_}**SUBROUTINE TO SET UP THE FADE VALUES$N6-F:A,!6-F:A ,06-F:A,?6-F:A,N6-F:A,_}.I6-'@6-'@-6-'@;6-'@I6-'@80 6-P:,6-P:,6-P:,'6-P:,06-P:,BI_}6-$@6-$@-6-$@;6-$@I6-$@L$VFADEOUT SUBROUTINE`% A`6-6-_}6-%6-j""__Begin fadeout_____________t 6-& AP:,~ A 6-& _}A P:, A  6-& AP:, A 6-& A_}P:, A99F:A,)F:A ,)F:A,)F:A,A@""__End fadeout______________}$FADEIN SUBROUTINE##__Begin fadein after new pic_N6-F:BE,!6-F:BE,06-F:BE,?6-F:BE,_}N6-F:BE , Ap  -AP:,  -A P:,  -AP:, (_} -AP:, 2##__End fadein_______________<$d&6-@$P:+&@,'@,66-&%@_}a6-@$P:+&@,'@,%@d$oKEYBOARD INPUT ROUTINEp36-F:B7u,!6-F:B7i,3@e_}q Ap@$r!AQA`s"AGA`t'!@c6-&@d' A`u$X6_}-F:B2y,Z'!@6-&@' Ap\$D1:AUTOSHOW.130E  _}__ _ _' Ap\$D1:AUTOSHOW.130E  \$