@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}NjL= ( 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}Ǡ}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}G,^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}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?@D|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 139ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}rDECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8wuR}r ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8wuVPP PTU PSetting Up ATARI 130XE RAMDisk U PRAMDisk Not Formatted! [ U P   T} P@BDPEJK V@C08? PiLPhPhPPP PLPPHPH`HI BLV P}`@U} BLVDPQ8:DUP.SYSPK V@C08? PiLPhPhPPP PLPPHPH`HI BLV P}`@yzZERWOTWTRFOUPRMEKAFILEHELPMENUTITLECOL1COL2COL3LINEZLOSPACFNNCOLNSPSOOPPPAGOEPW} COLIN$%,-45<=DELMSU [] ce km su {X} '(/078?@GHOPWX_`ghopwx}Y}  !"#"*+#23$:;%CY99ԠŠf SAVE "D:NEWSLTR.BASdmZ}C(m報à- rӠįί̠ŠǭԠ̮ 6-x6-}[&2|Vol: 8 <--|| _}g  ||  || Atari User Group Inc.(c)1985 |***l Alex Pignato, Pre `}sident ****** .3376 Ocean Harbor Drive3 :******? VOceanside, N.Y. 11572[ `***} a}3|Charter Member NEAR*US ATARI USER Gp.||? M㮠X [|} b}} # "#eSAVE "D:GEMCODE5.BAS Z (}I(;ŵ-ؠϠn ΠΠҠd}ҡZ3>:@',=p+(#USE PROGRAM TO SET UP A GEMINI 10-Xp(@PRINTER BEFORE USING SYNCALC OR OTHER PROGRAM (e}Ӡ)--(%May work on Π printers$!(1 TO TURN OFF ALL OPTIONS$((%(2 TO TURN ON COMPRESSED PRf}INT((('$(3 TO TURN ON EMPHASIZED NODE'(2%"(4 TO TURN ON DOUBLE STRIKE%(<0-(%5 TO TURN ON DOUBLE STRIKE, CONDENSg}ED0(F0-(%6 TO TURN ON DOUBLE STRIKE,EMPHASIZED0(P-*("7 TO TURN ON DOUBLE STRIKE, NORMAL-(U%"(8 TO TURN ON ITALICh}7S MODE:%(W%%(9 TO TURN ON UNDERLINED MODE:Z'$(; _10 ϠԠԠš'(d-@cg@"ke INPUT Ni} n__AA A0"A@&*AP.2A`6:Ap>BAFJANRBVgB Aky$a3>:@}j},FH23>:@',>:@S"+,U3>:@'/6,>:@E:?,>:Eg,^(a$'3FH>:@kr,$ Bv'$ 'k} 3H>:@,E$ B 3'$ 3G A7O$'3FG>:@SZ,$ B^v'$p3GE Bz$l}CX'3G>:@ ,F$ B$2'$@(3>:@'6=,>:@RAH,% BLZ($(#3&3>:@'^e,>:@Eip,>:@t,0 Bm}mZ3$'"3 This is a sample line."$D:GEMCODE5.BASa sample line."$(#3&3>:@'^e,>:@Eip,>:@t,0 BNb0f9 0 DDE} 8wY8`Xp0Yq0T001L0H 0ҍh@ppB`tB@A4o}NT0 8֠8 8 y8'S@A0ԩ2̍ 8}Init DiskV rUpdate V2.XName Inputy R4p}feturn to DOSChange Headline Boot Disk d4781 <1H;1HLy8F15~448v 8 y8 8} jwԠ{4q}WHICH FORMAT ? -SD -MD -DD 8X48133 332322 8Headline: 3 84r} R5Ly0 8Formatting... @ԩ",3p ^32 Y 8Ly0!H ^3h 1N 3 84s}ǒH<3hN攊 5x_LM!5yM 2h   3L0 ^33 ,3JHJIiH ʎ $0 }4t}3 3 3Ɣ`O2 T@3$303Y++   }3S4u}Ǎ S0) 33`R@P1 ,30 2 Y 8Ly0mm  `"S4v}TXizYiHI B d4ɜ}*0ɛ; VUSީ]SUޤԢ VUSв 84w}` 8Ly0y4` 4 8}ŠŠNew Name: 3 8/ 8 R5'w`M 2L04x}3@ 2 u5wM``Ly0 8}ŠϠ̭ĠĠ7 R5 H3 ,3J LN  }3 3Ɣ z5 5 2Ly0@4y}Ǎ 8OK --> N/J d4N`HyMݎ5` 8Ly030%2A_@HAIBJCKDL4z}` 8} ŠԠ 4i  R }3I  m 6 [6 C6 6 R5 7 2L0O`Pa4{}Qb`OM^_i(`OPQO!;Ȋȩ=1 i(`4|}ORXizYiA~MbL7TU 8Filename:  8 . 8LȱL4}}ɮ # 8 3# C6i(~MiiTL6~MBL0iJ8M`M4~}G`~M!ȄB ^ei(é_`l J8i(`|ȑƲƲ|4}Dz8(Q`ZP`ieRș`P`ĴȩE`CP```x汦c`w``hh 8L8l 8Ly04}HH`%H$H`30%%$ 34!24).)4)!,):%2PPQVWTUZ[ o280<':0# LMrspqvwc'(U2OP 4} Z,.4*+beCiZ m<="# !&'5w@D dAA Y䩀23J48A9 G04E22038`x5 6(4}Ǎҩ҅04Ӣ# 11 ҩR &8 &9 &1 &)  1 2 :4 1 056ЗҥX0`) 4}ҩ ҭҍ ) έ `  &'L\ < D(ҩ`ҍ ҩ8`)ҩҊ e1i1`?@P5}aN) !"`3!3FE-@"JV( Selection: ]6.2/ )/+"AU)"}GA&,*4A07"AUA`9."A&*B:,"6.$*. A0:0"A&6.7:,*2B:,"@"@A` A0/ +@DQ-/(@UqTURN DISK OVER/-@u/(@}nTHEN PRESS ANY KEY5AdAU)& A05% D:PROG.BASo+A%A @rx7-@|}@'Q(NO PROGRAM THIS MONTHc-@+/@3oARB'(FLIP DISK AGAIN AND PRESS A KEY1 A08)B A}6 (}-@ @ K6( What's Your Pleasure?_B7t@dOU'@Y]@dag9-@ko@sX(en}'u rint ead: _)8"@w+7((.(= FMain MenuJ._8 A"@cgAPkv8"@z(} (.( Read File."8 AF&.-B:,6. D1:**.TXT.67<,.7<,F A"@A )}5@ <(}F A5Lp  A4F:A,"A6*@PT@@Xm4 A5P**"@eq*F:A,"} ApA!`pA @$,4@e0O*F:A,"Ap:(}L-@SW@[p(Not In This Months News Lette} r! AF AF4! A!` TA @8F'A@hJQT((} Wr짠w 00(};( à aB7t@d?E'@IM@dQX4@\h8(D@wlaF:Ad,"}AFA5P F:@", @"&A5  E(3(' 堒EAdAU ''F:A}d,"AU*T:,"A5@ %AdAU(}% A5 ZAdAU(0(Z($Press }Oa Key or Trigger for Next File ''F:Ad,"AU*T:,"A5` *@SW@@['AdAU*$NA }.%6.D1:PRESSPRT.MNU*5G@26@@:N(}((6-C:hhhhh Ȅԩ`,!A@h}C@!A " A@`(" A@@A @DUQB7t@dY_'@cg@dkq9-@uy@ }}#J( Selection: Q)!!"@i'-)"@e15AH9D"@xHLACP[,"@c_w' A@@{}A@TK AD?(}3D1:PRESSPRT.HLP= A5CIG A@M\KÛC6-@f`h6-@Vl!6-'6-36-}@96-C AIy0S6-F:A,"A6E(! Viewing Complete Press Any KeyL)O$SÛDU (}-@}}@>'"A8K(Your Printer is Not On Line...U AFBX<"Ap2(Printer Help File Not Found...< AF}b= (}-@@:3(ERROR # F:A,= AF>Gl A@KX-A\l $7@p6-!"}@em'6--6-7 AH@F (}-"(PRINT STYLE?0( . DRAFTF(. DOUBLE STRIKE0)@q6-&@d}0 )!AH U (}-3( PAGE COLUMNS & LINE SPACING?U(. 2 COLUMNS AT 6 LINES/INCHh%(. 2 COLUM}hNS AT 8 LINES/INCHG(. 3 COLUMNS AT 6 LINES/INCHh(. 3 COLUMNS AT 8 LINES/INCH( )( @elr)!@hvAH@} g6-@f6-@V$'6-@(6-6-C"@f:@)"@hDLO6-@PX[6-@\dg6-@vhs!@fw6-}[$I (}-!( PAPER TYPE?4(. CONTINUOUSI(. SINGLE SHEETS8( )( @e_e)!@fimAIqB"@f}B6-&'ÛL$/ 6-6. D1:**.TXT6-%"/ A@FUE (}-@Y]@a>(dd, ven, or ll} Pages?E)++@e#*@y'-*@i1kAPU (}-9(%LOADING BUFFER before Printingp.U(Use }8-P to Pause+(Use -C to Cancel+-@<s= 6. 67,.67,.#6.)6.16-%=@ww/} - A`6-'6-@@#I/-"F:Ad,"A8" AUM,F:Ad,"AF", A&} &APAQuAQ 67<,. AQ@67<,. AQ@67<,.! 6-%6-%@9y }"! "F:Ad,"A8" AU&]#,F:Ad,"AF", A$..'@ai"P:'@mt,*"@yxASE}%..'@P:'@%,*"@i)LASE(9 A&@PP:,"9(@=2 "(G}C!F6  '6-+",$%+",$+@%_&,6(=:,PN (((":6-+",$@ cm%+",$@qG*@'}N*Z: 6-6-@@9-$6.*":6. B `_"F:Ad,"A8" AUd`,F:Ad,"AF}", Ad<67B:,%,.7<,)67B:,%,.7<,<67B:,%,.7<,n"6-?:B VB V#/- "). "!3)# &),%3BJB VB VjB VB V5}B VB V=EB VB VOZ(!009emB VB V}5}B VB V3#/-054%28,8@B VB V`hB VB VlmQ}R5}RE B VB V|*'!-% -%.5./|3;B VB '@QCD(JL)SV*@[\+cf,@SlSAVE "D:OTB1.B9}AS"d<<;A,;A$,;A(/,;A3:,;@>J,n6-AN[x%6-P:H:af,$@$jn%@r,G6-P:H:9} ,$@$%@",i6-P:H:(-,$@$15%@9D,6-P:H:JO,$@$SW%@[,THIS MEANS NOTHING6-%%9}% -A"A 7  Am +=KAR@OU90@Y]@ae@ioS0@su{9} m0@@ +0(0(%8>ϮԮ®P0(0(%͠Ġ٠ا9}Ǹ0(0(%ƠҠŠӠϠŠȠ0(0(%ԠՠŠŠҠƠŠšQ((1. ALEX'S BABY9}A*( 2. LADY LOVE<( 3. MONEY BAGSQ(4. GIRLS DELIGHT##@EI@MOUK:2 A0(%(CHOOSE A HORSE9} :2)@ %"@I&6-@*?% A%"@PCK6-@Od% A%"@Qhp6-@t% A9} %"@R6-@A% A A0"(@EN,\ AR(($( YOU HAVE $J( HOW MUCH WOULD 9} YOU LIKE TO BET? N\!A$36C6-P:H:@7<,$@@Q,%6-$C @U[)!@_A@| A '0@9}C@ @A0@#%+1i(#}7IAND THEY'RE OFF!!!S|( YOU PICKED #J?( & YOU BET $)9 } -@ @5-@3;(? T--@7;@?E#-@6Id)(- ^446.* 1/-} 9!} / \h446.* 2/-= O/ \r446.* 3/-q / \|446.9"}* 4/-( 6/ \6-@:E6-@IT6-@Xc6-@gr1-@vA9#} 16-P:H:@,$@&,}-@*.@2692<@@DFLP@TZ[2@^b@fhnr@v}2@9$}@ @&-@*.@2= i%2CEKMSU[aG2@egmouw}9%}i2@ "--@15@9O  -@Sb(-@fu(-@y(9&} -@L( 6-% 6-%& 6-%0 6-%:%%6-P:H:RW,$@[`,%@doD"@sApN9'} "@ 6-%?P&X"@*46-%?P8Cb"@GQ6-%?PU`l"@dn6-%?PrvI!@49(} P!-@@!S?( WINNER #1 #1 PAID $I AI!@4P!-@W[@!_?( WINNER #2 #2 PAID $9)}I AI!@4P!-@#'@!+O?( WINNER #3 #3 PAID $I AShI!@4P!-@lp@!t?( WINN9*}\ER #4 #4 PAID $I A D A,(}ALEX'S BABY (#1) IS FIRST:6-%@`D A C A+(}9+}"MONEY BAGS (#2) IS FIRST96-%@&dC A B A*(}LADY LOVE (#3) IS FIRST86-%@hB A < A9,}-.(}GIRLS DELIGHT (#4) IS FIRST<6-%@1NPASS THROUGH--@HRV@RZl-%A %@dpW-@9-}@ O2+@T$&,$@@(,@04@8>&'@BQS W %%2WY_agioV!@4P9.}*"@ ](( YOU WIN $,(46-%H(YOU NOW HAVE $L(V AV!@4P*"@a(( YOU WIN $,(46-%9/}6H(YOU NOW HAVE $L(V AV!@4P*"@:(( YOU WIN $,(46-%H(YOU NOW HAVE $L(V AV90}!@4P*"@[(( YOU WIN $,(46-%H(YOU NOW HAVE $L(V A; @4_e*@i)( YOU LOSE!!!1691}C-&; A ; @4#*@'T)( YOU LOSE!!!16-&; A; @4X^*@b)( YOU LOSE!!!16-&; 92}2A 1 @4*@ )( YOU LOSE!!!16-&*CCIF START<=0 THEN ? :? "SORRY SUCKER,YOUR OUT OF MONEY!!!":END,93} J -@R @H6@06%A %@d4<J-@@D@HS--@HW[@R_f.e;2lq+@Tu&,$@@94}@ @&'@)? C e2/179?AGP/;V(8(!SORRY SUCKER,YOUR OUT OF MONEY!95}!!;4##@@#UK:>(&(DO YOU WANT THE ODDS (Y/N)3)@Y_=+ekW0@oqwy}96}q0@ @@"0@&(.2@6AH"@xEL@P_ R@cuA\@yf<97}6-%%%&@C (<(SORRY NO ODDS RIGHT NOWp3&@GQ%-@UYA]) 3 A z'('(}OUT OF98} %@ M RACES:(( Ӡ(( ALEX'S BABYQ k(( MONEY BAGSo (( L99} ADY LOVE ,3(!( GIRLS DELIGHT0 @3AR@Dn ( (PRESS ANY KEY TO RACE##@rv@z9:}K:)@!@%[ '('(}YOU DON'T HAVE THAT MUCH!!!!-@_cAg !(} A9;}6-6-"+ A/@"9-@DJ@NR52X^@bf@j9  A $9<}UU121,25,91,25,72,25,60,25,0,1,60,13,0,1,60,13,0,10,72,25,0,1,72,13,0,1,72,13,0,1.((0,10,91,25,72,25,91,25,121,50,1,1089=}UU121,25,91,25,72,25,60,25,0,1,60,13,0,1,60,13,0,10,72,25,0,1,72,13,0,1,72,13,0,1B--0,10,121,25,0,1,121,25,0,1,121,25,919>} ,75L(%2 "(6($V-@:>@BI`2OS@WY_lj-@pt@Px 9?} t=-@A92$(@,.48@<S= ~z -AV@W\6@`f<2@jp@tx@|9@} @ b2@ %-v-@15@P9Hz a-@LXAV@\b;2@fl@pt@x? 9A}a2@ !, -@028=6@AH2NR@VX^k-@os@Pw 9B} $@6-@#.%@28*@<S%6-@%@W]*@ax%6-@@|9C}C6-@@"6-@&1%@5;*@?V%6-@%@Z`*@d%6-@@9D}D6-@ @%6-@)4%@8>*@BY%6-@%@]c*@g%6-@(@9E}6-@2@ (6-@,7<%@;A*@E\%6-@F%@`f*@j%6-@P9F}@.6-@Z$ D4:OTB1.BAS}8.`lCONSN55NYNFNPFN1FN2FN3WHEXCOLNNNXBDLISAVFNLXGRIDYTOMBITB2MOVEHTEMPO2LEFTRIGHT=H}ǤBYTELASTNSTBRKOFNNN6N3NNSSAHBCRSREENTRKEN25N1N154SON25LINFLN1N1FREN1N1NN1N1CN22N6=I}40DSCN8LINCLGN2ZLWN550N75LOMAIN1LASBIFILGEADDIOCHLSPECIAOVEMEMSEN4N154LINN1N620N19N170=J}#PSEN310N580N12ERRON71SCRN8-.56<>EFLNTV\^dfln tv |=K}  @  @ !')@/179?AGI@OQWY@_a@gioq@wy}=L} "$@*,@ 24!:<"BD#JL@$ST%[\&cd'kl(st){*=M}+,-.&'/./0671>?2FG3NO4VW5^_6fg7no8vw9}=N}: ;<=!">)*?12@9:AABBIJCQRDYZEabFijGqrHyI=O}J KLM$%N,-O45P<=QDERLMSTUT\]UdeVlmWtuX|Y=P}Z[\ ]'(^/0_78`?@aGHbOPcWXd_`eghfopgwxh}=Q}i jkl"#m*+n23o:;pBCqJKrRSsZ[tbcujkvrswzx=R}y z{|%&},?LF:B2y,@C& D:CHARPKG)LSave if a console key if pressedHH=S}This program was written by& dPeter Payne - a.k.a. Leto II>>This program is definetly inn the public doma=T}&in.DDIf you like this program then/ lSPREAD IT AROUND .iiI spent a LONG time writing it,s working on=U}C and off, so please pgive it to other users.Thanks in advance.<<Call the Sherwood Forest 40 megw BBS 61=V}V9-276-5603 >6-AX+AY% Aq/X>Init numbber variablesqq;,;@@\c,;Agn,;@ry,;@}=W},;@ ,;A6,;@$!7,9,9,9,;@0;G,qq;@ KR,;@Vb,9,;@Bfw,9,9,;@ {,=X} 9,;@,;@3 ,;@!$+,;@4/;,@@;@?P,9,9,;@T[,;@$_f,;@fj,9,9A=Y}!A@9Disk write verify OFF#:,6."hhh˩ͩ΢͑`:6.CHRFILE&))INV f,INV N,INV J=Z},INV P,INV p,CTL .(6.HH ԍ Ԏhh@<6.hhhhh̥%̅`ALL6.Bh)))))=[}ǭ) )@)`G6.hhhhh̥%̅`K6.hhhhh˅`P++6.!hhhhhhhҩҥ͠ˈ`U6=} 3c+L!b; b`8`E)))8i@0 ڄԠ\(\!\\\A]} \L*\\\\\\&О\(\!\\\ \L*\A^}\\\\\&О\(\!\\\ \L*\\\\\A_}\&О\(\!\\\ \L*\\\\\\&О\(A`}\!\\\ \L*\\\\\\&Оd\(\!\\Aa}\ \L*\\\\\\&ОL"6\e\\e\\e\\e\Ab}Ǎ\e\\i\\}\\\}\\\}\\\}\\\}\\\}\\ǭ\m\\\m\\\m\\\m\\\m\\\Ac}m\\\}\\\}\\\}\\\}\\\}\\\}\\ǥՅօׅ؅مԅՅօׅ؅`Pi`)JJJeԅԘAd})Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ) eԅԽ eՅ՘)JJJ} ԥ} `)JJJeԅԥ)PeAe}WԅԹ eԅԹ eՅդЧ` 0@P`'Nu pX@(#d,X ԥՅ .[J)iFiFi1FicFAf}ǐi'ȐȦoFiUȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊAg}GשBL"`I))83Ԥԥդե֤֥פץؤإ٤L!K6"ХL"Aq}hB%DOS SYSB*)DUP SYSBSRAMDISK COMB[WELCOME SCRB cGEMCODE5BASBAUTORUN SYSBAUTORUN COMB;VNEWSLTR BAS BHELP iDOCBPRESSPRTMNUBPRESSPRTHLPBMAINMENUHLPB!BNLREV TXTB$nULTRSPEECOMB5OTB1m BASBGCHREDI BASC@B\TB32Q COMCUDCHREDI TXTB CARTINT TXTBTB32Q BASqL"L"E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L"8٥إץAr}֥հ'I8م٘؅ؘׅטօ֘ՅL"ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅As}ǥم׆ةեׅ֥؅ץم؆لԘ)q ` # j# wb7i j# !%!L-#`At}Dž刱䈱㈱∱ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L#L#Au}Ǣ Խսֽ׽ؽ` L$`ޕ wbԅ)@ޥ)JJJe)eAv}ǩ " M # tbJe0F ]' # $L?8`@ԠՈքׄ؄` # j# ! # # j# ! $L?8`0 I@Aw}ǥ) e'f $ # tb r # $ wb?P ! #Iiԩ )ԅ ! ޕL?`8`$Ax}ǥ)Ԧ & & & &&& ?ť)8@0$Յ)e)e "F # $ ! # tb% # $ wbFAy}C3 I`U9>`D'RFuCU?b9dYdg@W2@7?tS)%)@0)%ԅԢ $ # tb; #0 $ wb(Az}zߕ !ԅԥ & ?`8``0?i? # # $ ! $ wbԍՍ֍׍؍ٍ # A{}# ? $ ! ' $ !0 #JeF ]'`L) #e٥eإeץe֥eՊi؊؅٥ׅإօA|}ץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&&&&*`ߍD'E&HA}}%I BLVTurbo Basic Version 3.2q1  g% D:AUTORUN.BASʭȅiȅA~}iȅȩȩ LEإ/. ' $( < VG( = ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIA}RNFREXLOCLOSQSGABINPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUA}INSTERER+,%5&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_A}Ҳ+7,/01 2!3"4Ɛ"-"."-؂ٿ֐ːA}ĐאŐbj+9,+;,A}ʐͭͭ@ABC\=>[<+:е<,&%`+,+&-S+++`-73A}00000001H1111a21r1|1}1K12Y111111p11111k2u11o2D1g1(2+2.2011 1111!1l2$1b2,1c1w11111111111A}222"2226292]2Y2@2J2P2S2112<211k1w2 z+(+VWZ ]a8`L+')Q ȱ8A}ǯ e新`8`LYU齀).Q Ӱȱ8e新ϊHHHHHH O/40ȑȑA}ǐޠhhhhhh`HHHHHHHHHH 4 = O$H <hȥLT4hhhA}NjhL4ň剰)i桰` C)``LDħ D$ x HҩA} Ch$襚ҥ ԝ` DUV DT` D` D`,H '5ȍ` JKhLA9 ;8 D5)I 6LA}7S: '5Ȣ`L5 5 5 E8L7 5J*K+ 5L8GHFH`L7 5L( 5`H 7 @8h 6`A}EH 5hH 7 G8 7 8}} LQU 6 ]Mh`L(LNU 5 8倝偝A} 7 G8 7 7󥃅 I8 7L;8 6Ld6 6L6HІ6h 6 7`C:H 5hKJ P8LQ D, 7 DHA} DhHHħ B 8 7hKhJ E8 8L7+7 $@L7D:*.* 7 ]8Lc8& 8LM e8 7NLc8 7 D 7ԝL՝M D 7ԝNA}%L8 /[Hħ 7} 5hL5 7 D 5ħ` 9 c8ħ` 7 7 9 8 c8ħ` '5` HA} LYU 7Cݠɀ L}(Ɉ ;8 ML[U] ;8L( 7 L]8IHEDBLVHH BhA}h LD ;8`ħ 7 [8L78 5`YDAER CԅՅ֦󅗄`LQک 5pA} 90 5Hp @8hɈLYU` ,#,$,!L6 ,H 7 C 7DEԝH՝Ih ]8L5,H B Cְ֙0A}La9hꩀL5LYULG8 cb`2ƪƪ^ D^Ƚ_Ƚ!_ȽA_Ƚa_Ƚ_``氤hhL#CA}@$ƪư D0 D0 `D$P`LDFҐ֥װ綾إٰو Lg:Ffؐ eeA}&ee* &eeeԪeըee$.ƪ^Ƚ_Ƚ _Ƚ@_Ƚ`_Ƚ_`檦_`_@A}_ __^^^` b; b;8 `D ٥L#;֤צưĘ=ŗ78֪א& Ceԥe$A}DZ`L,D DLYU CԅՅօׄ #Cפ& C٤ţĢԅeՅe8包卅 'H C8ԨժA}%אְ`ֆLDħ` BFҰg8&0ei֥i0Tׅiإi0BJe؅eم0&ffff&0A}ǥ &0 eeLDօפإ颎 XG8包ԥ卅 D L; = ȱъA}LjŠe拰8``,ªȱȱI Dѝ3ȥL;=HHO]  ȥA}ǀe暰Х ȥL~=ȱhh` w8l w8Lq DԪԅԆL0? CȥՑ` CL'H CLG D A}!L(D D !L(D D wbL(D D ?L(D^I^` >b`P >KW >RB >=;G >4@ >;+ƪƪ^=^ (ƪƪ^^ A}Gƪ^ ,@@檦^_^ _@_`__`ƪ^ ǩjҤ]/L>ƪƪ^^, 舽__ _ _@_@_A}`_`__ـ_`^jI*` C # C֪ (ϰ`(8` C֤ׅԄ ҅L,D DA}L,?ƪ8吪周L,? 8 8LTU CL,? 8Ԅ , 8L0? CL0?   D e쪽pL,?LD QڠA} ?H J ?h) 0:i` D ?; `D ؠȱ)ȥ%ݕB 9L@ DԍՅԄׅ֩өL,Dƪ?A}Ǣ )ɠ )  "L,D 9@ =L@^)^`L\\@\`]\ @ Pb L,D PbLD\HH D0 HHL@Hl `A}D)8@ "L,D` = `D)8@I= `D)8@/ѩ֔$ሄ !L,D A} `D T%L*D `D ^%L*D `D &L*D `D $L*D `D $L*D `D 2$L*D `D &L*DLQ>L_>LD D&)ԥ)8@A}ǵJjH@MC)JJJe)e #F $ #P # tbF # $ wbL DLDHHHHHH $hhhA}hhh wb A$hԅL,DLD C`,` DLD aB%ᨥ%L,? aBᨥL,? aBEᨥEL,?<|'g DA}0LB`^^^^i ` B @ =L=L?L,?] AC ,DLC]]*^Ŭ]Ʃ :CA}LCș]LC` ?Cl]樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`樱I A}DҠȱȱȱȱȱ` `D$҅J?eԨe` DLYU D D B `D  Ԥ` Dҩ, , , A}LYU檤 ٙ_ؙ`_י@_֙ _ՙ_ԙ^ә^ҙ^` Bƪ_ٹ`_ع@_׹ _ֹ_չ^Թ^ӹ^`ƪ_a_A_!A}__^LbD DґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`&LEMENEOE`[ 5A}DZ U] 5LQE L LYU L C EO K A}ƹƹ0`H uTh`I&K` =? FQA` ILIȱI BĦ O ąŅ A}VN ]D N $䧰 ]D N O,Ǡ ĩJH VNhĥȑĥȑĦʊȑ`HHąŅH Ch Lhhhh OA}ȱIEL\O LYU`ȱI O Hȱȱȱȱȱ C ! Dh L@ &ML-PL DA}*ȱȱȱȱȱjEE `EjI `e`ħ 5 OM0 N N N`A} ML( B_ 䧰L;E A@L O`I&M`MLYU M 5څM ILU0`STOPPEDA}Ǻ <hhLuE E` ]D  Hƹ wTh`hbjH Ch %LԤL>EQ %LLPLPeiA}  `LYUԑȥՑȥ֑ȥבȥؑȥّ``䈥剰#)iiA}L=Lw8I& O`2O6O:Oץğ=ȱȄ `L!O  LA}LYU0e拠0ȱȄL!O L B_' O>?L O B O(<ж_  &MЛ -P`,LYUőA}GŐ78Ƒ8 Ƒ`8` O- PѠ`,,LYU OA}L O OPQ 8,LYU LȱI Dѝߠȱ`ԩ,LYU OE  &MEL-PL_O_,A}ߤ Dڄ C # Ceڅԥeۅհ"8څ֥ۅא8ܥݰLQ>۠Q%0ԅإՅ٥ަ0%A}Q% LKQե0L$QڤL,?HՄ "R wb #hԩ !҅L,D ~Qƪ(R ?@A}7Մ$ Q` Q` QL"@H " # $h wb@Յ՘;J R) 0:i`AVC2 B 8 ~R5 R ~REɀLM 57 HK UbL U I I0U UA}Ո U 5 EL(Ն إ􅕄LI AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?FOTOO LONA}?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOTRUNTIMEOUA}0NA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI?FILPOINA}?APPNBAD SECTOR` C B^0 ? Cۄܱ W **m %XݤܱEۅڦڱ= Z A}CYܥeƥiեLYW@ ` **)]W` 00``GR ( Y((8`W)A}2ߥ & &e &߽Wřِ׼XXW6J&eXޥeYߥ䥛 9XFfЎᰈ WA}G`XX M 8*` C %X󥐅i祣L}N 1ZLY &Z A}Z0 1Z &ZL"Y Z ȑ Z 1Z &ZLFY Z# Y Z)ȱ LX Y Y ZA})ȱ) Y)ȱ Z Z8ƣŐő0eސ`ƙ8ް`)ȱJJJ`A}``=`]```օנ6&֐ eו`LD CHħ DhբՅ JZԢ JZA}ǥՅ֠&&֐eܥeېڈ ![ F[ ![ T[ 8[ F[ 8[ T[$0!ee80å/8ܥ۰A}Wuڕ0eUiV`TUV`8UV`eTi`8TȢ` 5L5}A}k==fF45I5BrMKA}ǍL;E;E8EM=M;8]MYB;lM(65_617=7T76NQBYH\BEEP4MMOYH77_55'5=D5474H66BWU===O LOOOMM9 9A5 LPTA}8P8 9 999B.RPPfP:5K=RTTDBWG9J9P=MXy74jZ?G`@ qwg:,,,}A}.=>>>>>A====H>7>&>=99o;=>>>>>==:99999?@t@k?Y?%??LA}SACAi@@????=kByBP?B?u?@@Q~QB=9@`@@Q>_>Y>V>=PBB``f r,(""(222x0..222A}222)**22*22&222$024222AAG S,(""(0Y0[--`az**A} 2*&22$2222%.:+M,g+ BdD& A,S-0H^b,AAA}A}cg'!% qVab }A}#]\}?,Ќ,е,Y_Ҳ+7,/01 2!3"4ƐA},"-"."-LNklrs?}A} )ʩ   ʎD ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a.T467A,.!bcdefghij=} klmnopqrstuvwxyz{|}~T67@@$(<@@,3,.>:@47J,1L 68,-@@Nw%68,-A468,-AHC68,-@p{L=}968,-@68,-A(68,-A? 68,-68,-@=$68,--68,-668,-?68,-B -68,- J!=}0 6-6-6-!6-AFT3+  A 4:! A8>-A03U 6- V'AA'A=}0YKBBA-A @'4r27EK:K\$ -68,- $6-@Fv^G -=}( ' -(-%7( |/ O|; AG6-_ -( W`oB2IA!A->}FB2`?B2SAKB2V]B2HAoB2P@RJnaB2Xc& -"$%Ar%&8,&>} i AA#r " A9Ew -(|TAU6-6-#1)-5(>:,;E A>}b.K6-T6-I:,}F!A-?(%2 Ҡź٠ҠŠ F(~JA-C( ٠>}JǺ  BYTES REMAINING J('6-F:,%F:,$'&A@iN" " A9EO A9P>}A@ 1A@$>CAAO@FB2AA2All caps, no inverse1'R:>}CT,"*T:,"*F:,"*F:,"AU1 AF:,AUAP0 T:," AX0Check for trigger pressE"+$,>}%A(%+&,&8&,E%Ah%+@,%+&,,8&, 6-R:,-( ))6-%$+")")",&$+")">}H)",))6-%$+")")",&$+")")",  6-!@#LT6-@#X  6- !6-6>}8&,-F:8&,%, -(' 6-F:,6-F:,'"*"A " A9E " A9E?> }?"@9 )"@`%)"A$)"@)u)"AA"A F:,)- (  AVyC> }dheck options  -  A((Option O, puts last images on grid/"@yh-#68,-8,> }' + / ) "-68,-8,! % ) X7 6-8,-"68&,-8,& /68,-3 7 ]Option , sc> }roll grid up: 6-8,-6%68%,-8,) 268,-6 : Option , scroll down!!Draw lines and setup s>} *+*+ 6ARTIFICIAL INTELLIGENCE@ VWITH THE ATARI 8Bit.^ Submitted by Jim Cutler LANJ}!CASHIRE, ENGLAND, 14th May 1993.& DPrinted by OL' HACKERS A.U.G.L Lc-p AT FIRSTv ARTIFICJ}IAL INTELIGENCE, (known hereafter as AI) in the early days of computers belonged mostly to the world of the GIAJ}tNT Main Frames. However,the language created to address the problems of Artificial Intelligence knownx as J}LISP-(an acronym for LISt Processing)-is available for your 8-bit. You didn't know that, did you? THE ANSWER J} In its simplest form List Processing can be found in ATARI LOGO. This is an LCSI version of LOGO,but J} ATARI Kmarketed their cartridge placing most emphasis on TurtleO Graphics..Great fun for youngsters in theJ} Six to Ninety age range, since the little screen Turtle obeys input from the keyboard, such as right 40, left 40,J}@ back 10, forward 10 etc. LOGO, IT HAS UNEXPECTED POWERSF LCSI Logo includes a fairly powerful List ProcesJ}Qsing capability, therefore, if you have LOGO you can begin AI using LOGOU as your introduction. A STRONG LISPJ}C The major implementation of LISP is to be found in INTERLISP/65 from ANTIC**THE CATALOG** and here you have J} a Powerful LISP interpreter,sample programs, a Lisp Calculator and full documentation. A NEW EXPERIENCJ}AE If you are looking for something quite different asE GanK ATARI Programming language then try LOGO or LISPJ}. It will help if you CAN BEG, BORROW or, (gasp) even BUY a simple introduction to LISP since the docs supplied aJ},re a little on the technical side.; H=<>=<>=ide.W =<>=<>=simple introduction to LISP sHBcreen AB6@#@%'0(*@48@9<B6-@$FW( O:LAST IMAGE&( P:PARAMATERS9(Q:AT/INT C>}NVRTG( R:RESTOREW( S:SAVE FONT( T:ANIMATEi( U:FLIP U/D%(V:CONVERT CHRS8(W:PARTIAL LOADI( X:ENTER CHAR>}HY( :SHIFT i( :SHIFT /( :SHIFT #( :SHIFT /@Lu]6-F:A`,%F:Aa,$3%@"yA>} 0E-@6@?](|}|A --@$CU(|! --@$YaA(oY'6-F:@> },%F:,$%+$@@&,&I-%+@*.$@@27,@@;^UA$Y O%A`@hbj+&@@nr@ivOPoke>!}: rt edge chrs onto the screen+ -(||-+(GQ*-@$Uc*(||q1 ->"}(||-(*-@#P1( --(|  -(^ -(-(||>#}? -($*-@$(0?(>$D -A8,&6-?:C:,,868,-F:A,>$}< @ D LD -A8,&6-?:C:,,868,-F:A,< @ D Option B, reverse image& -A>%}P8,&6-?:C:,,; 68,--6(F:AQ%,;68,-8,%8%,    $w00Ask if it >&}is ok to delete an existing filexG &(OVERWRITE EXISTING FILE? -)5(>:,;>'CG  ( SAVING FIL>'}0E$##Check for the joystick buttonD@w4$68&,-F:8&,%,/6-8&,D6-?:C:,<<8&,,)F:A,>(}K)68&,-8&,&8&,)F:A,")68&,-8&,%8&,*6-AOF:A,*6-AP76-?:C:,<8&>)}Cx,<8&,<,)-$- 72$?Option V, animation@Q &(MODE 0, 1, 2, OR ANTIC 4?-)M @H|)>*}*!@P *@RCQ B " C; 6-6-6-#6-&@HGp)6-/"56-;6-D "6-@tE ">+}R6-FV 6-! 7(PPER OR OWERCASE CHARACTERS?>)D6-P"@vVrV6-H " I( AFv(Get >,}frames for animationJ@  +-$A%8,( .:A@KW  ")6-F:A`,%F:Aa,$>-}=%@ @hK-@("S%W M 6- O& (}" & A)P "%>.} R!6-@6-"!6-S  "6-6-T-B:,6-6-W 6-R:,6-F:,[! -(7<>/},-! \F:,"@( ' ] "*"  A ^ "6-& 6-_ "6-%` " >0}6- A a))6-%$+")")",&$+")")",c))6-%$+")")",&$+")")",h  6-i  6>1}-j!@"6-@"1k#**!@85=#6-@8APl"*!@T\6-@`om"*!@s6-@>2}%o "*!6-t -(@) |  6- A 7 -68,-   7Option C, clear grid>3} Inverse7 -%6-?:C:hhhI`,<8,,768,-F:A,    3$$Option Y, load character range4(>4} Ab X6-(6-F:,6N (1st Character:").67,.>:,8 AG\j>6-J"@nN 8V (>5}2nd Character:")467@#/,.>:,> AG3CF6-%R"@GuV >< !  ( ILLEGAL ORDER.-Ay2 >6}< A! H6  ((ENTER LOAD FILENAME: , 2"6 I 6-B:, A!%J3-B:,& 7<%,4/B&6>7}>-)'3 A!%L O  (PLEASE WAIT...P6 A9Bt#"+-2)6 R"zA>8}!5S-@,$) W A40  _ Parameters option` W  A$ 6(BACKGROU>9}ND COLOR ()?@ A$G(KWAb K A$ ,(BORDER COLOR ()?6 A$=(AK A9P>:}j - A$  )( SCR FN #1 ()?- o  6.t - A$0 )( SCR FN #2 ()?- y  6.~ ->;}G A$@ )( SCR FN #3 ()?-   6. ;  &(CURSOR SPEED ()?0 A$7(;   ><}<F:,"A$ F:,"@(#')  $' >>Hexidecimal conversion routine. P$ holds the hex number(  >=}6-A:,2 '!6.@ABCDEFGHI#!GJKLMNO'6-7 ;-B:,46-$@K[%@:7@:7,,&@G_,,&8 ;$ B  (6-F:>>}@,*6-F:@H,218-?(>:,B$ Option A U +N`A )@d5AAA0>?}ǪK A( Q6-U   A0  -(}A   F:,"  F:," F>@}:,"A(  )F:,"@b2*F:,"6-) A)6U #F:,"*F:,"6-# A)Yg F:,"@(k   )>A}QA%(>:,@ A( S ##Load/save routine for screensT - 2AU_# A'c-2U  A( >B})W "@I*6.X "@P.?6.Y "@QCT6.Z !! @IX^)!@QbA( [ ! 6-6->C}."6-!6-^ m 6-F:@2,%F:,$| @6-A%"6-P:',86-P:+'&P:',,$,@%} >D}x % A)I <6-P:A `',<6-P:+A `'&P:A `'AV,,$, / %%/6-?:C:hhhLV,<@H|,>E} " A(  "A  - ( A(  Option N, mask green : -$6-?:C:,<8,<A>F}Vp,668,-F:A,:     Filename input entry point . 6- A5Z(""(-.(  4>G}"C:6.$  6.D1:67@&,. 4*6-$! 4*"6-$& B:, A1 * >H}dž7<,4:6. A1 - 7<,4:6.0 Au -(2 AU$ Option M, mask blue : ->I}$6-?:C:,<8,<@,668,-F:A,:     ##Copy from/Overlay entry point 3  )(SELECT SOUR>J}CE CHARACTER3 A75 7 ( COPYING IMAGE# AG9/!A'76-& ' -"'68%,-F:%+$,%, = ">K})6-?:C:,<8%,L}Ǽ$'6-+&,$M (%P:',(%P:+'&P:',,$,R %W (%P:',(%P:+'&P:',,$,\ ) A40)6-?>M}C:C:hhhLV,<@H],f $ Actual entry of filename K 6-F:,6.6-(6-F:@ar,.=6-F:@v,C6->N}NTK(  ) "AU($  " ''(  /"@CXe)67B:,%@i,.*.FNT,(/$ ->O}"A''67B:,%@,.*.**(-$ 8"A&*B:,!&6.7:,8 A5 ("A&*B:,"(>:,>P}( A5  ee"@X!)+@H%+*@W/7,)+@e;A*@EL,)"@FPV)"@BZd)")"@GhA5P A5>Q} +B:, @2#67B:,%,.>:,+(>:, A5s//Select character with joystick subroutinet A9E~ 6->R}6-@ 6-% 1-%(>:%A(,; 6-F:,6-R:,6-T:,;"*"*"*F:,"A7%">S}A7P) "A@ A9E) A7%) "A@ A9E) A7% -(>:,4F:,@(>T}*F:,-*(>:,1)4$))6-%$+")")",&$+")")",))6-%$+")")",&$+")")", >U} 6-@5!@5.6- @2:6-@">I!@"MU6-@Y # "-(>:,>V} 6-#$F:,"@(]'   A7 More screen setup2@a-#( A:ARRANGE2( B>W}:FLIP L/R(C:CLEAR( D:CHR DEMO%( E:ERASE LINES%( F:COPY FROM3( G:DISK MENU%( H:OVERLAY CHR3( I:INVER>X}SE'( J:TOGGLE A4/0'( K:STORE LINES4( L:LOAD FONT#( M:MASK BLUE4( N:MASK GREEN;22Subroutines to move player>Y}Ys on or off screen<' F:,$A'$A- F:,"$A@]x*-$i" F:,"-@|>Z}"(ROM j" F:,"-@!"(USERk& -(RAM:-&(LINE:l$nAAoF:>[}%@#!,"8,pF:%@#%,"s$;;Enter character into memory and into a DATA statement32$@P>\}%@P c#- A9E36-B   .(SELECT TARGET CHARACTER82B A7g ( Computing.>]}A../ -68,-8,#68,-8,/68,-8,  AGE6-G 6-$-'68%,-F:$%%,8$%%>^}E^H8%,C68%,-G  # -68,-8,  # hR@LT!@X\@5`h--@lO(7<A0,>_}7A3<A6,R$Option R, restory memory& ( RESTORE? )"&  6-6-?:C:,<$,.6>`}O. D1:CHRFILE  .Clear the grid./Print character bit maps0 AGS+2? -'68,-F:$%$@>a}L%&,08,"?68,-A#4 5 "6-A#:$ -$(%AP DATA >:,?2 -(>:8,, >b}$('(2(G.4425D -AB&IABN 6-%S Ai@$ -6 68,-8&,$ # >c}l-68,-8,  # 11String entry routine in Option V, animation8 6-6-6."6-@p.6-A>d}8 AH !%@d%!%1(1(&Enter characters for animation frames:g@hp!@tx@5|>e}-'-I(7<A0,7A3<A6,U@19g@=A@9EV 6-@4Z / -/(Enter character for f>f}rame #   -( )"AUAF` "6-' "A&6-&  6->g}h("A&6.7<,(AFE"A&*"AF  67<,.>:,% 6-%!@5l$* AF >h}4 *$9; -+(Load character screen? (Y/N)2)8;$>T 6-6-(/(Which screen? (1, 2, 3)6)>i} T!@Q) @IkAF`C 6-H$[00Convert ASCII to internal. Byte is in CH.\@o$a$*>j}@!6-&@2$$f *6-%$k$1  + 16-F:A`,%F:Aa,$- %%%>k}A0!-A?AA!'-?BBA$# AH$! ( ERASE L>l}>INES? !))  8'  + -'6-ABR9$(-@V( 6-%$ :((POKE 842,N12>m}:G.4930= -AB&B (} ((D %A AI!G 6- 33Check for escape with disk menu d>n}"elete option 6-F:,"AQ&1 "@(5)(' $OSetup for CIO callP6-AdR# %>o}C_%%#%U$33Toggle character window from Gr. 0 to Antic 4F:%@#cy,AS N-@#}>p}p@(P%# ,8,;A8,JA 8,N W -@#TX@(\v%%) ;A@@zM>q}.A ASW ) -"$%A2%&8,& )${Move players off screen|4 -B2H%>r}J-B2R%1 4$))Check keypress and branch to option""@eNRA(Vl"Option A""@fptAx"Op>s}tion B6+"@g)"@`-)"A%A1G6Option C""@iKOAISi"Option E5"@pm6-F:,$ 6->t}* A3 !5Option F."@q%56- # Au9O.Option G5"@rSj6-F:,$ 6-* A3n5Otion H">u}"@s A )"Option I""@t-1AS5K"Option J""@uOSA`Wm"Option K""@vquAWy"O>v}ption L""@wA24"Option M""@x8<A0@V"Option N&"@yZb)"Af&Option O""@>w}A$ !"Option P""@%CAxP"Option Q""@GKACOe"Option R""@imApq"Option S>x} ""@A,"Option T""@04AE8N"Option U*"@R^6- Aibx*Option V""@|>y}A!"Option W8"@!+)")"@/;#6-- A@?U8Option X""@hY]Araw"Option D""@E{>z}A"Option ""@a $A(S"Option  "6-6-$"@CW] Aaw$Option ""@B{>{}A"Option ""@' $At(>"Option ""@cBFAAJ"Option ? ACOption L, load fontD>|} Ab 6-I (LOAD FILENAME: X  " ]B:, AW5bE-B:,&B:,&%7<%,4/B('.6>}}*-;6.7<&,E AW5d g A9.Xh"AW9iB A9\ ,(NOT SAVED, LOAD FONT?3>~})9>B j A9!\(>:,k" 6-"-)" l 6.= Ab`f ARj%=6-?:C:>}hhhLV,<$@<,h,h,h,INV *,L,V,INV d  AT@F A9J ''Clear top line and position there* ->}ǂ!6-?:C: h(X`,,'-*$E6-F:A`,%F:Aa,$-%A0?BBAB(E($KKh,INV ),CT>}GL @,INV SPACE,(,INV CTL H,INV CTL Q,X,INV P,INV CTL ;,CTL .  **Warn user he is almost out of memoryoSave lines >}"routinep?6-A6- AH&<%6-+6-9%@@n?t( SELECT STORAGE SYNTAXvH@r(-(>}H(| 1. DATA (BASIC) |w9(| 2. .BYTE (ASM/ED) |9(| 3. .DA (SYNASM) |x(| 4. ACTION>}! SYNTAX |z0('6!($(0@4:C<@GK@9OU!@Y$(*<( Selection?8 )>} 6-&@H#8+ )!,*%@H'<A`%@H@" % " (( DATA MODE.% A`0& " (( .>}4BYTE MODE.& A``$ " (( .DA MODE.$ Aa83 " ()(ACTION! BYTE ARRAY MODE.3 Aa0 A` >} AaP Ag?D (WRITE INDEX FLAG? (Y/N)')1#AC8(>:,DA"( DATA ) "6-@>}:7<,,#"A#)6- "(,+ -6-@:7<,,%"A#+6-3(, !6-@:7<,,->}W"A#36- ( 6-% A`5.BYTE syntax AaP #A[ A`? 6-%(OUTPUT AS >}\TEXT STRING?,)3(>:,9"?6-;"( .BYTE $ A`*";(>:@4`,+ -6-@:7<,,%>}"A#+6-9 "(, '6-@:7<,,3"A#96-< "(>:, *6-@:7<,,6"A#>}5<6- "(" ""(>:,>:@49], 6-% A`e Agaw AaP #A{>}F Aa S 6. ( TABULATE? #)*(>:,6AB"@JQS6. [ ""(.DA " A`>}+ -6-@:7<,,%"A#+6-7(#, %6-@:7<,,1"A#76-(# 6-%>} Aa Agh 6- AaP AaI=($(WRITE INDEX FLAG? (Y/N) +)5#Al=(>:,+('(>}ENTER BYTE ARRAY IDENTIFIER:+ 6-$A "6-$$$( BYTE ARRAY ()=["(>}  AaH) "6-@:7<,,#"A#)6- "( + -6-@:7<,,%"A#+6-3(>}\  !6-@:7<,,-"A#36- ( Aa8 (] Ag`;(( FILENAME:  $ >}CiAaS*;B:,AaS%A%Z(=(1FILE ALREADY EXISTS. OK TOt OVERWRITE>}? D)L(>:,ZA` 5 /A Ab9)/  " $ 0 AaU(,(STARTING LINE>}g NUMBER: 0' Aa`#(LINE INCREMENT: '$7##Trap errors and print message8 Abk" =! 6->}F:,!B5F:,"Ap+(FILE  NOT FOUND5 AbpG3F:,"A`)(DRIVE NUMBER ERROR3 Ab>}pL*F:,"Ab ( DISK FULL* AbpQ2F:,"Ag((FILE  LOCKED2 AbpV4F:,"Ah*(DISK D>}IRECTORY FULL4 Abp[;F:,"Ae1(ILLEGAL FILENAME CHARACTER; Abp`6F:,"A8,(DEVICE NOT RESPONDIN>}lG6 Abpe5F:,"Ad+(FILE NUMBER MISMATCH5 Abpo(ERROR F:,~<Au -@0p! <Wait i>}f not at disk menu A9 $;;Put updated image on the grid, and in demo charactersS -!6-?:C:,<8>},<8,,8$%A/%&8,S%Ah%@3%8,   $c""Setup players and charactersd #Ae6- >}iAAx(-B:,$A5%@:7<,,( y   3AF:A,&)6-F:A,/>}"3+? AF:A,&@&36-+F:A,%,7+?6-$?-%A%A!% 3BBy'?A>}[#'B2WB2X'B2w -68,- ;+-%A@%@B_m%A@%@wq7AU>}; ;+-%A%@B+%A%@w/77@;; ,6-?:C:,<$,,Copy the character set$ ->}h68,-F:8,, +Display file section in K,@* (} AgP%*%@lJO-@ >}( #(B(Press any key to continue.I)O(}TAg0Y ^/( ($(Press any key to exit.>}u+)/  6.6-0 *(ENTER CHARACTERS, PRESS 06- )67<,.>:, 6-%"@'y >}="AUAi5!A'6-&A(7CI*@1MU%6-@Y-6-%7 Ai%7*@c>} 6-@ -6-&@(47 Ai%7*@8@6-@!DN-6-&@`Rg7 Ai%3@k*A'%6-@">}C36-&@  -(>:%A(, AiI 6- 7(%Please wait. (Screen will blank out).E-A>}I 6-@:7<,, AD"  B:,&6-% Ai7! WSave fontX   6-\ ^ (SAV>}E? () _  "6.` 6.aB:,*ApbE-B:,&B:,&%7<%,4/B+6-86.7<&>}^,;'E Apd   gAp"iC Ap *(ENTER SAVE ADDRESS:.8 A&bC6-P:',j6-P:+'&P>}:',,$,nE 6- A9"P!7<,0C:+ Ap'0;E ATws3  6-' AR{+>}h 3%x5 "***%*,*5*%6-?:C:hhhLV,<$, A9l 88Initial>}6ize number variables. This saves much RAM.6-@:`6-%6-%'6-%/6-%;6-fC6-%K6-%W6-@>} c6-@o6-@%{6-A)p6-AY6-B2y6-Ad'6-AV36-A?6-@tK6-AV>}+W6-AU_6-%k6-Aw6-AX/76-@;C6-@GRW6-@Vj6-AR'6-Axnv36-@z?6>}-AU K6-@DHW6-A$6-Ad6-%6-%+6-@dLT76-@XlC6-A@O6-@'px[6-Ad|>}g6-@ s6-A@6-@2#:'6-AB6-A1>F'6-AbJx$Option D, demo characters ! AU|>}+! A9!? 0-6-F:A`,%F:Aa,$36-?AU"3AAQ'A A3>}@H%/ -%% %0/%%'Q-%%@L^ 3%@"bA0EBBA>}KQ*9((7@8,<A,'@089@<@@5D+( ( ((,E( (-#A%8,' 3>}@E@@9'-%@4+1 B5"%. "/ "%0AUF:,"6>}=-2 F:,"6-3F:,"Ar4 )5+"@IAh-%%!% +6+"@Pl-%%!>}4% +7 " 8"Arp9@8NAr`:H68,-@@R!68,-A068,-AH?68,-@p>}H68,-; -A%8, \  Arf+ -+(ENTER COLOR REGISTER: g* )6-&@H>}CQ* )!ArhG Ar-/(ENTER COLOR VALUE: 3G!@UArrj; -#(ENTER INTENSITY>}: ';!@Artn 068,-$% -( Ar!!Option J, move line pointer F:,">}v  F:," KDisk menu.LM+AA+AA/ 5A6-Au M(z M>} NF(,(!$ *** DISK UTILITIES MENU ***/(F(A. DISK DIRECTORYOC( B. EXIT MENU,(D. DELETE>} FILE(S)C(E. RENAME FILE(S)QY(F. LOCK FILE(S)/(G. UNLOCK FILE(S)E(H. WRITE DOS.SYSY(I. FORMAT DISKR>}*(W. WRITE VERIFY: S*F:A,@.T (ON * Au T F:A,"@Xo (OFFUC  Abs(9(SE>}PLECT ITEM OR FOR MENU>CV. Au)6-."AUAuT_XE"@pc6-(( FILE TO LOCK:>}, 2E@58Y"Au ["@h<@AvDO\"@SfAv`]"@ejAv ^"@r>}Aw`aG"@qF6-*(FILE TO UNLOCK:. 4G@6Job"Au c"@ssAvPd>} "@f )" e$@i$ ( NO SUCH ITEM$ f)%(RENAME: ENTER OLD, NEW FILES) g4Au h @2>} Au  F:,$ 6-F:, "6- "6- Au8 (ENTER DELETE>} FILENAME: $ 8( "g"Au   E(?(TYPE >:@4kv,Y>:@4z,>}) TO DELETE FILE E6- (? AQ-M(" 4Y "@3Qu Au ! Awy>}ǫ !6-((9-B:,& 7<%,4/P&6-+9P:  Au  >}v("(F:,"Av(% )"% Au  Av"'( FORMAT DISK # AQz')>}?6-&@Hm )!(5(NEED D1 THROUGH D4? Au  *((S(?(TYPE >:@4q,Y>:@4>}N, TO FORMAT DISK CS0YAu C6.D :*.*&67<,.>:%@HR,9ATC AvR4F:A>},"@ *A@#4 Au';4F:A,@?M*A@QW4 Au[( FILE SEARCH: '  ">}CH6.D1:*.*$6.*.*'$($P2!(WRITE DOS.SYS TO DRIVE #+ AQL`2)R?6-&@Hd )!(5(NEED D1>}" THROUGH D4? Au U(>:%@H&:,ZWC(TYPE >:@4>I,Y>:@4M, TO WRITE DOS TO DRIVE GW0YAu >}&dI6. D :DOS.SYS*67<,.>:%@H*,/:?I Awpx@ B7t$@Disable break key. This>} is optional.3 AXO,(CHARACTER FOR CONVERSION:3)\ 6- AGSY AX]\( ATASCII =  (>:,)>} ; INTERNAL =  (>:,) )AxU % SAVESCR.1NT>:,). )AD*.*FNTFNT >}  @@ (AxU % SAVESCR.1NT>:,). )AD*.*FNTFNT <(C cATSAVE "D:TB32Q.BAS ))(!TB32Q.BAS is for ONLY! D:TB32Q.BAS}LbEE