@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}. |||DDOS DOSDOS SYS }}}}}bc }CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8S} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED* MENU 018 COPYING---D1:MENU4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`Pcd} AXLPB0NZ  X} +AdAUuA@'A @9A@K@@]@@7c( Y}}uAR@++(#++(#| ANTIC MONTHLY DISK AUG. 1986 |++(# Z}( | Side 'A' |++(# @ -@A [} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@ \}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.. ]}i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@ ^}B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@, _}.0$@(''7@<@,4FREE@- @ 2() <@F''7@< `}@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++( a}#| |[ ( |  |\++(#d**(" Sel b}ect HELP.BAS for information.xAR[@@9'-@@#C( FILE NUMBERM A0 c}Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+& d}@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6 e}.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?A f}R@'-@@"?  LOADING ? A@@91@@5%? B[-@ g}@"-  CANNOT RUN 7 @LF:A,"@![% D:HELP.BAS B A0D1:MENU.R h}TOON.SYSMENU.DOC.TXT .TXTC |ATARTOON.SYS(TA0063   N WELCOME TO THE ANTIC MONTHLY DISK Most of the prj}ograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. Please read the cork}respondingissue of ANTIC for completeIf you wish to order a back issue,or need subscription information,call us at (415) l}957-0886. For creditcard orders, dial (800) 227-1617, Ex.133. In California,(800) 722-3545, Ex.133XXX*** BONUS **** BOm}NUS **** BONUS *** This month, Antic Disk Subscribersreceive several bonus character set(font) files!!!You may use thesen} files with theCHARFONT.EXE program.XXXThe menu that appeared on the screenwhen you booted the disk will onlyRUNo} programs with a .BAS extender.If you try to run a program and theresponse is 'cannot run Filename',check the file extendep}r with thislist:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER q} then RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the r} filename..ASM Assembly language source code (Atari Assembler Editor) Must be assembled..M65 Same as .As}SM only MAC/65..AMC Same as .ASM only AMAC.SYN Same as .ASM only SynassemblerXXX.OBJ Machine language object file.t} Same as .EXE but not 'Load and Go'. See corresponding article..SYS Reserved for DOS system files..FNT A u}character set, or Font file, which may be used with CHAREDIT.EXE..TXT Text file. Usually accessed by v}another program.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We'vw}e updatedthem from our HELP columns andmost are compatible with the XL andXE machines. We have worked to insurethat our px}rograms operate aspublished, but we consider all oursoftware listings to be works inprogress which we encourage you topery}sonalize and enhance.Good luck, and ENJOY! -ANTIC EDSK Most of the prE|LINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT{} A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@|}l(}v @@<( @@dj@ B*-@@"R("ΠҠՠҠˠҠ_@}}j%D:MENU D:HELP.BAS ;A ,;@,; (}@;@@ D:DOC.TXT%788tHIGSPRRFSXYXPPPPSLEQQHL} } BUMBLBEEBY EDDIE CARSTENS (c) 198}6, ANTIC PUBLISHING(E%6-F:A6,$AV%F:A7,16-@; A E @2Z-6-P:H:,$@,$@}%@W6-P:H:,$@,$@%@Z$<m ,/%@%@-,%@;/%@I,%@}_/%@%@m,%@F/%@%@',%@=,%@%@K,%@a,%@}%@k},@$P+@%@@1,AY@C/AY@U/@}g/@s6-6-6@6-@ZQ0@@@70@@Q0@}@d9%6-F:A`,%F:Aa,$AV9%@@fndAR@'@9-@}d(%SCR BOUNCES 3 HIGH G 4.0x4-@'"($@4@@! @ @P! @`}?6-?@6-@'6-@@36-?6-N6-R:,6-N6-+!@* @,&+}!@* @,0(6-%&6-%&+(T:,,0 A` 6"6-%6-&6-F:B2y,&"@}A"@@-"@)"@# A - @3(T:,32@@}= 6-6-6-%6-%= @)!@Ap|!AX) @%6-16-;}A,a6-AW$+!AX,%@r6-N:&@,| Ap- 1"@#6-@- Ap@}Ap[  @`! A`+ @P5@? @`M6-%?[6-%@v@'-@}>($@%$@PP-@d(P:'@, v@@] ,@#,}E2]6-&>&$>/6-%@/ @P&@$A0" 6-6-6}-,? @P1?)O:&, @)O:&, @A 6# @ @`#6-@@6-&@}6-6-J/+-@+@&,$@%@/ Tn ,@1@C-@5}[(P:$A,'@g @n(Y16-&@10@@&^1@@'@w}1 APhe -A @`6@<2@@@ b2e$r%%2}@`@@| @A96-&@6-%@%6-+6-26-696-6s ,}@1@C-@W(P:'@, i@@s AP\$@%!#6-$}@%46-P:'AV,D6-&$AVPA6\A7y @,@C@@1/@6@@C/@6}@PU/@C@Pg/@C@Ey/@9@Eo,@P@@'/@F@P9,@P@@K/@T}@P],@H@Eo/@R@E],@V@P'/@V@@9/@Y@EK/@b@@]/}@b@Po,@s@@'/@f@@9/@f@PK/@s@P],@g@Eo/@p@E}],@@B'/@@@9/@@@K/@@B]/@@HK/@@P'/@}@P9/@@HK/@@C$9,@@@'/A@P9/A@@.o,A@@'/}A@@9/A@PK/A@P],A@Eo/A@E8K,A@@'/A$@@}9/A$@EK/A@E=K,A@@'/A@P9,A @EK/A$@PBC },A$@@1,A$@EC,@9%2/ A 9 @>@}'-@>($@%$@Pp-@)(P:'@, ;-@'G($@Y-@5}p(P:$A,'@!-@!6-?6-%@(?F:B2y,"@* A}A F:B2y,"@$ +'0@@@A0@[0@@}mAR@-@( Š##( for ANTIC magazine""( by Eddie Carstens`-}@@4(PRESS TO SET SPEED.F-@@`(PRESS TO START."-@@"(SPEED }4-@@4( METABOLISM %@ &6-F:B2y,&"@A [6-%+"@,/6-&+"@},$@A6-%+"@,[6-&@$+"@,"@$* F:B2y,@A 4 A }D1:BUMBLBEE.BASSPRRFSXYXPPPPSLEQQHL"m=9i(>9A9?9i?9B9rש@$͍{$͍0"90$1*/ԩ΅ k7L&Э} ^=_=l 1L&'Ў *< V 8 4 /6ȩ 2L& =0 (=)=l'}< V L5` 4I 3L& 59 3 3 @4ԥ8 & & &ԅӥ 4 5 2L& 5ƿ9 3 3 @4 7 2L& 59 }3 3 O4 2L' 4 S6; 3 '5Ņ 5L&٢9 3ۢʽ'9)IH'9xi }8 8i'9 S6` 3гL&τ= 4漤ΐЦ6v΅= 4Ƽ}e΅Т 2L&΅τȄ 4 4= 4i8HHhhŷߑƺ }ƼЗ 2L&ŶЖа 3 59 3# 85 w2ťH 85 w2Ȅh ~5 k7΅υ 4) ?6 3iH 6ō9}9 5ƿ9 3 3hHʥ= 5 7 2hLK' 5ƿ9 3 3 O4Hh 2L) ~5 4̈́ 2 5L&( }~5 48ͤш̠;͠# 2 5L&΅υ 4=ľق= 4I 2L& 4;! _5} '5 6 ~5ņּ19,9$19A$$$$ 7 5 5L&  2L& 4`; _5 '5 L+} 5 2L& /6 59 3 3 @4 4; _5 '5{ߩ /6 4iѲ01 7ۍ|:} 6 w2濥 w2濥 w2濠X: 3涥ŷ  -' 5L& -'Lm+ ߩ, 41: 3 88d:ۅ 4>: 3} '5޽c: 9ޥ 99 99 4ƿ : 3 .8 BnD=EJK VL8 4i}0n B̝D9Eee۝H V 7Y: B]D:EH VL8 990999:09涥ŷ}L, 8 5L& 59 3 3 4P: 3 w2 6濢濵 w2]:X: 3 8SߩX: S}X:)uߕƺ0EY: ߵuߕť 4 2涥0L5- 5L& : 3 -'L5-΅ 4 4=} 4Šϰ L.őƼз 2L&΅υ 4ƽ 4= 4Šȑ L}S.őƼй 2L&υ΅ 4L. 4= 4(*Ƽ(iƺƽ 2L&υ 4L. 4= 4(j}ΐ( ƺƽ 2L&L&Ņ; 4) _5/k9 2濩s9 2濩{9 }2 -'ƻг 5L& 4: 3 -' ): /6 B(D:EJ VL8BnD=EH VL8n=ɛ L5} w2ſo= 8 -' 5L& -' /6L/ 49 3 .8Ţ JBnD=EK VL8ŝBDH} EI VL8'D9EHI V 8 2 5L& 49 3 .8 Ţ JЈH 4 ԍЩh@G ԍЩh@H} Խ'9hh@0 4L1 4`؍m* 3 4 4= 5 7 2 3`x4H 3hJ}JJJ  3`/ 4= 4))8jQ 2x 3xHFܰ#̈0 ~5 5 }6L2 4Fܰ%Ѱ ~5 5; 6L*2 4ȄFܰ! eeɅɦʆ˥8i0Fܰ А 8ɢ˥ii0}h` 3eȅ c42Hi(2h汱`ׅȢ w2濥 Ȧ` 3)3JJJ } ee҅@ 4Ƽ= 4H)ʆ籰ڢVEڐ  ȑE(  ȑjE( ڐ ?ȑh!}i(L3ϰ3L3漥ΰL2` w2` & &`… c4I8(池I`}` ȩ0 3I# 4 w2ƺة ?6` b1L&p 3L3Ŷ` 3i 4`}Bi@ie` 3i ` 4= 4`JJJi 4`eΈeƾ`ʙ` } e` 4 /6` 4 3"` /6 2 3`۩9 3 -'۰)` i@``8 `}g5 3e݅`H̤JiRh`~ 5 J `΅υ 4澩== 4L5}i侐`Ӧ0 `өԠ@ 5@өԠG 5`өԠB 5`!٢9 3`'9 6}ii:iő 3`dd8 iƅǥǩNJťDžƩ`؅XBL}6(@e煲e腳' 2`Š L;7Š eeiGi= }漥ΐ潥ϐ` 6˅̅ͪ=#=> Х Ѧʽ69 i0Щ 2 7 5` 3ii }i䷐`]:ݠ 6ݥߝX:X:X: X:L7`9 2 -'~ w2}ƿL.8ɛ-]= w2n=DCP~: 3 -'L&` w2ĝ]=L.89 2 -'~ w2ʩV:L8ɛ }&ϝV: w2й V: w2` B V` 6ƍ:Ǎ:: 3 -'L&K z F(ʔF M@M@}3",!.+2%34/2%#/09'2)$'2)$37)4#(72)4%).054 DATA } .BYTE #hoice,oadfilename 3avefilename 7ritefilename $rivenumberD1:*.??T,inenumber"}asicor-,)nput$!4!.odevice%rrorindata%rror#olor2eg#olor}2eg#olor2eg#olor2eg#olor2eg%xit'raphics'raphics!nticmode}'raphics!nticmode.ewcharacterset2egularcharacterset,owerhalfofcharacterset3cree}n$evice%%dit""lank))nvert\3hf5p''rid##opy&&lip]3hf$n55ndo83witch )nverse}^3hf,f5pdate( (elp22estore_3hf2t--odes77rite$ata/04)/.$ir+#olor$$ata)nput3%,%}#4,oad33howset!4op34!243ave00rintset:"ottom 3peed?H21*+=-DW>UPSMZAXGIFKCRBE0/0/)/%/}..K.- -2++++***O* **)C)(X('''Z'K'&&&/&=00&%~~```ff<~ffff~ffffg|``nf<|````ffff~<Dpqqp//COUNLAREASAVD1DTONSRINSRCDFNCLABEPSDISKFILELOLINEINCHCHSORMAXSIZ }?>> & @ @?FG }?FGA%!@)?TV>TVA FIL }E MASTER - VERSION 5.0BY JASON WORLEY (c) 1986, ANTIC PUBLISHING2 A%<D6-P:'@,%@,-@ }&D6-$@ &@ %FGG7<%&@,/7%+@ $,<%+@ $,%&@,A P7167@<@ },.7+%,$@ &@,76-ZIA67+%,$@ &@<+%,$@ ,.7$@ &@,I6-&dA!A7 }<%&@,27$@ &@ %,@n??67+%,$@ &@<+%,$@ ,.7@<@ ,x !@ }@`$PRINT LABEL SUBROUTINE A( Disk Name 33Disk #!-@@3 }!$G(0(%Make sure printer is on and connected: A ='G ASUBROUTINE FOR SOUNDS'6-@ A0 }'PROMPT TONE&6-@ A0&ATTEN TONE6-@DANGER TONE7-@@32@ }@7 B -@9@6@>2@'@B (%2($ }+!(} No records in memory!+ A %-@A % AP"SORT SUBROUTINE," Ap }6D B6-@$@D@@K:@&&(}Total number of records is J(Sort by:T }-@^D-@%@@(7$@%@<$@%@,D hL-@L(7+&@,$@ }%@<+&@,$@%@,r"AdAU")@|"@E!@)6-&@=-@ }%@z(7+&@,$@%@<+&@,$@%@, A`L"@E!-@@6(7@ }<@,B6-@L A`"@a @)6-%@=-@&@z(7+&@,$@%@ }<+&@,$@%@, A`L"@a!-@@6(7@W<@p,B6-@L A`A }UA`'"@6-@'6-@'"@6-@'6-@ '"@6-@'6-@ }'"@6-@'6-@'"@6-@'6-@O-@@O( Sort will take }P:$+'A,%@, seconds ?-@A -AY?TURN OFF SCREEN B6- }@`*AY@4*( Sort completed  AATTN SOUND-@A $&09()(Pre }ss [RETURN] to continue...6@9$:.(!( Aborted by request.+ A`.$DADD RECORDS SUBROUTINENB*(! }}Do you wish to print disk labels.64YB6-@X7*(Ready printer, press [RETURN].7@b%%(Do y }ou want to enter the typel ( of each file (Y or N)v A0YA^6-@(8(!E - Educa }tional F - DataFile^(!U - Utility B - BusinessH%(H - Household G - GameH(P - Practical }M - Music6%(V - VisiCalc D - Demo6( L - Language((( Insert next disk and enter disk))(! number. Type }'END' to go to Menu A'@'B:,"A4ENDA  6-A:,B:,@A }`E+67@<@,.7@<@,E67@<@,.00B:,@Al+67@<@,. }7@<@,S67@<@,.7@<@,l67@<@,.0 6-%@ A @N 6.D6 }7@,.=:,167@,.:*.*N@@ $@(!"$(*((7@<@ ,4 }FREE A @4AA7@<@,4DOS )7@<@,4DUP A >((7@<@,4MENU A H 6 }. "ApR5 BAdAU1( Program Type5\4*A 0f467@<@ ,., } 467@<@,.p6-%@z,6-$@ &@,67<%@,.//67%@<%@,.7@<!}@,* 67%@<%@,.,* A"A( **Bypassed** A(((( End of dire!}ctory, this disk ( Total records.(AdAU A AP@ AEN!}D OF FILE; ((Records added: (Disks input:  A*6-#-@AP' *$D!}ISPLAY/PRINT RECORDS"Ap$O"@ A@9@@P:E6-@O A.!}=#@@S:=0@@ 8+6-!AR@+ ABE-@E67@!}<@ ,.7$@ &@<$@ ,L"@(@VWW(@ 7@<@, 7@!}<@, 7@<@,`--(@ 7@<@, j<6.7@ <@ ,"4 16. !} <8 SPACESt 6.~ 4E6. Educational 4F6.Datafile 4U6.Utility 4B6.Bu!}siness 4S6.System 4H6. Household 4G6.Game 4P6. Practical 4M6.M! }usic 4V6.VisiCalc 4D6.Demo 4L6.Language(@%+"*"@,% ! }A0 %+"@*"@R,% AP6-%@ "@(}!(( End of file! A`( ! }Ap2 F:B2y,"@A< A`F F:B2y,"@AP F:B2y,"@AZ<"@! }#-@@.(@2 < Ad(@}n"@(@x>((@ File ! }Master Index3(@>(@)6-"@)(@55(@$Disk# Prog.Name XTen Size Filet!}ype$$ (}$(Turn The Printer On!  A -@A 9 B@*AR!}66-9$ Ap APSAVE SUBROUTINE" Ap A%* Ap*@!}@ 1-(} already exists, write over it1 A = 4Y@3@@!}= A AP"+@+@@,6--@67F:B2y,"@#!}6.Save- Ap7 A0@7767@<@ ,.7$@ &@<$@ ,J87@<@,4**6-%@!}. 8 A0T @ ^a@/(&&@ Records writtenF( Records droppedZ-@A!}^ a$hLOAD SUBROUTINEr A%|* A`*@@ A!!(} File Master I!}ndex$$(DISK# PROG.NAME XTEN SIZE@6-%@OO( 7@<@, 7@<@,!} 7@<@,99( 7@<@, 7@ <@ ,&&67$@ &@<$@ ,.H!}F:B2y,"@(>( Load aborted at your request.H Ap A. B@.(} File Not Found !} A -@A $\F:A,A6:(Error F:A, On Load.N-@AR !}\ AP ( End of file reached. A`PRESS [RETURN]@ AP&DELETE FILE SUBROUTINE!}0 A%: A DANGER TONEDe(( This will delete all contents ofC(file  , Press Y toe(delete it, N t!} return to MenuN@X 0Y$b2 A02@3@l((File: Deleted.!}v AATTEN TONE-@A $1$(@File doesn't exist.. A 1$MAIN MENU' !} AP'(} Jason Worley's/0@@ /AR@:6-@@:@@!}K:( Program Indexing(( Add Records""(Display Indexes On Screen""( Print Inde!}xes In Memory""( Sort Indexes In Memory ( Save Indexes To Disk""( Load Indexes From Disk  ( De! }lete Index Disk File""( Delete Index From Memory ( Clear Memory*( Exit Program4""(Display Current!!} Directory>( Change Drive NumberH2-@@"2( Records In Memory = RL-@L(7+&@,$@!"}%@<+&@,$@%@,\6AdAU)-@@6)@^"@(6-@E`!#}"@)6-@aa..(+"@E)"@a)"AU,A!@f"@E!@)6-&@=-@%@!$}z(7+&@,$@%@<+&@,$@%@, A!0pL"@E!-@@6(7@<@!%},B6-@L A!0z"@a @)6-%@=-@&@z(7+&@,$@%@<+&!&}@,$@%@, A!0L"@a!-@@6(7@x<@,B6-@L A!0"AU!'}6-&@AAPAPAAAPA@A"A"A"`A$`A%P AP!(}+(+( }Zeroing Memory Will Destroy All++(#Entries That Are Not Saved On Disk.F$((Y=Zero memory, N=Main menu)!)}2(Continue6F4YA"P$ A& .( }End program!4Y++.$DELETE FROM !*}MEMORY" Ap!!(} Deleting Records i$(An Entire Disks Index May BeM($Deleted By Entering !+}That Number Now.i(Press [RETURN] To Exit. , B@)B:,",$ B:,@A#P$ E+67@!,}<@,.7@<@,E67@<@,.00. B:,@A#p8 l+67@<@,.7@<@!-},S67@<@,.7@<@,l67@<@,.0B +6--@+6-$@ L Z/7&@!.}<&@,47@<@,L67&@<&@,.*Z6-%@V <F:B2y,"@%6.Delete/ Ap2'!/}< A$`  j ##( Records were flagged.t N,($Actual deletion will not occur untilN(file is written back to !0}disk.~ A %-@A % AP DISPLAY DIRECTORY X@'@@@-(}K!1}(Menu Of Disk In Drive N(X A$ N 6.D67@,.=:,167@,.:*.*N@@ !2}@( A$ S@ @@2@@85(? AI A`S AP REQUEST FIL!3}ENAME 7 6.D67@,.=:,767@,. :PROGINDX. T A% (}%-@@P(%Enter 3-Digit Extension!4} For Filename>T $B:,!67@,.$$ A@ 2 (} (/(Current drive number is .2( =.(!5}&Enter new drive number or [RETURN] for=( no change. "@B:,""$  6-A:,$ ~+@%@!6}'-@@@(@ file masterR-@@l(@ ULTIMATE~-@@ ~+@%@!7}'-@@@(@ file masterR-@@l(@ ULTIMATE~-@@( L(@ !8} /-@@L(@ 2 -@AP < I1;@0,;@,;@,;!9}@%,=6. I6-@A %%6-P:I:,'A ,$AF ;@ $,;@ ,P k;@,k6.T A!:}ddDisplay Print Sort Save Load Delete Delete Clear ExitDisplay ChangeZ k;@,k6.T !;} d ];@q,]6.FExtension Program Type Disk Number !<} AlphabeticallyFile Length n ];@q,]6.F x !=} APD1:FILEMSTR.BASAP@2 INSRCDFNCLABEPSDISKFILELOLINEINCHCHSORMAXSIZ 28K8P?@     Y`  Y0 l `8''xXL( LinkLine/80%?}0V.041486 (C)1986 Antic Publishing Written by Patrick Bass Receiving Working Transmitting READY>%@}(|)PBJKL(E:D(E VP B D'EWHI V &B JKL)R1:D(E V $%A}B JKL()R1:$D)E VP BD'E HI V G,P BlD'E HI V ,L5)D1:)*~):)):"`%B}BJKzD)E V 0#`BJK}D)E V0`P BD'EHI V`08~):%C}H):A`BJKzD)E VAP BD'EHI VL*`BJK}D)E V0A*+(` B%D}D(EHI Vii8` B JKL*R1:D*E V (BJKL+R1:D+E V%E}0((( BD(EHI V( BD(EHI Vii8++%F}( BD(EHI V B V`G,B- B JKL_,R1:[D,E V (BJKL,R1:D,E V%G}+ BD'EHI V ,+'+ ΢ B V`' P BD'EHI V`+LL-SL- `%H}+})0 )0 b-` B VPC->. BvD'EHI V *``BD'EHI V0$'%I}iiiiLb-`+}) - *` B V0`0P B`D'E HI%J} V B JKL!.R1:D.E V (BJK?./LF.R1:BD.E V BD'EHI V䭜'ۢ B%K}םD-EHI V B؝D-EHI V BD'EHI V'iiii8--%L}--- -Ш B V`'     Y`  Y0 l `8''xXL( LinkLine/80$!0100 ;D1:LINKLINE.M650110 ;0120 .TITLE "LinkLine/800"0130 ; (c) 1986 Antic Publishing.0140 ; Ver. 0414860150 ; Writt)N}en by Patrick Bass0160 ;0170 .IF PASS=00180 .INCLUDE #D1:SYSEQU.M650190 .INCLUDE #D1:IOMAC.LIB0200 )O} .ENDIF 0210 PASS = 10220 TOTALCODE = ENDCODE-STARTCODE0230 .OPT NO LIST0240 .OPT NO MLIST0250 .PAGE 0260 )P} .INCLUDE #D1:LINKA.M650270 .OPT LIST0280 ENDCODE0290 *= $02E00300 .WORD STARTCODE0310 .OPT NO LIST)Q}0320 .END NE.M650110 ;0120 .TITLE "LinkLine/800"0130 ; (c) 1986 Antic Publishing.0140 ; Ver. 0414860150 ; Writt(0100 ;D1:LINKA.M650110 ;0120 ; .INCLUDEd in D:LINKLINE.M650130 ; (c) 1986 Antic Publishing0140 ; Written by Patrick Bass-S}0150 ;0160 ;Three MACROs.0170 ;1) Signed, two-byte addition.0180 ;example: BUMP COUNTER,200190 ;0200 .MACRO BUMP 0-T}210 CLC 0220 LDA %10230 ADC # <%20240 STA %10250 LDA %1+10260 ADC # >%20270 STA %1+10280 -U} .ENDM 0290 ;0300 ;2) Signed, two-byte subtraction0310 ;example: DBUMP COUNTER,170320 ;0330 .MACRO DBUMP 0340 -V} SEC 0350 LDA %10360 SBC # <%20370 STA %10380 LDA %1+10390 SBC # >%20400 STA %1+10410 .EN-W}DM 0420 ;0430 ;3) A "Load-Word" construction.0440 ;example: LDW LABEL,POINTER0450 ;0460 .MACRO LDW 0470 LDA # >-X}%10480 STA %2+10490 LDA # <%10500 STA %20510 .ENDM 0520 ;0530 ; We decide where start will be.0540 STA-Y}RTCODE = $27000550 ; Rest of RAM for boofers.0560 TEXTBUFFER = STARTCODE+$09000570 ;0580 ; Pointers down on el pageo zero-Z}0590 *= $800600 LENTEXTBUFF *= *+20610 POINTER *= *+2 ;generic pointer0620 TEXTPOINTER *= *+20630 ;0640 ; Early C-[}onstants0650 SEDITOR = 0 ;screen editor0660 EDITOR = 5 ;char editor0670 DISK = 6 ;la disk0680 SERIAL = 2 -\} ;RS2320690 KEYBOARD = 1 ;der keyboarden0700 READ = 4 ;eine SehenSie0710 PRINTER = 4 ;die schriber0720 -]}WRITE = 8 ;Scriben Sie0730 EOL = 155 ;End Of Line0740 CR = 13 ;honest return0750 STX = 2 ;Star-^}t of text0760 ETX = 3 ;End of text0770 BAUD = 13 ;13=4800 baud0780 TV = EDITOR ;EDITOR too long0790 COL-_}OR1 = $02C5 ;Shadows0800 COLOR2 = $02C60810 COLOR4 = $02C80820 ;0830 ;And after all that, the program0840 ;fianally sta-`}rts rite'cheer.0850 ;0860 *= STARTCODE0870 CLD 0880 SEI 0890 LDX #$FC0900 TXS 0910 CLI 0920 -a} JMP SUBMISSION0930 ;0940 ;-----------------------------0950 ;Strings for the screen.0960 AMESS0970 .BYTE " -b} "0980 .BYTE "LinkLine/800",EOL0990 .BYTE "V.041486 (C)1986 "1000 .BYTE "Antic Publishing",EOL1010 .B-c}YTE " Written by "1020 .BYTE "Patrick Bass",EOL1030 AMESSLEN = *-AMESS1040 RMESS1050 .BYTE EOL," Receiving "-d}1060 RMESSLEN = *-RMESS1070 WMESS1080 .BYTE EOL," Working "1090 WMESSLEN = *-WMESS1100 TMESS1110 .BYTE EOL," Tra-e}nsmitting "1120 TMESSLEN = *-TMESS1130 REMESS1140 .BYTE EOL," READY",EOL,">"1150 REMESSLEN = *-REMESS1160 ERRMESS11-f}70 .BYTE EOL,""1180 ERRMESSLEN = *-ERRMESS1190 ;1200 ;Schmall Boofers1210 INBUFF1220 *= *+1281230-g} OUTBUFF1240 *= *+1281250 ;1260 ;-----------------------------1270 ;Code Entry Point1280 ; Open channel TV to scree-q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU biDOC TXTbzHELP BASb)~BUMBLBEEBASb7CHARFONTEXEb`FILEMSTRBASb>LINKLINEEXEbMLINKLINEM65bQRLINKA M65b BLOCK FNTb OUTLINE FNTb GOTHIC FNTb ROMAN FNTb SCRIPT FNTbDSKINSRTBASbCHARFONTBASB7}CHARFONTOBJn,1290 ; New colors black on white.1300 ; Title to TV screen.1310 ; MAIN:1320 ; Print READY message.1330 ; Get new comma-r}nd.1340 ; Decode, act on command.1350 ; loop back to MAIN1360 ;1370 SUBMISSION1380 OPEN TV,WRITE,0,"E:"1390 L-s}DA #81400 STA COLOR41410 STA COLOR21420 LDA #21430 STA COLOR11440 BPUT TV,AMESS,AMESSLEN1450 ;14-t}60 XIO 38,SERIAL,32,0,"R1:"1470 XIO 36,SERIAL,BAUD,0,"R1:"1480 ;- - - - - - - - - - - - - - - -1490 MAIN1500 -u} BPUT TV,REMESS,REMESSLEN1510 JSR GETCOMMAND1520 ;1530 BPUT TV,WMESS,WMESSLEN1540 JSR DECODE1550 ;15-v}60 JMP MAIN1570 ;1580 ;------------------------------1590 DFILENAME1600 .BYTE "D1:"1610 FILENAME1620 *= *+-w}321630 ;1640 ;A routine to open a disk file.1650 ;1660 OPENFILE1670 ;Determine if the person typed1680 ; in the disk dr-x}ive specifier.1690 ; If so, branch to OPENF11700 ;1710 LDA FILENAME+11720 CMP #':1730 BEQ OPENF11740 ;1750-y} LDA FILENAME+21760 CMP #':1770 BEQ OPENF11780 ;1790 ; Otherwise assume they didn't1800 ; and use the defaul-z}t drive.1810 ;1820 OPEN DISK,READ,0,DFILENAME1830 BPL OPENF21840 BMI OPENF31850 OPENF11860 ; Use the driv-{}e spec the human1870 ; gave us.1880 ;1890 OPEN DISK,READ,0,FILENAME1900 OPENF21910 BMI OPENF31920 ;1930 ;Ret-|}urn a positive zero if1940 ; file opened OK1950 ;1960 LDA #$001970 RTS 1980 OPENF31990 ; Otherwise print a Disk-}} Error2000 ; message and return negative.2010 ;2020 BPUT TV,ERRMESS,ERRMESSLEN2030 LDA #$FF2040 RTS 2050 -~};2060 ;------------------------------2070 ;A routine to write a disk file.2080 ;2090 WRITEFILE2100 ; Point to TEXTBUFFER-}2110 LDW TEXTBUFFER,TEXTPOINTER2120 ;2130 ; And since we'll count down2140 ; through zero, bump the file2150 ; cou-}nt down by one.2160 ;2170 DBUMP LENTEXTBUFF,12180 ;2190 ; Check if the human typed in2200 ; the drive specifier.2-}210 ; Branch to WRIT1 if they did.2220 ;2230 LDA FILENAME+12240 CMP #':2250 BEQ WRIT12260 LDA FILENAME+2-}2270 CMP #':2280 BEQ WRIT12290 ;2300 ;Otherwise use the default2310 ; FileSpec supplied.2320 ;2330 OPEN -}DISK,WRITE,0,DFILENAME2340 BPL WRIT22350 BPUT TV,ERRMESS,ERRMESSLEN2360 JMP WRITX2370 WRIT12380 OPEN -} DISK,WRITE,0,FILENAME2390 BMI WRITX2400 WRIT22410 ; Write file in TEXTBUFFER to2420 ; the disk char by char.2430 ;-}2440 LDY #02450 LDA (TEXTPOINTER),Y2460 STA OUTBUFF2470 BPUT DISK,OUTBUFF,12480 BUMP TEXTPOINTER,-}12490 DBUMP LENTEXTBUFF,12500 BCS WRIT22510 WRITX2520 RTS 2530 ;2540 ;----------------------------2550 ;-}Reply to the ST2560 ;2570 SENDANSWER2580 OPEN SERIAL,13,0,"R1:"2590 XIO 40,SERIAL,0,0,"R1:"2600 LDW TE-}XTBUFFER,TEXTPOINTER2610 ;2620 ; Send the STX header and the2630 ; LO, HI bytes of the file len2640 ;2650 LDA #STX2-}660 STA OUTBUFF2670 LDA LENTEXTBUFF2680 STA OUTBUFF+12690 LDA LENTEXTBUFF+12700 STA OUTBUFF+22710 -} BPUT SERIAL,OUTBUFF,32720 ;2730 SENDRS232CHAR2740 ; Stuff the file char by char2750 ; out the RS232 channel.2760 ;2-}770 LDY #02780 LDA (TEXTPOINTER),Y2790 STA OUTBUFF2800 BPUT SERIAL,OUTBUFF,12810 BUMP TEXTPOINTER-},12820 DBUMP LENTEXTBUFF,12830 BCS SENDRS232CHAR2840 ;2850 ;When finished, send the ETX.2860 ;2870 LDA #E-}TX2880 STA OUTBUFF2890 BPUT SERIAL,OUTBUFF,12900 ;2910 CLOSE SERIAL2920 RTS 2930 ;2940 ;-----------}-----------------2950 COMBUFFINDEX2960 .WORD 02970 COMBUFF2980 *= *+1282990 ;- - - - - - - - - - - - - -3000 ;-}Accept command from ST-land.3010 ;3020 GETCOMMAND3030 OPEN SERIAL,13,0,"R1:"3040 XIO 40,SERIAL,0,0,"R1:"3050-} LDX #03060 GETL13070 ;3080 ;Accept any character and put3090 ; into COMBUFF until CR found.3100 ;3110 STX COMB-}UFFINDEX3120 BGET SERIAL,INBUFF,13130 JSR PCOMMAND3140 LDX COMBUFFINDEX3150 LDA INBUFF3160 STA COM-}BUFF,X3170 INX 3180 CMP #CR3190 BNE GETL13200 ;3210 CLOSE SERIAL3220 RTS 3230 ;3240 ;- - - - - -}- - - - - - - - -3250 PCOMMAND3260 ;Print alphanumeric characters3270 ; in command buffer.3280 ;3290 LDA INBUFF ;Ge-}t char3300 CMP #$20 ;Less than 32?3310 BCC PCOMX ;Branch if yes.3320 ;3330 BPUT TV,INBUFF,13340 PCOMX-}3350 RTS 3360 ;3370 ;------------------------3380 ;Decide what the ST-er wants.3390 ;3400 DECODE3410 LDX #034-}20 DECO13430 LDA COMBUFF,X3440 CMP #'L ;ST want LOAD?3450 BNE DECO2 ;branch if not.3460 ;3470 JMP -}LOAD ;Else LOAD file.3480 DECO23490 CMP #'S ;ST want SAVE?3500 BNE DECO3 ;branch if not.3510 ;3520 -}JMP SAVE ;Else SAVE file.3530 DECO33540 INX ;point to next3550 CPX #32 ;at 32 yet?3560 BCC DEC-}O1 ;branch if less.3570 ;3580 RTS 3590 ;3600 ;--------------------------3610 ;Open and load a disk file.3620 ;36-}30 LOAD3640 INX ;point at name3650 LDY #0 ;new index.3660 DOLO13670 ; Transfer command filename3680-} ; into FILENAME buffer.3690 ;3700 LDA COMBUFF,X3710 STA FILENAME,Y3720 INX 3730 INY 3740 CPY #20 -} ;until 32 chars3750 BCC DOLO13760 ;3770 ; Point at TEXTBUFFER...3780 ; Reset file lenght.3790 ;3800 LDW TE-}XTBUFFER,TEXTPOINTER3810 LDW $00,LENTEXTBUFF3820 JSR OPENFILE3830 BMI DOLO2 ;branch/error.3840 ;3850 -} JSR READFILE3860 DOLO23870 CLOSE DISK3880 BPUT TV,TMESS,TMESSLEN3890 JSR SENDANSWER3900 RTS 3910 ;-}3920 ;--------------------------3930 READFILE3940 BGET DISK,INBUFF,13950 BMI RFIL23960 ;3970 LDY #03980 -} LDA INBUFF3990 STA (TEXTPOINTER),Y4000 BUMP TEXTPOINTER,14010 BUMP LENTEXTBUFF,14020 JMP READFILE-}4030 RFIL24040 RTS 4050 ;4060 ;--------------------------4070 ;Open/write a disk file.4080 ;4090 SAVE4100 INX-} 4110 LDY #04120 SAVE14130 LDA COMBUFF,X4140 STA FILENAME,Y4150 INX 4160 INY 4170 CPY #204180-} BCC SAVE14190 ;4200 JSR GETFILE4210 JSR WRITEFILE4220 SAVE24230 CLOSE DISK4240 LDW 0,LENTEXTBU-}FF4250 LDW TEXTBUFFER,TEXTPOINTER4260 RTS 4270 ;4280 ;-----------------------------4290 LENTRANS4300 .WOR-}D 0,04310 ;- - - - - - - - - - - - - - -4320 ;Wait for STX, file len, get4330 ; file, split.4340 ;4350 GETFILE4360 -} LDW 0,LENTEXTBUFF4370 LDW TEXTBUFFER,TEXTPOINTER4380 BPUT TV,RMESS,RMESSLEN4390 OPEN SERIAL,13,0,"R1:"-}4400 XIO 40,SERIAL,0,0,"R1:"4410 GETSTX4420 BGET SERIAL,INBUFF,14430 LDA INBUFF4440 CMP #STX4450 -} BNE GETSTX4460 ;4470 BGET SERIAL,LENTRANS,14480 BGET SERIAL,LENTRANS+1,14490 GETRS232CHAR4500 BGET S-}ERIAL,INBUFF,14510 LDY #04520 LDA INBUFF4530 STA (TEXTPOINTER),Y4540 BUMP TEXTPOINTER,14550 BUMP -} LENTEXTBUFF,14560 DBUMP LENTRANS,14570 LDA LENTRANS4580 ORA LENTRANS+14590 BNE GETRS232CHAR4600 ;461-}0 CLOSE SERIAL4620 RTS 4630 ; in D:LINKLINE.M650130 ; (c) 1986 Antic Publishing0140 ; Written by Patrick Bass,*888888ffffff~~`~~fl0fF>6xo~{>>888>|||f<1}c6>8pp8?1}w><~~~<||`x`~<~~<1}0~0 ~ <~~<~~f~``~~f~~~``~~~f~~f~`~~~~f~~``~~ff8888<>>``f||f88<<w1}wk~~fff~~ff~~~f~``~~f~~~```~`~~~~fff~~ff~<ckwf~<~fff~~~~~0~<~~<1}~x|ng8x8~~ff~~`~~fl0fF>6xo~{>>888>|||f<8pp8?5}ww<~~~<x`x`~bނPPp~ý}C𰾃8(xHhlD|࠼xHh((lD|5}~ý~}8nBn(.2祥祥f<|lֺ祥{Ffρ<~~<5}8x8|8n®$Hpبު~8((8$HPPH$pH$$Hpƒƪ8((88(X`pPp (P4888888fffffff>`<|fl0fF68of;`p88p`f<x<6>ffsccncc^>]<9}}99}~||x,$FD`pq!qPHDƜ~>>4$B"9} ____/ "!c8|~::~~||x,$FD`pr!qTHD*>TH\~~>>Qq1 _N__/*"!c8||99}}}}z((,( 8h|99}$(,*>^9}>}$84>fff;``|ff|ff:>|x|``lvff0 8flxl0 f9}~~jc|fffc|v```>`<|0~0006ffn;ff<k>6f<x~ ~1~<~~<9}~x|nf8x8 f>`<|fl0fF68of;`p88p`f< 800000 0 ~~`0 0`0xff|ff||ffffff`x`ff`x``||~ZZ~ xs6<8<6sx00006~=}||fff|`|vff|xl|||<xx0f<8pp8?=}ww<~~~<x`x`~<~~<=}0~0 ~ <~~<<>f>p`|ff|<```<>ff><>ff>|p`|ffw8<  xp`lxlf8<f=}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<=}~x|nf8x8 ll~`~~fl0fF68of;00000000f<`<|fl0fF68of;p88pf< 80 0 ~~`0 0``<0`>?Xx>``od<f~v@~X~@ lxlx|| ?mxv~~ngA}pPP`ng v8pp8pPP|d0000|pPP|l8llll8A}f~:x`x`~<~~(6<d~&ffd8|l< fff ~̙<~~<A}~x|nf8x8f>`<|fl0fF68of;p88pf<}4eeA96E9D4403A93D9D4503A9149D4803A2202056E410034CF438A200BD6E3DC99BF00D204C35A5C3207732E6BFE8,4828eeD0ECA914C5BFB002AJ?}90085BFD002E6C0AD6F3DC920F00C20E938202D272017354CAA26A5C0C90390B9202D27A9,5158ee0085C0202F364CE92F20EB34A0E9A239209633202J@}E38A90785C5A220A9049D4A03A9039D4203A96E9D4403A93D,4354ee9D4503A9809D4B032056E410034CF438A5C59D4203A9009D44039D4803A9209D4JA}503A9049D49032056E410034C,3996eeF438A9279D4403A9399D4503A9059D4803A9009D49032056E420E93820DA322017354CAA2620EB34A0F9A2392JB}0,4337ee9633202E38A90B85C5A220A9089D4A03D08848AD0BD4C920B00FA9348D0AD48D17D0A90E8D18D06840C947B00F,4829eeA90A8D0AD48DJC}17D0A9948D18D068408A48A2048D0AD4BD27399D16D0CA10F768AA6840A5B8F00FE6D53008A9E0,5586ee20D4344C1E3120D234AD1C02F007A5DCC90FJD}F00160A5D88D1C02A5B8D06DAD8402D02AA28020E533AD8402F0FB,5308ee20AA34A6BE20E0349D823DA90085C520B135200F3720DA3220BE33A90185JE}B860AD780285DCC90FF0344820BE33,4786&eeA6C1A4C2684AB005881002A0034AB007C8C0049002A0004AB005CA1002A21F4AB007E8E0209002A20086JF}C184C2,47260ee20BE3360AD8402D02F20AA34A6BEBD823D208B34A5CC2907A8A5CB2907AA38A9006ACA10FC51B091B020AA32AD,5119:ee7802C90JG}FD005A2C020E533AD780285DC4846DCB023A4CC88301E207E35C6CC209735A4CAC00ED008C6CD20C936,5347Dee4C013220D23488888884CA46DCB025AJH}4CCC8C4D1B01E207E35E6CC209735A4CAC03BD008E6CD20D8364C2A3220,5496NeeD234C8C8C884CA46DCB021A6CBCA100DA5D00A1865D065C985C9A6DJI}0CA86CBA5C938E90385C91869308D00D046,6148XeeDCB020A6CBE8E4D0900BA5D20A0A38E90385C9A20086CBA5C918690385C969308D00D06885DC602JJ}0B03385B2A5,5762beeB11865C885B3206334A0008C90329848B1B2A00091B0981869288D903268A8C8C00790EAE6B1B1B2A01891B060,5619leeA9JK}0085BF85C0A5D785C8A2008A207732E6BFA5BFC9209006A90085BFE6C0E810EBA9E085C8A6B8F004CAF00460,6452vee20BE33A90085BCA5CD29078D13JL}33A5CD4A4A4A85BDA5BC0A85ED0A1865ED65D285B2A94085B3A91085D3E6BCE6,5755eeBD20BD34C6BCA6BEBD823D208B34A0009848A2002901F001CAJM}86E7B1B085DAA202A0FFA95645E706DA900209FC,5672ee06DA0890020903C891B2A9A545E728900209F006DA089002090FC891B2A96A45E728900209JN}C006DA9002093FC8,4511ee91B2CAD0C468A8C6D3F021A5B218692885B29002E6B3C8C008B0034C1433A5BDC5CFB008A9008D13334C0133E6,5667JO}eeBCA5BCC5CEB0034CDE326084B486B5A00084BAA4BAB1B4C9DBF009207732E6BFE6BAD0EF60A00084B10A0A26B1,6333ee0A26B185B060A5C185BFAJP}5C285C0206334A0F0B1B049FF91B09838E928A8C0D8D0F1E6B1A018B1B049FF91B060,6776eeA00088D0FDCAD0FA60A92085C8A90185BAAD8402D030AJQ}28020E533AD8402F0FBA5BA4901AAA92385BFA90285C0,6118ee20E03495B6207732C6BA10D8A9E085C8203F36A9FF8DFC0260206231ADFC02C91CD00JR}34CEB26A27020E5334CF6,5549ee33A5B7C5B6B006A6B685B686B7E6B760A5B720B03385B2A5B118692085B3A5B6208B3460A98085B0A94285B1A4,61JS}63eeC0F010A5B018694085B0A5B1690185B188D0F0A5B01865BF85B09002E6B16020B033A5B118692085B16020BD34,5689eeA6BEBD823D208B34JT}A5B085B2A5B185B360A201B5CB4A4A4A18690195BCCA10F320BD3460A900A4BD88F0061865,5456eeCE88D0FA1865BC85BEC6BE60A900A4CA99000699JU}010699020660A5C20A0A0A0A0A1865C16020D234A5B885B9A9,4984ee0285B885BFA90185C0202F3660A5B8F00A20D23420BE33A90085B8A92285BFA9JV}0185C060202F3620AA32A5B985,5005eeB8D00320BE3360E6DBA91085BFA90385C0A0E1A239209633202D27A5C3C91190F7C5DBB0F3290F85C5C6C560JW}C9,6054ee20B005694085C360C960B00338E92085C360A5BF8D6735A6BAA90285BF209A33E6C0A5B41865DD85B49002E6B5,5747 eeCAD0E960A90JX}048A5CCA4D6C002F005C004F0014A186952AA689D800660A97E208035A200C002F00BC004F007A5,5272eeCC4A9002A2208E1CD060A5CE85BCA5CF85BJY}D20BD34E6BEA9A685B2A93D85B3A200BD823D208B34A007A5C5F007,5900 eeB1B291B04CDF35B1B091B28810EEA5B218690885B29002E6B3E8E4BE90DJZ}66084B086B1A00098C6D3A6D3E0FFD0,6948*ee04C6D4300991B0C8D0EFE6B1D0EB60A98085D3A90285D4A000A24020F335A94085D3A90185D4A080A24J[}720F335,61974ee60A90085D3A90585D4A080A24220F33560A90285C0A92185BFA0D9A239209633C6C0D0F160B92739208E36A900,5532>eeAAC003J\}9005888888A21586BF84C0A4BBF00618691488D0FB1869A285B4A93A690085B5A202A012B5C591B488CA,5728Hee10F8209A3360A21086C5C9649006E9J]}64E6C5D0F6A20FE838E90A10FA18691A86C685C7A5C5C910D017A5C6C910,5954ReeD007A6C7A90085C78A85C5A5C785C6A90085C760A9D885E7A9FF85J^}E8A058A2424CE436A92885E7A90085E8A000,6480\eeA24084B086B1A20FA5B01865E785B2A5B165E885B3A027B1B291B08810F9A5B285B0A5B385B1CAJ_}D0DF20DA3260,6628feeA20086BC86BDA5D6C903B012A00684C5A016A5BD0A0A0A85ED0A0A4C3B37A00384C5A00BA5BD0A0A85ED0A0A18,4676pee6J`}5ED65BC698085B0A947690085B1BD823D91B0A4C5098091B0E8E6BCA5BCC5CE90B7A90085BCE6BDA5BDC5CF90,6888zeeAB60201036A90085CB85CC85CJa}DAA9DA63DE8D0FAA2239D823D9DA63ECA10F7A5CE0A0A0A85D0A5CF0A0A0A85D1,5674eeA6CECABD363985D20A0A85C91869308D00D0A90E85CA20DA3Jb}2200F3720973560A5B620B03385B2A5B11869E085,5094eeB3A5B1692085B1A6B6A007B1B291B08810F9A5B218690885B285B09004E6B3E6B1E8E4B79Jc}0E360A21FA9009D5D,6346ee3ACA10FAA90585DDA000B1B0208E36A6DDA5C505DF9D583AA5C6F01005DFE89D583AA5C7F00605DFE89D583AC8,6030Jd}eeC008B00CE8A5E09D583AE886DD4CFA3760A98385B2A93985B3208332202D27A6BFA5C3C97ED00FCAE01190F0A9,6117ee00207732C6BF4C2E38C9Je}9BD02D9D5D3DA900207732AD6E3DC944F01DC943F019C950F015A90F85BFA90385C0A0,5180ee7EA23A209633202D274CF42660E020B0B1207732A5C4Jf}9D5D3DE6BF4C2E3886BC86BFA98385B2A93985B3208332,5239ee202D27A6BFA5C3C97ED012E4BCF0F1A900207732CAA9009D563A4C9738C99BF019C9Jg}0CF008C91090D7C91AB0D3,5880eeE026B0CF9D563A207732E8D0B9A90C9D563AA90020773260A220A90C9D42032056E46098208E36A5C68D9F3AA5,5Jh}029eeC78DA03AA90F85BFA90385C0A098A23A209633A9FF8DFC02202D274CF4264BFA0C007A00180A00460028CA9446,4644dd000204050607070Ji}70307030E0E080802020D4D00404D00400000000000000003C00000000003C00000000003C0,979ee0000000003C00000000003C00000000000000000Jj}1B1B1B1B33E30000B0B0B0B0988E0000FFC3C7CFDFFF00FFC3,3558eeC3C3C3C3C3FF222C212E2BDB322533342F3225DB232F3039DB27322924DB2732Jk}2924000000DB333729342328DB,3861ee3732293425DB292E303534DB20444154412020202E4259544520202020202020202020202020200000000000Jl}00,2125 ee00DB23686F6963651FDB2C6F61640066696C656E616D650D00DB336176650066696C656E616D650D00DB377269,4147 ee74650066696Jm}C656E616D650D00DB2472697665006E756D6265721FDB44313A2A2E3F3F549B2C696E65006E756D,3979 ee6265721FDB110E002261736963006F72001Jn}20E002D2CDB296E7075741A00DB2421342100000000000000000000,2504$ ee0000000000000000000000000000000000000000000000DB2E6F0064657Jo}669636501DB2572726F7200696E0064,2025. ee61746101DB2572726F7200111218DB110E00236F6C6F72003265670E00101D000000DB120E00236F6C6Jp}F720032,29018 ee65670E00111D000000DB130E00236F6C6F72003265670E00121D000000DB140E00236F6C6F72003265670E0013,2329B ee1D0000Jq}00DB150E00236F6C6F72003265670E00141D000000DB160E0025786974DB110E00277261706869637300,2747L ee10000000000000140E002772617068Jr}6963730011DB120E00216E746963006D6F6465001400000000150E002772,2195V ee6170686963730012DB130E00216E746963006D6F64650015DB110EJs}002E65770063686172616374657200736574,3596` ee00000000DB120E00326567756C61720063686172616374657200736574DB130E002C6F77657200Jt}68616C66006F,3477j ee660063686172616374657200736574DB110E0033637265656EDB120E00246576696365DB250025646974000000,3626t ee0Ju}02200226C616E6B00002900296E7665727400000000005C00336866003570DB27002772696400000000230023,2331~ ee6F70790000002600266C69700Jv}00000000000005D0033686600246EDB3500356E646F0000000038003377697463,2433 ee680000000C0000296E7665727365005E00336866002C66DB1Jw}E003570646174650000280C1F0028656C70003200,2635 ee326573746F7265000000005F00336866003274DB2D002D6F6465730000000000000037003Jx}77269746500246174,2757 ee610000002F3034292F2E0024697200DB2B00236F6C6F720000000000000024002461746100296E707574000000,2252Jy} ee33252C252334002C6F6164DB330033686F7700736574000000002100346F700000000000000000000033342132,2089 ee34000033617665DB3000Jz}3072696E74007365740000003A00226F74746F6D00000000000000110C120000003370,2376 ee656564DB3F4832312A2B3D2D44573E5550534D805A41J{}584749464B43524245302F302F292F252FDD2E9C2E4B2E,3384 eeF82D202D322B2B2B1E2BE92AD92A842A4F2A202A032ADC294329C2285828CA27AB27J|}90275A274B27CB26CB26CB,3863 !!26922FCB263D30B330CB26,1049D1:CHARFONT.BASHT"m=9i(>9A9?9i?9B9rש@$͍{$͍0"90$1*/ԩ΅ k7L&ЭN} ^=_=l 1L&'Ў *< V 8 4 /6ȩ 2L& =0 (=)=l'N}< V L5` 4I 3L& 59 3 3 @4ԥ8 & & &ԅӥ 4 5 2L& 5ƿ9 3 3 @4 7 2L& 59 N}3 3 O4 2L' 4 S6; 3 '5Ņ 5L&٢9 3ۢʽ'9)IH'9xi N}8 8i'9 S6` 3гL&τ= 4漤ΐЦ6v΅= 4ƼN}e΅Т 2L&΅τȄ 4 4= 4i8HHhhŷߑƺ N}ƼЗ 2L&ŶЖа 3 59 3# 85 w2ťH 85 w2Ȅh ~5 k7΅υ 4) ?6 3iH 6ō9N}9 5ƿ9 3 3hHʥ= 5 7 2hLK' 5ƿ9 3 3 O4Hh 2L) ~5 4̈́ 2 5L&( N}~5 48ͤш̠;͠# 2 5L&΅υ 4=ľق= 4I 2L& 4;! _5N} '5 6 ~5ņּ19,9$19A$$$$ 7 5 5L&  2L& 4`; _5 '5 L+N} 5 2L& /6 59 3 3 @4 4; _5 '5{ߩ /6 4iѲ01 7ۍ|:N} 6 w2濥 w2濥 w2濠X: 3涥ŷ  -' 5L& -'Lm+ ߩ, 41: 3 88d:ۅ 4>: 3N} '5޽c: 9ޥ 99 99 4ƿ : 3 .8 BnD=EJK VL8 4iN}0n B̝D9Eee۝H V 7Y: B]D:EH VL8 990999:09涥ŷN}L, 8 5L& 59 3 3 4P: 3 w2 6濢濵 w2]:X: 3 8SߩX: SN}X:)uߕƺ0EY: ߵuߕť 4 2涥0L5- 5L& : 3 -'L5-΅ 4 4=N} 4Šϰ L.őƼз 2L&΅υ 4ƽ 4= 4Šȑ LN}S.őƼй 2L&υ΅ 4L. 4= 4(*Ƽ(iƺƽ 2L&υ 4L. 4= 4(jN}ΐ( ƺƽ 2L&L&Ņ; 4) _5/k9 2濩s9 2濩{9 N}2 -'ƻг 5L& 4: 3 -' ): /6 B(D:EJ VL8BnD=EH VL8n=ɛ L5N} w2ſo= 8 -' 5L& -' /6L/ 49 3 .8Ţ JBnD=EK VL8ŝBDHN} EI VL8'D9EHI V 8 2 5L& 49 3 .8 Ţ JЈH 4 ԍЩh@G ԍЩh@HN} Խ'9hh@0 4L1 4`؍m* 3 4 4= 5 7 2 3`x4H 3hJN}JJJ  3`/ 4= 4))8jQ 2x 3xHFܰ#̈0 ~5 5 N}6L2 4Fܰ%Ѱ ~5 5; 6L*2 4ȄFܰ! eeɅɦʆ˥8i0Fܰ А 8ɢ˥ii0N}h` 3eȅ c42Hi(2h汱`ׅȢ w2濥 Ȧ` 3)3JJJ N} ee҅@ 4Ƽ= 4H)ʆ籰ڢVEڐ  ȑE(  ȑjE( ڐ ?ȑh!N}i(L3ϰ3L3漥ΰL2` w2` & &`… c4I8(池I`N}` ȩ0 3I# 4 w2ƺة ?6` b1L&p 3L3Ŷ` 3i 4`N}Bi@ie` 3i ` 4= 4`JJJi 4`eΈeƾ`ʙ` N} e` 4 /6` 4 3"` /6 2 3`۩9 3 -'۰)` i@``8 `N}g5 3e݅`H̤JiRh`~ 5 J `΅υ 4澩== 4L5N}i侐`Ӧ0 `өԠ@ 5@өԠG 5`өԠB 5`!٢9 3`'9 6N}ii:iő 3`dd8 iƅǥǩNJťDžƩ`؅XBLN}6(@e煲e腳' 2`Š L;7Š eeiGi= N}漥ΐ潥ϐ` 6˅̅ͪ=#=> Х Ѧʽ69 i0Щ 2 7 5` 3ii N}i䷐`]:ݠ 6ݥߝX:X:X: X:L7`9 2 -'~ w2N}ƿL.8ɛ-]= w2n=DCP~: 3 -'L&` w2ĝ]=L.89 2 -'~ w2ʩV:L8ɛ N}&ϝV: w2й V: w2` B V` 6ƍ:Ǎ:: 3 -'L&K z F(ʔF M@M@N}3",!.+2%34/2%#/09'2)$'2)$37)4#(72)4%).054 DATA N} .BYTE #hoice,oadfilename 3avefilename 7ritefilename $rivenumberD1:*.??T,inenumber"N}asicor-,)nput$!4!.odevice%rrorindata%rror#olor2eg#olorN}2eg#olor2eg#olor2eg#olor2eg%xit'raphics'raphics!nticmodeN}'raphics!nticmode.ewcharacterset2egularcharacterset,owerhalfofcharacterset3creeN}n$evice%%dit""lank))nvert\3hf5p''rid##opy&&lip]3hf$n55ndo83witch )nverseN}^3hf,f5pdate( (elp22estore_3hf2t--odes77rite$ata/04)/.$ir+#olor$$ata)nput3%,%N}#4,oad33howset!4op34!243ave00rintset:"ottom 3peed?H21*+=-DW>UPSMZAXGIFKCRBE0/0/)/%/N}..K.- -2++++***O* **)C)(X('''Z'K'&&&/&=00&%tom 3peed?H21*+=-DW>UPSMZAXGIFKCRBE0/0/)/%/LD