@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"!GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G}}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 139ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uPP 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 X}Y} !"#$%99ԠŠ SAVE "D:NEWSLTR.BASdmZ}m報à Ӡįί̠ŠǭԠ̮ 6-6-}|Vol: he ||Issue: || \}   || to  Or: ||î-YOUR  נ ||OWN 8 BIT ]}  for all ||magazine!  info||   || ^} ||  ||--> <--|| _}  ||  || Atari User Group Inc.(c)1985 |*** Alex Pignato, Pre `}sident ****** 3376 Ocean Harbor Drive ****** Oceanside, N.Y. 11572 *** a}|Charter Member NEAR*US ATARI USER Gp.|| 㮠 | b} # "SAVE "D:GEMCODE5.BAS Z (}I(;ŵ-ؠϠ ΠΠҠ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}S MODE:%(W%%(9 TO TURN ON UNDERLINED MODE:Z'$( 10 ϠԠԠš'(d-@@"e INPUT Ni}n__AA A0A@APA`ApAABB A$a3>:@j},FH23>:@',>:@S,U3>:@',>:@E,>:,^(a$'3FH>:@,$ B'$ 'k}3H>:@,E$ B'$ 3G A$'3FG>:@,$ B'$p3GE B$l}X'3G>:@,F$ B'$@(3>:@',>:@R,% B($(#3&3>:@',>:@E,>:@,0 Bm}3$'"3 This is a sample line."$D:GEMCODE5.BASa sample line."$(#3&3>:@',>:@E,>:@,0 BN0f9 0 DDE} 8wY8`Xp0Yq0T001L0H 0ҍh@ppB`B@A4o}T0 8֠8 8 y8'S@A0ԩ2̍ 8}Init Disk Update V2.XName Input R4p}eturn to DOSChange Headline Boot Disk d4781 <1H;1HLy8F15~448v 8 y8 8} ԠŠ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 @3$303++   }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}@ 2 u5wM``Ly0 8}ŠϠ̭ĠĠ 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~}`~M!ȄB ^ei(é_`l J8i(`|ȑƲƲ|4}8(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}N) !"`3!3:,*2B:,"@A` A0/ +@-/(@TURN DISK OVER/-@/(@}THEN PRESS ANY KEY5AdAU)& A05% D:PROG.BASo+A%A @7-@}@Q(NO PROGRAM THIS MONTHc-@@oARB'(FLIP DISK AGAIN AND PRESS A KEY1 A08)B A}6 (}-@ @ 6( What's Your Pleasure?_B7t@d'@@d9-@@X(en}u rint ead: _)8"@w((.( Main Menu....8 A"@AP8"@(}(.( Read File....8 AF.-B:,6. D1:**.TXT.67<,.7<,F A"@A )}5@<(}F A5p  A4F:A,"A6*@@@4 A5P**"@e*F:A,"}ApA!`pA @4@e*F:A,"Ap:(}L-@@p(Not In This Months News Lette}r! AF AF! A!` TA @'A@hT((} 짠򠠠 00(}( à aB7t@d'@@d4@8(D@waF:Ad,"}AFA5P F:@, @"A5  E(3(' 堒EAdAU ''F:A}d,"AU*T:,"A5@ %AdAU(}% A5 ZAdAU(0(Z($Press }a Key or Trigger for Next File ''F:Ad,"AU*T:,"A5` *@@@'AdAU*$NA }%6.D1:PRESSPRT.MNU*5G@@@N(}((6-C:hhhhh Ȅԩ`,!A@h}!A " A@`(" A@@A @QB7t@d'@@d9-@@ }J( Selection: Q)!!"@i)"@eAH"@xAC,"@c' A@@}A@TK AD(}3D1:PRESSPRT.HLP= A5G A@KÛC6-@f6-@V!6-'6-36-}@96-C AI0S6-F:A,"A6E(! Viewing Complete Press Any KeyL)O$SÛDU (}-@}@'"A8K(Your Printer is Not On Line...U AFX<"Ap2(Printer Help File Not Found...< AF}b= (}-@@3(ERROR # F:A,= AFl A@-A $7@6-!"}@e'6--6-7 AH@F (}-"(PRINT STYLE?0( . DRAFTF(. DOUBLE STRIKE0)@6-&@d}0 )!AH U (}-3( PAGE COLUMNS & LINE SPACING?U(. 2 COLUMNS AT 6 LINES/INCHh%(. 2 COLUM}NS AT 8 LINES/INCHG(. 3 COLUMNS AT 6 LINES/INCHh(. 3 COLUMNS AT 8 LINES/INCH( )( @e)!@hAH@}g6-@f6-@V'6-@-6-C"@f)"@hO6-@[6-@g6-@v!@f6-}$I (}-!( PAPER TYPE?4(. CONTINUOUSI(. SINGLE SHEETS8( )( @e)!@fAIB"@f}6-&'ÛL$/ 6-6. D1:**.TXT6-%"/ A@E (}-@@>(dd, ven, or ll} Pages?E)++@e*@y*@iAPU (}-9(%LOADING BUFFER before Printing.....U(Use }-P to Pause+(Use -C to Cancel+-@= 6. 67,.67,.#6.)6.16-%=@w/} - A`6-'6-@@/-"F:Ad,"A8" AU,F:Ad,"AF", A&} &APAQAQ 67<,. AQ@67<,. AQ@67<,.! 6-%6-%@9 }! "F:Ad,"A8" AU#,F:Ad,"AF", A$..'@"P:'@,*"@yASE}%..'@P:'@,*"@iASE(9 A&@P:,"9(@=2 "(G}F6  '6-+",$%+",$+@&,6(=:,PN (((":6-+",$@ %+",$@G*@'}N*Z: 6-6-@@-$6.*":6. _"F:Ad,"A8" AU`,F:Ad,"AF}", Ad<67B:,%,.7<,)67B:,%,.7<,<67B:,%,.7<,n"6-?:(&(DO YOU WANT THE ODDS (Y/N)3)@=+W0@96}q0@@@0@@H"@x@ R@A\@f<97}6-%%%&@ (<(SORRY NO ODDS RIGHT NOWp3&@%-@A) 3 A z'('(}OUT OF98} %@ RACES:(( Ӡ(( ALEX'S BABY (( MONEY BAGS (( L99}ADY LOVE 3(!( GIRLS DELIGHT 3AR@ ( (PRESS ANY KEY TO RACE##@@9:}K:)@@ '('(}YOU DON'T HAVE THAT MUCH!!!!-@A !(} A9;}6-6- A"9-@@52@@9  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($V-@@`2@j-@@P 9?} t=-@A92@@= ~z -AV@6@<2@@@9@}@ b2@v-@@Pz a-@AV@;2@@@? 9A}a2@ -@6@2@-@@P 9B} $@6-@%@*@%6-@%@*@%6-@@9C}6-@@6-@%@*@%6-@%@*@%6-@@9D}6-@ @6-@%@*@%6-@%@*@%6-@(@9E}6-@2@6-@<%@*@%6-@F%@*@%6-@P9F}@6-@Z$ D4:OTB1.BAS8.`lCONSN55NYNFNPFN1FN2FN3WHEXCOLNNNXBDLISAVFNLXGRIDYTOMBITB2MOVEHTEMPO2LEFTRIGHT=H}BYTELASTNSTBRKOFNNN6N3NNSSAHBCRSREENTRKEN25N1N154SON25LINFLN1N1FREN1N1NN1N1CN22N6=I}40DSCN8LINCLGN2ZLWN550N75LOMAIN1LASBIFILGEADDIOCHLSPECIAOVEMEMSEN4N154LINN1N620N19N170=J}PSEN310N580N12ERRON71SCRN8 =K} @ @@@@@@=L}@@ !"#@$%&'()*=M}+,-./0123456789=N}:;<=>?@ABCDEFGHI=O}JKLMNOPQRSTUVWXY=P}Z[\]^_`abcdefgh=Q}ijklmnopqrstuvwx=R}yz{|}LF:B2y,@& D:CHARPKG)LSave if a console key if pressedHH=S}This program was written by Peter Payne - a.k.a. Leto II>>This program is definetly in the public doma=T}in.DDIf you like this program then SPREAD IT AROUND .iiI spent a LONG time writing it, working on=U} and off, so please give it to other users.Thanks in advance.<<Call the Sherwood Forest 40 meg BBS 61=V}9-276-5603 >6-AXAY% Aq>Init numbber variablesqq;,;@@,;A,;@,;@=W},;@,;A6,;@$,9,9,9,;@0,qq;@ ,;@,9,;@B,9,9,;@ ,=X}9,;@,;@3,;@!,;@4,@@;@,9,9,;@,;@$,;@f,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}ԅԹ eԅԹ eՅդЧ` 0@P`'Nu pX@(#d,X ԥՅ .JJJJ)iFiFi1FicFAf}i'ȐȦoFiUȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊAg}שBL"`I))83Ԥԥդե֤֥פץؤإ٤L!K6"ХL"Aq}B%DOS SYSB*)DUP SYSBSRAMDISK COMB[WELCOME SCRB cGEMCODE5BASBAUTORUN SYSBAUTORUN COMB;VNEWSLTR BASBHELP DOCBPRESSPRTMNUBPRESSPRTHLPBMAINMENUHLPB!BNLREV TXTB$nULTRSPEECOMB5OTB1 BASBGCHREDI BASB\TB32Q COMCUDCHREDI TXTB CARTINT TXTBTB32Q BASL"L"E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L"8٥إץAr}֥հ'I8م٘؅ؘׅטօ֘ՅL"ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅As}م׆ةեׅ֥؅ץم؆لԘ)q ` # j# wb7i j# !%!L-#`At}刱䈱㈱∱ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`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} I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ $ # tb; #0 $ wb(Az}ߕ !ԅԥ & ?`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.2q  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}hL4ň剰)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}H 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}`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}Š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}ƪ^ ,@@檦^_^ _@_`__`ƪ^ ǩ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} ?HJJJJ ?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} 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}Ő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}Մ$ Q` Q` QL"@H " # $h wb@Յ՘JJJJ 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}NA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI?FILPOINA}?APPNBAD SECTOR` C B^0 ? Cۄܱ W **m %XݤܱEۅڦڱ= Z A}YܥeƥiեLYW@ ` **)]W` 00`` ( ((((((((8`W)A}ߥ & &e &߽Wřِ׼XXWJJJJ&eXޥeYߥ䥛 9XFfЎᰈ WA}`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}uڕ0eUiV`TUV`8UV`eTi`8TȢ` 5L5A}==fF45I5BrMKA}L;E;E8EM=M;8]MYB;lM(65_617=7T76NQBYH\BEEP4MMOYH77_55'5=D5474H66BWU===O LOOOMM9 9A5 LPTA}P8 9 999B.RPPfP:5K=RTTDBWG9J9P=MXy74jZ`@ g:,,,A}=>>>>>A====H>7>&>=99o;=>>>>>==:99999?@t@k?Y?%??LA}ACAi@@????=kByBP?B?u?@@Q~QB=9@`@@Q>_>Y>V>=PBB ,(""(222000000..222A}222222222222222222222222222**22*22&222$2222222222 ,(""(0000000--**A}2*&22$2222222.:,g+ BdD& A,S-0H,AAAA}cg' qV A}]\}?,Ќ,е,Y_Ҳ+7,/01 2!3"4ƐA}"-"."-?A}ʩ   ʎD ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a.T467A,.!bcdefghij=}klmnopqrstuvwxyz{|}~T67@@<@@,.>:@4,1L 68,-@@%68,-A468,-AHC68,-@pL=}68,-@68,-A(68,-A? 68,-68,-@$68,--68,-668,-?68,-B -68,- J!=} 6-6-6-!6-AFT3+  A ! A8-A03U 6- V'AA'A=}YKBBA-A @'27EK:K\$ -68,- $6-@F^G -=}(  -(-%7( | |; AG6-_ -( `oB2IA!A->}B2`?B2SAKB2V]B2HAoB2P@RaB2Xc& -"$%A%&8,&>} i AA#r " A9Ew -(|TAU6-6-#1)-5(>:,;E A>}bK6-T6-I:,}F!A-?(% Ҡź٠ҠŠ F(~JA-C( ٠>}Ǻ  BYTES REMAINING J('6-F:,%F:,$'&A@i" " A9EO A9P>}A@1A@CAAO@F2AA2All caps, no inverse1'R:>},"*T:,"*F:,"*F:,"AU1 AF:,AUAP0 T:," A0Check for trigger pressE"+$,>}%A%+&,&8&,E%Ah%+@%+&,,8&, 6-R:,-( ))6-%$+")")",&$+")">})",))6-%$+")")",&$+")")",  6-!@#6-@#  6- !6-6>}8&,-F:8&,%, -(' 6-F:,6-F:,'"*"A " A9E " A9E?> }?"@9)"@`)"A$)"@)"AA"A F:,)- (  AVC> }heck options  -  A((Option O, puts last images on grid/"@y-#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>} *+*+ ARTIFICIAL INTELLIGENCE WITH THE ATARI 8Bit. Submitted by Jim Cutler LANJ}CASHIRE, ENGLAND, 14th May 1993. Printed by OL' HACKERS A.U.G. ----------------------- AT FIRST ARTIFICJ}IAL INTELIGENCE, (known hereafter as AI) in the early days of computers belonged mostly to the world of the GIAJ}NT Main Frames. However,the language created to address the problems of Artificial Intelligence known 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 marketed their cartridge placing most emphasis on Turtle 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 POWERS LCSI Logo includes a fairly powerful List ProcesJ}sing capability, therefore, if you have LOGO you can begin AI using LOGO as your introduction. A STRONG LISPJ} 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}E If you are looking for something quite different as an 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. =<>=<>=ide. =<>=<>=simple introduction to LISP sHBcreen AB6@@%(*@@96-@$W( 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>}Y( :SHIFT i( :SHIFT /( :SHIFT #( :SHIFT /@]6-F:A`,%F:Aa,$3%@"A>}0E-@6@](|}|A --@$(|! --@$A(Y'6-F:@> },%F:,$%+$@@,&I-%+@$@@,@@UA$Y O%A`@h+&@@@iOPoke>!} rt edge chrs onto the screen+ -(||-+(*-@$*(||1 ->"}(||-(*-@#1( --(|  -( -(-(||>#}? -(*-@$?($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>'}E$##Check for the joystick buttonD@w$68&,-F:8&,%,/6-8&,D6-?:C:,<<8&,,)F:A,>(})68&,-8&,&8&,)F:A,")68&,-8&,%8&,*6-AF:A,*6-AP76-?:C:,<8&>)},<8&,<,)-$- 72$?Option V, animation@Q &(MODE 0, 1, 2, OR ANTIC 4?-)M @H)>*}!@P*@RQ B " C; 6-6-6-#6-&@H)6-/"56-;6-D "6-@E ">+}6-FV 6-! 7(PPER OR OWERCASE CHARACTERS?>)D6-P"@vV6-H " I( AF(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-@"k#**!@8#6-@8l"*!@6-@m"*!@6-@>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} Ab6-(6-F:,6N (1st Character:").67,.>:,8 AG>6-J"@N 8V (>5}2nd Character:")467@,.>:,> AGF6-%R"@V >< !  ( ILLEGAL ORDER.-A2 >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 A9#"+-2)6 R"A>8}!5S-@$) W A4  _ 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.~ ->;} 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!!!!!!!JKLMNO'6-7 ;-B:,46-$@%@:7@:7,,&@G,,&8 ;$ B  (6-F:>>}@,*6-F:@,218-?(>:,B$ Option A U +A )@5AAA0>?}K A( Q6-U   A0  -(}A   F:,"  F:," F>@}:,"A(  )F:,"@b*F:,"6-) A) #F:,"*F:,"6-# A) F:,"@(   )>A}A%(>:,@ A( S ##Load/save routine for screensT - 2A# A'-2U  A( >B})W "@I6.X "@P6.Y "@Q6.Z !! @I)!@QA( [ ! 6-6->C}"6-!6-^ m 6-F:@,%F:,$| @6-A%"6-P:',86-P:+'&P:',,$,@%} >D} % 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}p,668,-F:A,:     Filename input entry point . 6- A5(""(-.(  4>G}C:6.$  6.D1:67@,. 4*6-$! 4*"6-$& B:, A1 * >H}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 A7 7 ( COPYING IMAGE# AG/!A'76-& ' -"'68%,-F:%+$,%, = ">K})6-?:C:,<8%,L}$'6-+&,$M (%P:',(%P:+'&P:',,$,R %W (%P:',(%P:+'&P:',,$,\ ) A40)6-?>M}:C:hhhLV,<@H,f $ Actual entry of filename K 6-F:,6.6-(6-F:@,.=6-F:@,C6->N}K(  ) "AU($  " ''(  /"@C)67B:,%@,.*.FNT,(/$ ->O}"A''67B:,%@,.*.**(-$ 8"A&*B:,!&6.7:,8 A5 ("A&*B:,"(>:,>P}( A5 ee"@X)+@H*@W,)+@e*@,)"@F)"@B)")"@GA5P 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!@56- @6-@"!@"6-@ # "-(>:,>V} 6-#$F:,"@('   A7 More screen setup2@-#( 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}s on or off screen<' F:,$A'$A- F:,"$A@*-$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#- A9E36-B   .(SELECT TARGET CHARACTER82B A7 ( Computing.>]}../ -68,-8,#68,-8,/68,-8,  AG6-G 6-$-'68%,-F:$%%,8$%%>^}8%,C68%,-G  # -68,-8,  # hR@!@@5--@O(7<A0,>_}7A3<A6,R$Option R, restory memory& ( RESTORE? )"&  6-6-?:C:,<$,.6>`}. D1:CHRFILE  .Clear the grid./Print character bit maps0 AG+2? -'68,-F:$%$@>a}%&,08,"?68,-A#4 5 "6-A#:$ -$(%A DATA >:,?2 -(>:8,, >b}$('(2(G.4425D -AB&IABN 6-%S Ai@$ -6 68,-8&,$ # >c}-68,-8,  # 11String entry routine in Option V, animation8 6-6-6."6-@.6-A>d}8 AH!%@%!%1(1(&Enter characters for animation frames:g@!@@5>e}'-I(7<A0,7A3<A6,U@g@@9 6-@4 / -/(Enter character for f>f}rame #   -( )"AUAF` "6-' "A&6-&  6->g}("A&6.7<,(AFE"A&*"AF  67<,.>:,% 6-%!@5$* AF >h}4 *$9; -+(Load character screen? (Y/N)2)8;$>T 6-6-(/(Which screen? (1, 2, 3)6)>i}T!@Q) @IAF`C 6-H$[00Convert ASCII to internal. Byte is in CH.\@$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-A9$(-@( 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 "@()(' $OSetup for CIO callP6-AdR# %>o}%%#%U$33Toggle character window from Gr. 0 to Antic 4F:%@#,AS N-@#>p}@(%# ,8,;A8,JA 8,N W -@#@(%%) ;A@@M>q}A ASW ) -"$%A%&8,& )${Move players off screen|4 -B2H%>r}-B2R%1 4$))Check keypress and branch to option""@eA("Option A""@fA"Op>s}tion B6+"@g)"@`)"A%A6Option C""@iAI"Option E5"@p6-F:,$ 6->t}* A35Option F."@q6- # Au.Option G5"@r6-F:,$ 6-* A35Otion H">u}"@sA "Option I""@tAS"Option J""@uA`"Option K""@vAW"O>v}ption L""@wA2"Option M""@xA0"Option N&"@y)"A&Option O""@>w}A$"Option P""@AxP"Option Q""@AC"Option R""@Ap"Option S>x}""@A"Option T""@AE"Option U*"@6- Ai*Option V""@>y}A!"Option W8"@)")"@#6-- A@8Option X""@hAr"Option D""@E>z}A"Option ""@aA"Option  "6-6-$"@C A$Option ""@B>{}A"Option ""@'At"Option ""@cAA"Option ? ACOption L, load fontD>|} Ab6-I (LOAD FILENAME: X  " ]B:, AW5bE-B:,&B:,&%7<%,4/B('.6>}}-;6.7<&,E AW5d g A9h"AW9iB A9 ,(NOT SAVED, LOAD FONT?3>~})9>B j A9(>:,k" 6-"-)" l 6.= Ab AR%=6-?:C:>}hhhLV,<$@,h,h,h,INV *,L,V,INV d  AT A9 ''Clear top line and position there* ->}!6-?:C: h(X`,,'-*$E6-F:A`,%F:Aa,$-%A0?BBAB(E($KKh,INV ),CT>}L @,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%@?t( SELECT STORAGE SYNTAXvH@(-(>}H(| 1. DATA (BASIC) |w9(| 2. .BYTE (ASM/ED) |9(| 3. .DA (SYNASM) |x(| 4. ACTION>}! SYNTAX |z0(!($(0@4<@@9!@$(*<( Selection?8 )>}6-&@H8+ )!,*%@HA`%@H" % " (( DATA MODE.% A`0& " (( .>}BYTE MODE.& A``$ " (( .DA MODE.$ Aa3 " ()(ACTION! BYTE ARRAY MODE.3 Aa0 A` >} AaP AgD (WRITE INDEX FLAG? (Y/N)')1#A8(>:,DA"( DATA ) "6-@>}:7<,,#"A#)6- "(,+ -6-@:7<,,%"A#+6-3(, !6-@:7<,,->}"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#>}<6- "(" ""(>:,>:@4, 6-% A`e Ag AaP #A>} Aa S 6. ( TABULATE? #)*(>:,6AB"@S6. ""(.DA " A`>}+ -6-@:7<,,%"A#+6-7(#, %6-@:7<,,1"A#76-(# 6-%>} Aa Ag 6- AaP AaI=($(WRITE INDEX FLAG? (Y/N) +)5#A=(>:,+('(>}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:  $ >}AaS*;B:,AaS%A%Z(=(1FILE ALREADY EXISTS. OK TO OVERWRITE>}? D)L(>:,ZA` /A Ab)/  " $ 0 AaU(,(STARTING LINE>} NUMBER: 0' Aa`#(LINE INCREMENT: '$7##Trap errors and print message8 Ab" =! 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>}G6 Abpe5F:,"Ad+(FILE NUMBER MISMATCH5 Abpo(ERROR F:,~<Au -@0! <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%@%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%A@%@w7AU>}; ;+-%A%@B%A%@w7@; ,6-?:C:,<$,,Copy the character set$ ->}68,-F:8,, +Display file section in K,@* (} AgP%*%@JO-@ >}( #(B(Press any key to continue.I)O(}TAg0Y ^/( ($(Press any key to exit.>}+)/  6.6-0 *(ENTER CHARACTERS, PRESS 06- )67<,.>:, 6-%"@' >}"AUAi5!A'6-&A(7*@1%6-@-6-%7 Ai%7*@c>}6-@ -6-&@(7 Ai%7*@6-@!-6-&@`7 Ai%3@*A'%6-@">}36-&@  -(>:%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&C6-P:',j6-P:+'&P>}:',,$,nE 6- A9!7<,0C:+ Ap'0;E As3  6-' AR+>} 3%x5 "***%*,*5*%6-?:C:hhhLV,<$, A9 88Initial>}ize number variables. This saves much RAM.6-@6-%6-%'6-%/6-%;6-C6-%K6-%W6-@>}c6-@o6-@{6-A6-AY6-B2y6-Ad'6-AV36-A?6-@K6-AV>}W6-AU_6-%k6-Aw6-AX6-@6-@W6-@6-AR'6-Ax36-@?6>}-AUK6-@DW6-A$6-Ad6-%6-%+6-@d76-@C6-A@O6-@'[6-Ad>}g6-@s6-A@6-@2'6-AB6-A1'6-Ab$Option D, demo characters ! AU>}+! A9!? 0-6-F:A`,%F:Aa,$36-?AU"3AAQ'A A3>}@%/ -%% %0/%%'Q-%%@ 3%@"A0EBBA>}KQ*9((7@8<A,'@9@@5+( ( ((,E( (-#A%8,' 3>}@E@@9-%@4 B"%. "/ "%0AUF:,"6>}-2 F:,"6-3F:,"Ar4 )5+"@I-%%!% +6+"@P-%%!>}% +7 " 8"Arp9@Ar`:H68,-@@!68,-A068,-AH?68,-@p>}H68,-; -A%8, \  Arf+ -+(ENTER COLOR REGISTER: g* )6-&@H>}* )!ArhG Ar-/(ENTER COLOR VALUE: 3G!@Arrj; -#(ENTER INTENSITY>}: ';!@Artn 068,-$% -( Ar!!Option J, move line pointer F:,">}  F:," KDisk menu.LM+AA+AA/ 5A6-Au M( 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,@ (ON * Au T F:A,"@ (OFFUC  Ab(9(SE>}LECT ITEM OR FOR MENU>CV. Au)6-."AUAuXE"@p6-(( FILE TO LOCK:>}, 2E@5Y"Au ["@hAv\"@Av`]"@eAv ^"@r>}Aw`aG"@q6-*(FILE TO UNLOCK:. 4G@6b"Au c"@sAvPd>}"@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( "Au   E(?(TYPE >:@4,Y>:@4,>} TO DELETE FILE E6- (? AQ(" 4Y "@3 Au ! Aw>} !6-((9-B:,& 7<%,4/P&6-+9P:  Au  >}("(F:,"Av(% )"% Au  Av"'( FORMAT DISK # AQ')>}?6-&@H )!(5(NEED D1 THROUGH D4? Au  *((S(?(TYPE >:@4,Y>:@4>}, TO FORMAT DISK CS0YAu C6.D :*.*&67<,.>:%@H,9ATC AvR4F:A>},"@*A@4 Au4F:A,@*A@4 Au( FILE SEARCH: '  ">}6.D1:*.*$6.*.*'$($P2!(WRITE DOS.SYS TO DRIVE #+ AQ2)R?6-&@H )!(5(NEED D1>} THROUGH D4? Au U(>:%@H,ZWC(TYPE >:@4,Y>:@4, TO WRITE DOS TO DRIVE GW0YAu >}dI6. D :DOS.SYS*67<,.>:%@H,/:?I Awpx@ B7t$@Disable break key. This>} is optional.3 AX,(CHARACTER FOR CONVERSION:3)\ 6- AG AX\( ATASCII =  (>:,)>} ; INTERNAL =  (>:,) )AxU % SAVESCR.1NT>:,). )AD*.*FNTFNT >} @@AxU % SAVESCR.1NT>:,). )AD*.*FNTFNT <(ATSAVE "D:TB32Q.BAS ))(!TB32Q.BAS is for ONLY! D:TB32Q.BASLb