disc utility

Home » Personal collection » Commodore disks » disk46a_green.d64 » disc utility

disc utility

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Commodore disks » disk46a_green.d64
Filename:	disc utility
Read OK:	✔
File size:	1CF6 bytes
Load address:	0801
Exec address:	0000

File contents

   100 POKE53272,23:POKE53280,6:DIMA$(10,0),T$(5)
   110 FORI=0TO5:READT$(I):NEXTI
   120 DATA DEL,SEQ,PRG,USR,REL,???
   130 PRINT"<clr>🭷╮♥🭸 ╭🭰╮🭼╮🭰🭵":PRINT"<cursor down><reverse on>╱<rev off> ╱EW DISC"TAB(20);"<reverse on>🭴<rev off> 🭸HANGE HEADER"
   140 PRINT"<cursor down><reverse on>╳<rev off> ╳ALIDATE DISC";TAB(20);"<reverse on>🭷<rev off> 🭷IRECTORY"
   150 PRINT"<cursor down><reverse on>🭰<rev off> 🭰RACE FILE";TAB(20);"<reverse on>♥<rev off> ♥CRATCH FILE(S)"
   160 PRINT"<cursor down><reverse on>🭻<rev off> 🭻ENAME FILE";TAB(20);"<reverse on>🭶<rev off> 🭻EAD DISC ERROR"
   170 PRINT"<cursor down><reverse on>🭻<rev off> 🭸OPY FILE";TAB(20);"<reverse on>♠<rev off> ♠PPEND FILES"
   180 PRINT"<cursor down><reverse on>🭲<rev off> 🭲ACKUP FILE";TAB(20);"<reverse on>╲<rev off> ╲OD/DISP BLOCKS"
   190 PRINT"<cursor down><reverse on>╮<rev off> ╮NITIALISE DISC";TAB(20);"<reverse on>♣<rev off> 🭶XIT"
   200 GOSUB2360
   210 IF Y$="N" THEN GOSUB530:GOTO130
   220 IF Y$="V" THEN GOSUB580:GOTO130
   230 IF Y$="R" THEN GOSUB620:GOTO130
   240 IF Y$="S" THEN GOSUB670:GOTO130
   250 IF Y$="E" THEN GOSUB740:GOTO130
   260 IF Y$="A" THEN GOSUB360:GOTO130
   270 IF Y$="C" THEN GOSUB840:GOTO130
   280 IF Y$="D" THEN GOSUB890:GOTO130
   290 IF Y$="H" THEN GOSUB1240:GOTO130
   300 IF Y$="X" THEN END
   310 IF Y$="M" THEN GOSUB1400:GOTO130
   320 IF Y$="I" THEN GOSUB1740:GOTO130
   330 IF Y$="T" THEN GOSUB1760:GOTO130
   340 IF Y$="B" THEN GOSUB2130:GOTO130
   350 GOTO 130
   360 REM APPEND
   370 PRINT"<clr>♠🭾🭾🭶╱🭷<cursor down>":PRINT"<reverse on>🭾<rev off> 🭾🭻🭱 FILES<cursor down>":PRINT"<cursor down><reverse on>♥<rev off> ♥🭶● FILES"
   380 GOSUB2360:IF Y$<>"P" AND Y$<>"S" THEN 520
   390 IF Y$="S" THEN GOSUB770:RETURN
   400 REM PRG FILES
   410 PRINT"<cursor down>♠PPEND 🭾🭻🭱 FILES - SURE (🭵/╱)":GOSUB2360:IF Y$<>"Y" THEN 520
   420 INPUT"<cursor down>🭸OMBINED FINAL PRODUCT";F$:INPUT"             🭺IRST 🭾🭻🭱";X1$
   425 INPUT"             ♥ECOND 🭾🭻🭱";X2$
   430 OPEN 3,8,3,"0:"+F$+",P,W":OPEN 2,8,2,"0:"+X1$+",P,R"
   440 GET#2,Y$
   450 X$=Y$:GET#2,Y$:IFST<>0THEN470
   460 GOSUB 2330:PRINT#3,X$:GOTO450
   470 CLOSE 2:OPEN 2,8,2,"0:"+X2$+",P,R"
   480 GET#2,Y$:GET#2,Y$
   490 GET#2,X$:IFST<>0THEN510
   500 GOSUB2330:PRINT#3,X$;:GOTO490
   510 CLOSE2:PRINT#3,CHR$(0);:CLOSE3
   520 RETURN
   530 REM NEW DISC
   540 PRINT"<cursor down>╱EW DISC - SURE (🭵/╱)":GOSUB2360:IFY$<>"Y"THEN570
   550 INPUT"<cursor down>╱AME";F$:INPUT"╮.🭷.";Y$:F$=LEFT$(F$,16)+","+LEFT$(Y$,2)
   560 OPEN15,8,15,"N0:"+F$:CLOSE15
   570 RETURN
   580 REM VALIDATE
   590 PRINT"<cursor down>VALIDATE - SURE (🭵/╱)":GOSUB2360:IFY$<>"Y"THEN570
   600 OPEN 15,8,15,"V":CLOSE15
   610 RETURN
   620 REM RENAME
   630 PRINT"<cursor down>🭻ENAME - SURE (🭵/╱)":GOSUB2360:IF Y$<>"Y" THEN 610
   640 INPUT"<cursor down>🭽LD NAME";F$:INPUT"╱EW NAME";Y$:F$="R0:"+Y$+"="+F$
   650 OPEN 15,8,15,F$:CLOSE15
   660 RETURN
   670 REM SCRATCH FILE
   680 PRINT"<cursor down>♥CRATCH - SURE (🭵/╱)":GOSUB2360:IF Y$<>"Y" THEN 730
   690 F$="":PRINT"<cursor down>╭SE * OR ? FOR PATTERN MATCHING"
   700 PRINT"🭴IT RETURN TO DELETE<cursor down>"
   710 INPUT"🭷ELETE";Y$:IFY$<>""THEN F$=F$+","+Y$:Y$="":GOTO710
   720 F$="S0:"+MID$(F$,2):OPEN 15,8,15,F$:CLOSE15
   730 RETURN
   740 REM ERROR
   750 OPEN 15,8,15:INPUT#15,X$,F$,X1$,X2$:CLOSE15:PRINT"<cursor down>🭶🭻🭻🭽🭻:";X$,F$,X1$,X2$
   760 GOSUB2360:RETURN
   770 REM APPEND SEQ FILES
   780 PRINT"<cursor down>♠PPEND ♥🭶● FILES - SURE (🭵/╱)":GOSUB2360:IFY$<>"Y"THEN830
   790 PRINT"<cursor down>🭴IT RETURN TO APPEND<cursor down>"
   800 F$="":INPUT"   NEW";X$
   810 INPUT"♠PPEND";Y$:IFY$<>""THENF$=F$+","+"0:"+Y$:Y$="":GOTO810
   820 F$="C0:"+X$+"="+MID$(F$,2):OPEN15,8,15:PRINT#15,F$
   830 CLOSE15:RETURN
   840 REM COPY SAME DISC
   850 PRINT"<cursor down>🭸OPY - SURE (🭵/╱)":GOSUB2360:IF Y$<>"Y" THEN 880
   860 INPUT"<cursor down>╱EW";F$:INPUT"🭽LD";Y$:F$="C0:"+F$+"="+"0:"+Y$
   870 OPEN 15,8,15,F$
   880 CLOSE15:RETURN
   890 REM DIRECTORY
   900 PRINT"<cursor down>🭷IRECTORY - SURE (🭵/╱)":GOSUB2360:IFY$<>"Y"THEN1230
   910 OPEN 15,8,15:OPEN 1,8,2,"#":T=18:S=0:F$="":BF=0:BU=0
   920 PRINT#15,"U1";2;0;T;S;:PRINT#15,"B-P";2;144:PRINT"<clr>";TAB(10);"<reverse on>";
   930 FORI=1TO16:GET#1,X$:GOSUB2290:PRINTX$;:NEXTI:PRINT",";
   940 PRINT#15,"B-P";2;162
   950 FORI=1TO2:GET#1,X$:GOSUB2290:PRINTX$;:NEXTI:PRINT"<rev off><black>":T=18:S=1
   960 PRINT"$🭲🭼╯ 🭺╮🭼🭶             🭰🭵🭾🭶 $🭰╯ $♥🭰 $♠🭷🭷<light blue>"
   970 PRINT#15,"U1";2;0;T;S:I=0:X=S:GOSUB2200:PRINT"<black>🭰🭻╯ 12";" ♥🭸🭰 ";X$;"<light blue>"
   980 GET#1,X$:GOSUB2330:T=ASC(X$):GET#1,X$:GOSUB2330:S=ASC(X$)
   990 I=I+1:PRINT#15,"B-P";2;(I-1)*32+2:GET#1,X$:GOSUB2330:X=ASC(X$):Y$=""
  1000 FORJ=0TO5:IFX=JTHENY$=T$(J)
  1010 IFJ=0THENX=X-128
  1020 NEXTJ:IFY$=""THENY$=T$(5)
  1030 GET#1,X$:GOSUB2330:X=ASC(X$):GOSUB2200:T$=X$
  1040 GET#1,X$:GOSUB2330:X=ASC(X$):GOSUB2200:S$=X$
  1050 FORJ=1TO16:GET#1,X$:GOSUB2290:F$=F$+X$:NEXTJ
  1060 IFY$<>"PRG"THEN1090
  1070 OPEN 3,8,3,F$+",S,P":GET#3,X$:GOSUB2330:X=ASC(X$):GOSUB2200:I$=X$
  1080 GET#3,X$:GOSUB2330:X=ASC(X$):GOSUB2200:I$=X$+I$:CLOSE3
  1090 PRINT#15,"B-P";2;(I-1)*32+30
  1100 GET#1,X$:GOSUB2330:J=ASC(X$)
  1110 GET#1,X$:GOSUB2330:K=ASC(X$)
  1120 X=K:GOSUB2200:BF$=X$:X=J:GOSUB2200:BF$=BF$+X$
  1130 BU=BU+256*K+J:IFY$<>"DEL"THENBF=BF+256*K+J
  1140 PRINTBF$;" ";F$;"  ";Y$;"  ";T$;"  ";S$;" ";I:BF$="":F$="":I$=""
  1150 GETY$:IFY$<>""THENGOSUB2360
  1160 IF I<8 THEN 990
  1170 IF T<>0 THEN 970
  1180 BF=664-BF:X=BF/256:GOSUB2200:Y$=X$:X=BF-256:GOSUB2200:Y$=Y$+X$
  1190 PRINT"<yellow>";Y$;" BLOCKS FREE<light blue>"
  1200 BU=664-BU:X=BU/256:GOSUB2200:Y$=X$:X=BU-256:GOSUB2200:Y$=Y$+X$
  1210 PRINT"<yellow>";Y$;" BLOCKS FREE INC DEL FILES<light blue>"
  1220 GOSUB2360:CLOSE15:CLOSE1
  1230 RETURN
  1240 REM CHANGE HEADER
  1250 PRINT"<cursor down>🭸HANGE HEADER - SURE (🭵/╱):GOSUB2360:IFY$<>"Y" THEN 1390
  1260 OPEN 15,8,15:OPEN 1,8,2,"#":T=18:S=0:BF=0:F$=""
  1270 PRINT#15,"U1";2;0;T;S;:PRINT#15,"B-P";2;144:PRINT"<cursor down>🭸URRENT:  ";
  1280 FORI=1TO16:GET#1,X$:GOSUB2290:PRINTX$;:NEXTI:PRINT",";
  1290 PRINT#15,"B-P";2;162
  1300 FORI=1TO2:GET#1,X$:GOSUB2290:PRINTX$;:NEXTI:PRINT
  1310 INPUT"    ╱AME";F$:F$=LEFT$(F$+"                ",16)
  1320 INPUT"    ╮.🭷.";Y$:Y$=LEFT$(Y$+"XX",2)
  1330 PRINT#15,"B-P";2;144
  1340 FORI=1TO16:PRINT#1,MID$(F$,I,1);:NEXTI
  1350 PRINT#15,"B-P";2;162
  1360 PRINT#15,"B-P";2;162
  1370 FORI=1TO2:PRINT#1,MID$(Y$,I,1);:NEXTI
  1380 PRINT#15,"U2";2;0;T;S:CLOSE15:CLOSE1
  1390 RETURN
  1400 REM MODIFY AND DISPLAY BLOCKS
  1410 PRINT"<cursor down>╲ODIFY AND 🭷ISPLAY BLOCKS - SURE (🭵/╱)":GOSUB2360:IFY$<>"Y"THEN1670
  1420 OPEN 15,8,15:OPEN 1,8,2,"#":F$=""
  1430 INPUT"<cursor down> 🭰RACK<cursor right>$<cursor left><cursor left>";T$:X$=T$:GOSUB2250:T=X:IFX<0 OR X>40 THEN 1430
  1440 INPUT"♥ECTOR<cursor right>$<cursor left><cursor left>";S$:X$=S$:GOSUB2250:S=X:IFX<0 OR X>20 THEN 1430
  1450 PRINT#15,"U1";2;0;T;S;:PRINT#15,"B-P";2;0
  1460 GET#1,X$:GOSUB2330:X=ASC(X$):TN=X:GOSUB2200:TN$=X$
  1470 GET#1,X$:GOSUB2330:X=ASC(X$):SM=X:GOSUB2200:SN$=X$
  1480 NT$="   ╱🭶♣🭰:🭰🭻♠🭸╯ "+TN$+" ♥🭶🭸🭰🭽🭻 "+SN$
  1490 CT$="🭸╭🭻🭻🭶╱🭰:🭰🭻♠🭸╯ "+T$+" ♥🭶🭸🭰🭽🭻 "+S$
  1500 PRINT"<clr>";CT$:PRINTNT$
  1510 PRINT#15,"B-P";2;0
  1520 FORI=0TO15:F$="":X=I*8:GOSUB2200:PRINTX$;" ";:FORJ=0TO7
  1530 GET#1,X$:Y$=X$:GOSUB2330:X=ASC(X$):GOSUB2200:PRINTX$;" ";:
  1540 X$=Y$:GOSUB2290:F$=F$+X$:NEXTJ:PRINTF$:NEXTI
  1550 GOSUB1680:IFY$="Y"THEN1500
  1560 PRINT"<clr>";CT$:PRINTNT$
  1570 PRINT#15,"B-P";2;128
  1580 FORI=16TO31:F$="":X=I*8:GOSUB2200:PRINTX$;" ";:FORJ=0TO7
  1590 GET#1,X$:Y$=X$:GOSUB2330:X=ASC(X$):GOSUB2200:PRINTX$;" ";:
  1600 X$=Y$:GOSUB2290:F$=F$+X$:NEXTJ:PRINTF$:NEXTI
  1610 GOSUB1680IFY$="Y"THEN1560
  1620 PRINT"🭻EVIEW AGAIN":GOSUB2360:IFY$="Y" THEN 1500
  1630 PRINT"○RITE CHANGES":GOSUB2360:IFY$="Y"THENPRINT#15,"U2";2;0;T,S
  1640 IFY$="Y"THENPRINT#15,"B-A";0;T;S:GOSUB2390
  1650 PRINT"╱EXT 🭰/♥":GOSUB2360:IFY$="Y"THENT=TN:S=SN:T$=TN$:S$=SN$:GOTO1450
  1660 CLOSE1:CLOSE15
  1670 RETURN
  1680 REM ANY CHANGES
  1690 PRINT"♠NY CHANGES":GOSUB2360:IFY$<>"Y"THEN1730
  1700 OPEN 9,0:INPUT#9,A$:CLOSE9
  1710 X$=LEFT$(A$,2):GOSUB2250:PRINT#15,"B-P";2,X
  1720 FORI=0TO7:X$=MID$(A$,4+I*3,2):GOSUB2250:PRINT#1,CHR$(X);:NEXTI
  1730 RETURN
  1740 REM INITIALIZE DISC
  1750 OPEN 15,8,15,"I0":CLOSE15:RETURN
  1760 REM TRACE FILE
  1770 PRINT"<cursor down>🭰RACE FILE - SURE (🭵/╱)":GOSUB2360:IFY$<>"Y"THEN2120
  1780 INPUT"<cursor down>🭺ILENAME";BF$
  1790 OPEN15,8,15:OPEN1,8,2,"#":T=18:S=1:F$=""
  1800 PRINT#15,"U1";2;0;T;S:I=0:F$=""
  1810 GET#1,X$:GOSUB2330:T=ASC(X$):GET#1,X$:GOSUB2330:S=ASC(X$)
  1820 I=I+1:PRINT#15,"B-P";2;(I-1)*32+2:GET#1,X$:GOSUB2330:X=ASC(X$):Y$=""
  1830 FORJ=0TO5:IFX=JTHENY$=T$(J)
  1840 IFJ=0THENX=X-128
  1850 NEXTJ:IFY$=""THENY$=T$(5)
  1860 GET#1,X$:GOSUB2330:X=ASC(X$):GOSUB2200:T$=X$
  1870 GET#1,X$:GOSUB2330:X=ASC(X$):GOSUB2200:S$=X$
  1880 F$="":FORJ=1TO16:GET#1,X$:GOSUB2290:F$=F$+X$:NEXTJ
  1890 IF LEFT$(F$,LEN(BF$))=BF$ THEN 1930
  1900 IFI=8ANDT>0THEN1800
  1910 GOTO1820
  1920 IF T=0 THEN 2120
  1930 PRINT"<clr><reverse on>🭰RACE OF<rev off> ";BF$;" FILE TYPE ";Y$:PRINT:FT$=Y$:NO=0
  1940 IF FT$="DEL" THEN PRINT"🭻ECOVER FILE (🭵/╱)":GOSUB2360
  1950 PRINT#15,"B-P";2;(I-1)*32+3
  1960 GET#1,X$:GOSUB2330:T=ASC(X$):GET#1,X$:GOSUB2330:S=ASC(X$)
  1970 X=T:GOSUB2200:T$=X$:X=S:GOSUB2200:S$=X$
  1980 PRINT"🭰RACK ";T$;" ♥ECTOR ";S$
  1990 IF Y$<>"Y" THEN 2030
  2000 PRINT#15,"B-A";0;T;S:INPUT#15,E:IFE<>65 THEN 2030
  2010 PRINT"🭻ECOVERY NOT POSSIBLE, BECAUSE A"
  2020 PRINT"FREE BLOCK IS ALLOCATED.":NO=1
  2030 PRINT#15,"U1";2;0;T;S
  2040 GET#1,X$:GOSUB2330:T=ASC(X$):GET#1,X$:GOSUB2330:S=ASC(X$)
  2050 IF T=0 THEN 2070
  2060 GOTO 1970
  2070 IF FT$="DEL" AND Y$="Y" AND NO=0 THEN 2090
  2080 GOTO 2110
  2090 PRINT"🭻ECOVERY 🭽KAY. 🭻EMEMBER TO CHANGE"
  2100 PRINT"DIRECTORY, TRACK, AND FILE TYPE"
  2110 GOSUB 2360
  2120 CLOSE 1:CLOSE 15:RETURN
  2130 REM BACKUP
  2140 PRINT:PRINT"🭲♠🭸╯╭🭾 🭺╮🭼🭶"
  2150 PRINT:PRINT"🭰O ALLOW LARGER FILES TO BE BACKED UP"
  2160 PRINT"ON BOTH DISC AND CASSETTE, THERE IS A"
  2170 PRINT"SEPERATE UTILITY ON THE DISC. 🭼OAD"
  2180 PRINT"BACKUP-MC, AND RUN IT. THEN LOAD BACKUP."
  2190 GOSUB2360:RETURN
  2200 REM DECIMAL - HEXIDECIMAL
  2210 X=X AND 255:X1=INT(X/16):X2=X AND 15
  2220 X1$=CHR$(48+X1):IF X1>9 THEN X1$=CHR$(55+X1)
  2230 X2$=CHR$(48+X2):IF X2>9 THEN X2$=CHR$(55+X2)
  2240 X$=X1$+X2$:RETURN
  2250 REM HEXIDECIMAL - DECIMAL
  2260 X$=RIGHT$("00"+X$,2)
  2270 X1=ASC(X$)-48:X2=ASC(MID$(X$,2))-48
  2280 X=16*(X1+7*(X1>9))+X2+7*(X2>9):RETURN
  2290 REM CONVERT TO ASCII
  2300 IF X$=CHR$(160) THEN 2320
  2310 IF X$<" " OR X$>"Z" THEN X$="."
  2320 RETURN
  2330 REM ELIMINATE NULL STRING
  2340 IF X$="" THEN X$=CHR$(0)
  2350 RETURN
  2360 REM WAIT
  2370 GET Y$:IFY$="" THEN 2370
  2380 RETURN
  2390 REM ERROR ON B-A CHECK
  2400 INPUT#15,EN$,EM$,ET$,ES$:IF EN$<"20" OR EN$="65" THEN RETURN
  2410 CLOSE 15:PRINT:PRINTEN$,EM$,ET$,ES$:GOSUB2360:RUN

(d�53272,23:�53280,6:�A$(10,0),T$(5)=n�I�0�5:�T$(I):�I[x� DEL,SEQ,PRG,USR,REL,???���"����� �������":�"Β �EW DISC"�20);"Ȓ �HANGE HEADER"���"֒ �ALIDATE DISC";�20);"Ē �IRECTORY"���"Ԓ �RACE FILE";�20);"Ӓ �CRATCH FILE(S)"-	��"Ғ �ENAME FILE";�20);"Œ �EAD DISC ERROR"[	��"Ғ �OPY FILE";�20);"�� �PPEND FILES"�	��" �ACKUP FILE";�20);"͒ �OD/DISP BLOCKS"�	��"ɒ �NITIALISE DISC";�20);"ؒ �XIT"�	��2360�	�� Y$�"N" � �530:�130�	�� Y$�"V" � �580:�130
�� Y$�"R" � �620:�130(
�� Y$�"S" � �670:�130A
�� Y$�"E" � �740:�130Z
� Y$�"A" � �360:�130s
� Y$�"C" � �840:�130�
� Y$�"D" � �890:�130�
"� Y$�"H" � �1240:�130�
,� Y$�"X" � ��
6� Y$�"M" � �1400:�130�
@� Y$�"I" � �1740:�130J� Y$�"T" � �1760:�130T� Y$�"B" � �2130:�130)^� 1306h� APPENDjr�"�������":�"В ��� FILES":�"Ӓ ��� FILES"�|�2360:� Y$��"P" � Y$��"S" � 520��� Y$�"S" � �770:���� PRG FILES���"�PPEND ��� FILES - SURE (�/�)":�2360:� Y$��"Y" � 5200��"�OMBINED FINAL PRODUCT";F$:�"             �IRST ���";X1$S��"             �ECOND ���";X2$��� 3,8,3,"0:"�F$�",P,W":� 2,8,2,"0:"�X1$�",P,R"���#2,Y$��X$�Y$:�#2,Y$:�ST��0�470��� 2330:�3,X$:�450��� 2:� 2,8,2,"0:"�X2$�",P,R"���#2,Y$:�#2,Y$
��#2,X$:�ST��0�510!
��2330:�3,X$;:�4904
��2:�3,�(0);:�3:
�I
� NEW DISCz
�"�EW DISC - SURE (�/�)":�2360:�Y$��"Y"�570�
&�"�AME";F$:�"�.�.";Y$:F$��(F$,16)�","��(Y$,2)�
0�15,8,15,"N0:"�F$:�15�
:��
D� VALIDATE
N�"VALIDATE - SURE (�/�)":�2360:�Y$��"Y"�570#X� 15,8,15,"V":�15)b�6l� RENAMEhv�"�ENAME - SURE (�/�)":�2360:� Y$��"Y" � 610���"�LD NAME";F$:�"�EW NAME";Y$:F$�"R0:"�Y$�"="�F$��� 15,8,15,F$:�15������ SCRATCH FILE���"�CRATCH - SURE (�/�)":�2360:� Y$��"Y" � 730-�F$�"":�"�SE * OR ? FOR PATTERN MATCHING"J��"�IT RETURN TO DELETE"|��"�ELETE";Y$:�Y$��""� F$�F$�","�Y$:Y$�"":�710��F$�"S0:"��(F$,2):� 15,8,15,F$:�15������ ERROR��� 15,8,15:�15,X$,F$,X1$,X2$:�15:�"�����:";X$,F$,X1$,X2$���2360:�� APPEND SEQ FILESM�"�PPEND ��� FILES - SURE (�/�)":�2360:�Y$��"Y"�830k�"�IT RETURN TO APPEND"� F$�"":�"   NEW";X$�*�"�PPEND";Y$:�Y$��""�F$�F$�","�"0:"�Y$:Y$�"":�810�4F$�"C0:"�X$�"="��(F$,2):�15,8,15:�15,F$�>�15:�H� COPY SAME DISC3R�"�OPY - SURE (�/�)":�2360:� Y$��"Y" � 880d\�"�EW";F$:�"�LD";Y$:F$�"C0:"�F$�"="�"0:"�Y$uf� 15,8,15,F$p�15:��z� DIRECTORY���"�IRECTORY - SURE (�/�)":�2360:�Y$��"Y"�1230��� 15,8,15:� 1,8,2,"#":T�18:S�0:F$�"":BF�0:BU�0*��15,"U1";2;0;T;S;:�15,"B-P";2;144:�"�";�10);"";Q��I�1�16:�#1,X$:�2290:�X$;:�I:�",";e��15,"B-P";2;162���I�1�2:�#1,X$:�2290:�X$;:�I:�"��":T�18:S�1���"$��� ����             ���� $�� $�� $��Ě"��15,"U1";2;0;T;S:I�0:X�S:�2200:�"���� 12";" ��� ";X$;"�"/��#1,X$:�2330:T��(X$):�#1,X$:�2330:S��(X$)k�I�I�1:�15,"B-P";2;(I�1)�32�2:�#1,X$:�2330:X��(X$):Y$�""���J�0�5:�X�J�Y$�T$(J)���J�0�X�X�128���J:�Y$�""�Y$�T$(5)��#1,X$:�2330:X��(X$):�2200:T$�X$��#1,X$:�2330:X��(X$):�2200:S$�X$�J�1�16:�#1,X$:�2290:F$�F$�X$:�J/$�Y$��"PRG"�1090f.� 3,8,3,F$�",S,P":�#3,X$:�2330:X��(X$):�2200:I$�X$�8�#3,X$:�2330:X��(X$):�2200:I$�X$�I$:�3�B�15,"B-P";2;(I�1)�32�30�L�#1,X$:�2330:J��(X$)�V�#1,X$:�2330:K��(X$)	`X�K:�2200:BF$�X$:X�J:�2200:BF$�BF$�X$4jBU�BU�256�K�J:�Y$��"DEL"�BF�BF�256�K�Jut�BF$;" ";F$;"  ";Y$;"  ";T$;"  ";S$;" ";I:BF$�"":F$�"":I$�""�~�Y$:�Y$��""��2360��� I�8 � 990��� T��0 � 970��BF�664�BF:X�BF�256:�2200:Y$�X$:X�BF�256:�2200:Y$�Y$�X$��"�";Y$;" BLOCKS FREE�">�BU�664�BU:X�BU�256:�2200:Y$�X$:X�BU�256:�2200:Y$�Y$�X$h��"�";Y$;" BLOCKS FREE INC DEL FILES�"y��2360:�15:�1����� CHANGE HEADER���"�HANGE HEADER - SURE (�/�):GOSUB2360:IFY$<>"Y" THEN 1390�� 15,8,15:� 1,8,2,"#":T�18:S�0:BF�0:F$�""7��15,"U1";2;0;T;S;:�15,"B-P";2;144:�"�URRENT:  ";^�I�1�16:�#1,X$:�2290:�X$;:�I:�",";r
�15,"B-P";2;162��I�1�2:�#1,X$:�2290:�X$;:�I:���"    �AME";F$:F$��(F$�"                ",16)�(�"    �.�.";Y$:Y$��(Y$�"XX",2)�2�15,"B-P";2;144<�I�1�16:�1,�(F$,I,1);:�I.F�15,"B-P";2;162BP�15,"B-P";2;162^Z�I�1�2:�1,�(Y$,I,1);:�Izd�15,"U2";2;0;T;S:�15:�1�n��x� MODIFY AND DISPLAY BLOCKS���"�ODIFY AND �ISPLAY BLOCKS - SURE (�/�)":�2360:�Y$��"Y"�1670�� 15,8,15:� 1,8,2,"#":F$�""<��" �RACK$��";T$:X$�T$:�2250:T�X:�X�0 � X�40 � 1430t��"�ECTOR$��";S$:X$�S$:�2250:S�X:�X�0 � X�20 � 1430���15,"U1";2;0;T;S;:�15,"B-P";2;0���#1,X$:�2330:X��(X$):TN�X:�2200:TN$�X$���#1,X$:�2330:X��(X$):SM�X:�2200:SN$�X$�NT$�"   ����:���� "�TN$�" ������ "�SN$D�CT$�"�������:���� "�T$�" ������ "�S$V��"�";CT$:�NT$h��15,"B-P";2;0���I�0�15:F$�"":X�I�8:�2200:�X$;" ";:�J�0�7���#1,X$:Y$�X$:�2330:X��(X$):�2200:�X$;" ";:�X$�Y$:�2290:F$�F$�X$:�J:�F$:�I��1680:�Y$�"Y"�1500�"�";CT$:�NT$%"�15,"B-P";2;128T,�I�16�31:F$�"":X�I�8:�2200:�X$;" ";:�J�0�7�6�#1,X$:Y$�X$:�2330:X��(X$):�2200:�X$;" ";:�@X$�Y$:�2290:F$�F$�X$:�J:�F$:�I�J�1680�Y$�"Y"�1560�T�"�EVIEW AGAIN":�2360:�Y$�"Y" � 1500^�"�RITE CHANGES":�2360:�Y$�"Y"��15,"U2";2;0;T,S;h�Y$�"Y"��15,"B-A";0;T;S:�2390wr�"�EXT �/�":�2360:�Y$�"Y"�T�TN:S�SN:T$�TN$:S$�SN$:�1450�|�1:�15������ ANY CHANGES���"�NY CHANGES":�2360:�Y$��"Y"�1730��� 9,0:�9,A$:�9��X$��(A$,2):�2250:�15,"B-P";2,X%��I�0�7:X$��(A$,4�I�3,2):�2250:�1,�(X);:�I+��A�� INITIALIZE DISCZ�� 15,8,15,"I0":�15:�k�� TRACE FILE���"�RACE FILE - SURE (�/�)":�2360:�Y$��"Y"�2120���"�ILENAME";BF$���15,8,15:�1,8,2,"#":T�18:S�1:F$�""��15,"U1";2;0;T;S:I�0:F$�""(�#1,X$:�2330:T��(X$):�#1,X$:�2330:S��(X$)dI�I�1:�15,"B-P";2;(I�1)�32�2:�#1,X$:�2330:X��(X$):Y$�""}&�J�0�5:�X�J�Y$�T$(J)�0�J�0�X�X�128�:�J:�Y$�""�Y$�T$(5)�D�#1,X$:�2330:X��(X$):�2200:T$�X$�N�#1,X$:�2330:X��(X$):�2200:S$�X$XF$�"":�J�1�16:�#1,X$:�2290:F$�F$�X$:�J8b� �(F$,�(BF$))�BF$ � 1930Jl�I�8�T�0�1800Tv�1820e�� T�0 � 2120���"��RACE OF� ";BF$;" FILE TYPE ";Y$:�:FT$�Y$:NO�0��� FT$�"DEL" � �"�ECOVER FILE (�/�)":�2360���15,"B-P";2;(I�1)�32�3 ��#1,X$:�2330:T��(X$):�#1,X$:�2330:S��(X$)7 �X�T:�2200:T$�X$:X�S:�2200:S$�X$V ��"�RACK ";T$;" �ECTOR ";S$k �� Y$��"Y" � 2030� ��15,"B-A";0;T;S:�15,E:�E��65 � 2030� ��"�ECOVERY NOT POSSIBLE, BECAUSE A"� ��"FREE BLOCK IS ALLOCATED.":NO�1� ��15,"U1";2;0;T;S#!��#1,X$:�2330:T��(X$):�#1,X$:�2330:S��(X$)4!� T�0 � 2070?!� 1970f!� FT$�"DEL" � Y$�"Y" � NO�0 � 2090q! � 2110�!*�"�ECOVERY �KAY. �EMEMBER TO CHANGE"�!4�"DIRECTORY, TRACK, AND FILE TYPE"�!>� 2360�!H� 1:� 15:��!R� BACKUP�!\�:�"����� ����","f�:�"�O ALLOW LARGER FILES TO BE BACKED UP"Y"p�"ON BOTH DISC AND CASSETTE, THERE IS A"�"z�"SEPERATE UTILITY ON THE DISC. �OAD"�"��"BACKUP-MC, AND RUN IT. THEN LOAD BACKUP."�"��2360:��"�� DECIMAL - HEXIDECIMAL�"�X�X � 255:X1��(X�16):X2�X � 15%#�X1$��(48�X1):� X1�9 � X1$��(55�X1)L#�X2$��(48�X2):� X2�9 � X2$��(55�X2)]#�X$�X1$�X2$:�y#�� HEXIDECIMAL - DECIMAL�#�X$��("00"�X$,2)�#�X1��(X$)�48:X2��(�(X$,2))�48�#�X�16�(X1�7�(X1�9))�X2�7�(X2�9):��#�� CONVERT TO ASCII$�� X$��(160) � 2320 $	� X$�" " � X$�"Z" � X$�"."&$	�B$	� ELIMINATE NULL STRINGX$$	� X$�"" � X$��(0)^$.	�i$8	� WAIT�$B	� Y$:�Y$�"" � 2370�$L	��$V	� ERROR ON B-A CHECK�$`	�15,EN$,EM$,ET$,ES$:� EN$�"20" � EN$�"65" � ��$j	� 15:�:�EN$,EM$,ET$,ES$:�2360:�

(HD@.53272,23:.53280,6:.a$(10,0),t$(5)@=HN@.i.0.5:.t$(i):.i@[HX@. del,seq,prg,usr,rel,???@.H.@."..... .......":."QR.. .ew disc".20);"R.. .hange header"@.H.@."QR.. .alidate disc";.20);"R.. .irectory"@.H.@."QR.. .race file";.20);"R.. .cratch file(s)"@-I.@."QR.. .ename file";.20);"R.. .ead disc error"@[I.@."QR.. .opy file";.20);"R.. .ppend files"@.I.@."QR.. .ackup file";.20);"R.. .od/disp blocks"@.I.@."QR.. .nitialise disc";.20);"R.. .xit"@.I.@.2360@.I.@. y$."n" . .530:.130@.I.@. y$."v" . .580:.130@OJ.@. y$."r" . .620:.130@(J.@. y$."s" . .670:.130@aJ.@. y$."e" . .740:.130@zJDA. y$."a" . .360:.130@SJNA. y$."c" . .840:.130@.JXA. y$."d" . .890:.130@.J"A. y$."h" . .1240:.130@.J,A. y$."x" . .@.J6A. y$."m" . .1400:.130@.J@A. y$."i" . .1740:.130@EKjA. y$."t" . .1760:.130@.KtA. y$."b" . .2130:.130@)K.A. 130@6KHA. append@JKRA.".......Q":."R.. ... filesQ":."QR.. ... files"@.K.A.2360:. y$.."p" . y$.."s" . 520@.K.A. y$."s" . .770:.@.K.A. prg files@.K.A."Q.ppend ... files - sure (./.)":.2360:. y$.."y" . 520@0L.A."Q.ombined final product";f$:."             .irst ...";x1$@sL.A."             .econd ...";x2$@.L.A. 3,8,3,"0:".f$.",p,w":. 2,8,2,"0:".x1$.",p,r"@.L.A.#2,y$@.L.Ax$.y$:.#2,y$:.st..0.470@.L.A. 2330:.3,x$:.450@.L.A. 2:. 2,8,2,"0:".x2$.",p,r"@.L.A.#2,y$:.#2,y$@KM.A.#2,x$:.st..0.510@!M.A.2330:.3,x$;:.490@4M.A.2:.3,.(0);:.3@:MHB.@iMRB. new disc@ZM£B."Q.ew disc - sure (./.)":.2360:.y$.."y".570@.M&B."Q.ame";f$:."....";y$:f$..(f$,16).","..(y$,2)@.M0B.15,8,15,"n0:".f$:.15@.M:B.@.MdB. validate@MNnB."Qvalidate - sure (./.)":.2360:.y$.."y".570@#NxB. 15,8,15,"v":.15@)NBB.@6NLB. rename@HNVB."Q.ename - sure (./.)":.2360:. y$.."y" . 610@.N.B."Q.ld name";f$:.".ew name";y$:f$."r0:".y$."=".f$@.N.B. 15,8,15,f$:.15@.N.B.@.N.B. scratch file@.N.B."Q.cratch - sure (./.)":.2360:. y$.."y" . 730@-O.Bf$."":."Q.se * or ? for pattern matching"@jO.B.".it return to deleteQ"@.O.B.".elete";y$:.y$.."". f$.f$.",".y$:y$."":.710@.O.Bf$."s0:"..(f$,2):. 15,8,15,f$:.15@.O.B.@.O.B. error@.O.B. 15,8,15:.15,x$,f$,x1$,x2$:.15:."Q.....:";x$,f$,x1$,x2$@.O.B.2360:.@TPBC. append seq files@mPLC."Q.ppend ... files - sure (./.)":.2360:.y$.."y".830@KPVC."Q.it return to appendQ"@.P Cf$."":."   new";x$@.P*C.".ppend";y$:.y$.."".f$.f$.","."0:".y$:y$."":.810@.P4Cf$."c0:".x$."="..(f$,2):.15,8,15:.15,f$@.P>C.15:.@CQhC. copy same disc@3QrC."Q.opy - sure (./.)":.2360:. y$.."y" . 880@DQ£C."Q.ew";f$:.".ld";y$:f$."c0:".f$."="."0:".y$@UQFC. 15,8,15,f$@.QPC.15:.@.QZC. directory@.Q.C."Q.irectory - sure (./.)":.2360:.y$.."y".1230@.Q.C. 15,8,15:. 1,8,2,"#":t.18:s.0:f$."":bf.0:bu.0@*R.C.15,"u1";2;0;t;s;:.15,"b-p";2;144:.".";.10);"R";@qR.C.i.1.16:.#1,x$:.2290:.x$;:.i:.",";@ER.C.15,"b-p";2;162@.R.C.i.1.2:.#1,x$:.2290:.x$;:.i:."..":t.18:s.1@.R.C."$... ....             .... $.. $.. $...."@AS.C.15,"u1";2;0;t;s:i.0:x.s:.2200:.".... 12";" ... ";x$;"."@/S.C.#1,x$:.2330:t..(x$):.#1,x$:.2330:s..(x$)@KS.Ci.i.1:.15,"b-p";2;(i.1).32.2:.#1,x$:.2330:x..(x$):y$.""@.S.C.j.0.5:.x.j.y$.t$(j)@.S.C.j.0.x.x.128@.S.C.j:.y$."".y$.t$(5)@.SFD.#1,x$:.2330:x..(x$):.2200:t$.x$@.SPD.#1,x$:.2330:x..(x$):.2200:s$.x$@[TZD.j.1.16:.#1,x$:.2290:f$.f$.x$:.j@/T$D.y$.."prg".1090@FT.D. 3,8,3,f$.",s,p":.#3,x$:.2330:x..(x$):.2200:i$.x$@.T8D.#3,x$:.2330:x..(x$):.2200:i$.x$.i$:.3@.TbD.15,"b-p";2;(i.1).32.30@.TlD.#1,x$:.2330:j..(x$)@.TvD.#1,x$:.2330:k..(x$)@IU.Dx.k:.2200:bf$.x$:x.j:.2200:bf$.bf$.x$@4UJDbu.bu.256.k.j:.y$.."del".bf.bf.256.k.j@UUTD.bf$;" ";f$;"  ";y$;"  ";t$;"  ";s$;" ";i:bf$."":f$."":i$.""@.U.D.y$:.y$..""..2360@.U.D. i.8 . 990@.U.D. t..0 . 970@.U.Dbf.664.bf:x.bf.256:.2200:y$.x$:x.bf.256:.2200:y$.y$.x$@CV.D.".";y$;" blocks free."@>V.Dbu.664.bu:x.bu.256:.2200:y$.x$:x.bu.256:.2200:y$.y$.x$@HV.D.".";y$;" blocks free inc del files."@YV.D.2360:.15:.1@.V.D.@.V.D. change header@.V.D."Q.hange header - sure (./.):gosub2360:ify$<>"y" then 1390@AW.D. 15,8,15:. 1,8,2,"#":t.18:s.0:bf.0:f$.""@7W.D.15,"u1";2;0;t;s;:.15,"b-p";2;144:."Q.urrent:  ";@.W@E.i.1.16:.#1,x$:.2290:.x$;:.i:.",";@RWJE.15,"b-p";2;162@.WTE.i.1.2:.#1,x$:.2290:.x$;:.i:.@.W.E."    .ame";f$:f$..(f$."                ",16)@.W(E."    ....";y$:y$..(y$."xx",2)@.W2E.15,"b-p";2;144@ZX<E.i.1.16:.1,.(f$,i,1);:.i@.XfE.15,"b-p";2;162@bXpE.15,"b-p";2;162@.XzE.i.1.2:.1,.(y$,i,1);:.i@ZXDE.15,"u2";2;0;t;s:.15:.1@.XNE.@.XXE. modify and display blocks@.X.E."Q.odify and .isplay blocks - sure (./.)":.2360:.y$.."y".1670@CY.E. 15,8,15:. 1,8,2,"#":f$.""@<Y.E."Q .rack]$..";t$:x$.t$:.2250:t.x:.x.0 . x.40 . 1430@TY.E.".ector]$..";s$:x$.s$:.2250:s.x:.x.0 . x.20 . 1430@.Y.E.15,"u1";2;0;t;s;:.15,"b-p";2;0@.Y.E.#1,x$:.2330:x..(x$):tn.x:.2200:tn$.x$@.Y.E.#1,x$:.2330:x..(x$):sm.x:.2200:sn$.x$@ZZ.Ent$."   ....:..... ".tn$." ...... ".sn$@dZ.Ect$.".......:..... ".t$." ...... ".s$@vZ.E.".";ct$:.nt$@HZ.E.15,"b-p";2;0@.Z.E.i.0.15:f$."":x.i.8:.2200:.x$;" ";:.j.0.7@.Z.E.#1,x$:y$.x$:.2330:x..(x$):.2200:.x$;" ";:@.ZDFx$.y$:.2290:f$.f$.x$:.j:.f$:.i@.ZNF.1680:.y$."y".1500@Q[XF.".";ct$:.nt$@%["F.15,"b-p";2;128@t[,F.i.16.31:f$."":x.i.8:.2200:.x$;" ";:.j.0.7@.[6F.#1,x$:y$.x$:.2330:x..(x$):.2200:.x$;" ";:@.[@Fx$.y$:.2290:f$.f$.x$:.j:.f$:.i@.[jF.1680.y$."y".1560@.[tF.".eview again":.2360:.y$."y" . 1500@Y£.F.".rite changes":.2360:.y$."y"..15,"u2";2;0;t,s@;£HF.y$."y"..15,"b-a";0;t;s:.2390@W£RF.".ext ./.":.2360:.y$."y".t.tn:s.sn:t$.tn$:s$.sn$:.1450@.£.F.1:.15@.£.F.@.£.F. any changes@.£.F.".ny changes":.2360:.y$.."y".1730@.£.F. 9,0:.9,a$:.9@.£.Fx$..(a$,2):.2250:.15,"b-p";2,x@%].F.i.0.7:x$..(a$,4.i.3,2):.2250:.1,.(x);:.i@+].F.@a].F. initialize disc@z].F. 15,8,15,"i0":.15:.@K].F. trace file@.].F."Q.race file - sure (./.)":.2360:.y$.."y".2120@.].F."Q.ilename";bf$@.].F.15,8,15:.1,8,2,"#":t.18:s.1:f$.""@.]HG.15,"u1";2;0;t;s:i.0:f$.""@(.RG.#1,x$:.2330:t..(x$):.#1,x$:.2330:s..(x$)@D.£Gi.i.1:.15,"b-p";2;(i.1).32.2:.#1,x$:.2330:x..(x$):y$.""@..&G.j.0.5:.x.j.y$.t$(j)@..0G.j.0.x.x.128@..:G.j:.y$."".y$.t$(5)@..dG.#1,x$:.2330:x..(x$):.2200:t$.x$@..nG.#1,x$:.2330:x..(x$):.2200:s$.x$@Z.xGf$."":.j.1.16:.#1,x$:.2290:f$.f$.x$:.j@8.BG. .(f$,.(bf$)).bf$ . 1930@j.LG.i.8.t.0.1800@t.VG.1820@E..G. t.0 . 2120@...G.".R.race of. ";bf$;" file type ";y$:.:ft$.y$:no.0@...G. ft$."del" . .".ecover file (./.)":.2360@...G.15,"b-p";2;(i.1).32.3@S .G.#1,x$:.2330:t..(x$):.#1,x$:.2330:s..(x$)@7 .Gx.t:.2200:t$.x$:x.s:.2200:s$.x$@v .G.".rack ";t$;" .ector ";s$@K .G. y$.."y" . 2030@. .G.15,"b-a";0;t;s:.15,e:.e..65 . 2030@. .G.".ecovery not possible, because a"@. .G."free block is allocated.":no.1@. .G.15,"u1";2;0;t;s@#!.G.#1,x$:.2330:t..(x$):.#1,x$:.2330:s..(x$)@4!BH. t.0 . 2070@?!LH. 1970@F!VH. ft$."del" . y$."y" . no.0 . 2090@Q! H. 2110@.!*H.".ecovery .kay. .emember to change"@.!4H."directory, track, and file type"@.!>H. 2360@.!hH. 1:. 15:.@.!rH. backup@.!£H.:."...... ...."@,"FH.:.".o allow larger files to be backed up"@y"PH."on both disc and cassette, there is a"@."ZH."seperate utility on the disc. .oad"@.".H."backup-mc, and run it. then load backup."@.".H.2360:.@.".H. decimal - hexidecimal@.".Hx.x . 255:x1..(x.16):x2.x . 15@%#.Hx1$..(48.x1):. x1.9 . x1$..(55.x1)@l#.Hx2$..(48.x2):. x2.9 . x2$..(55.x2)@]#.Hx$.x1$.x2$:.@Y#.H. hexidecimal - decimal@.#.Hx$..("00".x$,2)@.#.Hx1..(x$).48:x2..(.(x$,2)).48@.#.Hx.16.(x1.7.(x1.9)).x2.7.(x2.9):.@.#.H. convert to ascii@A$.H. x$..(160) . 2320@ $FI. x$." " . x$."z" . x$."."@&$PI.@b$ZI. eliminate null string@x$$I. x$."" . x$..(0)@.$.I.@I$8I. wait@.$bI. y$:.y$."" . 2370@.$lI.@.$vI. error on b-a check@.$.I.15,en$,em$,et$,es$:. en$."20" . en$."65" . .@.$JI. 15:.:.en$,em$,et$,es$:.2360:.@@@

00000000  28 08 64 00 97 35 33 32  37 32 2c 32 33 3a 97 35  |(.d..53272,23:.5|
00000010  33 32 38 30 2c 36 3a 86  41 24 28 31 30 2c 30 29  |3280,6:.A$(10,0)|
00000020  2c 54 24 28 35 29 00 3d  08 6e 00 81 49 b2 30 a4  |,T$(5).=.n..I.0.|
00000030  35 3a 87 54 24 28 49 29  3a 82 49 00 5b 08 78 00  |5:.T$(I):.I.[.x.|
00000040  83 20 44 45 4c 2c 53 45  51 2c 50 52 47 2c 55 53  |. DEL,SEQ,PRG,US|
00000050  52 2c 52 45 4c 2c 3f 3f  3f 00 99 08 82 00 99 22  |R,REL,???......"|
00000060  93 c4 c9 d3 c3 20 d5 d4  c9 cc c9 d4 d9 22 3a 99  |..... .......":.|
00000070  22 11 12 ce 92 20 ce 45  57 20 44 49 53 43 22 a3  |".... .EW DISC".|
00000080  32 30 29 3b 22 12 c8 92  20 c3 48 41 4e 47 45 20  |20);"... .HANGE |
00000090  48 45 41 44 45 52 22 00  c8 08 8c 00 99 22 11 12  |HEADER"......"..|
000000a0  d6 92 20 d6 41 4c 49 44  41 54 45 20 44 49 53 43  |.. .ALIDATE DISC|
000000b0  22 3b a3 32 30 29 3b 22  12 c4 92 20 c4 49 52 45  |";.20);"... .IRE|
000000c0  43 54 4f 52 59 22 00 fa  08 96 00 99 22 11 12 d4  |CTORY"......"...|
000000d0  92 20 d4 52 41 43 45 20  46 49 4c 45 22 3b a3 32  |. .RACE FILE";.2|
000000e0  30 29 3b 22 12 d3 92 20  d3 43 52 41 54 43 48 20  |0);"... .CRATCH |
000000f0  46 49 4c 45 28 53 29 22  00 2d 09 a0 00 99 22 11  |FILE(S)".-....".|
00000100  12 d2 92 20 d2 45 4e 41  4d 45 20 46 49 4c 45 22  |... .ENAME FILE"|
00000110  3b a3 32 30 29 3b 22 12  c5 92 20 d2 45 41 44 20  |;.20);"... .EAD |
00000120  44 49 53 43 20 45 52 52  4f 52 22 00 5b 09 aa 00  |DISC ERROR".[...|
00000130  99 22 11 12 d2 92 20 c3  4f 50 59 20 46 49 4c 45  |.".... .OPY FILE|
00000140  22 3b a3 32 30 29 3b 22  12 c1 92 20 c1 50 50 45  |";.20);"... .PPE|
00000150  4e 44 20 46 49 4c 45 53  22 00 8e 09 b4 00 99 22  |ND FILES"......"|
00000160  11 12 c2 92 20 c2 41 43  4b 55 50 20 46 49 4c 45  |.... .ACKUP FILE|
00000170  22 3b a3 32 30 29 3b 22  12 cd 92 20 cd 4f 44 2f  |";.20);"... .OD/|
00000180  44 49 53 50 20 42 4c 4f  43 4b 53 22 00 ba 09 be  |DISP BLOCKS"....|
00000190  00 99 22 11 12 c9 92 20  c9 4e 49 54 49 41 4c 49  |..".... .NITIALI|
000001a0  53 45 20 44 49 53 43 22  3b a3 32 30 29 3b 22 12  |SE DISC";.20);".|
000001b0  d8 92 20 c5 58 49 54 22  00 c4 09 c8 00 8d 32 33  |.. .XIT"......23|
000001c0  36 30 00 dd 09 d2 00 8b  20 59 24 b2 22 4e 22 20  |60...... Y$."N" |
000001d0  a7 20 8d 35 33 30 3a 89  31 33 30 00 f6 09 dc 00  |. .530:.130.....|
000001e0  8b 20 59 24 b2 22 56 22  20 a7 20 8d 35 38 30 3a  |. Y$."V" . .580:|
000001f0  89 31 33 30 00 0f 0a e6  00 8b 20 59 24 b2 22 52  |.130...... Y$."R|
00000200  22 20 a7 20 8d 36 32 30  3a 89 31 33 30 00 28 0a  |" . .620:.130.(.|
00000210  f0 00 8b 20 59 24 b2 22  53 22 20 a7 20 8d 36 37  |... Y$."S" . .67|
00000220  30 3a 89 31 33 30 00 41  0a fa 00 8b 20 59 24 b2  |0:.130.A.... Y$.|
00000230  22 45 22 20 a7 20 8d 37  34 30 3a 89 31 33 30 00  |"E" . .740:.130.|
00000240  5a 0a 04 01 8b 20 59 24  b2 22 41 22 20 a7 20 8d  |Z.... Y$."A" . .|
00000250  33 36 30 3a 89 31 33 30  00 73 0a 0e 01 8b 20 59  |360:.130.s.... Y|
00000260  24 b2 22 43 22 20 a7 20  8d 38 34 30 3a 89 31 33  |$."C" . .840:.13|
00000270  30 00 8c 0a 18 01 8b 20  59 24 b2 22 44 22 20 a7  |0...... Y$."D" .|
00000280  20 8d 38 39 30 3a 89 31  33 30 00 a6 0a 22 01 8b  | .890:.130..."..|
00000290  20 59 24 b2 22 48 22 20  a7 20 8d 31 32 34 30 3a  | Y$."H" . .1240:|
000002a0  89 31 33 30 00 b7 0a 2c  01 8b 20 59 24 b2 22 58  |.130...,.. Y$."X|
000002b0  22 20 a7 20 80 00 d1 0a  36 01 8b 20 59 24 b2 22  |" . ....6.. Y$."|
000002c0  4d 22 20 a7 20 8d 31 34  30 30 3a 89 31 33 30 00  |M" . .1400:.130.|
000002d0  eb 0a 40 01 8b 20 59 24  b2 22 49 22 20 a7 20 8d  |..@.. Y$."I" . .|
000002e0  31 37 34 30 3a 89 31 33  30 00 05 0b 4a 01 8b 20  |1740:.130...J.. |
000002f0  59 24 b2 22 54 22 20 a7  20 8d 31 37 36 30 3a 89  |Y$."T" . .1760:.|
00000300  31 33 30 00 1f 0b 54 01  8b 20 59 24 b2 22 42 22  |130...T.. Y$."B"|
00000310  20 a7 20 8d 32 31 33 30  3a 89 31 33 30 00 29 0b  | . .2130:.130.).|
00000320  5e 01 89 20 31 33 30 00  36 0b 68 01 8f 20 41 50  |^.. 130.6.h.. AP|
00000330  50 45 4e 44 00 6a 0b 72  01 99 22 93 c1 d0 d0 c5  |PEND.j.r..".....|
00000340  ce c4 11 22 3a 99 22 12  d0 92 20 d0 d2 c7 20 46  |...":."... ... F|
00000350  49 4c 45 53 11 22 3a 99  22 11 12 d3 92 20 d3 c5  |ILES.":.".... ..|
00000360  d1 20 46 49 4c 45 53 22  00 8e 0b 7c 01 8d 32 33  |. FILES"...|..23|
00000370  36 30 3a 8b 20 59 24 b3  b1 22 50 22 20 af 20 59  |60:. Y$.."P" . Y|
00000380  24 b3 b1 22 53 22 20 a7  20 35 32 30 00 a4 0b 86  |$.."S" . 520....|
00000390  01 8b 20 59 24 b2 22 53  22 20 a7 20 8d 37 37 30  |.. Y$."S" . .770|
000003a0  3a 8e 00 b4 0b 90 01 8f  20 50 52 47 20 46 49 4c  |:....... PRG FIL|
000003b0  45 53 00 f0 0b 9a 01 99  22 11 c1 50 50 45 4e 44  |ES......"..PPEND|
000003c0  20 d0 d2 c7 20 46 49 4c  45 53 20 2d 20 53 55 52  | ... FILES - SUR|
000003d0  45 20 28 d9 2f ce 29 22  3a 8d 32 33 36 30 3a 8b  |E (./.)":.2360:.|
000003e0  20 59 24 b3 b1 22 59 22  20 a7 20 35 32 30 00 30  | Y$.."Y" . 520.0|
000003f0  0c a4 01 85 22 11 c3 4f  4d 42 49 4e 45 44 20 46  |...."..OMBINED F|
00000400  49 4e 41 4c 20 50 52 4f  44 55 43 54 22 3b 46 24  |INAL PRODUCT";F$|
00000410  3a 85 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |:."             |
00000420  c6 49 52 53 54 20 d0 d2  c7 22 3b 58 31 24 00 53  |.IRST ...";X1$.S|
00000430  0c a9 01 85 22 20 20 20  20 20 20 20 20 20 20 20  |...."           |
00000440  20 20 d3 45 43 4f 4e 44  20 d0 d2 c7 22 3b 58 32  |  .ECOND ...";X2|
00000450  24 00 86 0c ae 01 9f 20  33 2c 38 2c 33 2c 22 30  |$...... 3,8,3,"0|
00000460  3a 22 aa 46 24 aa 22 2c  50 2c 57 22 3a 9f 20 32  |:".F$.",P,W":. 2|
00000470  2c 38 2c 32 2c 22 30 3a  22 aa 58 31 24 aa 22 2c  |,8,2,"0:".X1$.",|
00000480  50 2c 52 22 00 91 0c b8  01 a1 23 32 2c 59 24 00  |P,R"......#2,Y$.|
00000490  ad 0c c2 01 58 24 b2 59  24 3a a1 23 32 2c 59 24  |....X$.Y$:.#2,Y$|
000004a0  3a 8b 53 54 b3 b1 30 a7  34 37 30 00 c3 0c cc 01  |:.ST..0.470.....|
000004b0  8d 20 32 33 33 30 3a 98  33 2c 58 24 3a 89 34 35  |. 2330:.3,X$:.45|
000004c0  30 00 e3 0c d6 01 a0 20  32 3a 9f 20 32 2c 38 2c  |0...... 2:. 2,8,|
000004d0  32 2c 22 30 3a 22 aa 58  32 24 aa 22 2c 50 2c 52  |2,"0:".X2$.",P,R|
000004e0  22 00 f5 0c e0 01 a1 23  32 2c 59 24 3a a1 23 32  |"......#2,Y$:.#2|
000004f0  2c 59 24 00 0b 0d ea 01  a1 23 32 2c 58 24 3a 8b  |,Y$......#2,X$:.|
00000500  53 54 b3 b1 30 a7 35 31  30 00 21 0d f4 01 8d 32  |ST..0.510.!....2|
00000510  33 33 30 3a 98 33 2c 58  24 3b 3a 89 34 39 30 00  |330:.3,X$;:.490.|
00000520  34 0d fe 01 a0 32 3a 98  33 2c c7 28 30 29 3b 3a  |4....2:.3,.(0);:|
00000530  a0 33 00 3a 0d 08 02 8e  00 49 0d 12 02 8f 20 4e  |.3.:.....I.... N|
00000540  45 57 20 44 49 53 43 00  7a 0d 1c 02 99 22 11 ce  |EW DISC.z...."..|
00000550  45 57 20 44 49 53 43 20  2d 20 53 55 52 45 20 28  |EW DISC - SURE (|
00000560  d9 2f ce 29 22 3a 8d 32  33 36 30 3a 8b 59 24 b3  |./.)":.2360:.Y$.|
00000570  b1 22 59 22 a7 35 37 30  00 ad 0d 26 02 85 22 11  |."Y".570...&..".|
00000580  ce 41 4d 45 22 3b 46 24  3a 85 22 c9 2e c4 2e 22  |.AME";F$:."...."|
00000590  3b 59 24 3a 46 24 b2 c8  28 46 24 2c 31 36 29 aa  |;Y$:F$..(F$,16).|
000005a0  22 2c 22 aa c8 28 59 24  2c 32 29 00 c7 0d 30 02  |","..(Y$,2)...0.|
000005b0  9f 31 35 2c 38 2c 31 35  2c 22 4e 30 3a 22 aa 46  |.15,8,15,"N0:".F|
000005c0  24 3a a0 31 35 00 cd 0d  3a 02 8e 00 dc 0d 44 02  |$:.15...:.....D.|
000005d0  8f 20 56 41 4c 49 44 41  54 45 00 0d 0e 4e 02 99  |. VALIDATE...N..|
000005e0  22 11 56 41 4c 49 44 41  54 45 20 2d 20 53 55 52  |".VALIDATE - SUR|
000005f0  45 20 28 d9 2f ce 29 22  3a 8d 32 33 36 30 3a 8b  |E (./.)":.2360:.|
00000600  59 24 b3 b1 22 59 22 a7  35 37 30 00 23 0e 58 02  |Y$.."Y".570.#.X.|
00000610  9f 20 31 35 2c 38 2c 31  35 2c 22 56 22 3a a0 31  |. 15,8,15,"V":.1|
00000620  35 00 29 0e 62 02 8e 00  36 0e 6c 02 8f 20 52 45  |5.).b...6.l.. RE|
00000630  4e 41 4d 45 00 68 0e 76  02 99 22 11 d2 45 4e 41  |NAME.h.v.."..ENA|
00000640  4d 45 20 2d 20 53 55 52  45 20 28 d9 2f ce 29 22  |ME - SURE (./.)"|
00000650  3a 8d 32 33 36 30 3a 8b  20 59 24 b3 b1 22 59 22  |:.2360:. Y$.."Y"|
00000660  20 a7 20 36 31 30 00 9e  0e 80 02 85 22 11 cf 4c  | . 610......"..L|
00000670  44 20 4e 41 4d 45 22 3b  46 24 3a 85 22 ce 45 57  |D NAME";F$:.".EW|
00000680  20 4e 41 4d 45 22 3b 59  24 3a 46 24 b2 22 52 30  | NAME";Y$:F$."R0|
00000690  3a 22 aa 59 24 aa 22 3d  22 aa 46 24 00 b3 0e 8a  |:".Y$."=".F$....|
000006a0  02 9f 20 31 35 2c 38 2c  31 35 2c 46 24 3a a0 31  |.. 15,8,15,F$:.1|
000006b0  35 00 b9 0e 94 02 8e 00  cc 0e 9e 02 8f 20 53 43  |5............ SC|
000006c0  52 41 54 43 48 20 46 49  4c 45 00 ff 0e a8 02 99  |RATCH FILE......|
000006d0  22 11 d3 43 52 41 54 43  48 20 2d 20 53 55 52 45  |"..CRATCH - SURE|
000006e0  20 28 d9 2f ce 29 22 3a  8d 32 33 36 30 3a 8b 20  | (./.)":.2360:. |
000006f0  59 24 b3 b1 22 59 22 20  a7 20 37 33 30 00 2d 0f  |Y$.."Y" . 730.-.|
00000700  b2 02 46 24 b2 22 22 3a  99 22 11 d5 53 45 20 2a  |..F$."":."..SE *|
00000710  20 4f 52 20 3f 20 46 4f  52 20 50 41 54 54 45 52  | OR ? FOR PATTER|
00000720  4e 20 4d 41 54 43 48 49  4e 47 22 00 4a 0f bc 02  |N MATCHING".J...|
00000730  99 22 c8 49 54 20 52 45  54 55 52 4e 20 54 4f 20  |.".IT RETURN TO |
00000740  44 45 4c 45 54 45 11 22  00 7c 0f c6 02 85 22 c4  |DELETE.".|....".|
00000750  45 4c 45 54 45 22 3b 59  24 3a 8b 59 24 b3 b1 22  |ELETE";Y$:.Y$.."|
00000760  22 a7 20 46 24 b2 46 24  aa 22 2c 22 aa 59 24 3a  |". F$.F$.",".Y$:|
00000770  59 24 b2 22 22 3a 89 37  31 30 00 a2 0f d0 02 46  |Y$."":.710.....F|
00000780  24 b2 22 53 30 3a 22 aa  ca 28 46 24 2c 32 29 3a  |$."S0:"..(F$,2):|
00000790  9f 20 31 35 2c 38 2c 31  35 2c 46 24 3a a0 31 35  |. 15,8,15,F$:.15|
000007a0  00 a8 0f da 02 8e 00 b4  0f e4 02 8f 20 45 52 52  |............ ERR|
000007b0  4f 52 00 f1 0f ee 02 9f  20 31 35 2c 38 2c 31 35  |OR...... 15,8,15|
000007c0  3a 84 31 35 2c 58 24 2c  46 24 2c 58 31 24 2c 58  |:.15,X$,F$,X1$,X|
000007d0  32 24 3a a0 31 35 3a 99  22 11 c5 d2 d2 cf d2 3a  |2$:.15:."......:|
000007e0  22 3b 58 24 2c 46 24 2c  58 31 24 2c 58 32 24 00  |";X$,F$,X1$,X2$.|
000007f0  fd 0f f8 02 8d 32 33 36  30 3a 8e 00 14 10 02 03  |.....2360:......|
00000800  8f 20 41 50 50 45 4e 44  20 53 45 51 20 46 49 4c  |. APPEND SEQ FIL|
00000810  45 53 00 4d 10 0c 03 99  22 11 c1 50 50 45 4e 44  |ES.M...."..PPEND|
00000820  20 d3 c5 d1 20 46 49 4c  45 53 20 2d 20 53 55 52  | ... FILES - SUR|
00000830  45 20 28 d9 2f ce 29 22  3a 8d 32 33 36 30 3a 8b  |E (./.)":.2360:.|
00000840  59 24 b3 b1 22 59 22 a7  38 33 30 00 6b 10 16 03  |Y$.."Y".830.k...|
00000850  99 22 11 c8 49 54 20 52  45 54 55 52 4e 20 54 4f  |."..IT RETURN TO|
00000860  20 41 50 50 45 4e 44 11  22 00 82 10 20 03 46 24  | APPEND."... .F$|
00000870  b2 22 22 3a 85 22 20 20  20 4e 45 57 22 3b 58 24  |."":."   NEW";X$|
00000880  00 b8 10 2a 03 85 22 c1  50 50 45 4e 44 22 3b 59  |...*..".PPEND";Y|
00000890  24 3a 8b 59 24 b3 b1 22  22 a7 46 24 b2 46 24 aa  |$:.Y$.."".F$.F$.|
000008a0  22 2c 22 aa 22 30 3a 22  aa 59 24 3a 59 24 b2 22  |","."0:".Y$:Y$."|
000008b0  22 3a 89 38 31 30 00 e4  10 34 03 46 24 b2 22 43  |":.810...4.F$."C|
000008c0  30 3a 22 aa 58 24 aa 22  3d 22 aa ca 28 46 24 2c  |0:".X$."="..(F$,|
000008d0  32 29 3a 9f 31 35 2c 38  2c 31 35 3a 98 31 35 2c  |2):.15,8,15:.15,|
000008e0  46 24 00 ee 10 3e 03 a0  31 35 3a 8e 00 03 11 48  |F$...>..15:....H|
000008f0  03 8f 20 43 4f 50 59 20  53 41 4d 45 20 44 49 53  |.. COPY SAME DIS|
00000900  43 00 33 11 52 03 99 22  11 c3 4f 50 59 20 2d 20  |C.3.R.."..OPY - |
00000910  53 55 52 45 20 28 d9 2f  ce 29 22 3a 8d 32 33 36  |SURE (./.)":.236|
00000920  30 3a 8b 20 59 24 b3 b1  22 59 22 20 a7 20 38 38  |0:. Y$.."Y" . 88|
00000930  30 00 64 11 5c 03 85 22  11 ce 45 57 22 3b 46 24  |0.d.\.."..EW";F$|
00000940  3a 85 22 cf 4c 44 22 3b  59 24 3a 46 24 b2 22 43  |:.".LD";Y$:F$."C|
00000950  30 3a 22 aa 46 24 aa 22  3d 22 aa 22 30 3a 22 aa  |0:".F$."="."0:".|
00000960  59 24 00 75 11 66 03 9f  20 31 35 2c 38 2c 31 35  |Y$.u.f.. 15,8,15|
00000970  2c 46 24 00 7f 11 70 03  a0 31 35 3a 8e 00 8f 11  |,F$...p..15:....|
00000980  7a 03 8f 20 44 49 52 45  43 54 4f 52 59 00 c2 11  |z.. DIRECTORY...|
00000990  84 03 99 22 11 c4 49 52  45 43 54 4f 52 59 20 2d  |..."..IRECTORY -|
000009a0  20 53 55 52 45 20 28 d9  2f ce 29 22 3a 8d 32 33  | SURE (./.)":.23|
000009b0  36 30 3a 8b 59 24 b3 b1  22 59 22 a7 31 32 33 30  |60:.Y$.."Y".1230|
000009c0  00 f5 11 8e 03 9f 20 31  35 2c 38 2c 31 35 3a 9f  |...... 15,8,15:.|
000009d0  20 31 2c 38 2c 32 2c 22  23 22 3a 54 b2 31 38 3a  | 1,8,2,"#":T.18:|
000009e0  53 b2 30 3a 46 24 b2 22  22 3a 42 46 b2 30 3a 42  |S.0:F$."":BF.0:B|
000009f0  55 b2 30 00 2a 12 98 03  98 31 35 2c 22 55 31 22  |U.0.*....15,"U1"|
00000a00  3b 32 3b 30 3b 54 3b 53  3b 3a 98 31 35 2c 22 42  |;2;0;T;S;:.15,"B|
00000a10  2d 50 22 3b 32 3b 31 34  34 3a 99 22 93 22 3b a3  |-P";2;144:.".";.|
00000a20  31 30 29 3b 22 12 22 3b  00 51 12 a2 03 81 49 b2  |10);".";.Q....I.|
00000a30  31 a4 31 36 3a a1 23 31  2c 58 24 3a 8d 32 32 39  |1.16:.#1,X$:.229|
00000a40  30 3a 99 58 24 3b 3a 82  49 3a 99 22 2c 22 3b 00  |0:.X$;:.I:.",";.|
00000a50  65 12 ac 03 98 31 35 2c  22 42 2d 50 22 3b 32 3b  |e....15,"B-P";2;|
00000a60  31 36 32 00 94 12 b6 03  81 49 b2 31 a4 32 3a a1  |162......I.1.2:.|
00000a70  23 31 2c 58 24 3a 8d 32  32 39 30 3a 99 58 24 3b  |#1,X$:.2290:.X$;|
00000a80  3a 82 49 3a 99 22 92 90  22 3a 54 b2 31 38 3a 53  |:.I:."..":T.18:S|
00000a90  b2 31 00 c4 12 c0 03 99  22 24 c2 cc cb 20 c6 c9  |.1......"$... ..|
00000aa0  cc c5 20 20 20 20 20 20  20 20 20 20 20 20 20 d4  |..             .|
00000ab0  d9 d0 c5 20 24 d4 cb 20  24 d3 d4 20 24 c1 c4 c4  |... $.. $.. $...|
00000ac0  9a 22 00 01 13 ca 03 98  31 35 2c 22 55 31 22 3b  |."......15,"U1";|
00000ad0  32 3b 30 3b 54 3b 53 3a  49 b2 30 3a 58 b2 53 3a  |2;0;T;S:I.0:X.S:|
00000ae0  8d 32 32 30 30 3a 99 22  90 d4 d2 cb 20 31 32 22  |.2200:.".... 12"|
00000af0  3b 22 20 d3 c3 d4 20 22  3b 58 24 3b 22 9a 22 00  |;" ... ";X$;".".|
00000b00  2f 13 d4 03 a1 23 31 2c  58 24 3a 8d 32 33 33 30  |/....#1,X$:.2330|
00000b10  3a 54 b2 c6 28 58 24 29  3a a1 23 31 2c 58 24 3a  |:T..(X$):.#1,X$:|
00000b20  8d 32 33 33 30 3a 53 b2  c6 28 58 24 29 00 6b 13  |.2330:S..(X$).k.|
00000b30  de 03 49 b2 49 aa 31 3a  98 31 35 2c 22 42 2d 50  |..I.I.1:.15,"B-P|
00000b40  22 3b 32 3b 28 49 ab 31  29 ac 33 32 aa 32 3a a1  |";2;(I.1).32.2:.|
00000b50  23 31 2c 58 24 3a 8d 32  33 33 30 3a 58 b2 c6 28  |#1,X$:.2330:X..(|
00000b60  58 24 29 3a 59 24 b2 22  22 00 84 13 e8 03 81 4a  |X$):Y$.""......J|
00000b70  b2 30 a4 35 3a 8b 58 b2  4a a7 59 24 b2 54 24 28  |.0.5:.X.J.Y$.T$(|
00000b80  4a 29 00 95 13 f2 03 8b  4a b2 30 a7 58 b2 58 ab  |J)......J.0.X.X.|
00000b90  31 32 38 00 ac 13 fc 03  82 4a 3a 8b 59 24 b2 22  |128......J:.Y$."|
00000ba0  22 a7 59 24 b2 54 24 28  35 29 00 d1 13 06 04 a1  |".Y$.T$(5)......|
00000bb0  23 31 2c 58 24 3a 8d 32  33 33 30 3a 58 b2 c6 28  |#1,X$:.2330:X..(|
00000bc0  58 24 29 3a 8d 32 32 30  30 3a 54 24 b2 58 24 00  |X$):.2200:T$.X$.|
00000bd0  f6 13 10 04 a1 23 31 2c  58 24 3a 8d 32 33 33 30  |.....#1,X$:.2330|
00000be0  3a 58 b2 c6 28 58 24 29  3a 8d 32 32 30 30 3a 53  |:X..(X$):.2200:S|
00000bf0  24 b2 58 24 00 1b 14 1a  04 81 4a b2 31 a4 31 36  |$.X$......J.1.16|
00000c00  3a a1 23 31 2c 58 24 3a  8d 32 32 39 30 3a 46 24  |:.#1,X$:.2290:F$|
00000c10  b2 46 24 aa 58 24 3a 82  4a 00 2f 14 24 04 8b 59  |.F$.X$:.J./.$..Y|
00000c20  24 b3 b1 22 50 52 47 22  a7 31 30 39 30 00 66 14  |$.."PRG".1090.f.|
00000c30  2e 04 9f 20 33 2c 38 2c  33 2c 46 24 aa 22 2c 53  |... 3,8,3,F$.",S|
00000c40  2c 50 22 3a a1 23 33 2c  58 24 3a 8d 32 33 33 30  |,P":.#3,X$:.2330|
00000c50  3a 58 b2 c6 28 58 24 29  3a 8d 32 32 30 30 3a 49  |:X..(X$):.2200:I|
00000c60  24 b2 58 24 00 91 14 38  04 a1 23 33 2c 58 24 3a  |$.X$...8..#3,X$:|
00000c70  8d 32 33 33 30 3a 58 b2  c6 28 58 24 29 3a 8d 32  |.2330:X..(X$):.2|
00000c80  32 30 30 3a 49 24 b2 58  24 aa 49 24 3a a0 33 00  |200:I$.X$.I$:.3.|
00000c90  ad 14 42 04 98 31 35 2c  22 42 2d 50 22 3b 32 3b  |..B..15,"B-P";2;|
00000ca0  28 49 ab 31 29 ac 33 32  aa 33 30 00 c6 14 4c 04  |(I.1).32.30...L.|
00000cb0  a1 23 31 2c 58 24 3a 8d  32 33 33 30 3a 4a b2 c6  |.#1,X$:.2330:J..|
00000cc0  28 58 24 29 00 df 14 56  04 a1 23 31 2c 58 24 3a  |(X$)...V..#1,X$:|
00000cd0  8d 32 33 33 30 3a 4b b2  c6 28 58 24 29 00 09 15  |.2330:K..(X$)...|
00000ce0  60 04 58 b2 4b 3a 8d 32  32 30 30 3a 42 46 24 b2  |`.X.K:.2200:BF$.|
00000cf0  58 24 3a 58 b2 4a 3a 8d  32 32 30 30 3a 42 46 24  |X$:X.J:.2200:BF$|
00000d00  b2 42 46 24 aa 58 24 00  34 15 6a 04 42 55 b2 42  |.BF$.X$.4.j.BU.B|
00000d10  55 aa 32 35 36 ac 4b aa  4a 3a 8b 59 24 b3 b1 22  |U.256.K.J:.Y$.."|
00000d20  44 45 4c 22 a7 42 46 b2  42 46 aa 32 35 36 ac 4b  |DEL".BF.BF.256.K|
00000d30  aa 4a 00 75 15 74 04 99  42 46 24 3b 22 20 22 3b  |.J.u.t..BF$;" ";|
00000d40  46 24 3b 22 20 20 22 3b  59 24 3b 22 20 20 22 3b  |F$;"  ";Y$;"  ";|
00000d50  54 24 3b 22 20 20 22 3b  53 24 3b 22 20 22 3b 49  |T$;"  ";S$;" ";I|
00000d60  3a 42 46 24 b2 22 22 3a  46 24 b2 22 22 3a 49 24  |:BF$."":F$."":I$|
00000d70  b2 22 22 00 8b 15 7e 04  a1 59 24 3a 8b 59 24 b3  |.""...~..Y$:.Y$.|
00000d80  b1 22 22 a7 8d 32 33 36  30 00 9b 15 88 04 8b 20  |.""..2360...... |
00000d90  49 b3 38 20 a7 20 39 39  30 00 ac 15 92 04 8b 20  |I.8 . 990...... |
00000da0  54 b3 b1 30 20 a7 20 39  37 30 00 e7 15 9c 04 42  |T..0 . 970.....B|
00000db0  46 b2 36 36 34 ab 42 46  3a 58 b2 42 46 ad 32 35  |F.664.BF:X.BF.25|
00000dc0  36 3a 8d 32 32 30 30 3a  59 24 b2 58 24 3a 58 b2  |6:.2200:Y$.X$:X.|
00000dd0  42 46 ab 32 35 36 3a 8d  32 32 30 30 3a 59 24 b2  |BF.256:.2200:Y$.|
00000de0  59 24 aa 58 24 00 03 16  a6 04 99 22 9e 22 3b 59  |Y$.X$......".";Y|
00000df0  24 3b 22 20 42 4c 4f 43  4b 53 20 46 52 45 45 9a  |$;" BLOCKS FREE.|
00000e00  22 00 3e 16 b0 04 42 55  b2 36 36 34 ab 42 55 3a  |".>...BU.664.BU:|
00000e10  58 b2 42 55 ad 32 35 36  3a 8d 32 32 30 30 3a 59  |X.BU.256:.2200:Y|
00000e20  24 b2 58 24 3a 58 b2 42  55 ab 32 35 36 3a 8d 32  |$.X$:X.BU.256:.2|
00000e30  32 30 30 3a 59 24 b2 59  24 aa 58 24 00 68 16 ba  |200:Y$.Y$.X$.h..|
00000e40  04 99 22 9e 22 3b 59 24  3b 22 20 42 4c 4f 43 4b  |..".";Y$;" BLOCK|
00000e50  53 20 46 52 45 45 20 49  4e 43 20 44 45 4c 20 46  |S FREE INC DEL F|
00000e60  49 4c 45 53 9a 22 00 79  16 c4 04 8d 32 33 36 30  |ILES.".y....2360|
00000e70  3a a0 31 35 3a a0 31 00  7f 16 ce 04 8e 00 93 16  |:.15:.1.........|
00000e80  d8 04 8f 20 43 48 41 4e  47 45 20 48 45 41 44 45  |... CHANGE HEADE|
00000e90  52 00 d3 16 e2 04 99 22  11 c3 48 41 4e 47 45 20  |R......"..HANGE |
00000ea0  48 45 41 44 45 52 20 2d  20 53 55 52 45 20 28 d9  |HEADER - SURE (.|
00000eb0  2f ce 29 3a 47 4f 53 55  42 32 33 36 30 3a 49 46  |/.):GOSUB2360:IF|
00000ec0  59 24 3c 3e 22 59 22 20  54 48 45 4e 20 31 33 39  |Y$<>"Y" THEN 139|
00000ed0  30 00 01 17 ec 04 9f 20  31 35 2c 38 2c 31 35 3a  |0...... 15,8,15:|
00000ee0  9f 20 31 2c 38 2c 32 2c  22 23 22 3a 54 b2 31 38  |. 1,8,2,"#":T.18|
00000ef0  3a 53 b2 30 3a 42 46 b2  30 3a 46 24 b2 22 22 00  |:S.0:BF.0:F$."".|
00000f00  37 17 f6 04 98 31 35 2c  22 55 31 22 3b 32 3b 30  |7....15,"U1";2;0|
00000f10  3b 54 3b 53 3b 3a 98 31  35 2c 22 42 2d 50 22 3b  |;T;S;:.15,"B-P";|
00000f20  32 3b 31 34 34 3a 99 22  11 c3 55 52 52 45 4e 54  |2;144:."..URRENT|
00000f30  3a 20 20 22 3b 00 5e 17  00 05 81 49 b2 31 a4 31  |:  ";.^....I.1.1|
00000f40  36 3a a1 23 31 2c 58 24  3a 8d 32 32 39 30 3a 99  |6:.#1,X$:.2290:.|
00000f50  58 24 3b 3a 82 49 3a 99  22 2c 22 3b 00 72 17 0a  |X$;:.I:.",";.r..|
00000f60  05 98 31 35 2c 22 42 2d  50 22 3b 32 3b 31 36 32  |..15,"B-P";2;162|
00000f70  00 94 17 14 05 81 49 b2  31 a4 32 3a a1 23 31 2c  |......I.1.2:.#1,|
00000f80  58 24 3a 8d 32 32 39 30  3a 99 58 24 3b 3a 82 49  |X$:.2290:.X$;:.I|
00000f90  3a 99 00 c6 17 1e 05 85  22 20 20 20 20 ce 41 4d  |:......."    .AM|
00000fa0  45 22 3b 46 24 3a 46 24  b2 c8 28 46 24 aa 22 20  |E";F$:F$..(F$." |
00000fb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000fc0  2c 31 36 29 00 e9 17 28  05 85 22 20 20 20 20 c9  |,16)...(.."    .|
00000fd0  2e c4 2e 22 3b 59 24 3a  59 24 b2 c8 28 59 24 aa  |...";Y$:Y$..(Y$.|
00000fe0  22 58 58 22 2c 32 29 00  fd 17 32 05 98 31 35 2c  |"XX",2)...2..15,|
00000ff0  22 42 2d 50 22 3b 32 3b  31 34 34 00 1a 18 3c 05  |"B-P";2;144...<.|
00001000  81 49 b2 31 a4 31 36 3a  98 31 2c ca 28 46 24 2c  |.I.1.16:.1,.(F$,|
00001010  49 2c 31 29 3b 3a 82 49  00 2e 18 46 05 98 31 35  |I,1);:.I...F..15|
00001020  2c 22 42 2d 50 22 3b 32  3b 31 36 32 00 42 18 50  |,"B-P";2;162.B.P|
00001030  05 98 31 35 2c 22 42 2d  50 22 3b 32 3b 31 36 32  |..15,"B-P";2;162|
00001040  00 5e 18 5a 05 81 49 b2  31 a4 32 3a 98 31 2c ca  |.^.Z..I.1.2:.1,.|
00001050  28 59 24 2c 49 2c 31 29  3b 3a 82 49 00 7a 18 64  |(Y$,I,1);:.I.z.d|
00001060  05 98 31 35 2c 22 55 32  22 3b 32 3b 30 3b 54 3b  |..15,"U2";2;0;T;|
00001070  53 3a a0 31 35 3a a0 31  00 80 18 6e 05 8e 00 a0  |S:.15:.1...n....|
00001080  18 78 05 8f 20 4d 4f 44  49 46 59 20 41 4e 44 20  |.x.. MODIFY AND |
00001090  44 49 53 50 4c 41 59 20  42 4c 4f 43 4b 53 00 e3  |DISPLAY BLOCKS..|
000010a0  18 82 05 99 22 11 cd 4f  44 49 46 59 20 41 4e 44  |...."..ODIFY AND|
000010b0  20 c4 49 53 50 4c 41 59  20 42 4c 4f 43 4b 53 20  | .ISPLAY BLOCKS |
000010c0  2d 20 53 55 52 45 20 28  d9 2f ce 29 22 3a 8d 32  |- SURE (./.)":.2|
000010d0  33 36 30 3a 8b 59 24 b3  b1 22 59 22 a7 31 36 37  |360:.Y$.."Y".167|
000010e0  30 00 03 19 8c 05 9f 20  31 35 2c 38 2c 31 35 3a  |0...... 15,8,15:|
000010f0  9f 20 31 2c 38 2c 32 2c  22 23 22 3a 46 24 b2 22  |. 1,8,2,"#":F$."|
00001100  22 00 3c 19 96 05 85 22  11 20 d4 52 41 43 4b 1d  |".<....". .RACK.|
00001110  24 9d 9d 22 3b 54 24 3a  58 24 b2 54 24 3a 8d 32  |$..";T$:X$.T$:.2|
00001120  32 35 30 3a 54 b2 58 3a  8b 58 b3 30 20 b0 20 58  |250:T.X:.X.0 . X|
00001130  b1 34 30 20 a7 20 31 34  33 30 00 74 19 a0 05 85  |.40 . 1430.t....|
00001140  22 d3 45 43 54 4f 52 1d  24 9d 9d 22 3b 53 24 3a  |".ECTOR.$..";S$:|
00001150  58 24 b2 53 24 3a 8d 32  32 35 30 3a 53 b2 58 3a  |X$.S$:.2250:S.X:|
00001160  8b 58 b3 30 20 b0 20 58  b1 32 30 20 a7 20 31 34  |.X.0 . X.20 . 14|
00001170  33 30 00 98 19 aa 05 98  31 35 2c 22 55 31 22 3b  |30......15,"U1";|
00001180  32 3b 30 3b 54 3b 53 3b  3a 98 31 35 2c 22 42 2d  |2;0;T;S;:.15,"B-|
00001190  50 22 3b 32 3b 30 00 c3  19 b4 05 a1 23 31 2c 58  |P";2;0......#1,X|
000011a0  24 3a 8d 32 33 33 30 3a  58 b2 c6 28 58 24 29 3a  |$:.2330:X..(X$):|
000011b0  54 4e b2 58 3a 8d 32 32  30 30 3a 54 4e 24 b2 58  |TN.X:.2200:TN$.X|
000011c0  24 00 ee 19 be 05 a1 23  31 2c 58 24 3a 8d 32 33  |$......#1,X$:.23|
000011d0  33 30 3a 58 b2 c6 28 58  24 29 3a 53 4d b2 58 3a  |30:X..(X$):SM.X:|
000011e0  8d 32 32 30 30 3a 53 4e  24 b2 58 24 00 1a 1a c8  |.2200:SN$.X$....|
000011f0  05 4e 54 24 b2 22 20 20  20 ce c5 d8 d4 3a d4 d2  |.NT$."   ....:..|
00001200  c1 c3 cb 20 22 aa 54 4e  24 aa 22 20 d3 c5 c3 d4  |... ".TN$." ....|
00001210  cf d2 20 22 aa 53 4e 24  00 44 1a d2 05 43 54 24  |.. ".SN$.D...CT$|
00001220  b2 22 c3 d5 d2 d2 c5 ce  d4 3a d4 d2 c1 c3 cb 20  |.".......:..... |
00001230  22 aa 54 24 aa 22 20 d3  c5 c3 d4 cf d2 20 22 aa  |".T$." ...... ".|
00001240  53 24 00 56 1a dc 05 99  22 93 22 3b 43 54 24 3a  |S$.V....".";CT$:|
00001250  99 4e 54 24 00 68 1a e6  05 98 31 35 2c 22 42 2d  |.NT$.h....15,"B-|
00001260  50 22 3b 32 3b 30 00 96  1a f0 05 81 49 b2 30 a4  |P";2;0......I.0.|
00001270  31 35 3a 46 24 b2 22 22  3a 58 b2 49 ac 38 3a 8d  |15:F$."":X.I.8:.|
00001280  32 32 30 30 3a 99 58 24  3b 22 20 22 3b 3a 81 4a  |2200:.X$;" ";:.J|
00001290  b2 30 a4 37 00 c5 1a fa  05 a1 23 31 2c 58 24 3a  |.0.7......#1,X$:|
000012a0  59 24 b2 58 24 3a 8d 32  33 33 30 3a 58 b2 c6 28  |Y$.X$:.2330:X..(|
000012b0  58 24 29 3a 8d 32 32 30  30 3a 99 58 24 3b 22 20  |X$):.2200:.X$;" |
000012c0  22 3b 3a 00 e8 1a 04 06  58 24 b2 59 24 3a 8d 32  |";:.....X$.Y$:.2|
000012d0  32 39 30 3a 46 24 b2 46  24 aa 58 24 3a 82 4a 3a  |290:F$.F$.X$:.J:|
000012e0  99 46 24 3a 82 49 00 ff  1a 0e 06 8d 31 36 38 30  |.F$:.I......1680|
000012f0  3a 8b 59 24 b2 22 59 22  a7 31 35 30 30 00 11 1b  |:.Y$."Y".1500...|
00001300  18 06 99 22 93 22 3b 43  54 24 3a 99 4e 54 24 00  |...".";CT$:.NT$.|
00001310  25 1b 22 06 98 31 35 2c  22 42 2d 50 22 3b 32 3b  |%."..15,"B-P";2;|
00001320  31 32 38 00 54 1b 2c 06  81 49 b2 31 36 a4 33 31  |128.T.,..I.16.31|
00001330  3a 46 24 b2 22 22 3a 58  b2 49 ac 38 3a 8d 32 32  |:F$."":X.I.8:.22|
00001340  30 30 3a 99 58 24 3b 22  20 22 3b 3a 81 4a b2 30  |00:.X$;" ";:.J.0|
00001350  a4 37 00 83 1b 36 06 a1  23 31 2c 58 24 3a 59 24  |.7...6..#1,X$:Y$|
00001360  b2 58 24 3a 8d 32 33 33  30 3a 58 b2 c6 28 58 24  |.X$:.2330:X..(X$|
00001370  29 3a 8d 32 32 30 30 3a  99 58 24 3b 22 20 22 3b  |):.2200:.X$;" ";|
00001380  3a 00 a6 1b 40 06 58 24  b2 59 24 3a 8d 32 32 39  |:...@.X$.Y$:.229|
00001390  30 3a 46 24 b2 46 24 aa  58 24 3a 82 4a 3a 99 46  |0:F$.F$.X$:.J:.F|
000013a0  24 3a 82 49 00 bc 1b 4a  06 8d 31 36 38 30 8b 59  |$:.I...J..1680.Y|
000013b0  24 b2 22 59 22 a7 31 35  36 30 00 e5 1b 54 06 99  |$."Y".1560...T..|
000013c0  22 d2 45 56 49 45 57 20  41 47 41 49 4e 22 3a 8d  |".EVIEW AGAIN":.|
000013d0  32 33 36 30 3a 8b 59 24  b2 22 59 22 20 a7 20 31  |2360:.Y$."Y" . 1|
000013e0  35 30 30 00 19 1c 5e 06  99 22 d7 52 49 54 45 20  |500...^..".RITE |
000013f0  43 48 41 4e 47 45 53 22  3a 8d 32 33 36 30 3a 8b  |CHANGES":.2360:.|
00001400  59 24 b2 22 59 22 a7 98  31 35 2c 22 55 32 22 3b  |Y$."Y"..15,"U2";|
00001410  32 3b 30 3b 54 2c 53 00  3b 1c 68 06 8b 59 24 b2  |2;0;T,S.;.h..Y$.|
00001420  22 59 22 a7 98 31 35 2c  22 42 2d 41 22 3b 30 3b  |"Y"..15,"B-A";0;|
00001430  54 3b 53 3a 8d 32 33 39  30 00 77 1c 72 06 99 22  |T;S:.2390.w.r.."|
00001440  ce 45 58 54 20 d4 2f d3  22 3a 8d 32 33 36 30 3a  |.EXT ./.":.2360:|
00001450  8b 59 24 b2 22 59 22 a7  54 b2 54 4e 3a 53 b2 53  |.Y$."Y".T.TN:S.S|
00001460  4e 3a 54 24 b2 54 4e 24  3a 53 24 b2 53 4e 24 3a  |N:T$.TN$:S$.SN$:|
00001470  89 31 34 35 30 00 82 1c  7c 06 a0 31 3a a0 31 35  |.1450...|..1:.15|
00001480  00 88 1c 86 06 8e 00 9a  1c 90 06 8f 20 41 4e 59  |............ ANY|
00001490  20 43 48 41 4e 47 45 53  00 c1 1c 9a 06 99 22 c1  | CHANGES......".|
000014a0  4e 59 20 43 48 41 4e 47  45 53 22 3a 8d 32 33 36  |NY CHANGES":.236|
000014b0  30 3a 8b 59 24 b3 b1 22  59 22 a7 31 37 33 30 00  |0:.Y$.."Y".1730.|
000014c0  d4 1c a4 06 9f 20 39 2c  30 3a 84 39 2c 41 24 3a  |..... 9,0:.9,A$:|
000014d0  a0 39 00 f7 1c ae 06 58  24 b2 c8 28 41 24 2c 32  |.9.....X$..(A$,2|
000014e0  29 3a 8d 32 32 35 30 3a  98 31 35 2c 22 42 2d 50  |):.2250:.15,"B-P|
000014f0  22 3b 32 2c 58 00 25 1d  b8 06 81 49 b2 30 a4 37  |";2,X.%....I.0.7|
00001500  3a 58 24 b2 ca 28 41 24  2c 34 aa 49 ac 33 2c 32  |:X$..(A$,4.I.3,2|
00001510  29 3a 8d 32 32 35 30 3a  98 31 2c c7 28 58 29 3b  |):.2250:.1,.(X);|
00001520  3a 82 49 00 2b 1d c2 06  8e 00 41 1d cc 06 8f 20  |:.I.+.....A.... |
00001530  49 4e 49 54 49 41 4c 49  5a 45 20 44 49 53 43 00  |INITIALIZE DISC.|
00001540  5a 1d d6 06 9f 20 31 35  2c 38 2c 31 35 2c 22 49  |Z.... 15,8,15,"I|
00001550  30 22 3a a0 31 35 3a 8e  00 6b 1d e0 06 8f 20 54  |0":.15:..k.... T|
00001560  52 41 43 45 20 46 49 4c  45 00 9f 1d ea 06 99 22  |RACE FILE......"|
00001570  11 d4 52 41 43 45 20 46  49 4c 45 20 2d 20 53 55  |..RACE FILE - SU|
00001580  52 45 20 28 d9 2f ce 29  22 3a 8d 32 33 36 30 3a  |RE (./.)":.2360:|
00001590  8b 59 24 b3 b1 22 59 22  a7 32 31 32 30 00 b4 1d  |.Y$.."Y".2120...|
000015a0  f4 06 85 22 11 c6 49 4c  45 4e 41 4d 45 22 3b 42  |..."..ILENAME";B|
000015b0  46 24 00 db 1d fe 06 9f  31 35 2c 38 2c 31 35 3a  |F$......15,8,15:|
000015c0  9f 31 2c 38 2c 32 2c 22  23 22 3a 54 b2 31 38 3a  |.1,8,2,"#":T.18:|
000015d0  53 b2 31 3a 46 24 b2 22  22 00 fa 1d 08 07 98 31  |S.1:F$.""......1|
000015e0  35 2c 22 55 31 22 3b 32  3b 30 3b 54 3b 53 3a 49  |5,"U1";2;0;T;S:I|
000015f0  b2 30 3a 46 24 b2 22 22  00 28 1e 12 07 a1 23 31  |.0:F$."".(....#1|
00001600  2c 58 24 3a 8d 32 33 33  30 3a 54 b2 c6 28 58 24  |,X$:.2330:T..(X$|
00001610  29 3a a1 23 31 2c 58 24  3a 8d 32 33 33 30 3a 53  |):.#1,X$:.2330:S|
00001620  b2 c6 28 58 24 29 00 64  1e 1c 07 49 b2 49 aa 31  |..(X$).d...I.I.1|
00001630  3a 98 31 35 2c 22 42 2d  50 22 3b 32 3b 28 49 ab  |:.15,"B-P";2;(I.|
00001640  31 29 ac 33 32 aa 32 3a  a1 23 31 2c 58 24 3a 8d  |1).32.2:.#1,X$:.|
00001650  32 33 33 30 3a 58 b2 c6  28 58 24 29 3a 59 24 b2  |2330:X..(X$):Y$.|
00001660  22 22 00 7d 1e 26 07 81  4a b2 30 a4 35 3a 8b 58  |"".}.&..J.0.5:.X|
00001670  b2 4a a7 59 24 b2 54 24  28 4a 29 00 8e 1e 30 07  |.J.Y$.T$(J)...0.|
00001680  8b 4a b2 30 a7 58 b2 58  ab 31 32 38 00 a5 1e 3a  |.J.0.X.X.128...:|
00001690  07 82 4a 3a 8b 59 24 b2  22 22 a7 59 24 b2 54 24  |..J:.Y$."".Y$.T$|
000016a0  28 35 29 00 ca 1e 44 07  a1 23 31 2c 58 24 3a 8d  |(5)...D..#1,X$:.|
000016b0  32 33 33 30 3a 58 b2 c6  28 58 24 29 3a 8d 32 32  |2330:X..(X$):.22|
000016c0  30 30 3a 54 24 b2 58 24  00 ef 1e 4e 07 a1 23 31  |00:T$.X$...N..#1|
000016d0  2c 58 24 3a 8d 32 33 33  30 3a 58 b2 c6 28 58 24  |,X$:.2330:X..(X$|
000016e0  29 3a 8d 32 32 30 30 3a  53 24 b2 58 24 00 1a 1f  |):.2200:S$.X$...|
000016f0  58 07 46 24 b2 22 22 3a  81 4a b2 31 a4 31 36 3a  |X.F$."":.J.1.16:|
00001700  a1 23 31 2c 58 24 3a 8d  32 32 39 30 3a 46 24 b2  |.#1,X$:.2290:F$.|
00001710  46 24 aa 58 24 3a 82 4a  00 38 1f 62 07 8b 20 c8  |F$.X$:.J.8.b.. .|
00001720  28 46 24 2c c3 28 42 46  24 29 29 b2 42 46 24 20  |(F$,.(BF$)).BF$ |
00001730  a7 20 31 39 33 30 00 4a  1f 6c 07 8b 49 b2 38 af  |. 1930.J.l..I.8.|
00001740  54 b1 30 a7 31 38 30 30  00 54 1f 76 07 89 31 38  |T.0.1800.T.v..18|
00001750  32 30 00 65 1f 80 07 8b  20 54 b2 30 20 a7 20 32  |20.e.... T.0 . 2|
00001760  31 32 30 00 9c 1f 8a 07  99 22 93 12 d4 52 41 43  |120......"...RAC|
00001770  45 20 4f 46 92 20 22 3b  42 46 24 3b 22 20 46 49  |E OF. ";BF$;" FI|
00001780  4c 45 20 54 59 50 45 20  22 3b 59 24 3a 99 3a 46  |LE TYPE ";Y$:.:F|
00001790  54 24 b2 59 24 3a 4e 4f  b2 30 00 ca 1f 94 07 8b  |T$.Y$:NO.0......|
000017a0  20 46 54 24 b2 22 44 45  4c 22 20 a7 20 99 22 d2  | FT$."DEL" . .".|
000017b0  45 43 4f 56 45 52 20 46  49 4c 45 20 28 d9 2f ce  |ECOVER FILE (./.|
000017c0  29 22 3a 8d 32 33 36 30  00 e5 1f 9e 07 98 31 35  |)":.2360......15|
000017d0  2c 22 42 2d 50 22 3b 32  3b 28 49 ab 31 29 ac 33  |,"B-P";2;(I.1).3|
000017e0  32 aa 33 00 13 20 a8 07  a1 23 31 2c 58 24 3a 8d  |2.3.. ...#1,X$:.|
000017f0  32 33 33 30 3a 54 b2 c6  28 58 24 29 3a a1 23 31  |2330:T..(X$):.#1|
00001800  2c 58 24 3a 8d 32 33 33  30 3a 53 b2 c6 28 58 24  |,X$:.2330:S..(X$|
00001810  29 00 37 20 b2 07 58 b2  54 3a 8d 32 32 30 30 3a  |).7 ..X.T:.2200:|
00001820  54 24 b2 58 24 3a 58 b2  53 3a 8d 32 32 30 30 3a  |T$.X$:X.S:.2200:|
00001830  53 24 b2 58 24 00 56 20  bc 07 99 22 d4 52 41 43  |S$.X$.V ...".RAC|
00001840  4b 20 22 3b 54 24 3b 22  20 d3 45 43 54 4f 52 20  |K ";T$;" .ECTOR |
00001850  22 3b 53 24 00 6b 20 c6  07 8b 20 59 24 b3 b1 22  |";S$.k ... Y$.."|
00001860  59 22 20 a7 20 32 30 33  30 00 93 20 d0 07 98 31  |Y" . 2030.. ...1|
00001870  35 2c 22 42 2d 41 22 3b  30 3b 54 3b 53 3a 84 31  |5,"B-A";0;T;S:.1|
00001880  35 2c 45 3a 8b 45 b3 b1  36 35 20 a7 20 32 30 33  |5,E:.E..65 . 203|
00001890  30 00 bb 20 da 07 99 22  d2 45 43 4f 56 45 52 59  |0.. ...".ECOVERY|
000018a0  20 4e 4f 54 20 50 4f 53  53 49 42 4c 45 2c 20 42  | NOT POSSIBLE, B|
000018b0  45 43 41 55 53 45 20 41  22 00 e0 20 e4 07 99 22  |ECAUSE A".. ..."|
000018c0  46 52 45 45 20 42 4c 4f  43 4b 20 49 53 20 41 4c  |FREE BLOCK IS AL|
000018d0  4c 4f 43 41 54 45 44 2e  22 3a 4e 4f b2 31 00 f5  |LOCATED.":NO.1..|
000018e0  20 ee 07 98 31 35 2c 22  55 31 22 3b 32 3b 30 3b  | ...15,"U1";2;0;|
000018f0  54 3b 53 00 23 21 f8 07  a1 23 31 2c 58 24 3a 8d  |T;S.#!...#1,X$:.|
00001900  32 33 33 30 3a 54 b2 c6  28 58 24 29 3a a1 23 31  |2330:T..(X$):.#1|
00001910  2c 58 24 3a 8d 32 33 33  30 3a 53 b2 c6 28 58 24  |,X$:.2330:S..(X$|
00001920  29 00 34 21 02 08 8b 20  54 b2 30 20 a7 20 32 30  |).4!... T.0 . 20|
00001930  37 30 00 3f 21 0c 08 89  20 31 39 37 30 00 66 21  |70.?!... 1970.f!|
00001940  16 08 8b 20 46 54 24 b2  22 44 45 4c 22 20 af 20  |... FT$."DEL" . |
00001950  59 24 b2 22 59 22 20 af  20 4e 4f b2 30 20 a7 20  |Y$."Y" . NO.0 . |
00001960  32 30 39 30 00 71 21 20  08 89 20 32 31 31 30 00  |2090.q! .. 2110.|
00001970  9a 21 2a 08 99 22 d2 45  43 4f 56 45 52 59 20 cf  |.!*..".ECOVERY .|
00001980  4b 41 59 2e 20 d2 45 4d  45 4d 42 45 52 20 54 4f  |KAY. .EMEMBER TO|
00001990  20 43 48 41 4e 47 45 22  00 c1 21 34 08 99 22 44  | CHANGE"..!4.."D|
000019a0  49 52 45 43 54 4f 52 59  2c 20 54 52 41 43 4b 2c  |IRECTORY, TRACK,|
000019b0  20 41 4e 44 20 46 49 4c  45 20 54 59 50 45 22 00  | AND FILE TYPE".|
000019c0  cc 21 3e 08 8d 20 32 33  36 30 00 db 21 48 08 a0  |.!>.. 2360..!H..|
000019d0  20 31 3a a0 20 31 35 3a  8e 00 e8 21 52 08 8f 20  | 1:. 15:...!R.. |
000019e0  42 41 43 4b 55 50 00 fd  21 5c 08 99 3a 99 22 c2  |BACKUP..!\..:.".|
000019f0  c1 c3 cb d5 d0 20 c6 c9  cc c5 22 00 2c 22 66 08  |..... ....".,"f.|
00001a00  99 3a 99 22 d4 4f 20 41  4c 4c 4f 57 20 4c 41 52  |.:.".O ALLOW LAR|
00001a10  47 45 52 20 46 49 4c 45  53 20 54 4f 20 42 45 20  |GER FILES TO BE |
00001a20  42 41 43 4b 45 44 20 55  50 22 00 59 22 70 08 99  |BACKED UP".Y"p..|
00001a30  22 4f 4e 20 42 4f 54 48  20 44 49 53 43 20 41 4e  |"ON BOTH DISC AN|
00001a40  44 20 43 41 53 53 45 54  54 45 2c 20 54 48 45 52  |D CASSETTE, THER|
00001a50  45 20 49 53 20 41 22 00  83 22 7a 08 99 22 53 45  |E IS A".."z.."SE|
00001a60  50 45 52 41 54 45 20 55  54 49 4c 49 54 59 20 4f  |PERATE UTILITY O|
00001a70  4e 20 54 48 45 20 44 49  53 43 2e 20 cc 4f 41 44  |N THE DISC. .OAD|
00001a80  22 00 b3 22 84 08 99 22  42 41 43 4b 55 50 2d 4d  |".."..."BACKUP-M|
00001a90  43 2c 20 41 4e 44 20 52  55 4e 20 49 54 2e 20 54  |C, AND RUN IT. T|
00001aa0  48 45 4e 20 4c 4f 41 44  20 42 41 43 4b 55 50 2e  |HEN LOAD BACKUP.|
00001ab0  22 00 bf 22 8e 08 8d 32  33 36 30 3a 8e 00 db 22  |".."...2360:..."|
00001ac0  98 08 8f 20 44 45 43 49  4d 41 4c 20 2d 20 48 45  |... DECIMAL - HE|
00001ad0  58 49 44 45 43 49 4d 41  4c 00 fe 22 a2 08 58 b2  |XIDECIMAL.."..X.|
00001ae0  58 20 af 20 32 35 35 3a  58 31 b2 b5 28 58 ad 31  |X . 255:X1..(X.1|
00001af0  36 29 3a 58 32 b2 58 20  af 20 31 35 00 25 23 ac  |6):X2.X . 15.%#.|
00001b00  08 58 31 24 b2 c7 28 34  38 aa 58 31 29 3a 8b 20  |.X1$..(48.X1):. |
00001b10  58 31 b1 39 20 a7 20 58  31 24 b2 c7 28 35 35 aa  |X1.9 . X1$..(55.|
00001b20  58 31 29 00 4c 23 b6 08  58 32 24 b2 c7 28 34 38  |X1).L#..X2$..(48|
00001b30  aa 58 32 29 3a 8b 20 58  32 b1 39 20 a7 20 58 32  |.X2):. X2.9 . X2|
00001b40  24 b2 c7 28 35 35 aa 58  32 29 00 5d 23 c0 08 58  |$..(55.X2).]#..X|
00001b50  24 b2 58 31 24 aa 58 32  24 3a 8e 00 79 23 ca 08  |$.X1$.X2$:..y#..|
00001b60  8f 20 48 45 58 49 44 45  43 49 4d 41 4c 20 2d 20  |. HEXIDECIMAL - |
00001b70  44 45 43 49 4d 41 4c 00  8d 23 d4 08 58 24 b2 c9  |DECIMAL..#..X$..|
00001b80  28 22 30 30 22 aa 58 24  2c 32 29 00 ae 23 de 08  |("00".X$,2)..#..|
00001b90  58 31 b2 c6 28 58 24 29  ab 34 38 3a 58 32 b2 c6  |X1..(X$).48:X2..|
00001ba0  28 ca 28 58 24 2c 32 29  29 ab 34 38 00 d3 23 e8  |(.(X$,2)).48..#.|
00001bb0  08 58 b2 31 36 ac 28 58  31 aa 37 ac 28 58 31 b1  |.X.16.(X1.7.(X1.|
00001bc0  39 29 29 aa 58 32 aa 37  ac 28 58 32 b1 39 29 3a  |9)).X2.7.(X2.9):|
00001bd0  8e 00 ea 23 f2 08 8f 20  43 4f 4e 56 45 52 54 20  |...#... CONVERT |
00001be0  54 4f 20 41 53 43 49 49  00 01 24 fc 08 8b 20 58  |TO ASCII..$... X|
00001bf0  24 b2 c7 28 31 36 30 29  20 a7 20 32 33 32 30 00  |$..(160) . 2320.|
00001c00  20 24 06 09 8b 20 58 24  b3 22 20 22 20 b0 20 58  | $... X$." " . X|
00001c10  24 b1 22 5a 22 20 a7 20  58 24 b2 22 2e 22 00 26  |$."Z" . X$.".".&|
00001c20  24 10 09 8e 00 42 24 1a  09 8f 20 45 4c 49 4d 49  |$....B$... ELIMI|
00001c30  4e 41 54 45 20 4e 55 4c  4c 20 53 54 52 49 4e 47  |NATE NULL STRING|
00001c40  00 58 24 24 09 8b 20 58  24 b2 22 22 20 a7 20 58  |.X$$.. X$."" . X|
00001c50  24 b2 c7 28 30 29 00 5e  24 2e 09 8e 00 69 24 38  |$..(0).^$....i$8|
00001c60  09 8f 20 57 41 49 54 00  80 24 42 09 a1 20 59 24  |.. WAIT..$B.. Y$|
00001c70  3a 8b 59 24 b2 22 22 20  a7 20 32 33 37 30 00 86  |:.Y$."" . 2370..|
00001c80  24 4c 09 8e 00 9f 24 56  09 8f 20 45 52 52 4f 52  |$L....$V.. ERROR|
00001c90  20 4f 4e 20 42 2d 41 20  43 48 45 43 4b 00 d1 24  | ON B-A CHECK..$|
00001ca0  60 09 84 31 35 2c 45 4e  24 2c 45 4d 24 2c 45 54  |`..15,EN$,EM$,ET|
00001cb0  24 2c 45 53 24 3a 8b 20  45 4e 24 b3 22 32 30 22  |$,ES$:. EN$."20"|
00001cc0  20 b0 20 45 4e 24 b2 22  36 35 22 20 a7 20 8e 00  | . EN$."65" . ..|
00001cd0  f5 24 6a 09 a0 20 31 35  3a 99 3a 99 45 4e 24 2c  |.$j.. 15:.:.EN$,|
00001ce0  45 4d 24 2c 45 54 24 2c  45 53 24 3a 8d 32 33 36  |EM$,ET$,ES$:.236|
00001cf0  30 3a 8a 00 00 00                                 |0:....|
00001cf6

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .