op€–#-DÙTÃCÃBÃFN¤F¤LO¤A¤LN¤COPY¤DRIVE¤DV¤B¤C¤ÌLÍKEÙØÉÁVÃDÒQUÔNTÃNCÃNBÃDRIVÅPÒCÔBUFFSIZÅBUFFER¤BUFFEÒKENCOØCIS7177743°@A&A &&DP”x £ ¯ ° ¿ Ð@@PAUB’@@‰€ !d$$DO NOT RENUMBER THIS PROGRAM!!›n""‘’’’’’’’’’’’’’’’’’’’’’’’’’’…›x""ü READTEXT.BAS by: Ken Cox ü›‚""ü 19 August 1990 ü›Œ""š’’’’’’’’’’’’’’’’’’’’’’’’’’ƒ›–6€-@ '6-6‚-A&'6ƒ-Aª]AY'@‚9A)@EKA0@]AY´ >:A%,¾##@@K:ÈGG„;@,…;@,†;@8,‡;@€,ˆ;A ,‰;Ac,Ò11Š;@,‹;@,Œ;@,;@,Ü6…. ıºÄÏîÔØÔæ 6Ž-B:…,ð%%6-+@@&+@#%Ž,,'@ú006†.&h¥X…¥Y…¥i …æ©¢ ‘ÈÐûæÊÐô`9A A‚'Aƒ9AR@B-B (‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’…B-@B (ü             ÒÅÁÄÔÅØÔ®ÂÁÓ             ü"B-@B (ü              âù Ëåî Ãïø              ü,B-@B (š’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ƒ6B-@B (                                        @0-@0 Ôåøô æéìå äåæáõìô éó ¢…¢JC-@C )”’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’” T#-@@#  MAIN MENU^.-@@. ±. Read a text file.h5-@@5 2. Change default filename.r5-@@5 3 Customize screen colors.|5-@@5 4. Directory for any drive.†/-@@/ 5. Save this program.+-@@+ 6. Delete a file.š)-@@) 7. Copy a file.¤"-@@" 8. Quit.®&-@@!&  Your choice?¸AY@4Â)@Ì/%+"@I,)+"AU,A@/ ApÖ#+"@P,A # A€à#+"@Q,A0# Aê#+"@R,A `# Aô#+"@S,AP# Aþ#+"@T,A&# A #+"@U,A'P# A0#+"@V,A(p# AP6‘-?:C:†,,6€-@&9-@@9 Enter complete filename to read08-@@8 If default is OK, press RETURN::-@@:  If not, enter correct filename..D9-@@9 Default filename can be changedN/-@@/ from the main menu...X6-+@9&Ž,'@b-@ …l-@@„v„4…AP€ A`Š5’-@Ž16„7’<’,.>:+@:…7’<’,,,&A(,5 ’”RR„7@<@,4:)„7@<@,4:*„7@<@,4DA€žR-@@" ãïíðìåôå4-@@H  R A¨6‘-?:C:†,,²? -@@? "Áâïòô½Ãïîôòïì«Á ­­­ Ôïççìå½áîù ëåù¼k-@@k >:@',>:AV,  óðååä õð ïò >:@',>:AW, óìï÷ äï÷î ðòéîôéîç  Æ=-@ @0 Press any key to start=)@ÐB-@B ( Ú-@ä A0î+@+@@„ø AP)@“ ’-@€ ’ >:“,  F:Ad,AUA€* A04 Ap>6‘-?:C:†,,H6’-@6”-@RB-@B (         Ðòåóó Ãïîôòïì«Á ôï áâïòô       \5-@@5 SELECT THE BACKGROUND COLORfg-@@ g Review colors with the >:@',>:@(,>:@',>:@), arrowsp<-@@< "Make selection with the RETURN KeyzA’„+”"@)”"@+A Ž+”")”"@+A @˜--@@-  Background: ’ ¢)@¬"@%¶+"@E6”-”%@+6’-’%@À%’!AT6’-% A0Ê"@E A0Ô+"@a6”-”&@+6’-’&@Þ"AU6‚-’ A`è%’ 6’-AT% A0ò A0ü A 0”"@6”-”"6@6”-@ A$5-@@5  SELECT THE TEXT LUMINANCE .+6’-”%@’!@+6’-’&@8’"@6’-B’"6@6’-@L+’"”*"@E!6’-’%@+ A€V+’"”*"@a!6’-’&@+ A€`--@@-  Text: ’ jA ’t)@~"@%ˆ'"@E6’-’%@' A’'"@a6’-’&@' Aœ"AU6-’ A¦ A@° A€º;-@@5  SELECT THE BORDER COLOR ;6’-‚ÄA’Î--@@-  Border: ’ Ø)@â"@%ì"@E6’-’%@ö%’!AT6’-% A "@E A  "@a6’-’&@"AU6ƒ-’ A0%’ 6’-AT% A ( A 26‘-?:C:†,,A ‚<5-@5 160 TC=:CC=‚:BC=ƒF4-@/ POKE 842,12:GOTO 13704›P*-@'AB@*&Z6‘-?:C:†,,›dA n&-@@&  Óave to diskx"-@@" Ãontinue‚)@Œ/%+"@ƒ,)+"A,AP/ A0–"@g)"@™%  Aª86‘-?:C:†,,!-@@8 Save> READTEXT.BAS´A-@@&  Which drive?3)@•A6•-•&@H¾!!• @)•!@ APÈS6„7@<@,.D66„7@<@,.=:•,S6„7@,. :READTEXT.BASÒ@-@@3 Press any key to save: „@)@Ü6‘-?:C:†,, A0æ)-@@)  saving file> „ð„ú!!–"@‰)–"A!A) 6‘-?:C:†,,%3(3((                                        ::( That's all of >:@4,„>:@4, "00((               ÐÕÓÈ­Á­ËÅÙ               ,Aƒ6@)@%@66Poke 622,0:Poke 16,192:Poke 53774,192:Poke 752,0›J6‘-?:C:†,,T -@@ END ^ F:A•,"A6APh,6‘-?:C:†,,,F:A•,"A8Ar,6‘-?:C:†,,,F:A•,"A`A|,6‘-?:C:†,,,F:A•,"ApA€†6-@@, Error #F:A•,6 A2-@@(  Can't find: „2 Aš:-@@:  Drive error> „7@<@,¤9-@@)  ÐÒÅÓÓ ÁÎÙ ËÅÙ 6)@9%®A@H¸!ƒ"@H!AAÂ@‡Ì ‡Ö/F:Ad,"A‘% >:A%,/ A`à@F:Ad,AU*AdAU6Aƒ@ Apê A0ôBF:Ad,"@*AdAU86€-€&@B Aþ A &€ 6€-6@& AP ANF:Ad,"@*AdAU86€-€%@DAƒN A&pF:Ad,"A‘% >:A%,1A —=A˜IA™T@fAYp A 0AF:Ad,AU*AdAU7)@A Ap: APD F:Ad,"@A N@ˆX*F:Ad,"@*AdAUbpF:Ad,"A‘% >:A%,1A —=A˜IA™T@fAYp A l ˆv A`€6‘-?:C:†,, AŠ5’-@Ž16…7’<’,.>:+@:…7’<’,,,&A(,5 ’”--@@- Present default> …ž>-@@> $Enter new complete default filename:¨"-@@"@…²RR…7@<@,4:)…7@<@,4:*…7@<@,4DA¼R-@@" ãïíðìåôå4-@@H  R A`Æ 6Ž-B:…,Ð >:A%,Ú5’-@Ž16„7’<’,.>:+@:…7’<’,,,%A(,5 ’äA F:A,îJ-@D 220 F$=>:@4,„7@<Ž,>:@4,J›ø)-@) POKE 842,12:RUN*-@'AB@*& 6‘-?:C:†,,@‚@  A%`*.-@ @. Drives 1-9 are valid4K-@@>  Which drive for the directory? ±K)@š>-š"AU6š-@#6Š.1- A!@H$6š-š&@H6Š.=:š,$ A!@R A!\!!š @)š!@ A!f6‹7@<@,.Dp-@4@ šz6‹7@<@,.Š„6‹7@<@,.:*.*Ž&-@@&  Printer? Y/Θ)@›¢/›"@‰)›"A!%6›-@/ A"P¬/›"@x)›"A%6›-/ A"p¶%›"AU6›-% A"pÀ A"Êa-@@6  Be sure printer is ready9 T   ÁÎÙ  ËÅÙ a)@Ô.@.@@P:Þ(6‘-?:C:†,,!-@#(  è A%`ò @@‹ü" >:A%,"- ??  Directory for >:@4,Dš:>:@4, W›L @ Directory for >:@4,Dš:>:@4,W @ -- %$ @‡6œ-œ%@. QA@:‡7@<@,,!@G*@:‡7@<@,, @XG6.‡Q A$p8  |‡|B › @ ‡ L @Œ6œ-œ%@V QA@:Œ7@<@,,!@G*@:Œ7@<@,, @XG6.ŒQ A$@` Œ|j › @Œ t (›*œ!@4 A%~ A#@ˆ   |’ '›' @ œ œP:œ,A$p¦ -- %°   º +› @+ @ Ä #@@# A%@Î -- %Ø &&   ÐÒÅÓÓ ÁÎÙ ËÅÙ ÆÏÒ ÍÏÒÅ â 36œ-)@) >:A%,3 A#ì +   ÁÎÙ  ËÅÙ +)@ö % PAB@!6‘-?:C:†,,3-@@P  Error number F:A•, 5 %   ðòåóó áîù ëåù 2)@5%  >:A%, @‚@( 6‘-?:C:†,,2 <-@@< "Enter complete filename to delete:< "-@@"@„F ;;„7@<@,4:)„7@<@,4:A&PP R-@ @" ãïíðìåôå4-@@H  R A& Z 6‘-?:C:†,,d K-@@K Press >:@4,Y>:@4, to delete> „n )@x !!"@‰)"A!A'‚ %Œ A0– 6‘-?:C:†,,  <-@@<  Deleting >:@4,„>:@4,ª ((@3@„´ %¾ 6‘-?:C:†,, A0È 3-@@&  Copy from: 3@„Ò 3-@@&  to: 3@…Ü '-@@'  C O P Y I N Gæ cc6‰7@,.PØ DÚhð ÉðªhhÊÐû ÿ©…Û…ÜÐthh …Ûhh …Üh…Þh…Ýh…×h…Ö¦Û©B¥ÖH¥×I¥ÝD¥Þð ff6‰7@,.SE VäÀðÀˆÐ2„Ú½H…ؽI…٦ܩ B¥ØH¥ÙI¥ÝD¥ÞE Vä0¥ÚÉð¨„Ô¦Û© B Vä¦ÜBLVäú 6-BPž;,6Ÿ-C:ž, +@+@@„ +@+@@… ##6‘-?:C:‰,<@<@<Ÿ<," @@, %6 6‘-?:C:†,,@ --@@- Save this file? Y/ÎJ )@–T /%+–"@‰,)+–"A!,AP/ A)^ ;1+–"@x,)+–"A,)+–"AU,A) ; A(h % >:A%,"AR%€AB@%