@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      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⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uiwLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXTV} A(@2lB:,!@-7@<@,4XXX0(3(E-@@"X( ӠΠ\b(}W}l @@<( @@da@ B*-@@"R("ΠҠՠҠˠҠVa%D:MENUX}D:HELPLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT-.DFDDP0P1P2P3BLCRCRJCRF1CRF2CRMSTKHT1HT2SNDHGF1GF2DRPCURCOLDRSTHLDILINEHLSTARV Z}ERBRGWFLGIFDROKEYPOFLAJPODELRTLLLDRCNDPODELTPOZZVBIVBHSPEE [}  \} !"# ]}$%&'()*+,-./0123 ^}456789:;<=dCOURTING CRICKETSnBY STAN OCKERS _}xANTIC PUBLISHING(}INITIALIZING .....yy;@,;+P:C:,'A H,%@,$A H&C:,&@,;A$ `},;AV,;AV,;AV,;AV,<<;@,;@,;@,;@,;@,M<;@,; a}@2,;@,;@,;As,M6-C:,'AVh<;@,;@,;@,;@,;@,R6.H b}IXLMXPQXTUXXXXh6.JKXNOXRSXVWXZ[XJOYSTICK ROUTINE@ #A!-@@2%"367<,.>:,7 @6-C:, c}nn104,173,132,2,240,12,173,207,6,240,20,169,0,141,207,6,240,13,173,207,6,208,8,173,120,2,41,3,141,207,6,96SOUND DATA d}7 #A0!-@As%"367<,.>:,7 gg0,60,3,70,3,80,3,90,3,100,3,100,3,0,0,108,10,108,10,108,10,81,20,6 e}4,10,108,10,108,10,108,10,81,20hh64,10,0,30,53,10,85,10,53,10,96,10,53,10,96,10,53,10,91,20,102,10,108,10,108,10,85,20,72 f},10,108,10WW108,10,108,10,85,20,72,10,0,50,53,15,47,5,53,10,60,10,64,10,72,10,81,20,40,20,0,0hh121,40,91,30,91,10,91, g}80,121,40,81,30,96,10,91,80,121,40,91,30,72,10,60,40,72,30,91,10,91,40,96,30FF91,10,81,80,0,0,243,40,243,40,243,10,243,40 h},204,40,217,10,217,40YY243,10,243,40,255,10,243,60,0,0,47,10,72,10,60,10,64,10,72,10,64,10,60,10,72,10,0,0"d6-P:C:,' i}AV,#A 66-C:,&$AVBAd2@,6-@6DD$ IS SCREEN DATA j}@|67@,.@%67AH,.@467@,.L67AI,.>:,d67A(,.>:,|67AP,.7AI,J k}M6-C:,%A%6-P:'AV,56-&$AVA@M@THAY*AF:A@,4 A@ l}> A0H A0^C +AY3-B2HB2P?@C csAV'AV! A3 m}AYEA`WAa@iAY@4s Ahb6-?:Ap,6-@( A4@ n}@@R-@V(b6-rA@h'A AT9A@KA@D o}]A@ro-@@( courting crickets |W-@#( dif level-#AA-@@ p}E"S67<,.>:,W ~228,36,4,230BB67A<AR,.'YYYYYYXXXXXYYYYYYXXXXXYYYYYYXXXXXYYYYYYBB67AS< q}A,.'YYYYYYXXXXXYYYYYYXXXXXYYYYYYXXXXXYYYYYY867A,. _`XX_`XX_`867Ai,. abXXabXXabXo6-6- r}'6-36-Q67AR,.XXXXXXXXXXXXXXo67A,.XXXXXXXXXXXXXX3A"@$67A, s}.367A,.>-@@,(SELECT dif or FIRE>@w T:,"AP/6-F:B2 t}y,/T:,"A@A`)6-%@!@)6-@--@(# u}A- A`[-@@-( COURTING CRICKETS 7 AI67A,.XX[67A,.XX6-?:C:,, v}A-"@*"A*!A* A47 A A A$F:AC,"$6-"@A& w}y6-F:AC,("@)"@46-@=67,.OB7gApaA@u-@@ y 0o x}"@*!-Ag%667,.D6-&@M67,.[6-&@oAg%@:o"@* @ y}-Ag%667,.D6-%@M67,.[6-%@oAg%@DF6-F:A,(!A) @ z}`<Ag%F ANB2xX-@@ b6F:B2R,!,Ag% {}6 AlA#"@Y*!A* A47Ag%A A@v, 6-%!) 6-6,6-%@$ |}B2Pt6-&@ @=6-@%@$+@&,I6-@PS A P\67,.h6-@tB2Q }}M"@67,. 6-%)67,.M2@&@@@@%!A@ A %6-@P6F: ~}B2`,"@,Ag%6 A AFALLING CRICKET A W 67,.6-%@#67, }.?2@@S-@@0W k 67,.6-%@#67,.?2@@S-@ }@0W k A@A %%2%6-%@%"@A0[6-@ }$+&@,;67A%<A%,.XXXX[67Ai%<Ar%,.\]^XG6-@ A+AA =A }"@G A ERASE NEXT GIFT_6-6-%@' AC67A%$@,.XX_67A%$ }@,.XX $*ELIMINATE DROP4O%2@.67,.@B2QL6-O$>R }EACHED FEMALEH A AAR" A \"@Af(-@@(67&@ },.pm -@6@<2@ @@ Q67&@,.e-@@i m z T: },"@A3 67,.67&@,.)6-@3 A`PRINT GIFT6-@;67AR,.7@ }<+%@,$@,g67A,.7@<+%@,$@,s"@6-@$PICK A WEAPONu6- }P:H:,$@,1#A `%@$E-@@I"W67<,.>:,[ uA@:7%@,,$--20,7 }2,34,20,74,40,8,127,127,62,62,28,28//0,0,80,112,112,112,112,112,120,126,94,0,0++0,0,48,96,64,127,127,64,224,224,0,0,0 }3360,24,24,24,60,126,223,215,247,255,127,126,60PICK ANOTHER GIFT~A"AU'A@CB2Q }A$%@$W-@@f67A,.z-@@0~ 167A,.&-@@0* . 1$ }NO MORE BROTHERSA"A1'B2w;-B2aB2dGK U+@g-@@ }(@ All Brothers+-@@+(@are GoneZ-@@1(@PRESS start TOC-@ }@Z(@ try again$ F:B2y,@A`. AP8MARRAIGE OCCURSBA"@)- }@=-@U6-@d$%@$w67%@,.XXXXcdXXXXcdXXXX{  L-@A } VqB2w)-B2aB2d59 C+@U-@@q(@And They Lived`?-@ }@5(@Happily Ever After? APjCHANGE CHARACTER SETtB;@2,#AP.-@@2 }2">67,.>:,B ~EE104,104,133,204,104,133,203,104,133,206,104,133,205,162,4,160,0@@177,203,145,205,136,208,249,2 }30,204,230,206,202,208,240,96A AF:A,&@A6-+F:A,%@,$AVI6-?:C:,<BsD<,##A };-%A%A?"EI $MM0,0,0,0,0,0,0,170,0,63,58,57,58,63,63,170,0,252,172,108,172,252,252,170 }YY0,255,170,85,170,255,255,170,0,51,33,18,33,255,85,170,0,191,239,251,254,255,255,170WW0,255,215,215,215,190,235,170, }0,254,251,239,191,255,255,170,0,1,32,184,32,12,3,16VV64,208,64,224,184,224,192,192,116,28,3,0,0,0,0,0,200,238,248,192,192 },192,192,192GG0,0,0,0,2,2,3,3,0,0,0,0,128,128,192,192,13,55,219,222,223,55,13,3VV112,220,247,247,247,220,112,192,0,0, }0,58,234,234,233,229,0,0,0,40,234,170,154,86TT233,233,57,58,58,14,14,13,86,90,90,104,104,160,160,128,0,3,12,48,192,192,48 },12GG48,204,3,3,3,12,48,12,12,3,12,48,14,2,2,0,3,3,3,12,32,160,160,128``0,0,0,0,0,0,0,0,233,181,173,183,222,122,94,10 }7,2,10,2,4,16,16,4,1,128,160,128,16,4,4,16,64 NN0,0,3,15,15,204,63,15,0,0,0,207,204,255,255,195,0,0,240,48,48,48,240,240 }@@0,0,84,5,17,5,1,5,0,0,21,80,68,80,64,80,17,65,1,4,4,20,0,0OO68,65,64,16,16,20,0,0,40,190,179,176,176,44,11,2,80,244,5 }2,52,52,208,64,0(VBI ROUTINE2P;@u,#A@.-@@u2"@67<,.>:,D M6-C:,P$<MM216,16 }2,0,160,0,222,240,6,16,42,189,224,6,157,240,6,189,232,6,240,10,24FRR173,255,6,125,248,6,141,255,6,24,185,16,6,125,216,6,15 }3,16,6,221,208,6,208,6Pdd189,200,6,153,16,6,200,200,200,232,224,7,144,201,173,255,6,141,0,208,32,57,6,32,88,6,76,98,228Z }DISPLAY LIST IN PAGE 6d/ #A!-A6Ay%"+/ naa112,112,112,70,0,0,68,20,0,68,60,0,69,100,0,69, }0,0,69,80,0,69,128,0,69,208,0,69,0,0,69,80,0x 69,128,0,69,140,0,68,180,068,0,0,70,40,0,65,0,6FF0,0,0,0,0,0,172, }55,6,240,23,206,56,6,16,18,177,208,141,6,210,20000177,208,240,5,141,56,6,200,152,141,55,6,96ff0,0,172,86,6,240,40,206 },87,6,48,17,169,13,205,87,6,144,3,173,87,6,9,160,141,5,210,208,18,177,208^^141,4,210,200,177,208,240,5,141,87,6,200,152,1 }41,86,6,96,104,160,0,162,0,169,7,76,92,2289 #Ap)-AAA@-"5%9 ##2,2,2,2,0,0,0,0,1,1, }1,2,2,3,3/ #A!-A6A%"+/ MM0,80,128,208,0,80,128,0,16,64,144,192,16,64,144,0,1,255,1,255,1 },255,1,0[[20,12,9,12,15,18,21,0,0,0,0,0,0,0,0,0,20,12,9,12,15,18,21,0,252,4,252,4,252,4,252,12066-P:'AV, A }t6Ar&AV$$PM IMAGES7 #A@!-@@%"367<,.>:,7 ,,231,60,90,60,24 },60,90,153,24,36,36,1027 #A`!-@@%"367<,.>:,7 ,,66,36,60,90,60,153,126,24,24,60,66,195" }B67@,.>:,367@,.>:,B67@,.,7 #A!-@@%"367<,.>:,7 6++1 }95,36,60,90,60,25,62,88,156,36,38,96@7 #A!-@@%"367<,.>:,7 J,,195,36,60,90,60,152,124,26,5 }7,36,100,6T7 #A0!-@@%"367<,.>:,7 ^..66,165,60,90,36,24,126,153,60,126,36,102h7 #AP }!-@@%"367<,.>:,7 r**0,216,248,248,112,32,0,27,31,31,14,4|7 #Ap!-@@%"367 }<,.>:,7 **0,27,31,31,14,4,0,216,248,248,112,327 #A!-@@%"367<,.>:,7 1168,238,25 }4,254,254,254,254,124,124,56,56,16PM INIT.W67@,.>:,367AV,.>:,B67@,.N6-A }W67,.67@,.>:,367AV,.>:,B67@,.Z67@,.>:,r67AV,.>:, }67@,.67@,.>:,367AV,.>:,B67@,.Q67@`,.`67@D,.l6-Ax6 }-@6-A6-@P6-@{BBy!AY@b3B2w@EB2HA WA }AiB2IA&{A@KB2PA'A@ 9AKA#@$ }PACKAGES ON BELTS467@,.@%67AH,.@467@,.`-A`AfF6-H:,$+@ &,$ }@%+@&,R!@`6-$@  C-@+#AP%@$/"C-@ },6-@d$%@$,67%@,. !@ 67%@ ,.0  $: ACBD ›N DDDX  }Ǜb EFGl ěv EFGD1:CRICKETS.BASCRMSTKHT1HT2SNDHGF1GF2DRPCURCOLDRSTHLDILINEHLSTARV 4./~YTOYSTARDLMEMTOHIGLOCNADRADRSADRSX} d REFLECTBY DAVID PLOTKIN, (c) 1985, ANTIC PUBLISHING AF:A@,}9+@%@'A 9AL*6-F:A,$AV&@$A$06->6-&AL6-&@}\6-P:'AV,$6-&$AV0AA<ABHA\%@Ah%@A+%}@@y<6-P:'AV,L6-&$AVZ%@h%@W@@/-@A=}%@A W6-%@$@@@-AA@06-P:'AV,@6-&$AV1%@y!%}%@1%%@$6-&@@ .T%A@e(6-P:'AV,86-&$AVF%AT%A}8?A`Aa-A A?BBr@4B @>:A%,L)-@A@})@V;-A@+,@7/; `M )-A@=,&@@}I/M j  AD1:REFLECT.BAS=/0ADELATONONTWTHREFOUTIMERUMBLPITC}  SPECTACULAR SOUNDBY TIMOTHY BANSE (c) 1985, ANTIC PU}BLISHING(;@$,21 +#A.(AVAILABLE SOUNDS:1(<-@@F"P(() Z} d__FACTORY WHISTLE,STEAM LOCOMOTIVE,BUZZER,FALLING OBJECT,SPACE SHIP,ARTIFICIAL INTELLIGENCEnSSOLD AIRPLANE,SINGING }BIRD,LASER WEAPON,OCEAN SURF,BUSY SIGNAL,EXPLOSION,ALARMx>>GALAXY CANTINA MUSIC,CRASHING PLANE,PLAY A CHORD,THUNDER( }@P($(Your Selection(3AU@30@+&@,@AA`APA}APAA@AAPA0A@A @AApA@A@A0 @PFACT}ORY WHISTLE%%2@`@@%%2@@p@@%%2@@@@}-@A G%2G2@(%2@}($STEAM LOCOMOTIVE-@A%%2@@@-@@" },%%26-@@@ J   $T BUZZER^%%2@@@@}h-@Ar |(%2($FALLING OBJECT-@0A2}@@ (%2($SPACE SHIP-@ AU2@}@-@@ , )2,$ARTIFICIAL INTELLIGENCE-@}A332P:H:@,$@u,@@, )2,$OLD AIRPLANE}-@A&%%2@@@0%%2:   $DBIRD SINGINGN}-@@X-@@0b2@@l v, )2,}$LASER WEAPON-@@-@@u2@@ %%2}-@@P    $OCEAN SURF-@P2@@}-@@0    -@6@2@@ -@A*} 4, )2,$>TELEPHONE BUSY SIGNALH-@@R%%2@P@}@\%%2@f-@A p%%2z%%2@@}@@@-@A  (%2@($EXPLOSION -@}6@2@%@-@@   (%2($}WARNING ALARM-@@-@5@2@@ -@@}, )2,$$GALAXY CANTINA MUSIC.-@8 -@6? B}2@@L-@@ V `, )2,$jPLANE CRASHI}NGt -AU@@6@~2@@-@@     -@6}@2@%@-@@     #A`$PLAY A CHORDGET NOTES TO P}LAY "100,200,50,150! #A`!-@@EACH NOTE GETS OWN VOICE 2@@}2@@@2@@@(2@@@2HOLD NOTES FOR A BEAT}<-@A FTURN OFF EACH VOICE/NOTEP%%2Z%%2@}d%%2@n%%2@xREPEAT THE CHORD 3 TIMES   $ }THUNDER-@@%%6-P:AU$H:@,%@ ,6-H:@,$AP-@2}@@ -@ , )2,$ D:SOUND.BASm:;" 8 S16MBYTNFREQBOTOCTAVPITCSFRELOWOCWAIVOJHOL@}  SIXTEEN-BIT SOUND DEMOBY JERRY WHITE} (c) 1985, ANTIC PUBLISHINGd#nh+@%@ (@>(@ 16-BIT SOUNDI(@h(@ } BY JERRY WHITEx&;@V,&HOLDS ML SUBROUTINE--@@V")67<,.>:,- 7%2}7B7hA L#;@$,9@<@,B6.B A#A G#G F#F E D#D C#C L A DISPLAY SUBROUT}INEK-@@A(@ OCTAVES: &%@K A.-@@.(@OCTAVE: }1-@@1(@PITCH:  Q6-$@&@+-@@ N(@NOTE: 7<%@},Q$CREATE FREQUENCY ARRAY= -@@6@=-@@6@"68<,-  '6}-6-@'6-@MAIN SOUND LOOPS7-@6@7-@@6@90@}! A-6-@9A@'(6-?:C:,<8<,<,' A"))6-?:C:,<8<,<<8%@<,<,,}(A 66-F:A@, A@ AJ   T*(6-@ 6-@* A`^J-@@} @+-@F(@ J rI6-@6-@'6-@36-@?6-@I A}0|16-@6-@'6-1 A0=6-@6-@'6-@36-= A0=6-@}6-@'6-@36-= A016-@6-@'6-@1 A016-@6-@}'6-@21 A016-@6-@'6-@1 A016-@6-@2'6-1 A0} +TIME DELAYA@F:A@,A$SUBROUTINE TO CONTROLTWO 16-BIT SOUNDS}5A@56-?:C:,<8<,<<8%@<,<,F:A@,A@&556-?:C:,<8<,<<8%@<,<},0 A NDATA FOR M-L SUBROUTINE*N44104,201,2,240,33,201,4,240,12,170,224,0,240,414N99202,104,104,240,247,20}8,245,104,141,2,210,104,141,0>N55210,104,104,41,15,9,160,141,3,210,104,141,6,210HN44104,141,4,210,104,104,41,15,9,160,141},7,210,960u FREQUENCIES FOR FREQ ARRAY:uMM27357,25821,24372,23003,21712,20493,19342,18256,17231,16264,15351,14489DuGG1}3675,12907,12182,11498,10852,10243,9668,9125,8612,8128,7626,7241NuAA6834,6450,6088,5746,5423,5118,4830,4559,4303,4061,3832,}3617XuAA3414,3222,3040,2869,2708,2555,2412,2276,2148,2027,1913,1805bu??1703,1607,1517,1431,1350,1274,1202,1134,1070,1010,}953,899lu55848,800,755,712,672,634,598,564,532,501,473,446vu55421,397,374,353,332,313,295,278,262,247,233,219D1:S}OUND16.BAS 8 S16MBYTNFREQBOTOCTAVPITCSFRELOWOCWAIVOJHOL@ 56HH1DELATLFRIBOTOXVD@2AU@u@@A`@@x@@w@} @# @$ @ @ @E@P@@vTIC-TOC-FLIPBY GENE LEVINE (c) 1985, A}NTIC PUBLISHING "AF:A@," A ANIMATION LOOP]-@@-Aa&7 @@}; ]2@%@@e-@q@5Aa%@%? @@C e2@3@}@@w @ 'SPEED SET & ESC(R%23-@HF:Ad}, @)R @P-   $2C"F:Ad,"@* @p06-%?0C'-' TO SLOW DOWN7B"F:Ad,"@*}!06-&? B'+' TO SPEED UP<. F:Ad,"@(A.ESC TO STOPAAdAU$cSCREEN DR}AW SETUPdA&#+@%@5AY@4JAF:B7p,V6-@b6-@cn6-@Gz6-}6-%@DRAW BOXM-@@+-@@/5,;/A/G/M/S6-&@}6-%@'6-%/6-&3 7 E6-%?2S6-&?2+DRAW TICK-TOCKER,I @,@8%/@A}1/@A=/@8I/@81S,@9&@+/@@&@?,@9%@S/@@%@6"}6-%@6-%@"$D.L. HIGH BYTESJ A@),@9;/@@J6-F:Aa,}%-@@! A% @ @,@9@G1/@@@G@6-F:Aa,!!SET COLORS & TURN }ON SCREENgA'AAF9A @fKAA]AY@4g @ INITIAL }IZE VARIABLES|6-F:Aa,!6-F:A,-6-96-@E6-@R6-6?`f6-@%?`r6-@ }| A' EXIT'DAaA%+DRESET DL HIGH BYTE & MEM TOPD1:TICFLIP.BAS@q@ }56HH1DELATLFRIBOTOXVD@2AU@u@@A`@@x@@w@ OPSECSEJFJFYHJFYLTXTWTMTMRHTMRL! } TIMERS, LISTING 1BY FRED PINHO!} (c) 1985, ANTIC PUBLISHING , +@;@,,Ai A -@@7(@ COUNT D!}OWNB(@M(@i(@ TIMER DEMOb%(TOTAL SECONDS DESIRED(1-250))26-A:,H!AP) @!}X( TRY AGAIN!b @0#&&(TIMER DISPLAYS MINUTES:SECONDS(^6-$@`"6-P:'AV,46-&+$AV,@A%!}LA&^A!2b%6-F:A`,%AV$F:Aa,36-%AUD6-P:'AV,V6-&+$AV,bA!}<!A !AR@F^BB'AH9AI@L( TIMER STARTED^BB!}@dP-@@ Z6-F:AX,@d( TIMED OUT!n-@AP %x !} #AP%-A6A"!% $GG216,173,253,3,208,24,169,1,141,4,4,169,255,141,253,3,141,46,2,172!}@@1,4,174,2,4,169,5,32,92,228,206,4,4,208,117,169,10,141,4,4DD173,32,2,141,254,3,173,33,2,162,8,14,254,3,42,201,60,144,!}5,233GG60,238,254,3,202,208,240,141,255,3,162,8,169,0,14,254,3,42,201,60GG144,5,233,60,238,254,3,202,208,240,141,255,!}3,162,8,169,0,14,255,3GG42,201,10,144,5,233,10,238,255,3,202,208,240,141,0,4,24,160,0,173NN254,3,105,16,145,208,200,1!}69,26,145,208,200,173,255,3,105,16,145,208,200EE173,0,4,105,16,145,208,173,46,2,240,3,76,98,228,169,98,141,36,2 169,!}228,141,37,2,76,98,228 D1:TIMER1.BAS,76,98,228 169,228,141 L78DTMTMRHTMRLDDDDD2HDD2LBi`BAUA'A(?iWqYyT5qc%} A Bgp B ABP`%fcTIMERS, LISTING 3BY FRED PINHO (c) 1985, ANT%}IC PUBLISHING U +@/6-F:A`,%AV$F:Aa,C%@v@UAA8-@4%}%@x%F:%@%,8 y @,@p1/AY@pC,@@qU/AY@qg,%}@ry/@y@r3%6-F:@,%AV$F:@,36-%A(@(L6-%@"6-P:'AV,46-&+$AV%},@ALA 2C AA!1A'CAU7&&(TIMER DISPLAYS MINUTES:% }SECONDS<bBB'AH9AI@KBB@dX(TIMING!b@FI"-%!}AY?P36-E:@$,>6-$E:,I6-$G:,P73,P:+$@5,%@y,P:+$@0,%@4,7 Z7A'A%"}U4( TASK COMPLETED!7d #A0n%-A6A"!% x$GG216,173,253,3,208,18,169,%#}1,141,4,4,169,0,133,18,133,19,133,20,169GG255,141,253,3,206,4,4,208,115,169,10,141,4,4,165,20,141,254,3,165HH19,162,8%$},14,254,3,42,201,60,144,5,233,60,238,254,3,202,208,240,141EE255,3,162,8,169,0,14,254,3,42,201,60,144,5,233,60,238,254,3,2%%}02GG208,240,141,255,3,162,8,169,0,14,255,3,42,201,10,144,5,233,10,238II255,3,202,208,240,141,0,4,24,160,0,173,254,3,1%&}05,16,145,208,200,169LL26,145,208,200,173,255,3,105,16,145,208,200,173,0,4,105,16,145,208,173DD3,4,208,3,76,98,228,16%'}9,98,141,36,2,169,228,141,37,2,76,98,228 D1:TIMER3.BASAY?PFA'A(?iWqYyT5qc$N bc#DTMTMRHTMRLDDDDD2HDD2LJIFSECMIMINTSECSETSEBi`B?))}tbt(H Bgp B AYP?ucuB)W@@)*}@TIMERS, LISTING 5BY FRED PINHO (c) 1985, ANTIC PUBLISHING U +@/6-F:A`,%)+}AV$F:Aa,C%@v@UAA8-@4%@x%F:%@%,8 y @),},@p1/AY@pC,@@qU/AY@qg,@ry/@y@r({%6-F:@)-},%AV$F:@,36-%A(@E@W@i@ {AR@2_&(TIMER DISPL).}AYS MINUTES:SECONDS3(TIMING!=@K6-%@_%@@&<""-AY?PFj86-F:@ )/},%AV$F:@,%BU6$F:@,I6-P:'@`,Z6-P:'@`,j6-&@`$P$6-P:'@,$6-&@)0}$Z=%@'%@%@=%@%@d*6-E:@$,6-$E:,*6-$G:,n73,P:+$@5,%)1}@y,P:+$@0,%@4,7 x%"( TASK COMPLETED!% D1:TIMER5.BAS20,141,254,3,165HH19,162,8)2},@y,P:+$@0,%@4,7 x%"( TASK COMPLETED!% D1:TIMER5.BAS20,141,254,3,165HH19,162,8(00!.4)#02%3%.43coarsescrolling/n9our!tari"91N}9/52.!-% ppppppppF0ppppGpBK0ppppFs0pppppA0/001"/* 0 * 0 00H1O}hL00 1000`0coarsescrolling/n9our!tari"90&&L'Destination #Format Destination ?Verify Writes ?Continue on Errors ?Reading...Writing...Insert DESTINATION disk-P5Q}ress Insert SOURCE in Drive 1-Type Another copy ?Formatting...Remove Cartridges First!Program only runs on a 5R}130 XE!!&' ҠҠŠ By Ernie NegusK:S:&EIHD B V`B5S}HI VhhL'`BD'E JK V` B V` B V` L'`5T}Ӎ@ӭ@'( Ӣ L'`0j ' 'LT(--------U,՝?- ` N'`?& N'H'5U}   L' g'1DTQ9L(H'I'1A'K' B(A'80A' L' g' B(B'$ L' g' B(G'Ӣ5V}3 L' g' B(J'$() L' g'NI G L' (E'  RD'@' D* ?* ?* ?*өT@' D*ӭA' 5W}%] L' g'B'Y4 L'!A' ( * S䠭NJ' * R L' (A'E'  WD'G'YPD'@' D* ?*5X} ?* ?*өT@')* D*ӭH'A'i0K'H'LL) L' g' B(YH'I'H'A'1K'LL)L'@'?5Y}E'D' i  i  *ii S *-J'YhhL*@'н`---i-`72-5Z}(#** `'?Continue on Errors ?Reading...Writing...Insert DESTINATION disk-P48$0 (c)1983 Action Computer Services  B JKIHiDiELV`L=$9\} =$ BLV`L$$l L$ &` Fj`8冨凪` $EӅӥ9]} $`ʆǪƩ Ɛee` $ƦʆǢ &Ɛeǐ % %L$ $'&&&8儨児9^}祂*L$&&*ń8&&L$ [%`hihiHHȱȱL$c !#3`9_}L$JJJJ`H $h`Hȩh r$L% {$L% %$L% -$L% 3$H89`}`HhHh _&L% BHI V䅠L% L& =$L%Ԇ ؠPIPP`9a} &P -$L% &L& &L& 'L&H- &8塪墨hL' 'L& &'L& &ȹP`9b}텠8堨塪 &芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H 9c}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护9d}°ڱ%ȱ%E &L`(担CS R&L`(I 'L`(H (L`( &L`( &B V %NLMȑ9e}` MLN%B VL%S:)E:)H L& ) ) & L&h)0I))L&[\ZUVT` @)))9f}` G)L& :)L& @)L&) ` G)L& &%` 0d $ҥ `2)29g}ҩ`p`0)9*`@0)ӈJJJJ)`Ѕ`ȱ`` 5*ȥ`Hh9q}db'DOS SYSb*+DUP SYSbUHELP BASb]YCRICKETSBASb REFLECT BASb#SOUND BASbSOUND16 BASbTICFLIP BASb TIMER1 BASbTIMER3 BASb (TIMER5 BAS3SURPRISEBASbMCOARSE EXEb PCOPY130 EXEb[QUEENS8 EXEb~REVB2C EXEbTIMER2 ASMbTIMER4 ASMbQUEENS8 ACTbAUTORUN SYSbCOARSE M65bCOARSE FIXbDOC TXTbMENU bXCOPY130 M65bQREVB2C M65bkSURPRISEBASƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡`9r}`ťƤe8夰L* Ƥ8`ŦeѠe桊L*`9s}9t}L++++++LH,+ &%++++L7,+m+J++]+L1,++L ,+ILB,`+L+`LL9u},++Lv,8+++++++LQ,++L,+++++L{,`L,++L,+++++L,++9v}Ly-++LO-++L- ++IL,` I,+L,++L!-+++++L-++LI-8++++9w}+L&-+L,++Ls-8+++++LT-+L,+`L-+ &%+++L-+m+++J++L-`L-9x}++L2.++L,.+i+i :)++M+L.L.Q. R&L&.L.+. R&+L-+L- :)+9y}+ &`LH.++L.+i++L.8+++++8++++L.8+i++M+L.`+L`.+LM. -`L9z}.++++i++ELD/++++++LA/++//+LA/++++i++++i+9{}++L/L.++++++`LZ/ ) 5* :)L/ 8-QUEENS SOLUTIONS/t ?&L/ BY DAVE OBLAD/ ?&9|}++L/++++++L/+`+L/+J++L/+ E. .++L&0++]+L 0L&0+L0+I I9}}L:0L=0L/+IL0 :)L\0COMPLETE0S ?& &L0PRESS Ԡ TO RE-RUN0i ?&L0LZ/``W/iELV`L=$8j`ة٠)ӱH h٥ܢ ڠ___  `ߨ)=}`ة٠)ӱH h٥ܢ ڠ___  `ߨ)<0100 ;TIMER 20110 ;BY FRED PINHO0120 ;(c) 1985, ANTIC PUBLISHING0160 *= $0600 ;RELOCATABLE0170 ;SINCE MAC/65 USES A}PAGE 6, ASSEMBLE TO DISK. RECOVER FILE WITH DOS.0180 ;FOR DEBUGGING, ASSEMBLE WITH AN OFFSET VIA THE .SET AND .OPT DIRECTIVEA}S.0190 .TITLE "LISTING 2"0200 .TAB 14,18,260210 .SET 1,40220 SETVBV = $E45C0230 XITVBV = $E4620240 CLD A} ;MUST BE DONE0250 LDA 1021 ;TIMER ACTIVATED?0260 BNE GOON ;YES. SKIP AROUND0270 LDA #1 ;NO.A} SET DELAY FOR IMMEDIATE DISPLAY0280 STA 10280290 LDA #255 ;SET TO INDICATE ACTIVE TIMER0300 STA 10210310 A} STA 558 ;SET TIMER FLAG0320 LDY 1025 ;DESIRED TIME,LOW0330 LDX 1026 ;HIGH0340 LDA #5 ;TIMERA} 5 TO BE ENABLED0350 JSR SETVBV ;DOES THE JOB0360 GOON DEC 1028 ;CALCULATE TIME?0370 BNE EXIT ;NOT YET. BYPAA}SS ROUTINE0380 LDA #10 ;YES. RESET DELAY COUNTER0390 STA 10280400 LDA 544 ;GET TIMER LO BYTE0410 A}STA 10220420 LDA 545 ;HI BYTE0430 DIVIDE LDX #8 ;DIVIDE BY 600440 LOOP1 ASL 1022 ;TO GET TOTAL SECONDS0450 A} ROL A0460 CMP #600470 BCC BRCH10480 SBC #600490 INC 10220500 BRCH1 DEX 0510 BNE LOOP10520 STAA} 10230530 ;TOTAL SECONDS STORED IN REGISTER 10220540 LDX #8 ;DIVIDE BY 600550 LDA #0 ;TO GET MINUTES056A}0 LOOP2 ASL 10220570 ROL A0580 CMP #600590 BCC BRCH20600 SBC #600610 INC 10220620 BRCH2 DEX 0630 A} BNE LOOP20640 STA 10230650 ;MINUTES IN 1022,REMAINING SECONDS IN 10230660 ;NOW DIVIDE BY 10 TO GET HI AND LO DIGITSA} OF DECIMAL NUMBER0670 LDX #80680 LDA #00690 LOOP3 ASL 10230700 ROL A0710 CMP #100720 BCC BRCH3073A}0 SBC #100740 INC 10230750 BRCH3 DEX 0760 BNE LOOP30770 STA 10240780 ;SECONDS(TENS PLACE) IN 10230790 ;A}SECONDS(UNIT PLACE) IN 10240800 DISPLAY CLC ;STORE 3 DIGITS INTO DISPLAY AREA0810 LDY #00820 LDA 1022 ;MINUA}TES0830 ADC #16 ;CONVERT TO SCREEN CODE0840 STA (208),Y ;STORE0850 INY 0860 LDA #26 ;SCREEN CODE A}FOR ':'0870 STA (208),Y0880 INY 0890 LDA 1023 ;SECONDS(HI)0900 ADC #160910 STA (208),Y0920 IA}NY 0930 LDA 1024 ;SECONDS(LO)0940 ADC #160950 STA (208),Y0960 LDA 558 ;TIMER DONE?0970 BEQ DIA}SABLE ;YES0980 EXIT JMP XITVBV ;NO. JUST RETURN TO VBI0990 DISABLE LDA #$62 ;RESTORE ORIGINAL VBI VECTOR1000 STA 5481A}010 LDA #$E41020 STA 5491030 JMP XITVBV ;EXIT1040 .END *= $0600 ;RELOCATABLE0170 ;SINCE MAC/65 USES @L0100 ;TIMER 40110 ;BY FRED PINHO0120 ;(c) 1985, ANTIC PUBLISHING0160 *= $0600 ;RELOCATABLE0170 ;SEE LISTING 2 FOR E}REMARKS ON PAGE 6 ASSEMBLY0180 .TITLE "LISTING 4"0190 .TAB 14,18,260200 .SET 1,40210 XITVBV = $E4620220 E}CLD ;MUST BE DONE0230 LDA 1021 ;TIMER ACTIVATED?0240 BNE GOON ;YES. SKIP AROUND0250 LDA #1 E};NO. SET DELAY FOR IMMEDIATE DISPLAY0260 STA 10280270 LDA #0 ;SET LOCATIONS TO 00280 STA 180290 STA E}190300 STA 200310 LDA #255 ;SET TO INDICATE ACTIVE TIMER0320 STA 10210330 GOON DEC 1028 ;CALCULATE TIME?E}0340 BNE EXIT ;NO. BYPASS ROUTINE0350 LDA #10 ;YES. RESET DELAY COUNTER0360 STA 10280370 LDA 20 E} ;GET TIMER COUNT0380 STA 1022 ;LO BYTE0390 LDA 19 ;HI BYTE0400 DIVIDE LDX #8 ;DIVIDE BY 600410 LOOP1E} ASL 1022 ;TO GET TOTAL SECONDS0420 ROL A0430 CMP #600440 BCC BRCH10450 SBC #600460 INC 10220470 BE}RCH1 DEX 0480 BNE LOOP10490 STA 10230500 ;TOTAL SECONDS STORED IN REGISTER 10220510 LDX #8 ;DIVIDE BY 60E}0520 LDA #0 ;TO GET MINUTES0530 LOOP2 ASL 10220540 ROL A0550 CMP #600560 BCC BRCH20570 SBC #60E}0580 INC 10220590 BRCH2 DEX 0600 BNE LOOP20610 STA 10230620 ;MINUTES IN 1022, REMAINING SECONDS IN 10230630E} ;NOW DIVIDE BY 10 TO GET HI AND LO DIGITS OF DECIMAL NUMBER0640 LDX #80650 LDA #00660 LOOP3 ASL 10230670 ROLE} A0680 CMP #100690 BCC BRCH30700 SBC #100710 INC 10230720 BRCH3 DEX 0730 BNE LOOP30740 STA 102E}40750 ;SECONDS(TENS PLACE) IN 10230760 ;SECONDS(UNIT PLACE) IN 10240770 DISPLAY CLC ;STORE 3 DIGITS INTO DISPLAY AREAE}0780 LDY #00790 LDA 1022 ;MINUTES0800 ADC #16 ;CONVERT TO SCREEN CODE0810 STA (208),Y ;STORE0820 E} INY 0830 LDA #26 ;SCREEN CODE FOR ':'0840 STA (208),Y0850 INY 0860 LDA 1023 ;SECONDS(HI)0870 E} ADC #160880 STA (208),Y0890 INY 0900 LDA 1024 ;SECONDS(LO)0910 ADC #160920 STA (208),Y0930 E} LDA 1027 ;TIMER DONE?0940 BNE DISABLE ;YES0950 EXIT JMP XITVBV ;NO. JUST RETURN TO VBI0960 DISABLE LDA #$62 ;RESTE}ORE ORIGINAL VBI VECTOR0970 STA 5480980 LDA #$E40990 STA 5491000 JMP XITVBV ;EXIT1010 .END 2 FOR Dv; 8-QUEENS SOLUTION; BY DAVE OBLAD; (c) 1985, ANTIC PUBLISHINGBYTE ARRAY T(96),P(8),I(8),O(8),M(8)BYTE A,B,C,D,X,Y,L1,L2I},L3,OPT=53279PROC SEARCH() FOR X=0 TO D DO Y=X*8 B=1 FOR A=0 TO 7 DO IF T(Y+A)#O(A) THEN B=0 FI OD I} IF B=1 THEN RETURN FI ODRETURNPROC ROTATE() FOR A=0 TO 7 DO B=7-O(A) M(B)=A OD FOR A=0 TO 7 DO O(A)=M(A)I} ODRETURNPROC TEST() FOR A=0 TO 7 DO O(A)=P(A) OD FOR L1=0 TO 1 DO FOR L2=0 TO 1 DO FOR L3=0 TO 3I} DO SEARCH() IF B=1 THEN RETURN FI ROTATE() OD FOR A=0 TO 7 DO M(A)=O(A) OD I} FOR A=0 TO 7 DO O(7-A)=M(A) OD OD FOR A=0 TO 7 DO O(A)=7-O(A) OD OD B=0RETURNPROC KEEP() X=D*8 FOR I}A=0 TO 7 DO T(X+A)=P(A) ODRETURNPROC DISPLAY();REMOVE 5 SEMI-COLONS BELOW;FOR UNIQUE SOLUTIONS ONLY!;IF D#0 THEN TESI}T(); IF B=1 THEN RETURN; ELSE KEEP(); FI;FI FOR Y=0 TO 7 DO FOR X=0 TO 7 DO POSITION(X+15,Y+8) II}F P(Y)=X THEN PRINT("Q") ELSE PRINT("+") FI OD OD POSITION(18,18) D==+1 PRINTB(D)RETURNPROC TRY() FOR Y=0 TOI} 6 DO FOR X=Y+1 TO 7 DO A=P(X)-P(Y) B=X-Y IF A>7 THEN A=255-A+1 FI IF A=B THEN RETURN FI OD ODI} DISPLAY()RETURNPROC SWAP() C=0 I(C)==+1 WHILE I(C)=C+2 DO I(C)=0 C==+1 I(C)==+1 IF C<7 THEN FOR B=0 TO C I} DO A=P(B) P(B)=P(B+1) P(B+1)=A OD FI OD A=P(0) P(0)=P(1) P(1)=ARETURNPROC MAIN()BYTE CONSOLE=53279I}DO GRAPHICS(0) POKE(752,1) POSITION(8,0) PRINTE(" 8-QUEENS SOLUTIONS") PRINTE(" BY DAVE OBLAD") FOR A=0 TO 7 DI}O P(A)=A I(A)=0 OD FOR A=0 TO 96 DO T(A)=0 OD D=0 DO TRY() SWAP() FOR A=0 TO 7 DO IF A#P(A) THEN EXIT FI I} OD IF A=8 OR OPT#7 THEN EXIT FI OD IF A=8 THEN POSITION(15,20) PRINTE("COMPLETE") PUTE() PRINTE("PRESS I}Ԡ TO RE-RUN") FI DO UNTIL CONSOLE < 7 ODODRETURNSHINGBYTE ARRAY T(96),P(8),I(8),O(8),M(8)BYTE A,B,C,D,X,Y,L1,L2H;EiͩkΩ͙kCop j`j {j`Hi͝Νh`M}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`L0 ; COARSE SCROLLING, LISTING 110 ; BY MARK ANDREWS20 ; ANTIC PUBLISHING30 ;40 *= $300045 JMP INIT50 ;60 Q}SDMCTL = $022F70 ;80 SDLSTL = $023090 SDLSTH = $02310100 ;0110 COLOR0 = $02C4 ;OS COLOR REGISTER0120 COLOR1 = $02C5Q}0130 COLOR2 = $02C60140 COLOR3 = $02C70150 COLOR4 = $02C80160 ;0170 TCKPTR = $20000180 ;0190 .OPT OBJ0200 ;0210 Q}; DISPLAY LIST DATA0220 ;0230 START0240 LINE1 .SBYTE " ANTIC PRESENTS "0250 LINE2 .SBYTE " "0Q}260 .SBYTE " coarse scrolling "0270 LINE3 .SBYTE " On Your"0280 .SBYTE " Atari "Q}0290 LINE4 .SBYTE " BY (YOUR NAME) "0300 ;0310 ; DISPLAY LIST0320 ;0330 HLST NOP ;('HELLO' LIST)0340 .BYQ}TE $70,$70,$700350 .BYTE $70,$70,$70,$70,$700360 .BYTE $460370 .WORD LINE10380 .BYTE $70,$70,$70,$70,$47Q}0390 SCROLN NOP ;(THIS IS THE LINE WE'LL SCROLL)0400 .WORD $00 ; A BLANK TO BE FILLED IN LATER0410 .BYTE $70Q},$420420 .WORD LINE30430 .BYTE $70,$70,$70,$70,$460440 .WORD LINE40450 .BYTE $70,$70,$70,$70,$700460 Q} .BYTE $410470 .WORD HLST0480 ;0490 ; RUN PROGRAM0500 ;0510 INIT NOP ;PREPARE TO RUN PROGRAM0520 LDA COLQ}OR3 ; SET COLOR REGISTER0530 STA COLOR10540 LDA COLOR40550 STA COLOR20560 ;0570 LDA #0 ; TELL ANTIQ}C WHERE DISPLAY LIST IS0580 STA SDMCTL0590 LDA #HLST&2550600 STA SDLSTL0610 LDA #HLST/2560620 STA SDQ}LSTH0630 LDA #$220640 STA SDMCTL0650 ;0660 ; COARSE-SCROLLING ROUTINE0670 ;0680 LDA #42 ; # OF CHARACTEQ}RS IN SCROLL LINE0690 STA TCKPTR0700 JSR TCKSET0710 ;0720 COARSE0730 LDY TCKPTR ; NUMBER OF CHARACTERS IN SQ}CROLL LINE0740 DEY 0750 BNE SCORSE ; LOOP BACK UNTIL FULL LINE IS SCROLLED0760 LDY #42 ; NUMBER OF CHARACQ}TERS TO SCROLL0770 JSR TCKSET0780 SCORSE NOP ;DO COARSE SCROLL0790 STY TCKPTR0800 INC SCROLN ; LOW BYTEQ} OF ADDRESS0810 BNE LEAP0820 INC SCROLN+1 ; HIGH BYTE OF ADDRESS0830 ;0840 ; DELAY LOOP0850 ;0860 LEAP0870 Q} TYA 0880 PHA ; SAVE Y REGISTER0890 LDX #$FF0900 XLOOP0910 LDY #$800920 YLOOP0925 DEY 0930 Q} BNE YLOOP0940 ;0950 DEX 0960 BNE XLOOP0970 PLA 0980 TAY ; RESTORE Y REG0990 ;1000 JMP COQ}ARSE1010 ;1020 TCKSET1030 LDA #LINE2&2551040 STA SCROLN1050 LDA #LINE2/2561060 STA SCROLN+11070 RTQ}S 1080 *= $02E01090 .WORD INITRK ANDREWS20 ; ANTIC PUBLISHING30 ;40 *= $300045 JMP INIT50 ;60 P*0 ; COARSE SCROLLING, LISTING 210 ; BY MARK ANDREWS20 ; ANTIC PUBLISHING0190 ;0240 LINE1 .BYTE $00,$00,$00,$21,$2E,$34,$2U}9,$23,$000245 .BYTE $30,$32,$25,$33,$25,$2E,$34,$33,$00,$00,$000250 LINE2 .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00U},$000255 .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$000260 .BYTE $00,$00,$00,$00,$63,$6F,$61,$72,$73,$6U}5,$00,$73,$63,$720265 .BYTE $6F,$6C,$6C,$69,$6E,$67,$00,$00,$00,$00,$00,$00,$00,$000270 LINE3 .BYTE $00,$00,$00,$00,$00U},$00,$00,$00,$00,$00,$00,$00,$000275 .BYTE $2F,$6E,$00,$39,$6F,$75,$720280 .BYTE $00,$21,$74,$61,$72,$69,$00,$00,$0U}0,$00,$000285 .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$000290 LINE4 .BYTE $00,$00,$00,$22,$39,$00,$08,$39,$2F,$35,$32029U}5 .BYTE $00,$2E,$21,$2D,$25,$09,$00,$00,$00REWS20 ; ANTIC PUBLISHING0190 ;0240 LINE1 .BYTE $00,$00,$00,$21,$2E,$34,$2T0 WELCOME TO THE ANTIC MONTHLY DISK Most of the Y}programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you Y}refer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscriY}ption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)Y} 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exY}tender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followiY}ng list:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER theY}n RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the filenaY}me..ASM Assembly language source code from Atari Assembler Editor. Must be assembled..M65 Same as .ASM onY}ly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXX.OBJ Machine language object file. Y} Same as .EXE but not 'Load and Go'. Refer to corresponding article..ACT ACTION! source code..SYS ResY}erved for DOS system files..PLT Pilot language, requires Pilot cartridge..LGO Logo language, requires Logo Y} cartridge..TXT Text file. Usually accessed by another program.XXXAll programs from ANTIC issues datedprior Y}to August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wiY}th the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lisY}tings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! Y} -ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK Most of the X"@ST6 E AXLPB0NZ ]} +AdAUuA@'A @9A@K@@]@@7c(]}}uAR@++(#++(#| ANTIC MONTHLY DISK SEP. 1985 |++(#]}(++(# @ -@A $ GG;@]}@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@D:*.* 6,6." ]} 6 @0i6-%@(6.7@<@,A67@ <@ ,..i67@<@]},.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@B:,:7]}<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@,.0$]}@(''7@<@,4FREE@- @ 2() <@F''7@<@,4FREE]}@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| ]} |[ ( |  |\++(#d**(" Select HELP.BAS for]} information.xAR[@@9'-@@#C( FILE NUMBERM A0Q[ B]}P:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@]}%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@]}B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-]}@@"?  LOADING ? A@@91@@5%? BK-@@"- ]} CANNOT RUN 7 @A BK A0D1:MENUOC .TXTA0ENUGRAHPI|DOC......TXT(LP ]}048 (T6 E AXLPB0NZ \02 ; COPY13004 ; BY ERNIE NEGUS06 ; (c) 1985, ANTIC PUBLISHING10 *= $2600 ;ROOM FOR DOS XL20 JMP START30 a}DBUFHI = $0305 ;O.S. EQUATES40 DBUFLO = $0304 ;FOR OS I/O AND50 DAUX2 = $030B ;DIRECT DISK I/O60 DAUX1 = $030Aa}70 DCOMND = $030280 DUNIT = $030190 ICCOM = $03420100 ICBADR = $03440110 ICBLEN = $03480120 ICAUX1 = $034A0130 ICa}AUX2 = $034B0140 CARTR = $A000 ;MESSAGE AREA0150 DES .BYTE "Destination #"0160 FMT .BYTE "Format Destination ?"0170 VERa} .BYTE "Verify Writes ?"0180 STE .BYTE "Continue on Errors ?"0190 RDG .BYTE $9B,"Reading..."0200 WRT .BYTE $9B,"Writing...a}"0210 IND .BYTE $9B,"Insert DESTINATION disk-Press "0220 INS .BYTE "Insert SOURCE in Drive 1-Type "0230 ANC .Ba}YTE $9B,$FD,"Another copy ?"0240 FRM .BYTE $9B,"Formatting..."0250 REM .BYTE "Remove Cartridges First!",$9B0260 O130 .BYTEb} "Program only runs on a 130 XE!!",$9B0270 TIT1 .BYTE $1D," ҠҠŠ",$1D,$9B0280 TIT2 .BYTE " b} By Ernie Negus",$1D,$1D,$1D,$9B0290 KEY .BYTE "K:"0300 SCR .BYTE "S:"0310 SECNT .BYTE 0 ;VARIABLES0320 DEST .BYTE 0b} ;USED BY PROGRAM0330 FRMT .BYTE 00340 SOUR .BYTE 00350 DCOM .BYTE 00360 DTEM .BYTE 00370 SAVA .BYTE 00380 VERI .BYTb}E 00390 SPEC .BYTE 00400 SAVSPE .BYTE 00410 CERR .BYTE 00420 DRIVE .BYTE 00430 BPUT LDA #$26 ;OUTPUT TEXT0440 BPUU STb}A ICBADR+1 ;SUBROUTINE0450 LDA #00460 STA ICBLEN+10470 STX ICBLEN0480 STY ICBADR0490 LDX #00500 b} LDA #$0B0510 STA ICCOM0520 JSR $E4560530 RTS 0540 BGET LDX #$10 ;INPUT BYTE FROM0550 LDA #7 ;KEYb}BOARD SUB.0560 STA ICCOM,X0570 LDA #00580 STA ICBLEN,X0590 STA ICBLEN+1,X0600 JSR $E4560610 STAb} $06000620 CMP #$1B ;ESCAPE RERUNS0630 BNE RET2 ;THE PROGRAM.0640 PLA 0650 PLA 0660 JMP STARTb}0670 RET2 RTS 0680 OPEN LDX #16 ;OPEN CHANNELS0690 LDA #3 ;1 FOR KEYBOARD0700 STA ICCOM,X ;6 FOR SCREEN.0b }710 LDA # KEY0740 STA ICBADR+1,X0750 LDA #40760 STA ICAUX1,X07b }70 JSR $E4560780 LDX #$600790 LDA #30800 STA ICCOM,X0810 LDA # SCR0840 STA ICBADR+1,X0850 LDA #120860 STA ICAUX1,X0870 LDA #00880 STA ICAUX2,X0890 JSR $Eb }4560900 RTS 0910 CLOSE LDX #$10 ;INSURES THOSE0920 LDA #12 ;FILES CLOSED.0930 STA ICCOM,X0940 JSR $b }E4560950 LDX #$600960 LDA #120970 STA ICCOM,X0980 JSR $E4560990 RTS 1000 START LDA CARTR ;THIS IS Ab}1010 INC CARTR ;CARTRIDGE TEST1020 CMP CARTR1030 BNE NOCARTS1040 LDX #251050 LDY # TIT11570 JSR BPUU ;PRINT TITLE1580 LDA #01590 STA SPEC1600 b}LDA #1481610 STA 7101620 STA 7121630 LDA #121640 STA 7091650 LDX #131660 LDY # }3480 DODISK LDA #1273490 STA SECNT ;THIS SUBROUTINE3500 AVOID LDA #$3F ;DOES THE DISK3510 STA DBUFHI ;I/O ANDb?} KEEPS3520 LDA #$80 ;TRACK OF THE3530 STA DBUFLO ;MEMORY POINTERS3540 DOSUP LDA DTEM3550 STA DUNIT3560 b@} LDA DCOM3570 STA DCOMND3580 LOOP CLC 3590 LDA DAUX13600 ADC #13610 STA DAUX13620 LDA DAUX23630 bA} ADC #03640 STA DAUX23650 CLC 3660 JSR INCO ;IT ALSO KEEPS3670 LDA DBUFLO ;TRACK OF THE3680 AbB}DC #$80 ;SECTOR COUNTER.3690 STA DBUFLO3700 LDA DBUFHI3710 ADC #03720 STA DBUFHI3730 JSR $E453 bC};THE O.S. CALL.3740 CPY #13750 BEQ GDIO ;IF ERROR FOUND3760 ERRO JSR RER ;DECODE IT AND3770 STX 11550 bD} ;DISPLAY IT IN3780 LDA CERR3790 CMP #'Y ;STOP ON ERROR3800 BEQ GDIO ;UNLESS TOLD NOT3810 PLA bE} ;TO.3820 PLA 3830 JMP OVER3840 GDIO DEC SECNT ;THE RIGHT PART3850 BNE LOOP ;OF THE DISPLAY3860 RbF}TS ;WINDOW.3870 INCO LDX #33880 LOCO INC 11545,X3890 LDA 11545,X ;INCREMENTS THE3900 CMP #$1A ;SECTOR bG}COUNTER3910 BNE GONE ;IN THE WINDOW.3920 LDA #$103930 STA 11545,X3940 DEX 3950 BNE LOCO3960 GONEbH} LDA DUNIT ;ALSO DISPLAYS3970 CLC ;THE DRIVE3980 ADC #$10 ;CURRENTLY IN3990 STA 11544 ;USE.4000bI} RTS 4010 RER LDX #$10 ;DECODE ERRORS4020 CPY #127 ;NON-IO ERROR4030 BCC RETURN4040 INX 4050 CbJ}PY #128 ;BREAK KEY ABORT4060 BEQ RETURN4070 INX 4080 CPY #138 ;DEVICE TIMEOUT4090 BEQ RETURN4100 bK} INX 4110 CPY #139 ;NO ACKNOWLEDGE4120 BEQ RETURN4130 INX 4140 CPY #140 ;SERIAL BUS DATA4150 bL} BEQ RETURN4160 CPY #142 ;ERRORS.4170 BEQ RETURN4180 CPY #143 ;DITTO4190 BEQ RETURN4200 INX 4bM}210 CPY #144 ;BAD SECTOR/4220 BEQ RETURN ;OPEN DOOR.4230 INX 4240 CPY #145 ;BAD READ VERIFY4250 bN} BEQ RETURN4260 INX 4270 CPY #163 ;DAMAGED DOS4280 BEQ RETURN4290 INX 4300 CPY #164 ;BAD FILEbO} NUMBER4310 BEQ RETURN4320 INX 4330 CPY #173 ;BAD SECTOR4340 BEQ RETURN ;DURING FORMAT.4350 LDX bP}#$10 ;NON-HANDLED ERROR4360 RETURN RTS 4365 ;4370 *= $02E0 ; FOR DOS 24380 .WORD START4390 .END 30 `y0250 ; REV.B TO REV.C CONVERTER0260 ; BY MATTHEW RATCLIFF0270 ; (c) 1985, ANTIC PUBLISHING0280 *= $06000290 .OPTfR} OBJ0300 ;0310 ; PUT CODE INTO PAGE 60320 ;0330 CASINI = $02 ;VECTOR WE WILL STEAL0340 BOOT = $09 ;CASS/DISK BOOfS}T FLAG0350 ; SET BIT 1 AND SYSTEM LOOKS FOR0360 ; POST RESET HANDLER CODE POINTED0370 ; TO BY CASINI VECTOR. THIS IS0380 fT}; HOW RESET ALWAYS GIVES YOU REV.C0390 ; RAM-BASIC.0400 GINTLK = $03FA ;EXTERNAL CART? DO NOTHING0410 RMPNT = $D8 ;RfU}OM/RAM POINTER0420 COUNT = $DA ;BUG FIX COUNT LOC0430 PORTB = $D301 ;CONTROL ROM/RAM THRU HERE0440 BEGBAS = $A000 ;fV}BASIC ROM STARTS HERE0450 ;0460 ; STEAL CASSETTE RESET VECTOR0470 ; AND POINT HERE FOR NEXT RESET.0480 ;0490 STEAL LDA #fW} STEAL ;EVERY TIME RESET IS PRESSED0520 STA CASINI+105fX}30 LDA GINTLK ;EXTERNAL CART?0540 BEQ CNTNU ;IF YES, CONTINUE0550 RTS ; IF NO, ABORT0560 CNTNU LDA fY}# BEGBAS0590 STA RMPNT+10600 BCOPY LDY #fZ}0 ;COPY IT TO RAM0610 LDA PORTB ;BASIC ROM ON PLEASE0620 AND #$FD ;RESET CONTROL BIT=ON0630 STA PORTB f[} ;GOT IT0640 LDA (RMPNT),Y ;GET ROM BYTE0650 PHA ;SAVE IT0660 LDA PORTB ;NOW ENABLE THE RAM INSTEADf\}0670 ORA #$02 ;SET CONTROL BIT=OFF0680 STA PORTB ;ROM OFF, RAM ON0690 PLA ;GET ROM BYTE0700 f]}STA (RMPNT),Y ;RAM VERSION UPDATED0710 INC RMPNT0720 BNE BCOPY0730 INC RMPNT+10740 LDA RMPNT+1 ;DONE COPYf^}ING?0750 CMP #$C0 ;END OF BASIC?0760 BNE BCOPY ;NOT YET!0770 ; NOW GO FIX THE BUGS!0780 FIXBUGS LDX #0 ;BUGf_} TABLE INDEX0790 LDA #12 ;12 BUGS TO FIX0800 STA COUNT0810 FXLOOP LDY #0 ;SETUP RAM POINTERS0820 LDA FXf`}TBL,X ;GET ADDR LO BYTE0830 STA RMPNT ;SETUP RAM POINTER0840 INX 0850 LDA FXTBL,X ;GET ADDR HI BYTE0860 fa} STA RMPNT+10870 INX 0880 LDA FXTBL,X ;GET CORRECT BYTE0890 STA (RMPNT),Y ;TO FIX THE BUG0900 INX fb} ;POINT TO NEXT FIX0910 DEC COUNT0920 BNE FXLOOP0930 LDA BOOT ;ALL DONE WITH FIXED RAM-BASIC0940 ORA #fc}$02 ;RE-HOOK INTO BOOT0950 STA BOOT ;FOR NEXT RESET KEY-PRESS0960 RTS 0970 ;0980 ; ADDRESS,BYTE FIXUP TABLEfd} FOR0990 ; REV.B TO REV.C CONVERSION!1000 ;1010 FXTBL .WORD $A8DF ;ADDRESS1020 .BYTE 234 ;WAS 202, NOW 234 IN REV.Cfe}1030 .WORD $A8E01040 .BYTE 240 ;WAS 2081050 .WORD $A8E11060 .BYTE 17 ;WAS 101070 .WORD $A8E210ff}80 .BYTE 234 ;WAS 961090 ;1100 ; PEEK (43234)=96 FOR REV.B1110 ; THAT IS ADDR $A8E21120 ;1130 .WORD $BB291140fg} .BYTE 0 ;WAS 161150 .WORD $BFF31160 .BYTE 0 ;WAS 441170 .WORD $BFF41180 .BYTE 0 ;WAS 55fh}1190 .WORD $BFF51200 .BYTE 0 ;WAS 1051210 .WORD $BFF61220 .BYTE 0 ;WAS 1101230 .WORD $BFF712fi}40 .BYTE 0 ;WAS 1101250 .WORD $BFF81260 .BYTE 0 ;WAS 1011270 .WORD $BFF91280 .BYTE 0 ;WASfj} 1141290 ;1300 ; ONLY 12 BYTES DIFFERENCE BETWEEN1310 ; REV.B & REV.C!1320 ;1330 .END 0 *= $06000290 .OPTd` ABCADWAI jl} ##̠ŠӠŠ##Ҡàˠӡ##jm}ĠŠ##٠ĠנZ+@%@/0@N@jn}@KZ6-A?6-@6-'6-36-?6- (@ FiD hE Pejo}%%6-P:@$H:@,,%@-@A (.-@@.(@ A b 2-@jp}A <-@(@[]F-@(@[]P-@(@[]R2-@@jq}2(@by brad KershawU'6-6-'6-Z<"@!-@@0(@.<6-@jr}_<"@!-@@0(@.<6-@a<"@!-@@0(@.<6-@js}b-@$@ d6-@i'-@&@'(@ j'-@&@'(@ k'jt}-@&@'(@ n-@(@[]x-@(@[]-@(@ju}[]-@ C-@(@ 3-@%@C(@[]-@ < -@jv}@6@&-8(@[] < -@ C-@%@'(@ 3-@C(@jw}[] 6-3"@6-@'6-36-3"@6-@'6-36-jx}-@ C-@(@ 3-@%@C(@[]-@ 3-@@jy}-/(@ []3 -@ C-@%@'(@ 3-@C(@[] 6jz}-3"@6-@'6-36-3"@6-@'6-36-  A@B-j{}@@5(@WHICH BOX A/B/C ?B)@O>:,4A*"@*-@@;(@YESE Aj|}O A0"O>:,4B*"@*-@@;(@YESE A O A0,O>:,4C*"@*-@j}}@;(@YESE A0O A0@0-@@&(@ NO0 ApJK-@$@ 3j~} @>:A%,A6-&@K @TC-@(@ 3-@&@C(@[]^-@j}A hB -@@6@&->(@ [] [] B m-@A r;-@@j}%-&@7(@ []; |C-@&@'(@ 3-@C(@[] 6-6-6j}-3"@6-@'6-36-3"@6-@'6-36-3"@6-j}@'6-36-6-%@ @ A Apa-@(@ 3-@j}&@C(@[]O-@^(@.a$a-@(@ 3-@&@C(@[]j}O-@^(@.a$ a-@(@ 3-@&@C(@[]O-@^(@.j}a$D:SURPRIZE.BASADWAI h