10 CLS:WIDTH 80 20 PALETTE 0,0:PALETTE 8,63:CLS1 21 LOCATE 27,0:ATTR 0,0,U:PRINT"MAX 10 V2.00 DECLIKEUR";:ATTR 0,0:POKE&HFF94,1 22 LOCATE 28,2:ATTR 0,0,U:PRINT"Par/by Le Fifino";:ATTR 0,0 25 LOCATE 0,4:PRINT STRING$(80,"+");:IF W=1 THEN W=0:RETURN 30 LOCATE 20,6:PRINT"INSERT YOUR MAX 10 V2.00 DISK ON DRIVE #0" 31 LOCATE 11,7:ATTR 0,0,B:PRINT"INSERREZ VOTRE DISQUETTE 'MAX 10 V2.00 DANS LE LECTEUR #0";:ATTR 0,0 32 LOCATE 33,12:PRINT"& press enter":LOCATE 31,13:ATTR 0,0,B:PRINT"& pressez *enter*";:ATTR 0,0 33 EXEC 44539:IF PEEK(135)<>13 THEN 33 34 OPEN"D",1,"MAX.BIN",1:FIELD#1,1 AS A$:IF LOF(1)=0 THEN CLOSE:KILL"MAX.BIN":GOTO 100 ELSE IF LOF(1)<46865 THEN UNLOAD:GOTO 100 35 LOCATE 0,23:PRINT"WORKING....... ";:ATTR0,0,B:PRINT"EN FONCTION";:ATTR 0,0 36 LSET A$=CHR$(200):PUT#1,46865:UNLOAD:W=1:GOSUB 10 40 LOCATE 10,10:PRINT"SUCCESSFUL!!!!!!! CONGRULATION???? ":LOCATE 10,12:ATTR 0,0,B:PRINT"C'est un succes!!! Felicitation?????" 41 LOCATE 60,15:ATTR 0,0,B,U:PRINT"Finfino";:ATTR 0,0 42 POKE&HFFD9,0:FOR X=1 TO 1000:IF INT(X/100)=(X/100) THEN PLAY"A":LOCATE 0,23:PRINT X/100; 43 NEXT X:SOUND 200,3 45 POKE&HFFD8,0:UNLOAD:POKE113,0:EXEC40999 RINT"C'est un succes!!! Felicitation?????" 41 LOCATE 60,15:ATTR 0,0,B,U:PRINT"Finfino";:ATTR 0,0 42 PORECV# RETRY# RETURNING TO TERM MODE. FZFjFtFПFЩFеF╜F═FсDISK I/O ERRORDISK FULL File exist: Replace(Y/N)?NOT THEREBUFFER FULLQUIT - NOTHING RECEIVEDQUIT - TEN NAKSQUIT - BUFFER SAVEDSYSTEM ERROR NO ANSWER CALLING GO SET-UP A : 7/8 bits B : Line feed C : Parity D : Echo KBD E : Echo MOD F : Word fix G : Video set H : Baud rates I : Phone number J : Macro #1 K : Macro #2 L : Macro #3 M : Macro #4 N : Save to disk O : Main menu INPUT: (C)hange ? Received line feed ? Parity ? Odd ? Echo on ? 8 bits ? Anti-truncation ? Video set A ... Width of screen B ... Mode of screen C ... Return 0=40 Wide,1=64 Wide,2=80 Wide 0=Mono, 4=Inv-mono 1=Amber, 5=Inv-amber 2=Green, 6=Inv-green 3=Blue, 7=Inv-blue 0=300,1=600,2=1200,3=2400 4=4800,5=9600 Clear buffer (Y/N)? PRINTER NOT FOUND RS232 PACK Ready printer, press ENTER. Save buffer (Y/N)? A Printer= B RS-232 = C Slot# = 1,2, OR 3 DF$(Nм1лP)│F$:Бе 290/?°Е  З(F$)│▓ З(F$(Nм1лP)) з а 100,1:Бе 620/ЕЕ  З(F$)л1│25 ░ ( Ю(1,F$,".")│0 ░  Ю(1,F$,"/")│0) з I$│".":Бе 680/м I$│ Р(F$(Nм1лP), З(F$)л1,1):Бе 680/╬:Г***************************/Ё :Г* CHANGE DISKS *0*:Г***************************0=4З@448,"PLEASE INSERT DISK IN DRIVE";DR0I>в 445390jHЗ@448,"LOADING DIRECTORY..."0uRБе 2400Ч\:Г***************************0╣f:Г* SAVE DIRECTORY *0█p:Г***************************0√zЗ@448,"ARE YOU SURE (Y/N):"1ДI$│ Т:Е I$┤▓"Y" ░ I$┤▓"N" з 90012ОЕ I$│"N" з 2601>ШБе 25501UвЗ@448,"WORKING..."1oмА I│0 е 17:D$(I)│"":Л1}╢А I│1 е T1║└H$│ О(F$(I),8)л П(F$(I),3)л Р(H$(I),12,5)л Р(F$(I),9,16)1╔╩H$(I)│H$:Л1ф╘T│Tл1:H$(T)│ б(32,255)1ё▐CO│0:D│01 шА I│1 е T2ЄCO│COл1:Е CO▓4 з D│Dл1:CO│125№D$(D)│D$(D)лH$(I)2;Л2aD$(D)│D$(D)л б(128м З(D$(D)),255)2ЖА I│Dл1 е 17:D$(I)│ б(128,255):Л2С$Т LO,02Щ.D│02й8А SE│3 е 112╞Bр DR,17,SE,D$(D),D$(Dл1)2╥LD│Dл2:Л2▄VT│Tм13`З@448,"PROTECTING DIRECTORY...":Бж 26903jТ HI,0:Бе 2603<t:Г***************************3^~:Г* HARDCOPY *3АИ:Г***************************3ЫТЕ T│0 з а 100,1:Бе 3403┼ЬЗ@448,"BAUD 600 1200 2400 4800 9600"3╫жв 44539:I$│ Т3ю░I│ Ю(1,"61249",I$)3 ║Е I│0 з 11904,─I$│"8840180701":I│ Й( Р(I$,(Iм1)н2л1,2))48╬Т 150,I4B╪F$│""4jтЗ@448,"TITLE:"; б(25,32);:З@454,"";4|ьв 44539:I$│ Т4УЎЕ I$│ Л(13) з 13304┤Е I$│ Л(8) з Бж 2210:Бе 12604╦ Е  К(I$)┤32 з 12604эЕ  З(F$)▓24 з а 100,1:Бе 12604 ЗI$;:F$│F$лI$5 (Бе 1260562З@448,"PRESS [ENTER] TO STOP PRINTING"5A<Т LO,05JFЗ#м25lP:Г***************************5ДZЗ#м2, Л(27); Л(14);5бdЗ#м2,д(40м З(F$))о2л1)F$5╣nЗ#м2, Л(27); Л(15);5█x:Г***************************5фВЗ#м25ЎМА I│1 е T й 26ЦЕ  Ж(338)│191 з 146067аЗ#м2," "F$(I)" "F$(Iл1)6=кЛ6O┤З@448,"DONE."6Z╛Т HI,06e╚Бе 3506З╥:Г***************************6й▄:Г* ARRANGE (SORT) *6╦ц:Г***************************6цЁЕ T│0 з а 100,1:Бе 3407·З@448,"ARRANGING FILES..."7 I│17$I│2нI:Е I┤T з 155076I│ Б((Iм1)о2)7F"Е I│0 з 2907P,J│TмI7^6А K│1 е J7f@L│K7pJM│LлI7ЙTЕ F$(M)▓F$(L) з 16607л^I$│F$(L):F$(L)│F$(M):F$(M)│I$7═hI$│H$(L):H$(L)│H$(M):H$(M)│I$7фrL│LмI:Е L▓0 з 16107ь|Л K7°ЖБе 15608Р:Г***************************8<Ъ:Г* QUIT *8^д:Г***************************8mоТ LO,0:Ю:К8П╕:Г***************************8▒┬:Г* PAGE < *8╙╠:Г***************************8ю╓Е N│1 з а 100,1:Бе 3509рN│Nм11:Бе 2909"ъ:Г***************************9DЇ:Г* PAGE > *9f■:Г***************************9ДЕ Nл11▓T з а 100,1:Бе 3509ЦN│Nл11:Бе 2909╕:Г***************************9┌&:Г* CHANGE MESSAGE *9№0:Г***************************:@:Е  О(ME$,1)│"[" з ME$│"0123-DRIVE H-HARD D-DISK Q-QUIT":Бе 1870:jDME$│"[ENTER]-RENAME S-SAVE A-ARRANGE":АNЗ@480,ME$;:Бе 350:вX:Г***************************:─b:Г* LOAD DIRECTORY *:цl:Г***************************:їvТ LO,0:T│0;А▀ DR,17,2,G$(0),G$(1);КА SE│3 е 11;*ФТ LO,0;EЮ▀ DR,17,SE,D$(0),D$(1);PиТ HI,0;^▓А D│0 е 1;t╝А CO│1 е 128 й 32;Ш╞Е  Р(D$(D),CO,1)│ Л(&H0) з 2090;╜╨Е  Р(D$(D),CO,1)│ Л(&HFF) з 2120;╥┌T│Tл1:Е T▓68 з Р;ьфH$(T)│ Р(D$(D),CO,32)<юF$(T)│ Р(D$(D),CO,8)Л SE<╙HР<ЇR:Г**************************=\:Г* CHECK EXTENSION *=6f:Г**************************=opЕ  Ю(1,F$,".")┤▓0 ▒  Ю(1,F$,"/")┤▓0 з а 100,1:Бе 620=АzMA│27:Бе 710=бД:Г**************************=┬О:Г* BACKSPACE *=уШ:Г**************************=■вЕ  З(F$)│0 з а 100,1:Р> мЗ  Л(8);>5╢Е  П(F$,1)│"." ▒  П(F$,1)│"/" з MA│23>L└F$│ О(F$, З(F$)м1)>R╩Р>s╘:Г**************************>Ф▐:Г* ADD SPACES *>╡ш:Г**************************>ўЄЕ  Ю(1,F$,".")│0 ░  Ю(1,F$,"/")│0 з F$│F$л"/"л П(F$(Nм1лP),3)?!№I│ Ю(1,F$,"."):Е I│0 з I│ Ю(1,F$,"/")?E F1$│ О(F$,Iм1):F2$│ Р(F$,Iл1,3)?c F1$│F1$л б(25м З(F1$),32)?t F$│F1$лF2$:Р?Х $:Г**************************?╢ .:Г* MOVE CURSOR UP *?╫ 8:Г**************************?Є BЕ T│0 з а 100,1:Бе 350?№ LP│Pм1@ VЕ P┤1 з P│1:а 100,1:Бе 350@< `Е NлP┤N з P│N:а 100,1:Бе 350@S jЗ@(Pл2)н32л30," ";@q tЗ@(Pл1)н32л30,"_";:Бе 350@Т ~:Г**************************@│ И:Г* MOVE CURSOR DOWN *@╘ Т:Г**************************@я ЬЕ T│0 з а 100,1:Бе 350@∙ жP│Pл1A ░Е NлP▓Tл1 з P│TмNл1:а 100,1:Бе 350AA ║Е P▓11 з P│11:а 100,1:Бе 350AT ─З@Pн32л30," ";Ar ╬З@(Pл1)н32л30,"_";:Бе 350AУ ╪:Г**************************A┤ т:Г* CHECK GAT SECTORS *A╒ ь:Г**************************A° ЎЗ@448,"CHECKING GAT SECTOR..."B Т LO,0B ▀ DR,17,2,D$(0),D$(1)B% D│0B0 Т HI,0B@ (А I│1 е 128Bj 2Е  Р(D$(D),I,1)┤▓ Р(G$(D),I,1) з 2650Bp <ЛBЙ FЕ D┤▓1 з D│1:Бе 2600BФ PБе 930B╝ ZЗ@448,"REINSERT TARGET DISK":Бе 350B▌ d:Г**************************B■ n:Г* SAVE DIRECTORY (KDSK) *C x:Г**************************C9 В▀ DR,17,2,D$(0),D$(1)C` МD$(0)│ О(D$(0),68)л б(10,&H0)л"KW"Cz ЦА I│1 е 17:D$(I)│"":ЛCВ аD│0CР кА I│1 е TCн ┤D$(D)│D$(D)л О(H$(I),16)C╔ ╛Е  З(D$(D))│128 з D│Dл1C╧ ╚ЛCЎ ╥D$(D)│D$(D)л б(128м З(D$(D)),&HFF)D ▄А I│Dл1 е 10:D$(I)│ б(128,&HFF):ЛD$ цD│0D5 ЁА SE│14 е 18DR ·р DR,17,SE,D$(D),D$(Dл1)D^ D│Dл2:ЛDd РI│1 е 17:D$(I)│"":ЛCВ аD│0CР кА I│1 е TCн ┤D$(D)│D$(D)л О(H$(I),16)C╔ ╛Е  З(D$(D))│128 з D│Dл1C╧ ╚ЛCЎ ╥D$(D)│D$(D)л б(128м З(D$(D)),&HFF)D ▄А I│НОПСНРЙДВВВД~~ЕНОФТ}ВБ~АqqtsrrurrsАБА~|}АГpА}ЕАВБЕЕСНПНРТУПРГБ}}Г~~yuББААДА}АВБvuustvvwt}ВДВГОПНРП~БДАВББ~РМСНОРНЛЛЗ~srssususБ~В{~А~~Аwttvvuwv~ЕТОМНПМИММББЖАБГВГДАМОЛЛАВ~Бsvuuxwtuw{ВВБГАБГБyzВАВ}ЕБАКМОЙМЙМММК}~~~ВtА~~Б~}}}ttsvtvtuvА~АГЛМЛКЛДАГВДВЕГДКЛЙЙНИКЛЛГАvw{ywxxz}}~~ББ~|~zywywyxyАГИЙЗЙЙЙККИБА~~~А{ВЗИИЙД}|~}vvxwuvvvwzББ|ВВДВВzyБДАВГДБЖЗККЙИИЗИЗААААzАББАВ~}yww{wzyzyВ~БККИИБА~БА}В~ЗЗЙИЗДЕЖЖ~xuuxvwuw~~}}}А~А~zz|zzzyy|ВИЗИЗЗЗЗЗД}}~ААА~~БЖЕДДЕ}|Аxxywzxzyx~ААВАА~В}z{АА}БА~ЗЖИЕЕЕЕЕЖЕ}~А{~|~}v}~}~~~}}{zxzz{|{|{БААВЕЖГЖБ}А~А~ЕЗДЖГЕЕЕД~||xzzyzyy}~~~~~~yxzzxzyzyБГЖЕЕЖЕДЕЕ~А~~~}ВГБГДГ|}~}xw{|{{z|z~ААА~Б) GHHIJKЯЬЬЙIJKLLMNOOебаЯЯЮЮЭЭlLLMNOOPQRжгввбЬNPP'$%'(*+,-/^^____``a1456789:;ClllmmЫ╛╜╝fjyyyyyyzЯ╗║╣╕╖╢╢╡┤oqrrrrrrsн┤│▓▓▒pnnnCDEFGHIJKwxxxxxxxxrMNOOPQRRSБ─└┐Ы{{{{{{{{{└╜╗╗║╣╕╕╖~sttВВВВВВ╖╡┤┤│▓{||TVVWXXYZZ^ВВВВВВВВВX[[\\]^^_pЗЗЗЖЖМ╗║╣БГГГГГГГГп╖╢╢╡┤│▓▒▒zzzzz{{{{▒░поннИvvsOPQRSaffgКЙЙИИИИИИxffgghhhiiМЛЛККК││▓РЗЗЗЗЗЗЖЖЖ░поонммлкАААААААААВкйиизжz||Y[\\]]^^_kБББББАААА^``abbccqЖНННМММоммЙЙЙЙЙИИИИййииззжедгВВВВВВВВВегввббЪucddeeeffgДГГГГГГГВnggghhiiiiЖЕЕЕДДЮееГВВВВВВВВГдггввббааБВВВВВВВВЛЮЮЮЭЭЬ~fghhhiiijzВВВВВВВВВjjkkklllmДЕЕЕЕДДвааГГГГВГВВВаЮЮЭЬЬЫЫЪТ}}}}}}}}}ЫЪЪЩЩШШААrlllmmmnnnГГГГГГВВВonnoooooopДДДДДДКЫЪБВВВВВВВВЗ4C  0d╚,РЬ@Ь@Ь@Ь@dгАгАгАгА 0d╚,РЬ@Ь@Ь@Ь@дВDirectory Extensions гВVersion 2.3 ((F╚,РЬ@Ь@Ь@Ь@гА:гА Disk Basic under the CoCo will only allow filenames of up to eight characters. Enter гБDisk File ExtensionгА. With DFE, you will be able to save directories with filenames of up to twenty-four characters and an extension. DFE will work with up to four disk drives (35 tracks maximum). A printer is optional.гАгБHow It WorksWгА If you examine the directory (Track 17, Sector 3) using your disk-zapper, you will notice that after every sixteen byte filename there are an additional sixteen bytes of unused space. These spaces are filled by values of $FF (255 decimal) and are not used by Disk Basic. This is the space that we will use to hold our filename extensions.їгА Important: Some utilities (such as disk lock utilities) use this space also. гВDO NOTгА use DFE with a locked disk. When you are using DFE for the first few times, be sure to keep a backup of your disks until you are sure it works correctly.гАгБUsing Disk File ExtensionфгА Once you have typed the program in, save it. There are POKEs that could be harmful if mistyped. You should also double-check the Load Directory and Save Directory subroutines because a mistake here could wipe out your disk.■гА After you get DFE running, you will be greeted by the title screen. Put the disk you want to edit in Drive 0 and press any key. There should be a pause while the directory is loaded, then the first page (11 lines) of the directory will be displayed. гА On the right-hand side of the screen is a cursor used for selecting a file. To move the cursor, use the up and down arrow keys. To page through the directory, use the left and right arrow keys. The CLEAR key changes the options listed at the bottom of the screen.lгА There are seven options: rename, save, arrange, change default drive, hardcopy, change disks, and quit.гА гБOptionsЁгА Rename (ENTER) allows the user to rename the file at the cursor using the full twenty-four characters. To add an extension, press . or / and type in a three character extension. If you don't add an extension, it will not be changed.─гА To backspace, press the left arrow; to restart, press SHIFT and the left arrow; and to "pull" a character from the original filename, press the right arrow. When you are finished, press ENTER.ИгА Save (S) saves the current directory to disk. Once selected, you will be asked if you are sure. If you press Y, DFE will compare directories to be sure you have not changed disks. If you have switched disks, DFE will abort the save and ask you to reinsert the original disk. If all goes well, the computer will stop for a few seconds to compress the filenames, then save the directory.?гА Arrange (A) sorts the files in ascending alphabetical order.┼гА Change default drive (0123) changes the drive you are working with. If you select a drive that does not exist or is not ready, you will get a Disk Error message and the default will not change.гА Hardcopy (H) produces a printout of the directory in two-column form. It is compatible will all Radio Shack printers as is.,гА When you are asked to select the baud rate, simply press the first number of the rate for your printer. Now, enter the title of your disk and press ENTER. If you do not have a printer and you try to print the directory, the computer will lock up. Press the reset button and restart the program.ьгА Change disks (D) allows you to change the disk you are working with. You will be asked to put the disk you wish to edit in the default drive. Press any key and the directory will load and you will be returned to the directory page.*гА Quit (Q) returns the computer to Basic.гАгБOther Information{гА From version 2.3 on, each time the directory is saved, you will also see the message "Protecting Directory..." DFE is saving a copy of the directory to track 17, sectors 14 - 18, exactly as would the SAVE DIR command included in KDSK To restore the directory, use the RESTORE DIR command (KDSK). Also, all writes are now verified. This can be disabled by editing line 110.ЩгА DFE uses the high-speed poke to speed up loading and saving of directories. If your CoCo cannot handle the high-speed poke, change Line 105 to read: гА  0d╚,РЬ@Ь@Ь@Ь@ гА 105 HI=65494:LO=65494 ((F╚,РЬ@Ь@Ь@Ь@гА┘гА The line numbers for default drive, verify on/off, elongation on, and elongation off can be found by typing LIST-99. The GOTO statements are added so the line numbers will change correspondingly in case of a RENUM╥гА The filename extensions are invisible to Disk Basic. Disk Basic will not copy the additional sixteen characters of the filenames with the COPY command, nor will the DIR command will display the additions. МгА In fact, if you try to use the extended filenames with any Disk Basic command, you will get an FN error. To use the filenames with Disk Basic, you must use only the first eight characters of the filename (as you would normally enter a filename). You can use the extensions as normal. ML hackers, if you write a program to display the extended directory with the DIR command, send me a copy!VгА If you have any questions, suggestions, bugs, etc., send them along with a SASE to:гА Ian BoisvertгА 80 Coachman WayгА St. Albert, AB, Canada гА T8H 2G1de 0d╚,РЬ@Ь@Ь@Ь@гБгБGгБIan Boisvert Page гБdf 0d╚,РЬ@Ь@Ь@Ь@аАdgАА_ИHHhisvertгА 80 Coachman WayгА St. Albert, AB, Canada гА T8H 2G1de 0d╚,РЬ@Ь@Ь@Ь@гБгБGгБIan Boisvert Page ddeeefffgкйиззжеддгввбааЯЯЮЮЭЭЭЬЬЬЫЫЫЪЪЪЩЩШШЧЧЧЦЦЦХХХФ]``aabbccdddeeefffgggghhhiijjjkkllllmmmmnnnnoзггввббаЯЯЮЮЭЭЬЬЫЪЪЩЩЩШШЧЧЦЦЦЦЦХХХХФФФУУУУТТТZ]]hjjkkkllllmmmnnnnnooooopppppqqqqrrrrssssssЯЭЬЬЫЫЪЪЩЩШШШЧЧЧЦЦЦХХХФФУУТТТСССРРРРРППППППООceefffgghiqqqqqrrrrrssssssttttttttttuuuuuuuvvШЧЧЧЦЦХХХФФФУУУТТТТСССРРРРПППОООНННМММММЛЛЛЛКijjjkklllmmmnnnntttttttuuuuuuuvvvvvvvvvvvvwwwФУТТТТСССССРРРППППООООННННММММММЛЛЛЛЛККККЙЙЙИlllmmmnnnoooppqqqqqqrrwwwwwwwwxxxxxxxxxxyyyy{РРРПППООООНННМММММММММЛЛЛЛККККККЙЙЙЙЙЙИИИИИИВppppppqqqqqqrrrrrsssstttuuuuvzzzzzzzzzzzzzzzВОННННМММЛЛЛЛКККККЙЙЙЙЙЙЙЙЙИИИИИИИИЗЗЗЗЗЗЗЖЖЖ{ssssttttttttttttuuuuuuuuvvvvvwwwwww{{{{{{{{{ЗЛЛЛЛККККККЙЙЙЙЙИИИИЗЗЗЗЗЗЗЖЖЖЖЖЖЖЖЖЖЖЖЖЕЕЕЕЕwuuuvvvvvvvvwwwwwwwwwwwwwwwwwwwxxxxxxyyyyy|||ИЙЙЙЙЙИИИИИИЗЗЗЗЗЗЗЖЖЖЖЖЖЖЕЕЕЕЕЕДДДДДДДДДДДДДvvvwvwwwwwwwwxxxxxxxxxyxyyyyyxxxxxyyyyyyyyyyzИИИЗЗЗЗЗЗЖЖЖЖЖЖЖЖЖЕЕЕЕЕЕЕЕДДДДДДДДГГГГГГГГГГВvwwwxxxxxxxyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzЖЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕДДДДДДДДДДДГГГГГГГГГГГГВВВВВВxxxxyxyyyyyyyzzzzzzzzzzzz{z{{{{{{{{{{{{{{{{{{ЕДДДДДГГГГГГГГГГГГГГГГГГГГ Directory Extensions Version 2.3 Disk Basic under the CoCo will only allow filenames of up to eight characters. Enter Disk File Extension. With DFE, you will be able to save directories with filenames of up to twenty-four characters and an extension. DFE will work with up to four disk drives (35 tracks maximum). A printer is optional. How It Works If you examine the directory (Track 17, Sector 3) using your disk-zapper, you will notice that after every sixteen byte filename there are an additional sixteen bytes of unused space. These spaces are filled by values of $FF (255 decimal) and are not used by Disk Basic. This is the space that we will use to hold our filename extensions. Important: Some utilities (such as disk lock utilities) use this space also. DO NOT use DFE with a locked disk. When you are using DFE for the first few times, be sure to keep a backup of your disks until you are sure it works correctly. Using Disk File Extension Once you have typed the program in, save it. There are POKEs that could be harmful if mistyped. You should also double-check the Load Directory and Save Directory subroutines because a mistake here could wipe out your disk. After you get DFE running, you will be greeted by the title screen. Put the disk you want to edit in Drive 0 and press any key. There should be a pause while the directory is loaded, then the first page (11 lines) of the directory will be displayed. On the right-hand side of the screen is a cursor used for selecting a file. To move the cursor, use the up and down arrow keys. To page through the directory, use the left and right arrow keys. The CLEAR key changes the options listed at the bottom of the screen. There are seven options: rename, save, arrange, change default drive, hardcopy, change disks, and quit. Options Rename (ENTER) allows the user to rename the file at the cursor using the full twenty-four characters. To add an extension, press . or / and type in a three character extension. If you don't add an extension, it will not be changed. To backspace, press the left arrow; to restart, press SHIFT and the left arrow; and to "pull" a character from the original filename, press the right arrow. When you are finished, press ENTER. Save (S) saves the current directory to disk. Once selected, you will be asked if you are sure. If you press Y, DFE will compare directories to be sure you have not changed disks. If you have switched disks, DFE will abort the save and ask you to reinsert the original disk. If all goes well, the computer will stop for a few seconds to compress the filenames, then save the directory. Arrange (A) sorts the files in ascending alphabetical order. Change default drive (0123) changes the drive you are working with. If you select a drive that does not exist or is not ready, you will get a Disk Error message and the default will not change. Hardcopy (H) produces a printout of the directory in two-column form. It is compatible will all Radio Shack printers as is. When you are asked to select the baud rate, simply press the first number of the rate for your printer. Now, enter the title of your disk and press ENTER. If you do not have a printer and you try to print the directory, the computer will lock up. Press the reset button and restart the program. Change disks (D) allows you to change the disk you are working with. You will be asked to put the disk you wish to edit in the default drive. Press any key and the directory will load and you will be returned to the directory page. Quit (Q) returns the computer to Basic. Other Information From version 2.3 on, each time the directory is saved, you will also see the message "Protecting Directory..." DFE is saving a copy of the directory to track 17, sectors 14 - 18, exactly as would the SAVE DIR command included in KDSK To restore the directory, use the RESTORE DIR command (KDSK). Also, all writes are now verified. This can be disabled by editing line 110. DFE uses the high-speed poke to speed up loading and saving of directories. If your CoCo cannot handle the high-speed poke, change Line 105 to read: 105 HI=65494:LO=65494 The line numbers for default drive, verify on/off, elongation on, and elongation off can be found by typing LIST-99. The GOTO statements are added so the line numbers will change correspondingly in case of a RENUM The filename extensions are invisible to Disk Basic. Disk Basic will not copy the additional sixteen characters of the filenames with the COPY command, nor will the DIR command will display the additions. In fact, if you try to use the extended filenames with any Disk Basic command, you will get an FN error. To use the filenames with Disk Basic, you must use only the first eight characters of the filename (as you would normally enter a filename). You can use the extensions as normal. ML hackers, if you write a program to display the extended directory with the DIR command, send me a copy! If you have any questions, suggestions, bugs, etc., send them along with a SASE to: Ian Boisvert 80 Coachman Way St. Albert, AB, Canada T8H 2G1 ackers, if you write a program to display the extended directory with the DIR command, send me a copy! If you have any questions, suggestions, bugs, etc., send them along with a SASE to: Ian BoisvNOPQ^glУУТТТТ╥╨╧ЛНННМММММБМЛЛЛШШЧЧЧnooЩЧЦЦonОЦХХФФОllmYZZ[[\]]^ШЪЪЩЩШШШЧУopp\]]^tsЬЪЪЩЩШ╣╠╩▒ФФУУУТТТСРССРРРРППnhhkСРРРghСРРПППzyyffgghhhiikЯЭЭЬЬЫЫЪЪvxxmeffhzЗЫЫЫЪЪЪ┼┬┴ХЦЦХХХФФФ│УУУТТТТССoppПТССzoРРРРРППmnm\\]^^__`aГХХФФФУУЧРlmmmААЬЫЪЪЪЩЩ║╣ЮЦХХФФФУУУЦТССССССРuuuuТСССsuСРРРРПДssabcccddeekХУУТТТСССtuuucddexЛУУТТТТо▓▒ПФФУУУУТТнРСРРРРРППwww~ППОКvПОНННННstpdeffgghhhzТССРРРРП~wwwjgghuyТСРРРППмкПННММММММЛбККККККККqrr{РПППyОООННННxyijjjkkkklvКППООООННxyyyijkk|ОПППОООСедМММММЛЛЛЛгКККЙЙЙЙЙЕtttuЙЙЙИtКИИИИИИzsjefffnqqqq СССsuСРРРРПДssabcccddeekХУУТТТСССtuuucddexЛУУТТТТо▓▒ПФФУУУУТТнРСРРРРРППwww~ППОКvПОНННННstpdeffgghhhzТССРРРРП~wwwjgghuyТСРРРППмкПННММММММЛбККККККККqrr{РПППyОООННННxyijjjkkkklvКППООООННxyyyijkk|ОПППОООСедМММММЛЛЛЛгКККЙЙЙЙЙЕtttuЙЙЙИtКИИИИИИzsjefffn                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 °:Е Ж(&HFFFE)┤▓140 з З"THIS VERSION FOR COCO3 ONLY!":Кlў:Т&H95C9,&H17:Т&HFF22, Ж(&HFF22)▒&H10:Ю:Бе49СМTR$(62),SE$(62),S1$(62),S2$(62)ЯИ Ё Бе 50;A$│" Disk Transfer Utility Ver 1.1":АX│1е З(A$):З Р(A$,X,1);:Т65496,0:╔"T255A":Т65497,0:ЛX:З:Зд14)"By":а200,1:З" Carl Slaughter and Don Zbinden":а75,1бЗ@128,"":Й"How many drives in your system (1 or 2)";DR:ЕDR▓4 ▒ DR┤1 з 6 :Д Е DR▓1 з DR│2 :Д DR│1ўЮ:З@0,"Disk Transfer Utility Ver 1.1":Зд14)"By":З"Carl Slaughter and Don Zbinden"yЗ@192,"(1) Convert disk to file format":З:З"(2) Convert files to disk format":З"(3) Format an OS9 disk":З:З"(4) Exit program"├ I$│ Т:ЕI$│""з9:Д Е  Й(I$)▓4 ▒  Й(I$)┤1 з 9 :Д И  Й(I$) Бе 11,30,45,10ф Ю:З"Good Day, Ay":Т65496,0:КП Ю:З:З"Prepare:":З:ЕDR│1з З" Please insert source disk and press enter" :Д З"Please insert source disk in drive 1 and destination in drive 0, and press enter"Ш ╗ЙA$ ╗Й"Is this an R.S. Disk or OS9? (R/O)";A$:ЕA$│""з 13 :Д Е A$│"R" з SC│&HFF:SC$│"/FI" :Д SC│&HE5:SC$│"/OS"{З:╗Й"Disk name: ";NA$:Е  З(NA$)┤4 ▒  З(NA$)▓8 з З"File name must be at least 4 chr's and no more than 8":Бе14лЮ:T│0:S│1:CO│0:Z│0:FI│1:FO│0::C$│ б(128,SC)▐З@0,"Working on file: "NA$лSC$л П( И(FIл10),1)3Т65496,0:▀ DRм1,T,S,S1$,S2$:Т65497,0:З@64,═"Track=## Sector=## Block=###";T,S,COyЕS1$│C$ ░ S2$│C$ з З@96,═"No data on track=## Sector=##";T,S:Бе21╬CO│COл1:Z│Zл1:TR$(Z)│ Л(T):SE$(Z)│ Л(S):S1$(Z)│S1$:S2$(Z)│S2$:ЕZ│62 з Бж 24:Бж28 Е CO│116 з Бж24:CO│0:FO│0:Т65496,0:█:Ъ#1:FI│FIл1:Бж28:Бе16*S│Sл1:Е S▓18 з S│1:T│Tл1ЙЕT▓34 з Бж24:Т65496,0:█:Ъ:З:Й"Done. Run again (Y/N)";A$:ЕA$│"y"з О :Д Т65496,0:Т&H95C9,7:КУБе 17фЕ DR│1 з а5,5:З@352,"";:╗Й"Insert destination disk and press ";A$]Е FO│0 з Бж29:Т65496,0:Щ"R",#1,NA$лSC$л П( И(FIл10),1),258:╨#1,1  з TR$,1  з SE$,128  з B1$,128  з B2$:FO│1:Т65497,0╟ЕZ▓0 з АX│1еZ:╘ TR$│TR$(X):╘ SE$│SE$(X):╘ B1$│S1$(X):╘ B2$│S2$(X):Т65496,0:┼#1:Т65497,0:ЛX:Z│0:Р :Д Р═КЕDR│1за5,5:З@352,"";:Й"Insert source disk and press ";A$:Р :Д Р░Т65496,0:Е  г(0)┤13 з ╔"T30L4ABABCABABCABABCABABC":Т65497,0:З@352," Destination disk is FULL. Insert new disk and press enter":╗ЙA$:Бе29 :Д РrЮ:З:З"Convert:":З:ЕDR│1зЗ" Please insert source disk in drive 0 and press enter"::ДЗ" Please insert BLANK formated disk into drive 0 and the soursedisk into drive 1 and press enter"{╗ЙA$э З:╗Й"Disk name:";NA$:Е З(NA$)┤4 ▒  З(NA$)▓8 з З" File name must be at least 4 chrs and no more than 8":Бе32>!╗Й"RS Dos or OS9 (R/O) -=>";A$:ЕA$│"R"зSC$│"/FI" :Д Е A$│"O"з SC$│"/OS" :Д33_"Ю:T│0:S│1:CO│0:Z│0:FI│1:FO│0#ЕFI│6 за5,5:З@352," Please insert the second disk with the remaining ."лSC$л" files":ЕDR│1зЗ" and press enter":╗ЙA$:Д З" into drive 1 and press enter":╗ЙA$6$Ю:З@0,"Working on file: "NA$лSC$л П( И(FIл10),1)п%Т65496,0:Щ"R",#1,NA$лSC$л П( И(FIл10),1)л":"л П( И(DRм1),1),258:╨#1,1  з TR$,1  з SE$,128  з B1$,128  з B2$:Т65497,0 O&CO│COл1:Z│Zл1:Т65496,0:─#1:Т65497,0:TR$(Z)│TR$:SE$(Z)│SE$:S1$(Z)│B1$:S2$(Z)│B2$:З@32,═"Reading Track=## Sector=##"; К(TR$(Z)), К(SE$(Z)):ЕZ│62 з Бж 42:Бж44 П'ЕCO│116 з Т65496,0:Ъ#1:Т65497,0:CO│0:Бж42:Бж44:FI│FIл1:Бе35 ╒(Е CO│ е(1) з Т65496,0:Ъ#1:█:Бж42:З:З"Done..":Т65496,0:Т&H95C9,7:К ▐)Бе38!.*Е DR│1 з а5,5:З@352,"";:╗Й" Insert destination disk and press enter.";A$!└+ЕZ▓0 з АX│1еZ:З@32,═"Writing Track=## Sector=##"; К(TR$(X)), К(SE$(X)):Т65496,0:р0, К(TR$(X)), К(SE$(X)),S1$(X),S2$(X):Т65497,0:ЛX:Z│0:Р :Д Р",ЕDR│1за5,5:З@352,"";:╗Й" Insert source disk and press enter.";A$:Р :Д Р"Ї-Ю:З:З"Format OS9 disk":З:З" This will format a 35 track disk so that you do not need to use os9's format command. All itdoes is re-write all tracks and sectors from &HFF to &HEB wich is the OS9 chr for blank or empty"#>.З:╗Й"Insert Blank formated RS disk into drive 0 and press enter";A$#п/S$│ б(128,229):Ю:АT│0е34:АS│1е18:З@0,═"Formating Track=## Sector=##";T,S:Т65496,0:р0,T,S,S$,S$:Т65497,0:ЛS,T#╖0Бе7#╤1└1:Х20000:╤ 1,258:Бе3#ў2Т65496,0:Ю0:З"BYE...":Т&H95C9,7:К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 GR$│S1$:GR│ Й(S1$):Е  Й(C3$)│2 з650?DN│ Й(S2$)0@Бе670fABPR$│D1$:BPR$│"$"лBPR$:EPR$│D2$:EPR$│"$"лEPR$:EAD$│D3$:EAD$│"$"лEAD$0oBБе630uCР0█DFL$(0)│" PROG":FL$(1)│" DATA":FL$(2)│" MACH":FL$(3)│" SOURCE":FE$(0)│" BINARY":FE$(1)│" ASCII ":Р1[EFL$(0)│"BASIC PROGRAM":FL$(1)│"BASIC DATA":FL$(2)│"MACHINE LANGUAGE":FL$(3)│"SOURCE CODE":FE$(0)│"BINARY":FE$(1)│"ASCII ":Р2%FЮ1:ё 1,2:З"A single drive system will hold 1700 records";:З:З"A multiple drive system will hold 3400 records";:ё 0,15:З б(39,255);:ё 5,20:З"DO YOU HAVE A SINGLE OR MULTIPLE DRIVE SYSTEM"2FGё 10,23:Й"ENTER S or M";MU$2rHЕMU$│"S"з UM$│"SINGLE":Д UM$│"MULTIPLE"2╢IЕ(MU$│"M"▒ MU$│"S")░ I$│"1"з76 :ДЕ(MU$│"M"▒ MU$│"S")░ I$│"2"з812┬JЕQT│9зР2╦KБе702 LQ│1:NE│2:B│2:NE$│ И(NE):NE$│ Р(NE$,2, З(NE$)м1)3КMЮ1:Зд8);"INPUTING NEW FILE":З:З:З:Й"FILENAME FOR OUTPUT";OP$:З:Й"DRIVE # FOR OUTPUT";OD$:З:Й"DRIVE # FOR INPUT";IN:OP$│OP$л"/DAT:"лOD$3лNЕIN│ Й(OD$)зБж79:Бе80:Д Бе804OЮ1:ё9,14:З"INSERT DESTINATION DISK IN":ё10,16:З"DRIVE "IN" FOR INDEX FILE":ё9,21:Й"PRESS ENTER WHEN READY";P:Р41PLDN│0:F│1:Бе834█QF│0:Q│1:Ю1:Зд11)"ADDING TO FILE":З:З:З"FILE YOU WANT TO ADD TO":╗Й" ?";OP$:З:Й"DRIVE NUMBER THAT THIS FILE IS ON";OD$:З:Й"INPUT DRIVE NUMBER";IN:OP$│OP$л"/DAT:"лOD$4ЁRЕIN│ Й(OD$)зБж795SЩ"D",#1,OP$,465nT╨#1,8  з PO$,8  з PP$,8  з C1$,3  з C2$,1  з C3$,1  з C4$,2  з S1$,3  з S2$,4  з D1$,4  з D2$,4  з D3$5yUЕF│5зР5ЕVЕF│7з935СWЕQ│6з916XJ│ е(1)л1:B5│J:DN$│ И(LDN):DN$│ Р(DN$,2, З(DN$)м1):B5$│ И(B5):B5$│ Р(B5$,2, З(B5$)м1):B│2:B6$│ И(B):B6$│ Р(B6$,2, З(B6$)м1):Е F┤▓1з916кYЕ F│1з ╘ PO$│"00000000":╘ PP$│"00000000":╘ C1$│"ZZZZZZZZ":╘ C2$│DN$:╘ C3$│"":╘ C4$│ Л(255):╘ S1$│"":╘ S2$│"":╘ D1$│NE$:╘ D2$│B6$:╘ D3$│B5$6┐Z┼#1,J:J│Jл1:Бе936╔[─#1,16┘\LDN│ Й(C2$)7Y]B5│J:EAD$│"":BPR$│"":EPR$│"":Ю2:ё1,15:З"LAST DISK ON FILE IS =";LDN:З:З" INPUT NEW DISK NUMBER";:Й DN:ЕDN│0з93:ДБж94:Бе957┐^Ю1:ё14,13:З"INSERT SOURCE DISK":ё 14,15:З"IN DRIVE "IN:З:З:Й" PRESS ENTER WHEN READY";P:Р8U_ЕQT│9з96:Д ЕDN┤│LDN зЗ:З"LAST DISK ON FILE IS "LDN:З"YOU EN                                                                                                                                                                                                                                                                                                !"#$%&╟                             CC3IND BAS Qfe CLP AFE TXT 9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TERED"DN:Й"DO YOU WISH TO GO ON Y/N";P$:ЕP$│"Y"з96:ДЕP$│"N"░ MU$│"S"зБж79:Ъ:Бе60:ДБе609`Ю2:ё0,0:ЗJ;"NEXT NUMBER TO PUT ON FILE";:ё5,5:З"YOU HAVE CHOSEN ";UM$;" DRIVE":З:З"INPUT DRIVE IS "IN:З"OUTPUT DRIVE IS "OD$:З"FILENAME IS "OP$:З"THIS DISK # IS "DN:З"LAST DISK # WAS"LDN9;aё14,22:З"PRESS [E] FOR MENU":Бж2239cbЕMU$│"S"░ J▓│1701зБж341:Бж79:Ъ:Бе609ЖcЕMU$│"M"░ J▓│3401зБж341:Ъ:Бе609─dЕ II$│"E" ░ MU$│"S"зБж79:Ъ:Бе60:ДЕII$│"E"░ MU$│"M"зЪ:Бе609яeDIN$│ И(DN):DIN$│ Р(DIN$,2, З(DIN$)м1)9їfЮ:g▀ IN,17,2,A$,K$:BF$│ О(A$,68):$hАBT│0е67:BiGR(BT)│ К( Р(BF$,BTл1,1)):JjЛBT:XkА SC│3е11:Гl▀ IN,17,SC,AA$,BB$:AA$│AA$л О(BB$,120):РmА EN│0е7:кnNM$│ Р(AA$,ENн32л1,8):─oEX$│ Р(AA$,ENн32л9,3):щpGR│ К( Р(AA$,ENн32л14,2)):FGR│GR;qFB$│ Р(AA$,ENн32л12,1):FA$│ Р(AA$,ENн32л13,1);ZrЕ  О(NM$,1)│ Л(0)з ё0,21:З"FOUND DELEATED FILE";:F│2:Бе126;vsЕ О(NM$,1)│ Л(255)з 136;ЙtFA│ К(FA$) ░ 1;▒uАS│1е68:Е GR(GR)┤128 з GR│GR(GR):ЛS;╙vS$│ И(S):S$│ Р(S$,2, З(S$)м1);шwЕ  К(FB$)│2 з137;■xё 0,9:З б(39,32);<%yFA$│ И(FA):FA$│ Р(FA$,2, З(FA$)м1)(Гё0,0:ЗJ1;:ё7,0:З"CURRENT DISK FILE COUNT">NДё0,3:ЗJ;:ё7,3:З"TOTAL FILE COUNT">ГЕJ│Jл1:ЕMU$│"S"░ J▓│1701з98:ДЕMU$│"M"░ J▓│3401з99>ПЖЛ EN,SC>ЪЗLDN│DN>└ИЕ MU$│"S"зБж79:Бж226:Бе155:ДБе155>┌ЙGL│GR(GR):LSC│GL ░ 31?КGAL│GR:LBT│ К( Р(AA$,ENн32л16,1))?-ЛЕ FGR┤34 з NT│ Б(FGRо2):Д NT│ Б(FGRо2)л1?BМNS│1л(FGR ░ 1)н9?}Н▀ IN,NT,NS,A$,K$:BPR│ К( Р(A$,4,1))н256л К( Р(A$,5,1))?ООBPR$│ Ь(BPR)?┤ПЕ З(BPR$)┤4 з BPR$│"0"лBPR$:Бе143?фРEPR│BPRл К( Р(A$,2,1))н256л К( Р(A$,3,1))м1?їСEPR$│ Ь(EPR)@ТЕ З(EPR$)┤4 з EPR$│"0"лEPR$:Бе146@IУЕ GAL┤34 з NT│ Б(GALо2) :Д NT│ Б(GALо2)л1@`ФNS│(GAL ░ 1)н9лLSC@ЖХ▀ IN,NT,NS,A$,K$:A$│A$л О(K$,127)@ЩЦЕ LBT┤2з LBT│2@╔ЧEAD│ К( Р(A$,LBTм1,1))н256л К( Р(A$,LBT,1))@┌ШEAD$│ Ь(EAD)AЩЕ З(EAD$)┤4 з EAD$│"0"лEAD$:Бе153A ЪБе121AЫЪ:Бе267A&ЬЪ:ЕQT│9з340A3ЭЕQT│8з44AЙЮC│0:LDN│DN:Ю0:З:З:З"DO YOU WANT TO PUT MORE ON THIS FILE?":З:З:З" (Y)es OR (N)o"AЯЯI$│ Т:Е I$│""з159A╗аЕI$┤▓"N"з J1│0:F│7:Бе83A─бБе60A╦вЮ1Bгё 12,0:З"PRINT FILE":З б(39,127);:ё0,4:З"DO YOU WANT LISTING TO GO TO"BШдЙ"(S)creen or (P)rinter";I$:З"YES YOU WANT LISTING BY FILENAME [Y]":З:З"NO YOU WANT LISTING IN DISK ORDER[N]":З:Й" (Y/N)";IP$BкеЕI$│"S"зБе231B╬жЕI$│"P"зЙ"TODAYS DATE";D$:Бе231B╪зБе162CНиЮ:ё5,0:Й"READY PRINTER AND PRESS ENTER";P:Ю:ё5,1:З"Printing Hardcopy of filenames":Е IP$│"N"зё13,4:З"in disk order":ё11,11:З"files to print" е(1):Р :Д ё9,4:З"in filename order"C▒йё11,11:З"files to print" е(1):РCткЗ#м2,д50)"LISTING ON " D$:З#м2,д30)"BY DISK"CЎл─#1,2:A│ Й(S2$)DeмЗ#м2,д30)"DISK NUMBER "A:З#м2:З#м2,д5)"NAME";д21)"TYPE";д38)"FORMAT";д47)"GRANULES";д58)"START, END, EXEC"D│нЗ#м2,д3) б(12,45);д18) б(16,45);д38) б(6,45);д47) б(8,45);д58) б(17,45):РD╤оЕC4$│ Л(255)з B│Bл1:Бе253ECпЕ(C4$┤▓ Л(255)░ T┤▓0)░  Й(S2$)▓A зЗ#м2:З#м2:З#м2,д30)"FREE GRANULES ="68мT:T│0:З#м2:З#м2:З#м2:A│ Й(S2$):Бж172EQ░Бж61:Бж69EУ▒З#м2,д3)NM$л"/"лEX$;д18)FL$( Й(FB$));д38)FE$( Й(FA$));д49)GR;E─▓Е Й(C3$)│2 зЗ#м2,д58)BPR$л" "лEPR$л" "лEAD$;EЇ│З#м2:ё12,13:З"printing"B;:T│ Й(S1$)лT:B│Bл1E■┤Бе253F.╡З#м2:З#м2,д30)"FREE GRANULES ="68мT;:З#м2:РFo╢Бж168:З#м2,д50);"LISTING ON "D$:З#м2,д30);"by filename":З#м2G╖З#м2,д5)"NAME";д18)"TYPE";д33)"DISK";д39)"FORMAT";д47)"GRANULES";д58)"START, END, EXEC":З#м2,д3) б(12,45);д17) б(20,45);д39) б(6,45);д47) б(8,45);д58) б(17,45)G╕РG'╣Бж61:Бж69GE║ЕC4$│ Л(255)з B│Bл1:Бе253GО╗З#м2,д3)NM$л"/"лEX$;д17)FL$( Й(FB$));д33)DN;д39)FE$( Й(FA$));д49)GR;G╛╝Е Й(C3$)│2зЗ#м2,д58)BPR$л" "лEPR$л" "лEAD$;G╟╜З#м2Gь╛ё13,13:З"printing"B;:B│Bл1:Бе253H┐Ю1:ё9,0:З"SEARCH BY FILE NAME":Бж349HZ└З:З:З:Й"WHAT IS THE NAME OF THE FILE YOU WOULD LIKE TO SEE";WO$Hj┴Бж194:Бе195H─┬Ю:у0,51:°1,0:З"*NAME/EXT**TYPE**FORMAT**GRANS***DISK**":З б(39,"#");:L1│ З(WO$):N│2:РH╫├N│2:АB│2е е(1)Hс──#1,BHЎ┼ЕC4$│ Л(255)з201I╞Е  Р(C1$,1,L1)┤▓WO$з201Iе╟Бж61:Бж68:Q│3:ё0,N:ЗNM$л"."лEX$;" "FL$( Й(FB$));" "FE$( Й(FA$));" ";GR;" ";DN;:Е Й(C3$)│2з N│Nл1:ё0,N:З"START "BPR$;" END "EPR$;" EXEC "EAD$I╞╚N│Nл1:ЕN▓20з N│2:Бж223:Бж194I╬╔Л BJ/╩ЕQ│3зЗ:З" THATS ALL FOR NAME":ЗWO$;:Ъ:Бж223:Бе60:ДЗ" NOTHING FOUND FOR "WO$:Ъ:Бж223:Бе60Jk╦Ю6:°3,5:З"SHOW DIRECTORY FOR WHAT DRIVE":З:З:Й"0 - 3";LJy╠╬L:З г(L)JГ═Бж348JШ╬Е  Т│""з206 :Д60K╧N│2:F1│3:Ю1:ё9,0:З"SEARCH BY DISK NUMBER":ё3,5:Бж349:ё2,12:Й"NUMBER OF DISK YOU WANT TO FIND";WO$:ё3,5K.╨Ю1:ё10,12:З"SEARCHING FOR DISK" Й(WO$)KD╤АB│2е  е(1):─#1,BKY╥ЕC4$│ Л(255)з212Kw╙A│ Й(S2$):Е A│ Й(WO$)з213K▓╘ЛB:ё15,13:З"DISK # " Й(WO$)" NOT FOUND":Ъ#1:Бж223:Бе60K╚╒G│0:Ю1:Бж194:F│11K┌╓А B│B е  е(1)Kх╫─ #1,BL[╪Е Й(S2$)│ Й(WO$)з G│ Й(S1$)лG:Бж61:Бж68:ё0,N:ЗNM$л"."лEX$;" "FL$( Й(FB$));" "FE$( Й(FA$));" ";GR;" ";DN;::Д 217L╗┘Е Й(C3$)│2з N│Nл1:ё0,N:З"START "BPR$;" END "EPR$;" EXEC "EAD$:BPR$│"":EPR$│"":EAD$│""L┘┌N│Nл1:ЕN▓20з Бж 223:Бж194LЄ█Е Й(S2$)▓ Й(WO$)з221L°▄ЛM▌G1│68мG:З:З" FREE GRANS =>"G1MK▐З" THATS ALL FOR THIS DISK":Ъ:Бж223:Бе60MU▀Бж348M`рТ135,0MЗсII$│ Т:ЕII$│""з225:ДЕII$│"X"з60:ДРMУтАL│0еC9Nу╘ PO$│ О(RH$(L),8):╘ PP$│ Р(RH$(L),9,8):╘ C1$│ Р(RH$(L),17,8):╘ C2$│ Р(RH$(L),25,3):╘ C3$│ Р(RH$(L),28,1):╘ C4$│ Р(RH$(L),29,1)NЙф╘ S1$│ Р(RH$(L),30,2):╘ S2$│ Р(RH$(L),32,3):╘ D1$│ Р(RH$(L),35,4):╘ D2$│ Р(RH$(L),39,4):╘ D3$│ Р(RH$(L),43,4)NЮх┼#1,B5:B5│B5л1:ЛNдцРN╘чЮ:ё12,0:З"PRINT FILE";:ё3,5:Бж349:у0,0:°1,0NфшЕI$│"S"з235O щЕI$│"P"░ IP$│"N"зБж168:Бж170:Бе236O,ъЕI$│"P"░ IP$│"Y"зБж182:Бе236O:ыN│2:Бж194OLьB│1:SP│1:RN│2OWэ─#1,RNOКюR$│PO$лPP$лC1$лC2$лC3$лC4$лS1$лS2$лD1$лD2$лD3$O╘яЕ(I$│"S"▒ I$│"P")░ IP$│"Y"з H│ Й( Р(R$,1,4)):Бе240:Д H│ Й( Р(R$,9,4))PЁЕ(I$│"S"▒ I$│"P")░ IP$│"Y"з L│ Й( Р(R$,5,4)):Бе241:Д L│ Й( Р(R$,13,4))P_ёЕ(I$│"S"▒ I$│"P")░ IP$│"Y"з K1$│ Р(R$,17,8):Бе242:Д K1$│S2$PqЄЕL│0з243:Д246PБєЕI$│"S"з250PЪЇЕI$│"P"░ IP$│"N"з174P│їЕI$│"P"░ IP$│"Y"з185P┴ЎSK(SP)│RNP═ўSP│SPл1P╓°RN│LPр∙Бе237QB·ЕC4$│ Л(255)з253:ДБж61:Бж68:ё0,N:ЗNM$л"."лEX$;" "FL$( Й(FB$));" "FE$( Й(FA$));" "GR;" ";DN;QМ√Е  Й(C3$)│2з N│Nл1:ё0,N:З"START "BPR$;" END "EPR$;" EXEC "EAD$Q╦№N│Nл1:ЕN▓20 з N│2:ё10,22:З"PRESS [X] TO EXIT";:Бж223:Бж194Q┘¤Е H│0з256Qт■RN│HQь Бе237Q°SP│SPм1R8Е SP┤1░ I$│"S"зЪ:ё10,22:З"THIS FILE IS FINISHED":Бж223:Бе60RИЕ SP┤1зЕI$│"P"░ IP$│"N"зБж181:Ъ:ё10,21:З"THIS FILE IS FINISHED";:Бж223:Бе60R╪Е SP┤1 зЕI$│"P"░ IP$│"Y"зЪ:З#м2:ё10,21:З"THIS FILE IS FINISHED";:Бж223:Бе60RцRN│SK(SP)Rё─#1,RNS$R$│PO$лPP$лC1$лC2$лC3$лC4$лS1$лS2$лD1$лD2$лD3$SnЕ(I$│"S"▒ I$│"P")░ IP$│"Y"з H│ Й( Р(R$,1,4)):Бе264:Д H│ Й( Р(R$,9,4))S╣Е(I$│"S"▒ I$│"P")░ IP$│"Y"з L│ Й( Р(R$,5,4)):Бе265:Д L│ Й( Р(R$,13,4))S∙ Е(I$│"S"▒ I$│"P")░ IP$│"Y"з K1$│ Р(R$,17,8):Бе266:Д K1$│S2$T Бе243TF Ю6:а Д(200),2:ё12,11:З"BUILDING POINTERS";:ё17,13:З"FILENAME";TY Щ"D",#1,OP$,46TЖ ╨#1,46  з R1$:ё24,23:З е(1);"FILENAMES";T├─#1,1:NE│ Й( Р(R1$,35,4)):B│ Й( Р(R1$,39,4)):Е B┤2 з B│2TЄ─#1,B:B│Bл1:ё2,23:З"WORKING";:ё12,23:ЗBм1;T¤R$│R1$UK1$│ Р(R1$,17,8)UБж281UcW$│"0000":NX$│ И(NE):NE$│ Р(NX$,2, З(NX$)м1):W$│W$лNE$:W$│ П(W$,4)UСЕ K1$▓│K$з RW$│W$л Р(R$,5, З(R$)м4):Бе278U┬Е K1$┤K$ з RW$│ О(R$,4)лW$л Р(R$,9, З(R$)м8)U╫╘ R1$│RW$:┼#1,RNUуNE│NEл1U·ЕB▓ е(1) з292:Д271VS│1V RN│1V─#1,RN:R$│R1$V'B4│RNV<H│ Й( Р(R$,1,4))VQL│ Й( Р(R$,5,4))VdK$│ Р(R$,17,8)V~ Е K1$▓│K$з RN│H:Бе290VС!Е K1$┤K$з RN│LVв"Е RN▓0зБе283V▓#S│0:RN│B4:РV┐$ЕQ│1з322W.%Ю:а Д(235),4:ё15,0:З"UPDATING":ё12,5:З"DISK";DN"IN INDEX";:ё12,11:З"BUILDING POINTERS":ё16,14:З"DISK NO.";Wk&─#1,1:NE│ Й( Р(R1$,35,4)):B│ Й( Р(R1$,39,4)):Е B┤2 з B│2W{'─#1,B:B│Bл1W╣(ё2,23:З"WORKING";:ё12,23:ЗBм1;:ё24,23:З е(1);"FILENAMES";W╘)R$│R1$:K1$│ Р(R$,32,3)W▐*Бж315X+W$│"0000":NX$│ И(NE):NE$│ Р(NX$,2, З(NX$)м1)X,W$│W$лNE$X--W$│ П(W$,4)Xm.Е  Й(K1$)▓│ Й(K$)з RW$│ О(R$,8)лW$л Р(R$,13, З(R$)м8):Бе304Xи/Е  Й(K1$)┤ Й(K$)з RW$│ О(R$,12)лW$л Р(R$,17, З(R$)м16)X╜0╘ R1$│RW$:┼#1,RNX╔1NE│NEл1X▀2ЕB▓ е(1)з307:Д295Y3B$│ И(B):B$│ Р(B$,2, З(B$)м1)Y4Е З(B$)┤4зB$│B$л" ":Бе308YB5N$│ И(NE):N$│ Р(N$,2, З(N$)м1)Yb6Е  З(N$)┤4з N$│N$л" ":Бе310YР7─#1,1:FD│ Й( Р(R1$,25,3)):Е FD▓DN з DN│FDY╖8DN$│ И(DN):DN$│ Р(DN$,2, З(DN$)м1)Y╪9Е З(DN$)┤3зDN$│DN$л" ":Бе313Z,:─#1,1:ZZ$│ О(R1$,24)лDN$л б(7,32)лN$лB$л" ":╘ R1$│ZZ$:┼#1,1:а Д(250),1:Бе156Z9;S│1:RN│1ZQ<─#1,RN:R$│R1$:B4│RNZЗ=H│ Й( Р(R$,9,4)):L│ Й( Р(R$,13,4)):K$│ Р(R$,32,3)Zи>Е Й(K1$)▓│ Й(K$)з RN│H:Бе320Z┬?Е Й(K1$)┤ Й(K$)з RN│LZ╤@Е RN▓0з316ZсAS│0:RN│B4:Р[?BЮ6:а Д(239),3:ё15,6:З"DISK";DN;"IN INDEX":ё16,11:З"BUILDING POINTERS":ё19,15:З"DISK NO.";[yC─#1,1:NE│ Й( Р(R1$,35,4)):B│ Й( Р(R1$,39,4)):ЕB┤2зB│2[╟D─#1,(Bм1):B│Bл1:ё2,23:З"WORKING";:ё12,23:ЗBм1;:ё24,23:З е(1);"FILENAMES";[°EW$│"0000":NX$│ И(NE):NE$│ Р(NX$,2, З(NX$)м1)\FW$│W$лNE$:W$│ П(W$,4)\<GRW$│ О(R1$,8)лW$л Р(R1$,13, З(R1$)м8)\RH╘ R1$│RW$:┼#1,Bм2\^INE│NEл1\tJЕB▓ е(1)з307:Д324\ЩKЮ5:ё9,0:З"DELEATING DISK";:Бж349\╥Lё3,10:З"DISK NUMBER YOU WANT":ё3,11:Й"TO DELEATE";DL] MАB│2е е(1):─#1,B:Е Й(S2$)│DL з ╘ C4$│ Л(255):┼#1,B:Q│2]!NЛ:Ъ:ЕF│5зБж83:Р]sOЕQ┤▓2зЗ:З"DISK";DL;"NOT FOUND":Бж223:Бе60:ДЗ:З"DISK";DL;"DELEATED":Бж223:Бе60]БPQT│9:Бж70]НQЮ:Бж349^JRБж83:З:З"DISK NUMBER YOU WANT":Й"TO UPDATE";DN:DL│DN:Ю8:ё12,12:З"DELEATING OLD DISK";DL;:Бж333:а Д(235),3:ЕMU$│"S"з IN│ Й(OD$):Бе339 :ДЗ:З"DRIVE NUMBER THAT NEW DISK";DL;:З:Й"IS ON";IN^pSJ│ е(1)л1:B5│J:QT│9:Q│0:Бж94:Бе96^ЮTЮ1:ё12,14:З"DISK";DL;"UPDATED":Бж223:Бе60_4UЮ Д(9)м1:╔"T8;L12;O3;1;12":ё10,9:З"FILE IS FULL":ё10,11:З"DO FILE MAINTENANCE OR":ё10,13:З"START A NEW FILE":Бж348:АT│1е300:Л:A$│ Т:ЕA$│""з341:ДР`V└1:Х5000,&H7000:И Ё Бе344:И я Бе 347:┌И:RN│1:B│0:I│0:C│0:J│1:H│0:J1│0:Q│0:A│0:G│0:G1│0:F│0:F1│0:S│1:MU$│"":T$│"":K$│"":K1$│"":A$│"":B$│"":C$│"":AA$│"":BB$│"":E│0:K│0:МRH$(68),GR(68),SK(100):Т150,1:Бе60`DWЗ#м2, Л(27);"E";:З#м2, Л(27);"N"; Л(3);:З#м2, Л(27);"G";:Бе60`ZXё1,5:Ю4:°1,4:ё1,5`лYЗ"You pressed the break key are you sure you want to END the program (Y/N)"aZI$│ Т:ЕI$│""з 346:ДЕI$│"N"з60 :ДТ65496,0:Ю:ё12,12:З"P R O G R A M E N D E D!!":АH│1е1500:Л:Т113,0:в40999aж[°3,3:Ю:А ER│1е 16:Зд10)"I/O error i/o ERROR!!! ":Л:А ER│1е1000:Л:Ю:а50,44:З"ERROR IN LINE "; н:З"THE ERROR NUMBER IS "; м:Бж223:Бе60a╤\ё 8,23:З"press any key to continue";:РbM]у0,55:°3,0:ё3,5:Й"NAME OF YOUR DATA FILE";OP$:ё3,5:ё3,7:Й"DRIVE NUMBER IT IS ON";OD$:OP$│OP$л"/DAT:"лOD$:F│5:Бж83:F│0:Р ":Л:А ER│1е1000:Л:Ю:а50,44:З"ERROR IN LINE "; н:З"THE ERROR NUMBER IS "; м:Бж223:Бе60a╤\ё 8,23:З"press any key to continue";:РbM]у0,55:°3,0:ё3,5:Й"NAME OF YOUR DATA FILE"°VV$│ Т:ЕVV$│""з2040c*ЕVV$│ Л(13)з1670c? ЕVV$│ Л(32)з2790cJБе2040c` ЕC$│"A"зC$│"ASIA"cy*ЕC$│"AF"зC$│"AFRICA"cС4ЕC$│"E"зC$│"EUROPE"c▒>ЕC$│"NA"зC$│"NORTH AMERICA"c╤HЕC$│"SA"зC$│"SOUTH AMERICA"cєRЕC$│"PI"зC$│"PACIFIC ISLANDS"d\ЕC$│"AS"зC$│"AUSTRALIA"d2fЕC$│"E&A"зC$│"EUROPE AND ASIA"dCpP$│P$л",000"dVzЕ LCP$│""з2190d}ДЕ LCP$┤▓"UNKNOWN"зLCP$│LCP$л",000"dГОРdЧША X│1 е  Д(169)d║вН C$,N$,P$,CAP$,L$,M$,BC$,LCP$d┬мЛ Xd╚╢Рd┘└:ГSET CURSORdу╩S$│""dЇ╘З@PO, Л(VB);e▐AA$│ Т:Е AA$│""з 2270e$шЕ AA$│ Л(12)з2270e:ЄЕ AA$│ Л(09)з2270e_№Е  З(S$)│0 з Е AA$│ Л(08) з 2270e| Е AA$│ Л(13) з A$│S$:З:Рe╜ Е AA$│ Л(08) з S$│ О(S$, З(S$)м1):З@POл З(S$)л1," ";:Бе 2400e╒ ЕVB│175зWM│1:ДWM│40eц $ЕVB│255зWM│1e° .ЕVB│239зWM│15f 8ЕVB│159зWM│25f BЕVB│191зWM│25f3 LЕ  З(S$)▓WM з 2270fA VS$│S$лAA$fY `З@POл З(S$), Л(VB);fp jЗ@POл З(S$)м1," ";f} tЗ@PO,S$;fЙ ~Бе 2270fХ ИБж 2200f╞ ТЗ:З" WHAT LANGUAGE IS SPOKEN IN":ЗN$л"?"f┘ ЬPO│165:Бж 2240g жЕ A$│L$ зЗ:З: З:З" EXCELLENT!!!":NC│NCл1gW ░Е A$┤▓L$ з З:З:З:З" NO. THE LANGUAGE SPOKEN IN":ЗN$" IS "L$"."g╛ ║З@384, б(32,159)л" TOUCH FOR ANOTHER QUESTION OR THE SPACE BAR TO EXIT THE TEST.";g╓ ─VV$│ Т:ЕVV$│""з2500gь ╬Е VV$│ Л(32)з2790h ╪Е VV$│ Л(13)з1670h тБе 2500h ьБж 2200hO ЎЗ" WHICH COUNTRY HAS A GREATERPOPULATION?":ЗhZ MN$│P$he CW$│N$hy А X│1 е  З(MN$)hи ZA$│ Р(MN$,X,1):Е ZA$│","з  Р(MN$,X,1)│" "h░ (Л Xh┐ 2З " 1. "N$h╤ <З:З" OR":Зh▀ FП:Бж 2200hЄ PА X│1 е  З(P$)i ZZB$│ Р(P$,X,1):Е ZB$│","з  Р(P$,X,1)│" "i' dЛ Xi6 nЗ " 2. "N$iN xSD$│ Т:ЕSD$│""з2680iЩ ВЕSD$│"1"зЕ Й(MN$)▓ Й(P$)зЗ:З" YOU'VE GOT IT!!!":NC│NCл1:Бе2740iщ МЕSD$│"1"зЕ Й(MN$)┤ Й(P$)зЗ:З" WRONG. MORE PEOPLE LIVE IN":ЗN$".":Бе2740j: ЦЕSD$│"2"зЕ Й(MN$)▓ Й(P$)зЗ:З" WRONG. MORE PEOPLE LIVE IN":ЗCW$".":Бе2740jЖ аЕ SD$│"2"зЕ Й(MN$)┤ Й(P$)зЗ:З" YOU'VE GOT IT!!!":NC│NCл1:Бе2740jС кБе2680j° ┤З@384, б(32,159)л" TOUCH FOR ANOTHER QUESTION OR THE SPACE BAR TO EXIT THE TEST.";k ╛HN$│ Т:ЕHN$│""з2750k' ╚Е HN$│ Л(13)з 1670k= ╥Е HN$│ Л(32)з2790kI ▄Бе 2750ko ц:ГCOUNT NUMBER OF CORRECT ANSWERSkВ ЁЮ:З"NAME: "YN$kй ·З@128,"":З"NUMBER OF QUESTIONS:"NQk╧ З:З"NUMBER OF CORRECT ANSWERS:"NCkЎ З:З"PERCENTAGE CORRECT:";NCоNQн100l З:З:З:З"PRINT THESE SCORES? (Y/N)"l6 "PE$│ Т:ЕPE$│""з2850lС ,Е NCоNQн100┤40 з Е PE$│"N" з З@416,"I DON'T BLAME YOU!!! ":АX│1е2000:ЛX:Бе380lд 6Е PE$│"N" з380l└ @Е PE$│"Y"з 2890 :Д 2850lЎ JЕ( Ж(65314)░1)│1зЗ@489,"TURN ON PRINTER.";:Бе2890m! TЕ Ж(&H80FD)│50 з Т 65496,0 :Д Т65494,0mв ^З#м2,"":З#м2,"":З#м2,"NAME: ";YN$:З#м2,"":З#м2,"NUMBER OF QUESTIONS:";NQ:З#м2,"":З#м2,"NUMBER OF CORRECT ANSWERS:"NC:З#м2,""mу hЗ#м2,"PERCENTAGE CORRECT:";NCоNQн100:З#м2,"":З#м2,"":З#м2,""n rЕ Ж(&H80FD)│50 з Т 65497,0 :Д Т 65495,0n |Бе 380n& Ж:ГPRINTnк РЕ( Ж(65314)░1)│1зЮ:З@96," THE PRINTER IS NOT READY. TOUCH ANY KEY TO CONTINUE." :Д 2980n┴ ЪЕ Т│""з2970 :Д 380nэ дЕ  Ж(&H80FD)│50 з Т65496,0 :Д Т 65494,0o оЗ#м2,"":З#м2,"CONTINENT: ";C$:З#м2,""o9 ╕З#м2,"COUNTRY: ";N$:З#м2,""o] ┬З#м2,"POPULATION: ";P$:З#м2,""oА ╠З#м2,"CAPITAL: ";CAP$:З#м2,""oв ╓З#м2,"LANGUAGE: ";L$:З#м2,""o┴ рЗ#м2,"MONEY: ";M$:З#м2,""oш ъЗ#м2,"LARGEST CITY: ";BC$:З#м2,""p+ ЇЗ#м2,"CITY POPULATION: ";LCP$:З#м2,"":З#м2,"":З#м2,"":З#м2,""pX ■Е  Ж(&H80FD)│50 з Т 65497,0 :Д Т 65495,0pc Бе 380,"CAPITAL: ";CAP$:З#м2,""oв ╓З#м2,"LANGUAGE: ";L$:З#м2,""o┴ рЗ#м2,"MONEY: ";M$:З#м2,""oш ъЗ#м2,"LARGEST CITY: ";BC$:З#м2,""p+ ЇЗ#м2,"CITY POPULAT