G@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@WG1  Y0@R !L` D  C D     G)16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`G D  C D     )16CS S)  C)D1 p p }G0 C9DI pCDL~CiCDiD` DD˙` d J)L !}GD L(( LL()  L| L( S LH 0p n  }G CY?  q  L L  ` )}G `A! d߰")-݆ "  $G@LLL&0") $G% } GH0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 } G)8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) } G  hyhyB q L> Lm JJ  Ln*` dB%' } G8  H H` 1 { LL   !L     Hh SY?  q  1L } G  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}G) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}G1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q}G L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF }G G) *Gȩ GȽG GȌd q q G`  8   0G  `D}GCEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}G`piH n0)բY? 08`0 }G  0$L GGȽG L `8L`L}G8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}GE8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE}G H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}G1LJ舩9GIH`LJJ`HGHh l`}G S gL   8 rii `дCDCG W  }C#C  Lq` X٨`DOS( ySYS IIIIIIIIIIIIIIIC`0 ߩ0}}~}C  %|+-3G||DDOS PVDOSDOS[ `SYS sx}~}C}~}C CDOS SYS~}CV 0`BDELV !B }G`LVUQ   ]   TU J ]L!T  #      TU  } G L ? .  t`GBJ V~DEHI B V0dV!}!GQDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}"GDEL8HI   0 HI,0 0  9 .G VLO#}#G,0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$}$G V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%}%G VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}&GSTILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}'GLLu DEHILV 9 .l 9 .l  `` s$B VBH(}(GI|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)})G1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}*C(1i1232435ޥ<<823Z\}}+G 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,},CUPLICATE DISKC. COPY FILE ^K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILEb M. RUN AT ADDRESSF. LOCK F-}-CILE )N. CREATE MEM.SAVG. UNLOCK FILE- RO. DUPLICATE FILEH. WRITE DOS FILESW9!&x#!7&p))'&X*./)L''-؆莟.}.GR'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}/Gil ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}0GJB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}1GN !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}2GI 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3}3CS BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWEDjy COPYING---DN:}4}4C # 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5}5G 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}6GPdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7}7G 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}>G//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}?GD1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@}@G L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}AGP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}BG  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}CGFINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}DG, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}EG0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}FGINSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}GGL1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}HG% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I}IG JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ}JG,A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}KG}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}LGBE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}MGhAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}NGGIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}OG0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}PGA"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}QC?NAME TOO LONG B VL ` L1I H1EӝDL1DEI|mDiE` V0`8d/8 i:"2!22 1R}RG L ERROR- 130ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS}SG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D41uT}TG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D41uUCNU#@##PRINTER HANDLER ROUTINE E*c##ALAN MACY MAY 1, 1983 h*n##}*V}VC*85,6,140,6,143,6,116,143,6,143,6,141,1516,201,155,208,30,169,1332,12,6,169,10,141,151W}WG6,238,152,6,169,56,205152,6,16,10,169,12,141"151,6,169,0,141,152,6,169,4,45,1,211,208,2496173,151,6,X}XG141,0,211,169@254,45,1,211,141,1,211J162,16,202,16,253,169,1T13,1,211,141,1,211,160^1,96,169,251,45,2,211Y}YGh141,2,211,169,255,141,0r211,169,4,13,2,211,141|2,211,169,251,45,3,211141,3,211,169,9,141,1211,169Z}ZG,4,13,3,211,1413,211,169,9,141,1,211169,0,141,152,6,160,196,160,1,96,96,169,1032,12,6,0,0,0,0-[}[CtA6A"  ?F:A,@:P,? #PRINTER ID NOT IN EXPECTED LOCATIONFAz'\}\C A@nFLOCATION OF NEW VECTOR TABLE PRINTER ROUTINES LOADED D:PRINTER.BAS##}*i]CsefnPOWLSTIMNPOSFASDHLTONSTCIKRJMJUMDILJMSCORSLOSFALLOSLABOCHBEGIRRATTIP} ^}^C  !()0189@A HI PQ WY@ `a hipqxy} _}_C #$+,34;<CDKLRT[\bdklstz `}`C ""&*-""*4 >TRACK STARG O*""*[ _6/23i q*(""*w BY JOH a}aCN WEBER *-""* *ANTIC MAGAZINE0 7*2""S*\< A `f AjF P R: b}bC ,"@@Z'@ #%+1'@57=]d** MAIN LOOP **i6-R:cl,6-@pn%!@ c}cC* @ %6-@#s%"@'-)"@19%6-@=Sx }O%6-F:@ Wf,%AV$F:@jq,7-@uy@#} d}dCO(@ P:'@`%,~'P:'@`).,!A2;'' A?L6-%@ PW$+"@ [a)"@ek)"@ot,&@ x$+" e}eC@ )"@)"@",&+!@&,* @08,%+!@<B* @Fq, )!%AYA]/F:%@ u,"A7 f}fC *F:&@ ,"A7Q2 ,AU@04@8>]6-DM?+T:SV,"\`*R:fk, @ou5 Ay?  g}gCA &F:,"A5 A":& A&F:,"@>D AH^& A&F:,dj An& A- h}hC 6-)-@"P- NA8,-A%A!6@Td26 BjpNv--R i}iC: ,"@)R:],"A% A!!*** RIGHT HURDLE JUMP ***G3R:ch,!@lp*R:v, @ j}jCA )GGO TO LEFT HURDLE#6-@-3#-9=@AOF:&,UlA`HF:&%@ p,"A(6 k}kC-@H+&%@ ,@ 1%A(7V&>6-Ap6-@Zb'6-@xfo46-6@s> AP l}lC 1&6-&@-# 16-%@1=6F:,CM 6-&@QW,6-]r6 AE2"@v6-6 m}mC@ & A26--$+-@19?I+6-&@MY F:,_i 6-%@mx @| n}nC"B6-A86-A%'6-@u&/46-6@3L> APB -@PTAX $,*** LEFT JUMP ***1#6 o}oC-@!#-@*6F:&,0GA`;FF:&%@ K\,"A(6-@`jF&%@ nr@v%A( p}pC @/&E>6-Ap6-@3;'6-@x?H46-6@La> APJ1&gq6-%@u# 16 q}qC-&@ O6F:,& 6-%@*0,6-6K6 A5T1"@OW6-@[a% Aek16-qY$h& r}rC%@ +!%AU'& Am-@/:rD@J6-%@NW,F:,]g:6-%@kD Aw s}sC@*|>6-A86-A%'6-@u.746-6@;P> AP*@T\#-@`dAhu' *$y* JUM t}tC PING TOTALS *%@!!,7-@04@u8D )%JT76-%@X$!!*** COMMON SOUND ROUTINE u}uC(** - .4:]$*** CRASH ***@al-@pt@x> v}vC6-A86-A%'6-@u"+46-6@/D> AP&%@ Hl!%AY'& AP@F:%@ ps,"y& w}wC46-%@ @@"2! & R:8=,"@AwAP0$X*** INCREASE POTHOLES ***b#6-} x}xC#-@ @$l*""6@(J 6-AU* A q"6@N$v%%A5 $<<54,247,66,92 y}yCR,144,197,82,170,-1,7,-1,94,82,126,-2,-2,-2*** FALL IN A POTHOLE ***Xb6-%@f=6-Ap6-@% z}zC'6-AP36-@1= AP"@5>' ABM76-@QY#%@@]_eu7%A7@y {}{C 6-%@a  R:"',"@+_A`$ *** TOUCH FLAGS ***%"%@@ctAP*z6 |}|C -4=6-Ah6-@ $8'6-A 36-@ <Q= AP>#"@U[ A_e# AitH&6-@x#% }}}C@@ @&$R"!1$\*6-%@5="@AJ '* ANWf]6-k=6-Ah6- ~}~C@ '6-A 36-@ 2= APp- A6@6-&@DJ-@wNPV_u#6-eu#%A7@yzc }C#-%A%A@K/A3 S-%A%%A3@O_Ac $*** GET RATING *** }C 6-P:,'@` 6-@ +/"@/A)!A@%6-@EZ/ A P/"@^p)!A%%6-@t/ A P }C %!@T"* A0%6-@&1/#!@y59*"?Q* A/6-@Uj& #A -@n"# &$ }C`AATRACK STAR,CLOSE SECOND,STEADY PACE,LEAD FOOT,TWO LEFT FEET*** TITLE PAGE ***! +@d!AV'AVA }C-@ @-(@. ˠA"4EA0f-@IM@QX2(@\t TOTAL LAPS = D-@ x@ }C f(@ TIME = P:'@`$.,--@26@:A-(@E[SCORE =  A _hI-@lp@t*(@ }CǺ<-@@%I(@)43-@8<@#@G3(@KgHIT TO RUN 9-mq@u#-@ }C 9(@>:@%,9-@)-@1B,F:B2y,"@F^/'9 AK )2dhAlp@tx@| }CK2 !,"-@07(@;N " B -@RTZ_6@ck,-@ovB(@z>: }C@,9-@@0,F:B2y,"@4L/'9 A$K )2RVAZ^@bf@jnK2tv| }C )"-@%(@)K " . A5B"%@aOjAG A p @pnK A p }C.$""*** REDEFINE CHARS AND SETUP%;@229,;@=S,%#A +-@W[@2_"'67,.>:,+ EE104, }G104,133,204,104,133,203,104,133,206,104,133,205,162,4,160,0@@177,203,145,205,136,208,249,230,204,230,206,202,208,240,96 }C_ AF:A,&@"*+(<K6-+F:A,%@@,$AV_AV'AV6-?:C:,<BsD<,6 # }CA E%-%@%@)"/3 6$3,3,6,6,7,6,14,17""192,192,96,96,224,96,112,13632,36,36,24,24, }G36,36,41,3,5,9,16,16,16,168,136,126,29,28,20,35,64!!66,255,66,255,66,255,66,255 ""62,63,255,248,126,154,24 }Ch0,63 ""60,120,254,248,254,62,31,255  16,56,56,124,124,254,16,168,24,56,120,8,8,8,8U +@l!AV'AV }C+#A u?-@!\C"QA%U 252,8,194,156,22 7AYbl76-F:@p,%AV$F: }C@,%}6-6-"*'6-@(.436-:B?6-@FLK6-RXW6-^he6-%@alq6-B7`}6- }C3B7a *** DRAW SCREEN ***  #A0P6-9I ""6@Me 6-AU "6@imA@q %% }C@r A0  !!TYPE DATA NUMBERS CAREFULLY \\0,1,2,3,4,5,6,17,18,19,27,28,38,39,48,49,50,59,80,81,95,96,102,103,10 }G4,105,106,114,126 UU127,128,129,130,131,132,133,134,182,183,184,185,186,188,189,202,203,209,210,211 bb222,231,232,233,2 }G51,254,255,-1,1,2,17,19,23,40,41,90,109,110,111,116,117,132,134,135,138,139 88165,184,185,186,203,204,205,206,207,222,223, }C224,-2[-%@ %@!E'A7+ K-%A %AIM@@QnWA7[ I#-%@yr%A9 }C@@'/A73 =#A@@I6--=*""6@Ac 6-AU* A@ "6@gA@P%%A }CP7 A@ ..186,188,207,214,225,-1,88,113,209,220,-2%A7@Tsc#-%A%A@w/ }EC&A3 S-%A%%A3@*E_Ac ?%@IA5+%AUA5?%AVA5) }C-@ @#)(@@TIME: " #APAY@FDs"$ D:TRAKSTARLABOCHBEGIRRATTIP} ZC?12SEMITDRATWFBLPLMMTWRWIJQRYZabijqry}C   $% ,- 45<=DELMTU\]delmtu|}C &M  HOW MANY SPACES?/6-S]6-%@ao#6-/6-@s#$$(PR}C#ESS TRIGGER TO BEGIN RACE.( T:),,"26@`:C2 @@GP< +@T[F'0ae@im@qw'@{P}C '-@ @ #!.' Z T:47,"=NA d @R_n06-F:@ cn,!6-F:@r,06-F:@}C3,x336-+@&p$AV$,%+$@&p,%+'@`7G,}6-P:$AKP,'ATc6-P:'@`gu,6-$@`y }C 6-& @`+A6-&@`/f A`!!  MINUTES  SECONDS  Ajw6-%@{}C&"A A6-%@*5)!@T9C6-%@GO)6-@Sr , Ap T:x,"@}C@ *" A,%6 @Q.>$@6-&@PBMJ @PQs APT A^-,%@w@}C -/%@%@)h$r-,%@-1@5=-/%@AG%@Kd|$ D:TRIGFINGijqrydC ^SSS%&-.56=>EFMNUV]^ef l;;MOUNTAIN SKI}CGING by Andre Persidsky for àś t >:A%,"AR@KQ4-@UY@]wH  Z-@{}C@mq(BY t(aa(XTHE OBJECT OF THIS GAME IS TO PASS THE TREES,ROCKS AND BUSHES WITHOUTt GETTING H}CiIT.;(;(0EVERY TIME YOU HEAR A BEEP, YOU SCORE ONE POINT.(pp(gIF YOU GET MORE THAN 19 POINTS YOUm WILL HAVE REACHE}CD YOUR GOAL. YOUR ASCORE WILL GO BACK TO ZERO 2BB(:BUT YOUE WILL HAVE ONE GOAL WHICH IS EQUAL TO 20 POINTS.<ll dI}C!F YOU CRASH YOU WILL SEE HOW MANY% LEFT OVER POINTS YOU HAVE AND ALSO HOW MANY GOALS YOU REACHED.Fii(aUSE YOUR JOYSTICK }GTO CONTROL THE SKIER WHO IS IN THE MIDDLE OF THE SCREEN TO MOVE LEFT AND RIGHT.PF("(PRESS ANY KEY TO START.4Ad}C AUF@w4Z F:Ad,"AU@8Od (}AR@S`n%%6-F:@ds,%AV$F:@w,x}C0@ 46-%A`6-R::I,(@MZ116-&@^e$+"@in,%@ry$+"@}}C,G'6-%A%P:@@"$H:@&0,,3@r4<G%@@D@tHU6-%@Ya!@%em)6-@q76-%@}CY2 @@ @$,m-@04@8@q 2FHNPVX^i#!@ mu#%@y@}C#!@#%@#@'2!@6< A@M""F:%@@QT,ZmAP%@@qsy }C A@_%2"AU@&*@.69-@:>ABJ= _2PRXZ`bhfA YOU HAVE CRAS}C4HED,YOUR SCORE IS .YOU REACHED GOAL U-@8<A@Y f(>:A%,$$ PRESS TRIGGER TO PLAY AGAIN.%T:}C ,"% A7" A,k6-%@;[)-%A%A 5@_9 S(GOAL  IS REACHED}Cg-@ Abk 6Z >:A%,5 SO FAR YOU HAVE REACHED GOAL B(GOODLUCKV-@fjAnZ @ >:A}C%,J6-6T A D:MTSKIING=>EFMNUV]^ef l;;MOUNTAIN SKI4CL>? CAPLOWINVINLBRDANTIDFNLDRFJJJJSEBYSECBYTVW^_fgnovw}}C  " (* 12 9: ABIJQRYZabijqry}G MICROLOADERA UTILITY FORUSING MICROPAINTER FILES($$BY DAVID MILLIGAN,ESQ. 1/15/83-àś}C2g + AR@+6-A76-A C6-AO6-A[6-Ag6-AY< ApF?}C @T'A4?SETUP COLOR REGISTERSP?%6-F:A`,%AV$F:Aa,?SETUP FIRST DIPLAY LISTZ+%}C@ @q+%@"/d$-%@39%@%=Q$6-F:,n"@U]@an x5-@rtz&(}C& MICROPAINTER5TITLE SCREEN@-@*.@2f(( @USE INVERSE LOWERCASE-@ jn@r(BYE}C-@ @J-( ,.EUSE INVERSE LOWERCASE+-@NR@Vu+(AFTER SCREEN HAS +-@y@}C#+(LOADED,PRESS ANY *-@'+@/M*(KEY TO LOAD THE &-@QU@ Ys&( NEXT SCREEN.*-@w@}C"*( ENTER FILENAME:&&;@ &-,;@218,;@<H,A-@LP@2T"'67,.>:,+ AINSTALL M.L. LOADE}C R-@ @3 6.D: 67B:,%@7C,.A +@GMS_+A#eASETUP MODE "E" D.L.}C.%%6-F:A`,%AV$F:Aa,%@26@x:G-%@KQ%AUi"$ 6-F:,"@mu$@y,}C"@y @x)6 @@4-7J= @;?@CEK* A =LOAD SCREEN DATAT Ap^6}C-?:C:,,h7)@ )@$-*)@1:7)@>r: :MAKE SURE COLORS ARE CORRECT|}CZAdAU F:Ad,"AUAAdAU  %L@^l 6-%@apx,6-@U|}C;@ )LGET COLOR DATA7)@-6)@:C*)@GP7)@T @}CU$E F:A,"AdA`EIF FILE IS APPENDED,LOAD IT ANYWAY@ +[y%(ERROR # F:A,9-}}CA = @%104,162,48,169,7,157,663,165,88,157,68,3,16589,157,69,3,169,0,15772,3,169,30,157,73,}CL332,86,228,96 D:MICROLDRDFNLDRFJJJJSEBYSECBYTVW^_fgnovw}&CUEFLINERCLJIFFDISPLALINLINEDINRESULRLINFINADONBON\^dfmnuv}}C  ! () 01 89 @A HIPQXY`ahipqxy}}C pd ARITHMETRIX by Jerry WhiteiàśnVersion date 5/25/83x:&;@@t,;@}C ,;@ W,0 A: Ap٠śSAR@[e16-P:@ir&B:,'@v,?6-}C%@S @$JA26-A  A`&(>:A%,26-@NY-@]B:,6-%6.7<,4}C+@6., -( $-@/J" ApA -@NPV[6@_c62io@s: > }C*A$Π͛26-086-@<% A ((2 A`"Ԡ͛,6#6-}C@) A # A @6-M:%@-e, A JTĠ͛^h6-@i A r.AR}C /(*AdAU.|I37@37<@;F,0O*7@JN<@R,0E?6-AI A0 4O#A}C%  4E#A06-@)H A - #A@6-@Lk# A - A 27@os<@w,4O}C26-@ $%@ 27@$(<@,9,4E26-@=C$%@G A Ġ͛.6-}C@ A +AR#`.(/ A06-A+AdAU/.6-@d A +AR}C@.(/ A06-A0+AdAU/.6-@DZ A +AR`.(/ A06-AP}C +AdAU/&Y%6-@@$*$%@E.4$%@68D$36-'@`HYH6-+&P:,,$@`]iY6-P:%?mw,0 B{}C5 A :DȠ͛NX%6-@9K A %6-@Ob-6-A (>:A%,#(- A }C+lvȠ͛6-@/Z A >AdAU%6-@^i((46-@m> A }C!ĠƠ͛7 +'yAdAU"(,(BASIC4(IS7ӛC -@}}C 6@<2#'@+?@ C$C -@CEKP6?TX<2^jA@n@ C$}C.A@F:A@,Ap $' +4>'6-P:H:DI,$@MW, ?0@[a@ek+0@ou@y?0}G10 ; CIO SUBROUTINE FOR MICROLOADER20 ; RELOCATABLE CODE30 PLA40 ; OPEN IOCB #350 LDX #$3060 ; SET COMMAND BYTE FOR LO }GAD70 LDA #$0780 STA $0342,X90 ; SETUP BUFFER0100 LDA $580110 STA $0344,X0120 LDA $590130 STA $0345,X0140 LDA # }G$000150 STA $0348,X0160 LDA #$1E0170 STA $0349,X0180 ; JUMP TO CIO VECTOR0190 JSR $E4560200 ; RETURN FROM USR0210 }G RTSCIO SUBROUTINE FOR MICROLOADER20 ; RELOCATABLE CODE30 PLA40 ; OPEN IOCB #350 LDX #$3060 ; SET COMMAND BYTE FOR LO C0200 ; (*00210 ; Q*0220 ; *** SOFTWARE PRINTER INTERFACE **02$}C30 ; *** ALAN MACY 1MAY 21, 1983 **0240 ; ***M q**0250 ; *** THESE ROUTINES ALLOW Av **0260$}C ; *** DIRECT CONNECTION TO A" e**0270 ; *** PRINTER VIA JOYSTICK PORTS **0280 ; *** 1, 2, AND 3.t **0290 ;$}C "**0300 ; K*_0310 ;0320 *=$600i ; PAGE 6 FREE AREA0$}Cc330 .OPT NOEJECT0340 .TITLE "PRINTER INTERFACE MACY MAY 21, 1983"0350 ;0360 ; EQUATE TABLE }*$}C0370 ;0380 PORTA=$D300 =;FOR PORTS 1&20390 PORTB=$D301C b;FOR PORTS 3&40400 PACTL=$D302h ;CONTROL, PORTA0410 $}C PBCTL=$D303 .;CONTROL, PORTB0420 ATCR=1557 Z;ATASCII CARRIAGE RETURN0430 CR=13f ;ASCII CARRIAGE RETURN$}C 0440 LF=10 +;LINE FEED0450 FF=127 N;FORM FEED0460 LPPG=56X ;LINES/PAGE0470 ;0480 ; DEVICE HAND$}CLER VECTOR TABLE *0490 ;0500 .WORD POPEN-1 ;OPEN PRINTER0510 .WORD PCLOS-1 ;CLOSE PRINTER0520 .WORD NOG$}GOT-1 ;GETBYTE0530 .WORD CHOUT-1 ;PUTBYTE0540 .WORD NOGOT-1 ;GETSTAT0550 .WORD NOGOT-10560 ;0570 ; SINGLE CHARAC$}CTER OUTPUT ROUTINE *g0580 ; CHARACTER IN ACCUMULATOR0590 ;0600 CHOUT STA ASAVE0610 CMP #ATCRn ;ATASCII RETURN$}C0620 BNE SEND 7;CHAR=ATAS RETURN?0630 LDA #CR@ X;YES, REPLACE WIT0640 ;h A "REAL ASCII CR"065$}C 0 JSR CHOUT +;USE RECURSION TO0660 ;; ZOUTPUT CR THEN LF0670 LDA #LFc ;A LINEFEED0680 STA ASAV$}CE0690 INC LINNUM C;INCREMENT PAGE LINE NUMBER0700 LDA #LPPGJ h;COMPARE WITH0710 CMP LINNUMn ;LINES/PAGE072$}C 0 BPL SEND 0;IF NOT TO END OF PAGE0730 ;@ YAT PAGE END0740 LDA #FFb ;A FORM FEED0750 STA ASAV$}CE0760 LDA #00 M;RESET LINE NUMBER0770 STA LINNUM0780 SEND LDA # 4R ; CHK BIT 2 TO SEE IF BUSY0790 AND PORTB$}C0800 BNE SEND 4;PRINTER BUSY?0810 LDA ASAVE; \;NO, GET THE CHAR0820 STA PORTAc ;STORE CHAR IN PORT0830 $}CLDA #$FE ;1900840 AND PORTB0850 STA PORTB@ R;STROBE LOW0860 ;c MUST HOLD STROBE LOW0870 $}C; -FOR A BIT TO BE SURE0880 ;> dPRINTER GOT THE MESSAGE0890 LDX #$10l ;DELAY COUNTER0$}C 900 XLOOP DEX 0;COUNT DOWN0910 BPL XLOOP7 Y;CONTINUE UNTIL <=00920 LDA #$01a c; j010930 ORA PORTB0$}C940 STA PORTB ;STROBE HIGH AGAIN0950 ;0960 ; THE STROBE HAS NOW BEEN PULSED0970 ; TELLING THE PRINTER THAT A CHAR0$}C 980 ; MAY BE TAKEN0990 LDY #01) l;SET STATUS=ALL OK1000 RTS1010 ;1020 ; ROUTINE TO OPEN PRINTER |*$}C]1030 ; INVOLVES RECONFIGURING PORTS1040 ;1050 POPEN LDA #$FB ;FIRST PORTA1060 AND PACTLd ;CLEAR BIT 21070 STA PA$}CCTL1080 LDA #$FF L;SET FOR ALL OUTPUT1090 STA PORTA1100 LDA #$04T ;SET BIT 21110 ORA PACTL1120 STA PACT$}CL1130 LDA #$FB T;NOW DO PORTB1140 AND PBCTL1150 STA PBCTL1160 LDA #$09\ ;BITS 0 AND 3 OUT1170 STA PORTB$}C d;BITS 1&2 INPUT1180 LDA #$041190 ORA PBCTL1200 STA PBCTL1210 LDA #$091220 STA PORTBk ;MAKE SURE THAT12$}C30 ; 1INPUT PRIME AND STROBE1240 ;A eARE HIGH TO START WITH1250 LDA #00n ;SET LINE NUMBE$}CR1260 STA LINNUM .;TO ZERO1270 LDY #017 i;STATUS=ALL OK1280 RTS1290 ;1300 PCLOS LDY #01m ;COME HERE FOR C$}C LOSE1310 ; LSET STATUS=ALL OK1320 RTS1330 ;1340 NOGOT RTST ;COME HERE WHEN DON'T HAVE THE ROUTINE13$}C50 ;1360 LDA #LF @;USE THIS FOR TESTING1370 JSR CHOUTG ;IT OUPUTS A LF1380 BRK1390 ;1400 ; STORAGE LOCATI$}CONS *I1410 ;1420 ASAVE .BYTE 01430 LINNUM .BYTE 0Q*0220 ; *** SOFTWARE PRINTER INTERFACE **02$IC0 ; MAXTER MIND20 ;! (BY30 ;. ABOB POLIN40 ;50 ;E pADAPTED FROM60 ; SYNASSEMBLER VERSION70 ;}*)}C *)80 ;*G7810 TO RUN PROGRAM*90 ;?*m0100 .OPT NOLIST0110 *=$78000120 SC=$7000w SCREEN)}C0130 PM=$7000 6PLAYER-MISSILE0140 P0=PM+$400> PLAYER00150 P1=PM+$5000160 P2=PM+$6000170 P3=PM+$7000180 MI)}C SL=PM+$300 MISSILES0190 PMBASE=$D4070200 NMIEN=$D40E0210 CHBASE=$D4090220 WSYNC=$D40A0230 RANDOM=$D20A0240 HPOP0=$)}GD0000250 HPOSP1=$D0010260 HPOSP2=$D0020270 HPOSP3=$D0030280 HPOSM0=$D0040290 SIZEP0=$D0080300 SIZEP2=$D00A0310 SIZEM=$)}GD00C0320 COLPM0=$D0120330 COLPM2=$D0140340 COLPM3=$D0150350 COLPF0=$D0160360 COLPF1=$D0170370 COLPF2=$D0180380 COLPF3=)}G$D0190390 COLBK=$D01A0400 GRACTL=$D01D0410 CONSOL=$D01F0420 RTCLOCK=$140430 VDSLST=$2000440 SDMCTL=$22F0450 SDLSTL=$23)}G00460 STICK0=$2780470 STRIG0=$2840480 COLOR0=$2C40490 COLOR4=$2C80500 PCOLR0=$2C00510 PCOLR1=$2C10520 PCOLR2=$2C20530)}C& PCOLR3=$2C30540 CH=$2FC0550 POS=$B41 GSCREEN POSITION0560 ;X yOF CURRENT ENTRY0570 CSRPOS=$600} )}G CURSOR POSITION0580 COUNTER=$6010590 LINE1=$6020600 LINE2=$6070610 LINE3=$60C0620 LINE4=$6110630 LINE5=$6160640 LIN) } CjE6=$61B0650 LINE7=$6200660 LINE8=$6250670 LINE9=$62A0680 LINE10=$62F0690 LINE11=$6340700 ANSPOS=$639q ANSWER POSIT) } C ION0710 ; 8ON THE SCREEN0720 TRIGV=$63E@ ^TRIGGER VALUE0730 NUMPCK=$63Fe uNUMBER OF0740 ;} ) } C 5PICK (0-4)0750 ANSWER=$6430760 GRNBAR=$648< \NO. OF GRN BARS0770 REDBAR=$649c NO. OF RED BARS0780 VPOSB) } CAR=$64A #VERTICAL POS OF0790 ;4 SRED OR GRN BAR0800 STRTPRS=$FEZ lNON 0=START0810 ;} ) } CBUTTON PRESSED0820 TEMP1=$B0& >TEMPORARY0830 TEMP2=$B1G aCALCULATION0840 TEMP3=$B2j REGISTERS0850 CHSE)}GT .BYTE 0,0,0,0,0,0,0,00860 .BYTE $7C,$FE,$BA,$EE,$BA,$C6,$7C,00870 LDA #00880 STA STRTPRS0890 START LDA #00900 STA )}CSDMCTL :TURN OFF DMA0910 LDX #$7F0920 E STA $600,X@ _CLEAR 1/2 OF0930 STA SC+300,Xd PAGE 6 & PART0940 DEX )}C 5OF SCREEN0950 BPL E0960 LDX #MISL&2559 VCLEAR PLAYER-0970 STX TEMP1^ MISSILE MEMORY0980 LDX #MISL/)}G2560990 STX TEMP21000 LDX #51010 LDY #01020 C STA (TEMP1),Y1030 DEY1040 BNE C1050 INC TEMP21060 DEX1070 BNE )}CC1080 STA COLOR4 2BLACK BKGD1090 LDA #$2A; aYELLOW1100 STA PCOLR31110 LDA #$46j RED1120 STA PCOLR)}C01130 LDA #$C4 >GREEN1140 STA PCOLR11150 LDA #$CAG uLIGHT GREEN1160 STA PCOLR21170 LDA #DL&255{ ST)}CORE ADDRESS1180 STA SDLSTL# OF DISPLAY LIST1190 LDA #DL/2561200 STA SDLSTL+11210 LDA #DLIR1&255 STORE ADDRESS)}C1220 STA VDSLST ZOF DISPLAY LIST1230 LDA #DLIR1/256 INTERRUPT1240 STA VDSLST+1_ ROUTINE #11250 LDA #1661260)}C STA VPOSBAR1270 LDA #192% LENABLE DLI1280 STA NMIEN1290 LDA #3W qENABLE PM1300 STA GRACTLx GRAPH)}CICS1310 STA SIZEM 8QUAD SIZED MISL1320 LDA #62B _ENABLE DMA &1330 STA SDMCTLf PM GRAPHICS1340 LDA #)}C1 &DRAW FACE1350 STA SC+405- JWITH COLOR 01360 STA SC+385Q iCURSOR1370 STA COUNTERo INITIALIZE CNT)}CR1380 LDA #$41 @COLOR 11390 STA SC+4061400 LDA #$81I pCOLOR 21410 STA SC+4071420 LDA #$C1y COLO)}C"R 31430 STA SC+4081440 LDA #13, IDRAW 12 LINES1450 STA TEMP3Q OF FACES1460 LDA #SC+100&255 BLACK AT THI)}CS1470 STA TEMP1 DPOINT1480 LDA #SC+100/2561490 STA TEMP2L k4 ON EACH LINE1500 G DEC TEMP3r USING COLOR)}C S1510 BEQ F 0 TO 31520 LDY #81530 LDX #31540 H LDA IM,X1550 STA (TEMP1),Y1560 DEY1570 DEY1580 DEX)}C31590 BPL H1600 LDA TEMP11610 CLC1620 ADC #20= NEXT LINE1630 STA TEMP11640 BCC G1650 INC TEMP21660 BNE )}CG1670 F LDX #10 1PRINT1680 I LDA MXMND,X6 U"MAXTER MIND"1690 STA SC+44,X[ nON TOP OF1700 DEX| S)}CCREEN1710 BPL I1720 LDA #12) DDRAW 1 FACE1730 STA TEMP3L hON EACH OF 121740 LDY #171q LINES WITH1) } C 750 K LDX #7 PLAYER 31760 J LDA PLIM,X1770 STA P3,Y1780 DEY1790 DEX1800 BPL J1810 DEC TEMP31820 BNE K1)!}!C830 LDY #2081840 LDX #7% =DRAW 41850 D LDA PLIM,XC WFACES1860 STA P0,Y` xAT BOTTOM1870 STA P1,Y} )"}"C OF SCREEN1880 STA P2,Y1890 STA P3,Y1900 DEY1910 DEX1920 BPL D1930 LDA #PM/2561940 STA PMBASE1950 LDA #128)#}#G1960 STA HPOSP31970 LDA #1361980 STA HPOSP11990 LDA #1442000 STA HPOSP22010 STA HPOSM02020 LDA #12030 STA TRI)$}$C,GV2040 LDA #$FF2050 STA POS2060 LDA #47 qPICK ANSWER2070 STA TEMP12080 L LDY #42090 LDA RANDOMx PICK )%}%COCOLORS2100 AND #72110 TAX2120 LDA COLOR,X2130 M CMP ANSWER,Y2140 BEQ L[ oCOLOR EXISTS-2150 ;} )&}&C3 PICK AGAIN2160 DEY2170 BPL M2180 LDX TEMP1; \COLOR DOES NOT2190 STA ANSWER,Xa EXIST-STORE IT2200 DEC TEM)'}'CP12210 BPL L 9PICK NEXT COLOR2220 JSR TIMERA XDELAY2230 LDA STRTPRS^ ySTART GAME IF2240 BNE SRT} )(}(C .<> 02250 N JSR CKSTRT2260 LDA RTCLOCK4 NFLASH PURPLE2270 AND #$FX "MAXTER MIND"2280 ORA #$602290 ST))})C'A COLOR02300 BNE N2310 SRT JSR JOYST, LSUBROUTINE LOOP2320 JSR CKSTRTS pTHAT PLAYS THE2330 JSR MOVEy GAME)*}*CM2340 JSR CLEAR2350 JSR OPT2360 JSR TIMER2370 JMP SRT2380 CALC LDA #0T sCALCULATES THE2390 STA GRNBARz NUM)+}+CBER OF2400 STA REDBAR :CORRECT CHOICES2410 LDX #4E oON EACH LINE2420 LDY POS2430 STY TEMP1w CHECK ),},CHOW MANY2440 O LDY TEMP1 GRN BARS2450 LDA LINE1,Y2460 CMP ANSWER,X2470 BNE P2480 INC GRNBAR2490 P DEC TEMP12)-}-C"500 DEX2510 BPL O2520 LDA #30, HDELAY BEFORE2530 STA TEMP1P PRINTING RESULT2540 Q JSR TIMER2550 DEC TE).}.C2MP12560 BNE Q2570 LDY VPOSBAR2580 LDA GRNBAR9 SPRINT GRN BARS2590 BEQ R_ wFOR CORRECT2600 CMP #1} )/}/C tCOLOR & POS2610 BEQ S2620 CMP #22630 BEQ T2640 CMP #32650 BEQ U2660 CMP #42670 BEQ V2680 LDX #4} )0}0C GRNBAR=52690 W LDA ANSWER,X" BPRINT CORRECT2700 STA ANSPOS,XG mANSWER2710 DEX2720 BPL W2730 INX{ BL)1}1CACKEN2740 STX COLOR0 N"MAXTER MIND"2750 X JSR CKSTRT2760 LDA RTCLOCKT qFLASH TOP OF2770 STA COLOR4x SCREE)2}2CN2780 JMP X2790 S LDA #$40% >1 GRN BAR FOR2800 BNE YJ eEACH CHOICE2810 T LDA #$50m CORRECT IN BOTH)3}3C 2820 BNE Y 0COLOR AND2830 U LDA #$548 POSITION2840 BNE Y2850 V LDA #$552860 Y STA P2+1,Y2870 STA P2+2)4}4C!,Y2880 STA P2+3,Y2890 R LDA #4+ ICHECK HOW MANY2900 STA TEMP2Q RED BARS2910 LDY POS2920 Z LDX #42930 AA)5}5G LDA LINE1,Y2940 CMP ANSWER,X2950 BNE AB2960 INC REDBAR2970 AB DEX2980 BPL AA2990 DEY3000 DEC TEMP23010 BPL Z)6}6CW3020 LDY VPOSBAR3030 LDA REDBAR3040 SEC3050 SBC GRNBAR3060 BEQ AC3070 CMP #1b 1 RED BAR FOR3080 BEQ AD )7}E7C "EACH CHOICE3090 CMP #2- DCORRECT IN3100 BEQ AEO eCOLOR BUT3110 CMP #3p INCORRECT IN)8}8C 3120 BEQ AF FPOSITION3130 CMP #43140 BEQ BA3150 LDA #1Q pUSE MISL0 IF3160 STA MISL+1,Yu 5TH RED )9}9CBAR3170 STA MISL+2,Y NEEDED3180 STA MISL+3,Y3190 BA LDA #$553200 AG STA P0+1,Y3210 STA P0+2,Y3220 STA P0+3,Y32):}:Cs30 AC RTS3240 AD LDA #13250 BNE AG3260 AE LDA #53270 BNE AG3280 AF LDA #$153290 BNE AG3300 OPT LDA CONSOLw CHECK );};CIF OPTION3310 CMP #3! }>CRPLE3490 STA WSYNC 2WAIT TILL HORIZ3500 ;C VBLANK BEFORE3510 ;g CHANGING COLOR3520 S)?}?GTA COLBK3530 LDA #1523540 STA HPOP03550 LDA #CHSET/256 CHARACTER SET3560 STA CHBASE3570 LDA #DLIR2&2553580 LDX )@}@C5#DLIR2/2563590 RESTORE STA VDSLST3600 STX VDSLST+1: QSTORE ADDRESS3610 PLA_ wOF NEXT DLIR &3620 TAX} )A}AC RESTORE3630 PLA' jREGISTERS3640 RTI3650 DLIR2 PHA3660 TXA3670 PHA3680 LDA #0u BLACK36)B}BC^90 STA WSYNC3700 STA COLBK3710 LDX #43720 AJ LDA ANSPOS,X ANSPOS TO3730 STA COLPM3,Xc xANSPOS+4 IS3740 DEX} )C}CC $BLACK (0) TILL3750 BPL AJ/ ANSWER PRINTED3760 LDA #DLIR3&2553770 LDX #DLIR3/2563780 BNE RESTORE379)D}DCf0 DLIR3 PHA3800 TXA3810 PHA3820 LDX #43830 AK LDA LINE11,X LINE11 TO LINE13840 STA COLPM3,Xk ARE ALL BLACK3850)E}EC DEX ,TILL CHOICES3860 BPL AK7 ARE ENTERED3870 LDA #DLIR4&255 ON THEM3880 LDX #DLIR4/2563890 )F}FGJMP RESTORE3900 DLIR4 PHA3910 TXA3920 PHA3930 LDX #43940 AL LDA LINE10,X3950 STA COLPM3,X3960 DEX3970 BPL AL39)G}GG80 LDA #DLIR5&2553990 LDX #DLIR5/2564000 JMP RESTORE4010 DLIR5 PHA4020 TXA4030 PHA4040 LDX #44050 AM LDA LINE9,X)H}HG4060 STA COLPM3,X4070 DEX4080 BPL AM4090 LDA #DLIR6&2554100 LDX #DLIR6/2564110 JMP RESTORE4120 DLIR6 PHA4130 T)I}IGXA4140 PHA4150 LDX #44160 AN LDA LINE8,X4170 STA COLPM3,X4180 DEX4190 BPL AN4200 LDA #DLIR7&2554210 LDX #DLIR7)J}JG/2564220 JMP RESTORE4230 DLIR7 PHA4240 TXA4250 PHA4260 LDX #44270 AO LDA LINE7,X4280 STA COLPM3,X4290 DEX4300 )K}KG BPL AO4310 LDA #DLIR8&2554320 LDX #DLIR8/2564330 JMP RESTORE4340 DLIR8 PHA4350 TXA4360 PHA4370 LDX #44380 AP L)L}LGDA LINE6,X4390 STA COLPM3,X4400 DEX4410 BPL AP4420 LDA #DLIR9&2554430 LDX #DLIR9/2564440 JMP RESTORE4450 DLIR9 P)M}MGHA4460 TXA4470 PHA4480 LDX #44490 AQ LDA LINE5,X4500 STA COLPM3,X4510 DEX4520 BPL AQ4530 LDA #DLIR10&2554540 )N}NG LDX #DLIR10/2564550 JMP RESTORE4560 DLIR10 PHA4570 TXA4580 PHA4590 LDX #44600 AR LDA LINE4,X4610 STA COLPM3,X46)O}OG20 DEX4630 BPL AR4640 LDA #DLIR11&2554650 LDX #DLIR11/2564660 JMP RESTORE4670 DLIR11 PHA4680 TXA4690 PHA4700 )P}PGLDX #44710 AS LDA LINE3,X4720 STA COLPM3,X4730 DEX4740 BPL AS4750 LDA #DLIR12&2554760 LDX #DLIR12/2564770 JMP RE)Q}QGSTORE4780 DLIR12 PHA4790 TXA4800 PHA4810 LDX #44820 AT LDA LINE2,X4830 STA COLPM3,X4840 DEX4850 BPL AT4860 LD)R}RGA #DLIR13&2554870 LDX #DLIR13/2564880 JMP RESTORE4890 DLIR13 PHA4900 TXA4910 PHA4920 LDX #44930 AU LDA LINE1,X49)S}SG40 STA COLPM3,X4950 DEX4960 BPL AU4970 LDA #DLIR14&2554980 LDX #DLIR14/2564990 JMP RESTORE5000 DLIR14 PHA5010 T)T}TCXA5020 PHA5030 LDA #$62$ YPURPLE5040 STA WSYNC5050 STA COLBK5060 LDA #$32b RED5070 STA COLPM05080 )U}UCLDA #$94 BLUE5090 STA COLPM25100 LDA #DLIR15&2555110 LDX #DLIR15/2565120 JMP RESTORE5130 DLIR15 PHA5140 TX)V}VCHA5150 PHA5160 LDA #05170 LDX #1205180 STX HPOP05190 STA SIZEP0O NORMAL SIZE5200 STA SIZEP25210 STA WSYNC5)W}WC220 STA COLBK5230 LDA #$66& UPURPLE (CURSOR)5240 STA COLPF05250 LDA #$2A^ YELLOW5260 STA COLPM35270 L)X}XChDA #DLIR16&2555280 LDX #DLIR16/2565290 JMP RESTORE5300 DLIR16 PHA5310 TXA5320 PHA5330 LDA #$Er WHITE5340 )Y}YC LDX #4 WGRAY5350 STA WSYNC5360 STA COLPF05370 STX COLPF15380 LDA #$12` BROWN5390 STA COLPF25400 )Z}ZCLDA #$36 sRED5410 STA COLPF35420 LDA #DLIR1&2555430 LDX #DLIR1/2565440 JMP RESTORE5450 CKERR LDA #5y CHEC)[}[CK IF 15460 STA TEMP3 6COLOR USED5470 LDY POS@ [TWICE ON THE5480 AV LDA #0d SAME LINE BY5490 STA TE)\}\CMP1 &COMPARING EACH5500 LDA #51 OCOLOR WITH ALL5510 STA TEMP2W rCOLORS ON ITS5520 LDX POS| L)]}]GINE5530 AW LDA LINE1,Y5540 CMP LINE1,X5550 BNE AX5560 INC TEMP15570 AX DEX5580 DEC TEMP25590 BNE AW5600 LDA TEM)^}^CP1 SHOULD=15610 CMP #2* DBECAUSE SAME5620 BCS ERRN COLOR AS ITSELF5630 DEY5640 DEC TEMP35650 )_}_C! BNE AV5660 RTS5670 ERR LDA #4) HDISALLOW ENTRY5680 STA NUMPCKO nBY BACKSPACING5690 STA CONSOLu AND CLIC)`}`CKING5700 LDX POS SPEAKER5710 LDA #05720 STA LINE1,X5730 DEC POS5740 PLA5750 PLA5760 RTS5770 CKSTRT LD)a}aC!A CONSOL CHECK START5780 CMP #6, ]BUTTON5790 BEQ AY5800 RTS5810 AY INC STRTPRSa START PRESSED5820 LDA #$6A)b}bC PURPLE5830 STA COLOR0' "MAX MIND"5840 PLA5850 PLA5860 JMP START5870 MOVE LDA STRIG05880 CMP TRIGV )c}cC BRANCH IF5890 BNE AZ& ?STATUS CHANGE5900 BB RTSK xIN FIRE BUTTON5910 AZ STA TRIGV5920 CMP #1} )d}dC gNOT PRESSED5930 BEQ BB5940 INC NUMPCK5950 LDA NUMPCK5960 CMP #55970 BNE BC5980 LDA #0r COMPLETE LI)e}eCNE5990 STA NUMPCK ENTERED6000 BC INC POS6010 LDX POS6020 LDY CSRPOS6030 LDA COLOR,Y6040 STA LINE1,X6050 LD)f}fCFA NUMPCK6060 BNE BB6070 JSR CKERR6080 JSR CALC6090 LDA VPOSBARL eUPDATE VERTICAL6100 SECs POS FOR NE)g}gCW6110 SBC #8 LLINE6120 STA VPOSBAR6130 LDA POS6140 CMP #$36U qTOTAL NUMBER OF6150 BCS BD| P)q}hCPQddiCb'DOS SYSb*+DUP SYSbUPRINTER BASb>]TRAKSTARBASb TIMEFIREBASbMTSKIINGBASbMICROLDRBASb%ARITHMTXBASjCibMICROLDRASMbPRINTER ASMbyMAXMIND ASMb MAXMIND OBJbAUTOCAS BASb6ALPHARUNBASbLOCOm PLTb MICROLDRLSTkC)bDOSSECT 4THbAUTORUN SYSbMENU0 Hb!RESET LSTb DOCM YTXTb3HELP] `BASlCmCnCoCpCqC"ICKS ALLOWED6160 RTS6170 BD PLA. FLOSE-ALL PICKS6180 PLAT USED UP6190 JMP LANE6200 CLEAR LDA CH )r}rC !CHECK IF SPACE6210 CMP #33+ BAR PRESSED6220 BEQ BE6230 BF RTS6240 BE LDA #2556250 STA CH6260 LDX POS6)s}sC270 LDA NUMPCK 0CANNOT DELETE6280 BEQ BF; IF NEW LINE6290 DEC NUMPCK6300 DEC POS6310 LDA #06320 STA )t}tCELINE1,X6330 RTS6340 JOYST DEC COUNTER CAN MOVE CURSOR6350 BEQ BGP fONCE EVERY6360 BH RTSr 12/60 SECON)u}uC1D6370 BG LDA #126380 STA COUNTER6390 STA $4D; iNO ATTRACT MODE6400 LDA STICK06410 CMP #11s LEFT6420 )v}vC BEQ BI6430 CMP #7 BRIGHT6440 BNE BH6450 INC CSRPOSI 0-7 ALLOWED6460 LDX CSRPOS6470 CPX #86480 BNE )w}wC9BJ6490 DEX6500 LDA #06510 STA SC+385,X6520 LDX #0D cMOVE CORSOR TO6530 STX CSRPOSj LEFTMOST POS6540 B)x}xC1K LDA #16550 STA SC+385,X6560 RTS6570 BJ DEX= XCLEAR PREVIOUS6580 LDA #0c CURSOR POSITION6590 STA )y}yCSC+385,X6600 INX ;MOVE CSR RIGHT6610 BNE BKF 1 POSITION6620 BI DEC CSRPOS6630 BPL BL6640 LDX #0)z}zC &MOVE CURSOR TO6650 LDA #01 RIGHTMOST POS6660 STA SC+385,X6670 LDX #76680 STX CSRPOS6690 BNE BK){}{C6700 BL LDX CSRPOS6710 INX* ECLEAR PREVIOUS6720 LDA #0P CURSOR POSITION6730 STA SC+385,X6740 DEX)|}|CB6750 BPL BK6760 TIMER LDA RTCLOCK DO NOTHING6770 BM CMP RTCLOCKF [FOR 1/606780 BEQ BMf SECOND6790 RTS6800 I)}}}GM .BYTE $C1,$81,$41,16810 ;CHARACTER CODES FOR FACE6820 MXMND .BYTE $2D,$21,$38,$34,$25,$32,0,$2D,$29,$2E,$246830 ;CHAR CO)~}~GDES FOR "MXTR MND"6840 PLIM .BYTE $7C,$FE,$BA,$EE,$BA,$C6,$7C,06850 ;BIT MAP OF FACE6860 COLOR .BYTE $F,4,$12,$36,$32,$2A,)}G$C4,$946870 ;COLORS AVAIBLE6880 DL .BYTE $70,$70,$70,$466890 ;DISPLAY LIST6900 .WORD SC6910 .BYTE 6,6,6,$90,$90,6,$86,)}Cu$866920 .BYTE $86,$86,$86,$86,$86,$86,$86,$866930 .BYTE $86,6,6,$90,$90,6,6,$806940 .BYTE 6,$416950 .WORD DL}*(uCx?}||/,qs*Fčʍ0}1MzJԩЍ -}G>/qqAqqq dpƲ|i },p }wƲТ}tuv-}GwpԩЩЩЍЩ> )}CCư | |) ` | | 2| ~| 1z |LNyHI-}GCHư |ưJHA&&&&C9 |Ly@ PTUvvvCI-}GƱJI8H&### sssUttt``нC9 |LGzHHЍ Щb ԍЩЩx ԩ-}Gxzhh@HH ԍТ9zHH4zLnzHH/zLnzHH*ӢzLnzHH%zLnz-}GHH zLnzHH{LnzHH'{LnzHH<{LnzHH Q{LnzHHf{Ln-}GzHH{{LnzHHb ԍЩ2ЩЩ{LnzHHxЍЍ Ѝ ԍЩfЩ*Щ{LnzHH ԍЎЩЩ6ЩMzLnz-}GƱƲ`?Цƴhh``jhhLx>`>???洦}-}G? { cyJ8J6`hhL9z!`??ƴ`` Mx (ʩqq`ʩq-}CNqޮqҥ`A-!84%2-).$||62*ĔpppFpYA}xJԩЍ ,jC: MLSTARMLENSU)*129:ABHd22AUTOCAS.BAS REV 1.0 - 06/12/83àśn11}C +@ B7t@d!1@%)@d-6x*-@:>@BI* @M`%-@dh@ls% @wBY1}C1-@ @1 @9ERIC VERHEIDEN&-@=A@EL& @P_AND0-@cg@kr0 @v CARL1}C M. EVANS=-@@ %3 @)8:AS,?$ D:AUTOCAS.BAS- 06/12/83àśn10aCxjk);STLMOCHHPTBTILGNNLLTITTIGTCNTIMWWTIMEPADTIXYSCARHEOGNBBBPTNNNLTIM}5}C %&-.56=>EF MN UV ]^ ef mnuv}5}C  !()0189@AHIPQXY`ahipqxy}5}C !"##$$+,%34&;<'CD(Jy''** ALPHA RUN ** ANTIC MAGAZINE **%6-}5}C 6-@% A`4 * AF:A,&@8>*+@BK3-@OS@W^3(@bplease stand by.$$6-5}C+F:A,%@%,$AV.-+UA#*%F:BsD%,. 26-@Yk A0%6-@$o/ A0;65}C-@2E A0Q6-@@_[ A0g6-AVq A0}6-A A0<#6-@c A0# A5,5}C- @<"%%%) ,$ AP6-BJ6-B NW +@[a-@ei@mt:(@x PU5}CSH JOYSTICKL-@@$e(@(< FORWARD FORw-@@D@HO(@Sj %-@ nr@v%(@5}Cor-@@%0(@)? PULL JOYSTICKB-@CG@KRX(@VgBACK FORj-@ko@ s(@5}C  R: %,@):ARRR:@E,"@IQ$6-@&U]06-@ai<6-@ muH6-@ yR 5}CApRR:,"@2$6-A#06-@6><6-@&BJH6-@pNnR Ap AU.-@rv@z.(5}C@ Š %-@ #'@+2%(@6Dor0-@HL@ PW0(@[t Π R:z,5}C@AFR:","@&.$6-At2:06-Av>F<6-@J]F ARR:ch,"@lt$6-Asx06-5}C<6-AuH6-??R A AE6-EK6-QW'6-]i-6-96-ouE6-{5}C! +@ *!AV'AVs-@.2@ 6F-+6-%@JQA(@U[>:@B_j,E Q"px]6-@|5}Ci6- s A6-$*6-0;s-@?C@GT-3(@X^>:@Bbm,A6-%@qE Q"5}C ]6-@i6-1s A,G-@59@=P"#-9 @Ti>:A$,= G#Bmv6+-@z@5}C +(@$>:Ac,@ A(7 '6-@;C6-@GO'6-@S\ R:bg,"@kAPT 6-%5}C @  '6-#<R:).,"@2:P-@>B@FUT --@Y]@ ak -@woqw!65}C-R: ,!6-T:$,:R:*/,"@37:2=IAU@MQ@U^&:R:di,@mq:2w@p5}C@ @E"@!'*"At+/;257=?EGMSE AWbE"@fl*"Aspt;2z5}C E A*I"@.66-@:@% A0DN36-&@Rd?6-AaI A@hs="@w A05}C'6-%@$36-Ac= A@(3="@7= A0AK'6-&@Oa36-Ad= A@ep="@t A05}C '6-%@!36-Ae= A@%. A2B  - @FV $"T:\_,"ek" Apo 15}C'"A$*" AP ' A$3 " A7B@2FL A`P` - @d>:,$w - @5}C >:@ ,3-@@"(U2@,0@@48@<@@DJw2@NR@pVZ@^b@fs\ )2@wy}5}C K2@$&,.4>Y6-%@BR\$|-&@V]' @ag>:@kt,;-@x@5}C ]2@ @P@!@%/a 2@35;=CEKU6-%@Ye$pI A`im/2su{5}CC-@@">I"u 1z3"@2BN "@RX)#B\b3 Aafv{ -(@z>:5}C@,3-@@"U2@&*@@.2@6:@>Dw2@HL@0PT@X\@`m{ j%2@qsy5}C G2@ &(.;M-\(@?M ` j#BQi !6-J +@ms-@wy}5}C 6(@ ! J"At%6AX-@:>@BI+(@M^Ž=-@bf@jqX(@u 5}C'6-"@ #+'6-@ /:"@&>F6-@pJb AX-@fj@nr@vC25}C@p &@@)G [-@-1@59}2?C@PGK@OS@Wf ]"@jt6-&@xb5}C"@ 6-%@#l"@'16-&@5@v"@DN6-%@R]"Atak6-%@o$F-@5}C @ .(@-͠ԽC(@1G PTS=F$--@KO@SZ*(@^Ž-$L_ 6-&-@5}C@ ,(@  >-@ $(@,3K(@7?_"EIA`MdV$- 6-%-@hl@pw*(@{5}C-$@w6-%@%-@ $@(.G2@26@0:>@BF@JTK m2@XZ`bhjpvw AEz(#5}C 6--@!2#G%6-P:@%+$H:@/5,,%@9CG6-P:@ GM$H:@QW,,%@[q<# 1F#@2uA5}CP#4 -(@#>:,'6-%@'=+ 16-4$#@ +@AG-@KO@SZ4(@^Ž: @6-#"5}CB A#/-@@#*/(@.F #h-@JN@RY5(@]xpush joystick for-G-@|5}C@h(@1ward for SAME GAME.#b-@59@ =D5(@Hcpull joystick backG-@gk@ovb(@z 5}Cfor NEW GAME.# R:!,@%6A%# R:<A,"@EVA# R:\a,"@eA@# A0#5}CE"@ 6-%@&%-6-&@*29"@6>E6-@ BM#E"@&Q[6-%@0_k%-6-&@ow9"@0{E5}C6-@5 $ A"$ +@$*-@.2@6=6(@AS H-@ W[@_fX(@jubyj-@y@5}C (@@ 堠,$AV'AVT$}-@DHALT --Z^@biC(@m>:Ac,e2@5}CAU@@%y-@)>AP} Y$%%2@BF@pJN@RV@Zc^$6-iq6-@u/-@5}C@ 5-D(@+ R6-%@/<X-n(@@S>:Ac,-@W[@0_r  h$-@v@ 5}C"#-9(@>:@"+,M-@/3@7=o2@AE@@IM@QU@Y_2@cg@0ko@sw@{5}C r$c%2@!'-G2@139;ACIVM-\(@Z ` c$&%YY24,90,126,90,24,215}G9,255,219,224,238,68,255,255,68,238,224,7,119,34,255,255,34,119,7:%!!219,255,219,24,90,126,90,24D%^^60,126,255,255,255,255}G5,126,60,146,84,40,149,40,84,146,17,255,255,255,255,255,255,255,255%^^5,2,6,2,7,2,8,2,9,2,11,2,12,2,13,2,9,5,10,5,4,8,5,8,5}Cx6,8,7,8,8,8,11,8,12,8,13,8,14,8,15,8'114,3,4,8,7,4,7,6,11,4,11,6,9,8,9,2,15,3,15,8 D:ALPHARUNBPTNNNLTIM}4hG10 R:LOCOMOTIVE20 R:ANTIC OCTOBER, 198330 R:40 J:*MAINLINE100 *TRAIN110 C(#M=25)+(#M=4):#R=#R+1120 C(#M=25)+(#M=4):#D=#9}C`D*-1130 C:#M=#M+#D140 C(#R=20):#R=0150 C:@B82=#M160 C:@B84=#R170 J(#D<0):*TRAINRIGHT180 T:h [8 BLANKS190 T: ```9}C` [200 T:  [210 T: ". [220 T: 2`R [230 E:240 *TRAINRIGHT250 T:[ n[9 BLANKS260 T: r` [REM270 9}ECT:  [REM280 T: , [REM290 T: 0`Z [REM300 R:INCLUDE BLANKS & REMARK SIGNa AFTER GRAPHIC ... THEY HOLD 9}GSPACES!310 E:1000 R:1010 *MAINLINE1020 U:*STARTUP1030 *LOCO11040 C:#L=1500 [LOUDNESS VALUE1050 *LOCO21060 C:@B53761=(9}G#L-#X)/1001070 C:#L=#L-#X1080 J(#L>400):*LOCO21090 C(#X<150):#X=#X+11100 C:#Z=#Z-11110 J(#Z=0):*LOCO31120 U:*TRAIN11309}G J:*LOCO11140 *LOCO31150 PA:601160 U:*WHISTLE1170 PA:601180 C:@B82=2[RESTORES LEFT MARGIN1190 E:2000 R:2010 *WHISTLE9}G2020 C:#W=3 [NUMBER OF WHISTLES2030 *WHISTLE12040 C:@B53762=40 [FREQ. VOICE 12050 C:@B53764=10 [FREQ. VOICE 22060 C:@B5379}G66=90 [FREQ. VOICE 32070 C:@B53763=160+10[CNTRL VOICE 12080 C:@B53765=160+8 [CNTRL VOICE 22090 C:@B53767=160+10[CNTRL VOIC9}GE 32100 PA:502110 C:@B53763=1602120 C:@B53765=1602130 C:@B53767=1602140 PA:352150 C:#W=#W-12160 E(#W=0):2170 J:*WHIST9}GLE13000 R:3010 *STARTUP3020 R: THESE VARIABLES POSITION TRAIN3030 C:#M=5 [LEFT MARGIN LOCATION3040 C:#R=5 [ROW NUMBER309}CK50 C:#D=1 [DIRECTION 1=LEFT,-1=RIGHT3060 R: THESE VARIABLES CONTROL SOUNDSS AND NUMBER OF PUFFS3070 C:#Z=188 [NUMBER 9}GOF PUFFS3080 C:#X=15 [DECREASES LOUDNESS3090 C:@B53760=15[ FREQUENCY, VOICE 03100 C:@B53761=3 [CNTRL VOICE 03110 U:*TRAIN9}G3120 PA:1203130 U:*WHISTLE3140 PA:303150 E:0 J:*MAINLINE100 *TRAIN110 C(#M=25)+(#M=4):#R=#R+1120 C(#M=25)+(#M=4):#D=#80G10 REM ENTER THIS SUBROUTINE20 REM TO YOUR PROGRAM AND30 REM CHANGE FN$ ON LINE 30040 TO40 REM YOUR MICROPAINTER FILENAME=}C30 CAPS=708:LOWC=709:INVC=710:INLC=711:BRDR=712:ANTIC=55930010 TRAP 3024030020 DIM FN$(20),LDR$(32)30030 FOR I=1 TO 32:=}GREAD A:LDR$(I)=CHR$(A):NEXT I:REM INSTALL M.L. LOADER30040 FN$="D:TEST1"30050 GRAPHICS 10:POKE ANTIC,0:POKE 623,030060 DL==}GPEEK(560)+256*PEEK(561)30070 POKE DL+3,7830080 FOR I=DL+6 TO DL+20030090 A=PEEK(I):IF A=15 THEN POKE I,1430100 IF A=79 TH=}GEN POKE I,7830110 NEXT I30120 POKE ANTIC,3430130 OPEN #3,4,0,FN$:GOSUB 3019030140 TRAP 3024030150 X=USR(ADR(LDR$))30160=}G GET #3,J1:GET #3,J2:GET #3,J3:GET #3,J430170 POKE BRDR,J1:POKE CAPS,J2:POKE LOWC,J3:POKE INVC,J430180 RETURN 30190 NOTE #=}G3,SEC,BYT:SECT=SEC+61:BYTE=55:POINT #3,SECT,BYTE30210 GET #3,J1:GET #3,J2:GET #3,J3:GET #3,J430220 POKE BRDR,J1:POKE CAPS,J=}G2:POKE LOWC,J3:POKE INVC,J430230 POINT #3,SEC,BYT:RETURN 30240 IF PEEK(195)=164 THEN 3023030250 ? "ERROR # ";PEEK(195):FOR=}G T=0 TO 200:NEXT T:RUN 31000 DATA 104,162,48,169,7,157,6631010 DATA 3,165,88,157,68,3,16531020 DATA 89,157,69,3,169,0,157=}G31030 DATA 72,3,169,30,157,73,331040 DATA 32,86,228,966631010 DATA 3,165,88,157,68,3,16531020 DATA 89,157,69,3,169,0,157<8C@ @*$4C(/6."ENTER THE RESULT THEN PRESS RETURN9 ApC AP>@($6.I DON'T UNDERSTAND THAT}C8. Ap8 AP<@ H A R;AR>u(" A04AdAU8;$\EAR@y(}C;( @PRESS START TO CONTINUEE A@f F:B2y,@D`App F:B2y,"@dAz  $ }CA A $M6-6@#q66.Select a positive whole number.@ ApJ A@M$!AR@u!A }C@7(*( FYOUR ORIGINAL NUMBER IS 4 A`7$5(((L YOUR FINAL RESULT IS 2 A`5$}G٠ ARITHMETRIX by Jerry White((This program will demonstrate five))simple number tricks. In each}G case&&you will choose a positive wholenumber and write it down.&&The program will ask you to make%%calcula}Gtions and enter results.((ARITHMETRIX will then give you the$&&value of your original number or.''the results of yo}Gur calculations.8Multiply (your number+1)Bby (your number-1).L$$Multiply your number by 3 thenV++tell me if t}Ghe result is Odd or Even.`++Add 1 to the result then divide by 2.j!!Divide the new result by 2@t multiply by 3@ sub}Gtract 6@~then divide by 9.Disregard any remainder.##This time your number must beless than 60.++Divi}Gde your original number by 3 thenenter the remainder.++Divide your original number by 4 thenenter the remaind}Ger.++Divide your original number by 5 thenenter the remainder.**This time you must use a three digit))numbe}Gr. The difference between the**first and last digit must be greater((than 1. Reverse the order of your ""number }Gand label it RESULT1.&&Find the difference between your&&original number and RESULT1@ and(++label it RESULT2. Rev}Gerse the digits2''of RESULT2@ and label it RESULT3.<Add RESULT2 to RESULT3F then press the RETURN key.P,,Multi}Gply your number by 6 then add 36.Z**Divide the result by 2@ and label itd&&RESULT1. Multiply your originaln((number}Cn by 3@ and label it RESULT2.x##Subtract RESULT2 from RESULT1then press the RETURN keyD:ARITHuv}nCTScr # 5 ( DOS TO FORTH ) 0 VARIABLE DEST 2 ALLOT : MOVEIT ( ADDR. -- ADDR.)Z tDUP DUP 127 + C@ DUP Scr # 6 ( DOS TO FORTH ) : CHAIN ( FORTH.SECTOR.# -- )s yBEGIN} B}C BLOCK MOVEIT 1NEXTSECTOR DUP -1 =7 dUNTIL DROP ; : ?RETURN ." PRESS RETURN."j BEGIN KEY 155 = UNTB}CIL ;# -->Scr # 7 ( DOS TO FORTH .. GETFONT) : GETFONT ( DOS.SECT.# FORTH.SCREEN.# -- )B}C 4 * SWAP 1- PAD DEST !% @CR ." INSERT SOURCE DISK."F N?RETURNT ZCHAIN` CR ." INSERT DEST. DISK." B}C ?RETURN +1024 0 DO 1+ DUP 1- BLOCK1 HPAD I + SWAP 128 CMOVEN dUPDATE 128 +LOOP DROPj rFLUSH ;} B}C X-->Scr # 8 ( VERSAWRITER PICTURE FETCH ) : BLANKSCREEN ( -- )] s0 0 0 SE. 1 0 0 SE.x 2 0 0B}C- SE. 4 0 0 SE. ; : GR8CLRS ( ADDR. -- )3 JDUP 4 + C@ 1 0 ROT SE.P [DUP 6 + C@a mSWAP 5 + C@s 2DUP 2 Scr # 9 ( VERSAWRITER PICTURE FETCH ) : GR7CLRS ( ADDR. -- )B}C DUP 4 + C@ OVER 7 + C@ 0- 6Scr # 10 ( VERSAWRITER PICTURE FETCH ) : VERSA@ ( GR.MODE DOS.SECTOR.# -- )^ w1- SWAP GR. BLANKSCREEN} B } C88 @ 14 - DEST ! CHAIN# 6( NOW GET COLORS )< V88 @ 14 - DUP 3 + C@ 30 =\ _IFh pGR8CLRSv ELSE B } C GR7CLRS ENDIF ;# 6( NOW GET COLORS )< V88 @ 14 - DUP 3 + C@ 30 =\ _IFh pGR8CLRSv ELSE @ C%J WELCOME TO THE ANTIC MONTHLY DISK n Most of the R#}CoEiͩkΩ͙kCop j`j {j`Hi͝Νh`}F}CoL"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`}DC#l  AXLPB0NZ*,24;<CDKLRTZ\bdkl st |J}C + $AdAU0@(*04@8>70@BDJN@RXQ0@\^dh@lrc@v@J}Cu@ @7'{(}AR@+4++(#U++(#| ANTIC MONTHLY DISK OCT. 198J}C 3 |++(#.8++(#Yc @ gr-@vAJ}C $ GG;@@,;@ "),;@@-4,;A8?,;@CJ,;@@Nh, "D1:MENU" &&@lp@tv|J}CD:*.* 6,6."3 96 @0=Ji6-%@NX(6.7@\`<@dm,A67@ qu<@ y,.J}C .i67@ <@,.7@ $<@(A,3 6.|67B:,%@EU,.367B:,%@Yg,.G67@ko<@s,.(--J}C@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@J}C,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@J}C<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+J}C+(#|& 0|[ ( |8 = F P|\++(#qd-(-("J}C1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM J}CA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@J}C<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.J}C0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?J}C AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? BzJ } CK-@ @"-  0CANNOT RUN 7 @4:A B>\K A0D1:MENU.bdkl st |HY!G0 DIM RESET$(60)1 RESET$(1,49)="} TR U N   JL"2 I=ADR(RESET$):H=INT(I/256):L=I-H*256:PON"}"GKE 12,L:POKE 13,H:POKE 842,12:GRAPHICS 0TR U N   JL"2 I=ADR(RESET$):H=INT(I/256):L=I-H*256:POL)#Gprograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you R$}$Grefer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscriR%}%Gption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)R&}&C 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exR'}'Gtender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followiR(}(C4ng list:XXX.BAS BASIC saved program, use menu; sRUN or LOAD and RUN..LST BASIC listed program, ENTERz theR)})C*n RUN..EXE Assembly language 'Load and1 NGo' file. Remove BASIC, bootU pDOS, type L then enter thew filenaR*}*C)me..ASM Assembly language source code0 Mfrom Atari Assembler Editor.T Must be assembled..M65 Same as .ASM onR+}+CRly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXXV.OBJ Machine language object file. R,},C $Same as .EXE but not 'Load and+ GGo'. Refer to correspondingN article..ACT ACTION! source code..SYS ResR-}-CBerved for DOS system files..PLT Pilot language, requires PilotI xcartridge..LGO Logo language, requires Logo} R.}.C0 cartridge..TXT Text file. Usually accessed7 Nby another program.XXXRAll programs from ANTIC issues datedprior R/}/Gto August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wiR0}0Gth the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lisR1}1Cytings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! } R2}2C J-ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK n Most of the P"3CiwLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTV4}4C A (@)2lB:,!@-5-7@9=<@AT,4XXX0(3(E-@X\@"`X( ӠΠ\b(}V5}5Cl @@ <( @@%da@)/ B39*-@=A@"ER("ΠҠՠҠˠҠVa%D:MENUV6}6CD:HELPLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTT7C8C9C:C;C<C=C>C?C@CACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYCZC[C\C]C^C_C`CaCbCcCdCeCfCgChCiCjCkClCmCnCoCpCqCrCsCtCuCvCwCxCyCzC{C|C}C~CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE