Home » Personal collection » Commodore disks » disk46a_green.d64 » backup
backup
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: | backup |
| Read OK: | ✔ |
| File size: | 0B63 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
100 POKE52,24:POKE56,24:CLR
110 PRINT"<clr>BACKUP UTILITY":PRINT"<cursor down>FROM (T/D)";:GOSUB650:F$=Y$
120 PRINT"<cursor down> TO (T/D)";:GOSUB650:T$=Y$
130 PRINT"<cursor down>DIRECTORY (T/D/?)":GOSUB630:IF Y$="D"THENGOSUB800:GOTO130
140 IF Y$="T" THEN GOSUB690:GOTO130
150 PRINT"<cursor down>TYPE P/S";:GOSUB630:IF Y$<>"P" AND Y$<>"S" THEN 150
160 FT$=Y$:PRINT " ";FT$
170 IF F$="D" AND T$="T" AND FT$="S" THEN GOSUB250:RUN
180 IF F$="T" AND T$="D" AND FT$="S" THEN GOSUB290:RUN
190 IF F$="D" AND T$="D" AND FT$="S" THEN GOSUB510:RUN
195 IF F$="T" AND T$="T" AND FT$="S" THEN GOSUB370:RUN
200 IF F$="D" AND T$="D" AND FT$="P" THEN GOSUB940:RUN
210 IF F$="D" AND T$="T" AND FT$="P" THEN GOSUB1010:RUN
220 IF F$="T" AND T$="T" AND FT$="P" THEN GOSUB1060:RUN
230 IF F$="T" AND T$="D" AND FT$="P" THEN GOSUB1100:RUN
240 RUN
250 GOSUB750:OPEN2,8,2,N$+",S,R":OPEN1,1,1,N$
260 GET#2,R$:IF ST THEN 280
270 PRINT#1,Y$;:GOTO260
280 CLOSE 2:CLOSE 1:RETURN
290 OPEN1,1,0:GOSUB700:IF E=1 THEN GOSUB 750:GOTO 310
300 GOSUB760
310 PRINT"<cursor down>FILENAME ";CHR$(34);N$;CHR$(34);" OK (Y/N)":GOSUB630
320 IF Y$="N" THEN GOSUB 750
330 OPEN 3,8,3,"@0:"+N$+",S,W"
340 GET#1,Y$:IF ST THEN 360
350 PRINT#3,Y$;:GOTO 340
360 CLOSE 1:CLOSE 3:RETURN
370 Y=6144:OPEN 1,1,0:GOSUB700:IF E=1 THEN GOSUB750:GOTO390
380 GOSUB760
390 PRINT"<cursor down>FILENAME ";CHR$(34);N$;CHR$(34);" OK (Y/N)":GOSUB630
400 IF Y$="N" THEN GOSUB 750
410 GET#1,Y$:IF ST THEN 460
420 IF Y$="" THEN Y$=CHR$(0)
430 POKEY,ASC(Y$)
440 IF Y<40959 THEN Y=Y+1:GOTO410
450 PRINT"<cursor down>FILE TOO BIG. ONLY 34K COPIED."
460 CLOSE 1
470 GOSUB 490
480 OPEN 1,1,1,N$:FORI=6144 TO Y:PRINT#1,CHR$(PEEK(I));:NEXTI:CLOSE1:RETURN
490 PRINT"<cursor down>DESTINATION TAPE Y":GOSUB630:IFY$<>"Y"THEN490
500 RETURN
510 GOSUB750:OPEN2,8,2,N$+",S,R":Y=6144
520 GET#2,Y$:IF ST THEN 570
530 IF Y$="" THEN Y$=CHR$(0)
540 POKEY,ASC(Y$)
550 IF Y<40959 THEN Y=Y+1:GOTO520
560 PRINT"<cursor down>FILE TOO BIG. ONLY 34K COPIED"
570 CLOSE 2
580 GOSUB 610
590 OPEN 3,8,3,"@0:"+N$+",S,W":FORI=6144 TO Y:PRINT#3,CHR$(PEEK(I));:NEXTI
600 CLOSE3:RETURN
610 PRINT"<cursor down>DESTINATION DISC Y":GOSUB630:IFY$<>"Y" THEN 610
620 RETURN
630 GETY$:IF Y$="" THEN 630
640 RETURN
650 GOSUB630:IF Y$="T" THEN PRINT" TAPE":GOTO 680
660 IF Y$="D" THEN PRINT" DISC":GOTO680
670 GOTO 650
680 RETURN
690 PRINT"<cursor down>":OPEN1:CLOSE1:GOSUB700:PRINT"<cursor down><reverse on>REWIND TAPE<rev off>":RETURN
700 PRINT"TYPE FILENAME";SPC(10);"BUFFER START":I=PEEK(828):E=0
710 Y$=" PRG ":IF Y=4 THEN Y$=" SEQ "
720 PRINTY$;"<reverse on>";:FORI=833TO1019:X=PEEK(I):IF X<32 OR X>95 THEN X=63:E=1
730 PRINTCHR$(X);:IF I=849 THEN PRINT"<rev off><";
740 NEXTI:PRINT"><reverse on>END<rev off>":RETURN
750 INPUT"<cursor down>FILENAME";N$:N$=LEFT$(N$,16):RETURN
760 N$="":FORI=848TO833STEP-1:X=PEEK(I)
770 IF X=32 AND N$="" THEN 790
780 N$=CHR$(X)+N$
790 NEXTI:RETURN
800 PRINT"<clr>";:OPEN1,8,0,"$0":GET#1,Y$,Y$
810 I=0:GET#1,Y$,Y$,Y$,X$:IF Y$<>"" THEN I=ASC(Y$)
820 IF X$<>"" THEN I=I+ASC(X$)*256
830 PRINTRIGHT$(" "+STR$(I),3;" ";:I=0
840 GET#1,Y$:IF ST THEN 930
850 IF Y$=CHR$(34) THEN I=I+1:PRINT CHR$(34);:GOTO840
860 IF I=0 THEN 840
870 IF I=1 THEN PRINTY$;:GOTO840
880 IF I=2 THEN PRINTTAB(22);:I=I+1
890 IF I=3 AND Y$=" " THEN 840
900 IF Y$<>"" THEN PRINT Y$;:GOTO 840
910 PRINT:GET Y$:IF Y$<>"" THEN GOSUB 630
920 IF ST=0 THEN 810
930 PRINT "BLOCKS FREE":CLOSE 1:GOSUB630:RETURN
940 GOSUB 750:FORI=1 TO LEN(N$):POKE832+I,ASC(MID$(N$,I,1)):NEXTI
950 FORI=833+LEN(N$)TO1019:POKEI,32:NEXTI
960 POKE183,LEN(N$):SYS49244
970 PRINT"<cursor down><reverse on>FILE WILL BE DELETED<rev off>":GOSUB610
980 OPEN15,8,15,"S0:"+N$:CLOSE15
990 POKE183,LEN(N$):SYS49343
1000 RETURN
1010 GOSUB750:FORI=1 TO LEN(N$):POKE832+I,ASC(MID$(N$,I,1)):NEXTI
1020 FORI=833+LEN(N$) TO 1019:POKEI,32:NEXTI
1030 POKE183,LEN(N$):SYS 49244
1040 SYS 49203
1050 RETURN
1060 SYS 49152
1070 GOSUB 490
1080 SYS 49203
1090 RETURN
1100 SYS 49152
1110 GOSUB 700:IF E=1 THEN GOSUB750:GOTO1130
1120 GOSUB760
1130 PRINT"<cursor down>FILENAME ";CHR$(34);N$;CHR$(34);" OK (Y/N)":GOSUB630
1140 IF Y$="N" THEN GOSUB 750
1150 PRINT"<cursor down><reverse on>FILE WILL BE DELETED<rev off>":GOSUB610
1160 OPEN 15,8,15,"S0:"+N$
1170 POKE 183,LEN(N$):SYS 49343
1180 RETURN
d �52,24:�56,24:� Gn �"�BACKUP UTILITY":�"FROM (T/D)";:�650:F$�Y$ fx �" TO (T/D)";:�650:T$�Y$ �� �"DIRECTORY (T/D/?)":�630:� Y$�"D"��800:�130 �� � Y$�"T" � �690:�130 �� �"TYPE P/S";:�630:� Y$��"P" � Y$��"S" � 150 �� FT$�Y$:� " ";FT$ � � F$�"D" � T$�"T" � FT$�"S" � �250:� I � � F$�"T" � T$�"D" � FT$�"S" � �290:� r � � F$�"D" � T$�"D" � FT$�"S" � �510:� � � � F$�"T" � T$�"T" � FT$�"S" � �370:� � � � F$�"D" � T$�"D" � FT$�"P" � �940:� � � � F$�"D" � T$�"T" � FT$�"P" � �1010:�
� � F$�"T" � T$�"T" � FT$�"P" � �1060:� B
� � F$�"T" � T$�"D" � FT$�"P" � �1100:� H
� � l
� �750:�2,8,2,N$�",S,R":�1,1,1,N$ �
�#2,R$:� ST � 280 �
�1,Y$;:�260 �
� 2:� 1:� �
"�1,1,0:�700:� E�1 � � 750:� 310 �
,�760 �
6�"FILENAME ";�(34);N$;�(34);" OK (Y/N)":�630 @� Y$�"N" � � 750 0 J� 3,8,3,"@0:"�N$�",S,W" F T�#1,Y$:� ST � 360 W ^�3,Y$;:� 340 e h� 1:� 3:� � rY�6144:� 1,1,0:�700:� E�1 � �750:�390 � |�760 � ��"FILENAME ";�(34);N$;�(34);" OK (Y/N)":�630 � �� Y$�"N" � � 750 � ��#1,Y$:� ST � 460 �� Y$�"" � Y$��(0) ��Y,�(Y$) 3 �� Y�40959 � Y�Y�1:�410 Z ��"FILE TOO BIG. ONLY 34K COPIED." b �� 1 l �� 490 � �� 1,1,1,N$:�I�6144 � Y:�1,�(�(I));:�I:�1:� � ��"DESTINATION TAPE Y":�630:�Y$��"Y"�490 � �� � ��750:�2,8,2,N$�",S,R":Y�6144
�#2,Y$:� ST � 570
� Y$�"" � Y$��(0) (
�Y,�(Y$) C
&� Y�40959 � Y�Y�1:�520 i
0�"FILE TOO BIG. ONLY 34K COPIED" q
:� 2 {
D� 610 �
N� 3,8,3,"@0:"�N$�",S,W":�I�6144 � Y:�3,�(�(I));:�I �
X�3:� �
b�"DESTINATION DISC Y":�630:�Y$��"Y" � 610 �
l� v�Y$:� Y$�"" � 630 �� /��630:� Y$�"T" � �" TAPE":� 680 L�� Y$�"D" � �" DISC":�680 V�� 650 \�� ���"":�1:�1:�700:�"REWIND TAPE�":� ���"TYPE FILENAME";�10);"BUFFER START":I��(828):E�0 ��Y$�" PRG ":� Y�4 � Y$�" SEQ " ��Y$;"";:�I�833�1019:X��(I):� X�32 � X�95 � X�63:E�1 1���(X);:� I�849 � �"�<"; D��I:�">END�":� f��"FILENAME";N$:N$��(N$,16):� ��N$�"":�I�848�833��1:X��(I) �� X�32 � N$�"" � 790 � N$��(X)�N$ ��I:� � �"�";:�1,8,0,"$0":�#1,Y$,Y$ *I�0:�#1,Y$,Y$,Y$,X$:� Y$��"" � I��(Y$) 4� X$��"" � I�I��(X$)�256 :>��(" "��(I),3;" ";:I�0 PH�#1,Y$:� ST � 930 uR� Y$��(34) � I�I�1:� �(34);:�840 �\� I�0 � 840 �f� I�1 � �Y$;:�840 �p� I�2 � ��22);:I�I�1 �z� I�3 � Y$�" " � 840 ��� Y$��"" � � Y$;:� 840 ��:� Y$:� Y$��"" � � 630 �� ST�0 � 810 4�� "BLOCKS FREE":� 1:�630:� b�� 750:�I�1 � �(N$):�832�I,�(�(N$,I,1)):�I ���I�833��(N$)�1019:�I,32:�I ���183,�(N$):�49244 ���"FILE WILL BE DELETED�":�610 ���15,8,15,"S0:"�N$:�15 ���183,�(N$):�49343 ��� ��750:�I�1 � �(N$):�832�I,�(�(N$,I,1)):�I ?��I�833��(N$) � 1019:�I,32:�I V�183,�(N$):� 49244 b� 49203 h� t$� 49152 ~.� 490 �8� 49203 �B� �L� 49152 �V� 700:� E�1 � �750:�1130 �`�760 �j�"FILENAME ";�(34);N$;�(34);" OK (Y/N)":�630 t� Y$�"N" � � 750 -~�"FILE WILL BE DELETED�":�610 D�� 15,8,15,"S0:"�N$ \�� 183,�(N$):� 49343 b�� UHD@.52,24:.56,24:.@gHN@.".backup utility":."Qfrom (t/d)";:.650:f$.y$@FHX@."Q to (t/d)";:.650:t$.y$@.H.@."Qdirectory (t/d/?)":.630:. y$."d"..800:.130@.H.@. y$."t" . .690:.130@.H.@."Qtype p/s";:.630:. y$.."p" . y$.."s" . 150@.H.@ft$.y$:. " ";ft$@ I.@. f$."d" . t$."t" . ft$."s" . .250:.@iI.@. f$."t" . t$."d" . ft$."s" . .290:.@RI.@. f$."d" . t$."d" . ft$."s" . .510:.@.I.@. f$."t" . t$."t" . ft$."s" . .370:.@.I.@. f$."d" . t$."d" . ft$."p" . .940:.@.I.@. f$."d" . t$."t" . ft$."p" . .1010:.@XJ.@. f$."t" . t$."t" . ft$."p" . .1060:.@bJ.@. f$."t" . t$."d" . ft$."p" . .1100:.@hJ.@.@LJ.@.750:.2,8,2,n$.",s,r":.1,1,1,n$@.JDA.#2,r$:. st . 280@.JNA.1,y$;:.260@.JXA. 2:. 1:.@.J"A.1,1,0:.700:. e.1 . . 750:. 310@.J,A.760@.J6A."Qfilename ";.(34);n$;.(34);" ok (y/n)":.630@TK@A. y$."n" . . 750@0KjA. 3,8,3,"@0:".n$.",s,w"@fKtA.#1,y$:. st . 360@wK.A.3,y$;:. 340@EKHA. 1:. 3:.@.KRAy.6144:. 1,1,0:.700:. e.1 . .750:.390@.K.A.760@.K.A."Qfilename ";.(34);n$;.(34);" ok (y/n)":.630@.K.A. y$."n" . . 750@.K.A.#1,y$:. st . 460@KL.A. y$."" . y$..(0)@XL.A.y,.(y$)@3L.A. y.40959 . y.y.1:.410@zL.A."Qfile too big. only 34k copied."@BL.A. 1@LL.A. 490@.L.A. 1,1,1,n$:.i.6144 . y:.1,.(.(i));:.i:.1:.@.L.A."Qdestination tape y":.630:.y$.."y".490@.L.A.@.L.A.750:.2,8,2,n$.",s,r":y.6144@EMHB.#2,y$:. st . 570@[MRB. y$."" . y$..(0)@(M£B.y,.(y$)@cM&B. y.40959 . y.y.1:.520@IM0B."Qfile too big. only 34k copied"@QM:B. 2@.MdB. 610@.MnB. 3,8,3,"@0:".n$.",s,w":.i.6144 . y:.3,.(.(i));:.i@.MxB.3:.@.MBB."Qdestination disc y":.630:.y$.."y" . 610@.MLB.@FNVB.y$:. y$."" . 630@LN.B.@/N.B.630:. y$."t" . ." tape":. 680@lN.B. y$."d" . ." disc":.680@vN.B. 650@£N.B.@.N.B."Q":.1:.1:.700:."QRrewind tape.":.@.N.B."type filename";.10);"buffer start":i..(828):e.0@.N.By$." prg ":. y.4 . y$." seq "@UO.B.y$;"R";:.i.833.1019:x..(i):. x.32 . x.95 . x.63:e.1@1O.B..(x);:. i.849 . .".<";@dO.B.i:.">Rend.":.@FO.B."Qfilename";n$:n$..(n$,16):.@.O.Bn$."":.i.848.833..1:x..(i)@.OBC. x.32 . n$."" . 790@.OLCn$..(x).n$@.OVC.i:.@.O C.".";:.1,8,0,"$0":.#1,y$,y$@AP*Ci.0:.#1,y$,y$,y$,x$:. y$.."" . i..(y$)@.P4C. x$.."" . i.i..(x$).256@:P>C..(" "..(i),3;" ";:i.0@pPhC.#1,y$:. st . 930@UPrC. y$..(34) . i.i.1:. .(34);:.840@.P£C. i.0 . 840@.PFC. i.1 . .y$;:.840@.PPC. i.2 . ..22);:i.i.1@.PZC. i.3 . y$." " . 840@.P.C. y$.."" . . y$;:. 840@DQ.C.:. y$:. y$.."" . . 630@UQ.C. st.0 . 810@4Q.C. "blocks free":. 1:.630:.@BQ.C. 750:.i.1 . .(n$):.832.i,.(.(n$,i,1)):.i@.Q.C.i.833..(n$).1019:.i,32:.i@.Q.C.183,.(n$):.49244@.Q.C."QRfile will be deleted.":.610@.Q.C.15,8,15,"s0:".n$:.15@.Q.C.183,.(n$):.49343@.Q.C.@.R.C.750:.i.1 . .(n$):.832.i,.(.(n$,i,1)):.i@?R.C.i.833..(n$) . 1019:.i,32:.i@vRFD.183,.(n$):. 49244@BRPD. 49203@HRZD.@TR$D. 49152@.R.D. 490@.R8D. 49203@.RbD.@.RlD. 49152@.RvD. 700:. e.1 . .750:.1130@.R.D.760@.RJD."Qfilename ";.(34);n$;.(34);" ok (y/n)":.630@ISTD. y$."n" . . 750@-S.D."QRfile will be deleted.":.610@dS.D. 15,8,15,"s0:".n$@£S.D. 183,.(n$):. 49343@BS.D.@@@ 00000000 15 08 64 00 97 35 32 2c 32 34 3a 97 35 36 2c 32 |..d..52,24:.56,2|
00000010 34 3a 9c 00 47 08 6e 00 99 22 93 42 41 43 4b 55 |4:..G.n..".BACKU|
00000020 50 20 55 54 49 4c 49 54 59 22 3a 99 22 11 46 52 |P UTILITY":.".FR|
00000030 4f 4d 20 28 54 2f 44 29 22 3b 3a 8d 36 35 30 3a |OM (T/D)";:.650:|
00000040 46 24 b2 59 24 00 66 08 78 00 99 22 11 20 20 54 |F$.Y$.f.x..". T|
00000050 4f 20 28 54 2f 44 29 22 3b 3a 8d 36 35 30 3a 54 |O (T/D)";:.650:T|
00000060 24 b2 59 24 00 98 08 82 00 99 22 11 44 49 52 45 |$.Y$......".DIRE|
00000070 43 54 4f 52 59 20 28 54 2f 44 2f 3f 29 22 3a 8d |CTORY (T/D/?)":.|
00000080 36 33 30 3a 8b 20 59 24 b2 22 44 22 a7 8d 38 30 |630:. Y$."D"..80|
00000090 30 3a 89 31 33 30 00 b1 08 8c 00 8b 20 59 24 b2 |0:.130...... Y$.|
000000a0 22 54 22 20 a7 20 8d 36 39 30 3a 89 31 33 30 00 |"T" . .690:.130.|
000000b0 e2 08 96 00 99 22 11 54 59 50 45 20 50 2f 53 22 |.....".TYPE P/S"|
000000c0 3b 3a 8d 36 33 30 3a 8b 20 59 24 b3 b1 22 50 22 |;:.630:. Y$.."P"|
000000d0 20 af 20 59 24 b3 b1 22 53 22 20 a7 20 31 35 30 | . Y$.."S" . 150|
000000e0 00 f7 08 a0 00 46 54 24 b2 59 24 3a 99 20 22 20 |.....FT$.Y$:. " |
000000f0 22 3b 46 54 24 00 20 09 aa 00 8b 20 46 24 b2 22 |";FT$. .... F$."|
00000100 44 22 20 af 20 54 24 b2 22 54 22 20 af 20 46 54 |D" . T$."T" . FT|
00000110 24 b2 22 53 22 20 a7 20 8d 32 35 30 3a 8a 00 49 |$."S" . .250:..I|
00000120 09 b4 00 8b 20 46 24 b2 22 54 22 20 af 20 54 24 |.... F$."T" . T$|
00000130 b2 22 44 22 20 af 20 46 54 24 b2 22 53 22 20 a7 |."D" . FT$."S" .|
00000140 20 8d 32 39 30 3a 8a 00 72 09 be 00 8b 20 46 24 | .290:..r.... F$|
00000150 b2 22 44 22 20 af 20 54 24 b2 22 44 22 20 af 20 |."D" . T$."D" . |
00000160 46 54 24 b2 22 53 22 20 a7 20 8d 35 31 30 3a 8a |FT$."S" . .510:.|
00000170 00 9b 09 c3 00 8b 20 46 24 b2 22 54 22 20 af 20 |...... F$."T" . |
00000180 54 24 b2 22 54 22 20 af 20 46 54 24 b2 22 53 22 |T$."T" . FT$."S"|
00000190 20 a7 20 8d 33 37 30 3a 8a 00 c4 09 c8 00 8b 20 | . .370:....... |
000001a0 46 24 b2 22 44 22 20 af 20 54 24 b2 22 44 22 20 |F$."D" . T$."D" |
000001b0 af 20 46 54 24 b2 22 50 22 20 a7 20 8d 39 34 30 |. FT$."P" . .940|
000001c0 3a 8a 00 ee 09 d2 00 8b 20 46 24 b2 22 44 22 20 |:....... F$."D" |
000001d0 af 20 54 24 b2 22 54 22 20 af 20 46 54 24 b2 22 |. T$."T" . FT$."|
000001e0 50 22 20 a7 20 8d 31 30 31 30 3a 8a 00 18 0a dc |P" . .1010:.....|
000001f0 00 8b 20 46 24 b2 22 54 22 20 af 20 54 24 b2 22 |.. F$."T" . T$."|
00000200 54 22 20 af 20 46 54 24 b2 22 50 22 20 a7 20 8d |T" . FT$."P" . .|
00000210 31 30 36 30 3a 8a 00 42 0a e6 00 8b 20 46 24 b2 |1060:..B.... F$.|
00000220 22 54 22 20 af 20 54 24 b2 22 44 22 20 af 20 46 |"T" . T$."D" . F|
00000230 54 24 b2 22 50 22 20 a7 20 8d 31 31 30 30 3a 8a |T$."P" . .1100:.|
00000240 00 48 0a f0 00 8a 00 6c 0a fa 00 8d 37 35 30 3a |.H.....l....750:|
00000250 9f 32 2c 38 2c 32 2c 4e 24 aa 22 2c 53 2c 52 22 |.2,8,2,N$.",S,R"|
00000260 3a 9f 31 2c 31 2c 31 2c 4e 24 00 82 0a 04 01 a1 |:.1,1,1,N$......|
00000270 23 32 2c 52 24 3a 8b 20 53 54 20 a7 20 32 38 30 |#2,R$:. ST . 280|
00000280 00 92 0a 0e 01 98 31 2c 59 24 3b 3a 89 32 36 30 |......1,Y$;:.260|
00000290 00 a0 0a 18 01 a0 20 32 3a a0 20 31 3a 8e 00 c4 |...... 2:. 1:...|
000002a0 0a 22 01 9f 31 2c 31 2c 30 3a 8d 37 30 30 3a 8b |."..1,1,0:.700:.|
000002b0 20 45 b2 31 20 a7 20 8d 20 37 35 30 3a 89 20 33 | E.1 . . 750:. 3|
000002c0 31 30 00 cd 0a 2c 01 8d 37 36 30 00 ff 0a 36 01 |10...,..760...6.|
000002d0 99 22 11 46 49 4c 45 4e 41 4d 45 20 22 3b c7 28 |.".FILENAME ";.(|
000002e0 33 34 29 3b 4e 24 3b c7 28 33 34 29 3b 22 20 4f |34);N$;.(34);" O|
000002f0 4b 20 28 59 2f 4e 29 22 3a 8d 36 33 30 00 14 0b |K (Y/N)":.630...|
00000300 40 01 8b 20 59 24 b2 22 4e 22 20 a7 20 8d 20 37 |@.. Y$."N" . . 7|
00000310 35 30 00 30 0b 4a 01 9f 20 33 2c 38 2c 33 2c 22 |50.0.J.. 3,8,3,"|
00000320 40 30 3a 22 aa 4e 24 aa 22 2c 53 2c 57 22 00 46 |@0:".N$.",S,W".F|
00000330 0b 54 01 a1 23 31 2c 59 24 3a 8b 20 53 54 20 a7 |.T..#1,Y$:. ST .|
00000340 20 33 36 30 00 57 0b 5e 01 98 33 2c 59 24 3b 3a | 360.W.^..3,Y$;:|
00000350 89 20 33 34 30 00 65 0b 68 01 a0 20 31 3a a0 20 |. 340.e.h.. 1:. |
00000360 33 3a 8e 00 8f 0b 72 01 59 b2 36 31 34 34 3a 9f |3:....r.Y.6144:.|
00000370 20 31 2c 31 2c 30 3a 8d 37 30 30 3a 8b 20 45 b2 | 1,1,0:.700:. E.|
00000380 31 20 a7 20 8d 37 35 30 3a 89 33 39 30 00 98 0b |1 . .750:.390...|
00000390 7c 01 8d 37 36 30 00 ca 0b 86 01 99 22 11 46 49 ||..760......".FI|
000003a0 4c 45 4e 41 4d 45 20 22 3b c7 28 33 34 29 3b 4e |LENAME ";.(34);N|
000003b0 24 3b c7 28 33 34 29 3b 22 20 4f 4b 20 28 59 2f |$;.(34);" OK (Y/|
000003c0 4e 29 22 3a 8d 36 33 30 00 df 0b 90 01 8b 20 59 |N)":.630...... Y|
000003d0 24 b2 22 4e 22 20 a7 20 8d 20 37 35 30 00 f5 0b |$."N" . . 750...|
000003e0 9a 01 a1 23 31 2c 59 24 3a 8b 20 53 54 20 a7 20 |...#1,Y$:. ST . |
000003f0 34 36 30 00 0b 0c a4 01 8b 20 59 24 b2 22 22 20 |460...... Y$."" |
00000400 a7 20 59 24 b2 c7 28 30 29 00 18 0c ae 01 97 59 |. Y$..(0)......Y|
00000410 2c c6 28 59 24 29 00 33 0c b8 01 8b 20 59 b3 34 |,.(Y$).3.... Y.4|
00000420 30 39 35 39 20 a7 20 59 b2 59 aa 31 3a 89 34 31 |0959 . Y.Y.1:.41|
00000430 30 00 5a 0c c2 01 99 22 11 46 49 4c 45 20 54 4f |0.Z....".FILE TO|
00000440 4f 20 42 49 47 2e 20 4f 4e 4c 59 20 33 34 4b 20 |O BIG. ONLY 34K |
00000450 43 4f 50 49 45 44 2e 22 00 62 0c cc 01 a0 20 31 |COPIED.".b.... 1|
00000460 00 6c 0c d6 01 8d 20 34 39 30 00 9b 0c e0 01 9f |.l.... 490......|
00000470 20 31 2c 31 2c 31 2c 4e 24 3a 81 49 b2 36 31 34 | 1,1,1,N$:.I.614|
00000480 34 20 a4 20 59 3a 98 31 2c c7 28 c2 28 49 29 29 |4 . Y:.1,.(.(I))|
00000490 3b 3a 82 49 3a a0 31 3a 8e 00 c8 0c ea 01 99 22 |;:.I:.1:......."|
000004a0 11 44 45 53 54 49 4e 41 54 49 4f 4e 20 54 41 50 |.DESTINATION TAP|
000004b0 45 20 59 22 3a 8d 36 33 30 3a 8b 59 24 b3 b1 22 |E Y":.630:.Y$.."|
000004c0 59 22 a7 34 39 30 00 ce 0c f4 01 8e 00 ef 0c fe |Y".490..........|
000004d0 01 8d 37 35 30 3a 9f 32 2c 38 2c 32 2c 4e 24 aa |..750:.2,8,2,N$.|
000004e0 22 2c 53 2c 52 22 3a 59 b2 36 31 34 34 00 05 0d |",S,R":Y.6144...|
000004f0 08 02 a1 23 32 2c 59 24 3a 8b 20 53 54 20 a7 20 |...#2,Y$:. ST . |
00000500 35 37 30 00 1b 0d 12 02 8b 20 59 24 b2 22 22 20 |570...... Y$."" |
00000510 a7 20 59 24 b2 c7 28 30 29 00 28 0d 1c 02 97 59 |. Y$..(0).(....Y|
00000520 2c c6 28 59 24 29 00 43 0d 26 02 8b 20 59 b3 34 |,.(Y$).C.&.. Y.4|
00000530 30 39 35 39 20 a7 20 59 b2 59 aa 31 3a 89 35 32 |0959 . Y.Y.1:.52|
00000540 30 00 69 0d 30 02 99 22 11 46 49 4c 45 20 54 4f |0.i.0..".FILE TO|
00000550 4f 20 42 49 47 2e 20 4f 4e 4c 59 20 33 34 4b 20 |O BIG. ONLY 34K |
00000560 43 4f 50 49 45 44 22 00 71 0d 3a 02 a0 20 32 00 |COPIED".q.:.. 2.|
00000570 7b 0d 44 02 8d 20 36 31 30 00 b2 0d 4e 02 9f 20 |{.D.. 610...N.. |
00000580 33 2c 38 2c 33 2c 22 40 30 3a 22 aa 4e 24 aa 22 |3,8,3,"@0:".N$."|
00000590 2c 53 2c 57 22 3a 81 49 b2 36 31 34 34 20 a4 20 |,S,W":.I.6144 . |
000005a0 59 3a 98 33 2c c7 28 c2 28 49 29 29 3b 3a 82 49 |Y:.3,.(.(I));:.I|
000005b0 00 bb 0d 58 02 a0 33 3a 8e 00 ea 0d 62 02 99 22 |...X..3:....b.."|
000005c0 11 44 45 53 54 49 4e 41 54 49 4f 4e 20 44 49 53 |.DESTINATION DIS|
000005d0 43 20 59 22 3a 8d 36 33 30 3a 8b 59 24 b3 b1 22 |C Y":.630:.Y$.."|
000005e0 59 22 20 a7 20 36 31 30 00 f0 0d 6c 02 8e 00 06 |Y" . 610...l....|
000005f0 0e 76 02 a1 59 24 3a 8b 20 59 24 b2 22 22 20 a7 |.v..Y$:. Y$."" .|
00000600 20 36 33 30 00 0c 0e 80 02 8e 00 2f 0e 8a 02 8d | 630......./....|
00000610 36 33 30 3a 8b 20 59 24 b2 22 54 22 20 a7 20 99 |630:. Y$."T" . .|
00000620 22 20 54 41 50 45 22 3a 89 20 36 38 30 00 4c 0e |" TAPE":. 680.L.|
00000630 94 02 8b 20 59 24 b2 22 44 22 20 a7 20 99 22 20 |... Y$."D" . ." |
00000640 44 49 53 43 22 3a 89 36 38 30 00 56 0e 9e 02 89 |DISC":.680.V....|
00000650 20 36 35 30 00 5c 0e a8 02 8e 00 84 0e b2 02 99 | 650.\..........|
00000660 22 11 22 3a 9f 31 3a a0 31 3a 8d 37 30 30 3a 99 |".":.1:.1:.700:.|
00000670 22 11 12 52 45 57 49 4e 44 20 54 41 50 45 92 22 |"..REWIND TAPE."|
00000680 3a 8e 00 ba 0e bc 02 99 22 54 59 50 45 20 46 49 |:......."TYPE FI|
00000690 4c 45 4e 41 4d 45 22 3b a6 31 30 29 3b 22 42 55 |LENAME";.10);"BU|
000006a0 46 46 45 52 20 53 54 41 52 54 22 3a 49 b2 c2 28 |FFER START":I..(|
000006b0 38 32 38 29 3a 45 b2 30 00 dc 0e c6 02 59 24 b2 |828):E.0.....Y$.|
000006c0 22 20 50 52 47 20 22 3a 8b 20 59 b2 34 20 a7 20 |" PRG ":. Y.4 . |
000006d0 59 24 b2 22 20 53 45 51 20 22 00 15 0f d0 02 99 |Y$." SEQ "......|
000006e0 59 24 3b 22 12 22 3b 3a 81 49 b2 38 33 33 a4 31 |Y$;".";:.I.833.1|
000006f0 30 31 39 3a 58 b2 c2 28 49 29 3a 8b 20 58 b3 33 |019:X..(I):. X.3|
00000700 32 20 b0 20 58 b1 39 35 20 a7 20 58 b2 36 33 3a |2 . X.95 . X.63:|
00000710 45 b2 31 00 31 0f da 02 99 c7 28 58 29 3b 3a 8b |E.1.1.....(X);:.|
00000720 20 49 b2 38 34 39 20 a7 20 99 22 92 3c 22 3b 00 | I.849 . .".<";.|
00000730 44 0f e4 02 82 49 3a 99 22 3e 12 45 4e 44 92 22 |D....I:.">.END."|
00000740 3a 8e 00 66 0f ee 02 85 22 11 46 49 4c 45 4e 41 |:..f....".FILENA|
00000750 4d 45 22 3b 4e 24 3a 4e 24 b2 c8 28 4e 24 2c 31 |ME";N$:N$..(N$,1|
00000760 36 29 3a 8e 00 85 0f f8 02 4e 24 b2 22 22 3a 81 |6):......N$."":.|
00000770 49 b2 38 34 38 a4 38 33 33 a9 ab 31 3a 58 b2 c2 |I.848.833..1:X..|
00000780 28 49 29 00 9e 0f 02 03 8b 20 58 b2 33 32 20 af |(I)...... X.32 .|
00000790 20 4e 24 b2 22 22 20 a7 20 37 39 30 00 ad 0f 0c | N$."" . 790....|
000007a0 03 4e 24 b2 c7 28 58 29 aa 4e 24 00 b6 0f 16 03 |.N$..(X).N$.....|
000007b0 82 49 3a 8e 00 d6 0f 20 03 99 22 93 22 3b 3a 9f |.I:.... ..".";:.|
000007c0 31 2c 38 2c 30 2c 22 24 30 22 3a a1 23 31 2c 59 |1,8,0,"$0":.#1,Y|
000007d0 24 2c 59 24 00 01 10 2a 03 49 b2 30 3a a1 23 31 |$,Y$...*.I.0:.#1|
000007e0 2c 59 24 2c 59 24 2c 59 24 2c 58 24 3a 8b 20 59 |,Y$,Y$,Y$,X$:. Y|
000007f0 24 b3 b1 22 22 20 a7 20 49 b2 c6 28 59 24 29 00 |$.."" . I..(Y$).|
00000800 1e 10 34 03 8b 20 58 24 b3 b1 22 22 20 a7 20 49 |..4.. X$.."" . I|
00000810 b2 49 aa c6 28 58 24 29 ac 32 35 36 00 3a 10 3e |.I..(X$).256.:.>|
00000820 03 99 c9 28 22 20 20 22 aa c4 28 49 29 2c 33 3b |...(" "..(I),3;|
00000830 22 20 22 3b 3a 49 b2 30 00 50 10 48 03 a1 23 31 |" ";:I.0.P.H..#1|
00000840 2c 59 24 3a 8b 20 53 54 20 a7 20 39 33 30 00 75 |,Y$:. ST . 930.u|
00000850 10 52 03 8b 20 59 24 b2 c7 28 33 34 29 20 a7 20 |.R.. Y$..(34) . |
00000860 49 b2 49 aa 31 3a 99 20 c7 28 33 34 29 3b 3a 89 |I.I.1:. .(34);:.|
00000870 38 34 30 00 85 10 5c 03 8b 20 49 b2 30 20 a7 20 |840...\.. I.0 . |
00000880 38 34 30 00 9b 10 66 03 8b 20 49 b2 31 20 a7 20 |840...f.. I.1 . |
00000890 99 59 24 3b 3a 89 38 34 30 00 b4 10 70 03 8b 20 |.Y$;:.840...p.. |
000008a0 49 b2 32 20 a7 20 99 a3 32 32 29 3b 3a 49 b2 49 |I.2 . ..22);:I.I|
000008b0 aa 31 00 cd 10 7a 03 8b 20 49 b2 33 20 af 20 59 |.1...z.. I.3 . Y|
000008c0 24 b2 22 20 22 20 a7 20 38 34 30 00 e8 10 84 03 |$." " . 840.....|
000008d0 8b 20 59 24 b3 b1 22 22 20 a7 20 99 20 59 24 3b |. Y$.."" . . Y$;|
000008e0 3a 89 20 38 34 30 00 04 11 8e 03 99 3a a1 20 59 |:. 840......:. Y|
000008f0 24 3a 8b 20 59 24 b3 b1 22 22 20 a7 20 8d 20 36 |$:. Y$.."" . . 6|
00000900 33 30 00 15 11 98 03 8b 20 53 54 b2 30 20 a7 20 |30...... ST.0 . |
00000910 38 31 30 00 34 11 a2 03 99 20 22 42 4c 4f 43 4b |810.4.... "BLOCK|
00000920 53 20 46 52 45 45 22 3a a0 20 31 3a 8d 36 33 30 |S FREE":. 1:.630|
00000930 3a 8e 00 62 11 ac 03 8d 20 37 35 30 3a 81 49 b2 |:..b.... 750:.I.|
00000940 31 20 a4 20 c3 28 4e 24 29 3a 97 38 33 32 aa 49 |1 . .(N$):.832.I|
00000950 2c c6 28 ca 28 4e 24 2c 49 2c 31 29 29 3a 82 49 |,.(.(N$,I,1)):.I|
00000960 00 81 11 b6 03 81 49 b2 38 33 33 aa c3 28 4e 24 |......I.833..(N$|
00000970 29 a4 31 30 31 39 3a 97 49 2c 33 32 3a 82 49 00 |).1019:.I,32:.I.|
00000980 97 11 c0 03 97 31 38 33 2c c3 28 4e 24 29 3a 9e |.....183,.(N$):.|
00000990 34 39 32 34 34 00 bb 11 ca 03 99 22 11 12 46 49 |49244......"..FI|
000009a0 4c 45 20 57 49 4c 4c 20 42 45 20 44 45 4c 45 54 |LE WILL BE DELET|
000009b0 45 44 92 22 3a 8d 36 31 30 00 d5 11 d4 03 9f 31 |ED.":.610......1|
000009c0 35 2c 38 2c 31 35 2c 22 53 30 3a 22 aa 4e 24 3a |5,8,15,"S0:".N$:|
000009d0 a0 31 35 00 eb 11 de 03 97 31 38 33 2c c3 28 4e |.15......183,.(N|
000009e0 24 29 3a 9e 34 39 33 34 33 00 f1 11 e8 03 8e 00 |$):.49343.......|
000009f0 1e 12 f2 03 8d 37 35 30 3a 81 49 b2 31 20 a4 20 |.....750:.I.1 . |
00000a00 c3 28 4e 24 29 3a 97 38 33 32 aa 49 2c c6 28 ca |.(N$):.832.I,.(.|
00000a10 28 4e 24 2c 49 2c 31 29 29 3a 82 49 00 3f 12 fc |(N$,I,1)):.I.?..|
00000a20 03 81 49 b2 38 33 33 aa c3 28 4e 24 29 20 a4 20 |..I.833..(N$) . |
00000a30 31 30 31 39 3a 97 49 2c 33 32 3a 82 49 00 56 12 |1019:.I,32:.I.V.|
00000a40 06 04 97 31 38 33 2c c3 28 4e 24 29 3a 9e 20 34 |...183,.(N$):. 4|
00000a50 39 32 34 34 00 62 12 10 04 9e 20 34 39 32 30 33 |9244.b.... 49203|
00000a60 00 68 12 1a 04 8e 00 74 12 24 04 9e 20 34 39 31 |.h.....t.$.. 491|
00000a70 35 32 00 7e 12 2e 04 8d 20 34 39 30 00 8a 12 38 |52.~.... 490...8|
00000a80 04 9e 20 34 39 32 30 33 00 90 12 42 04 8e 00 9c |.. 49203...B....|
00000a90 12 4c 04 9e 20 34 39 31 35 32 00 b9 12 56 04 8d |.L.. 49152...V..|
00000aa0 20 37 30 30 3a 8b 20 45 b2 31 20 a7 20 8d 37 35 | 700:. E.1 . .75|
00000ab0 30 3a 89 31 31 33 30 00 c2 12 60 04 8d 37 36 30 |0:.1130...`..760|
00000ac0 00 f4 12 6a 04 99 22 11 46 49 4c 45 4e 41 4d 45 |...j..".FILENAME|
00000ad0 20 22 3b c7 28 33 34 29 3b 4e 24 3b c7 28 33 34 | ";.(34);N$;.(34|
00000ae0 29 3b 22 20 4f 4b 20 28 59 2f 4e 29 22 3a 8d 36 |);" OK (Y/N)":.6|
00000af0 33 30 00 09 13 74 04 8b 20 59 24 b2 22 4e 22 20 |30...t.. Y$."N" |
00000b00 a7 20 8d 20 37 35 30 00 2d 13 7e 04 99 22 11 12 |. . 750.-.~.."..|
00000b10 46 49 4c 45 20 57 49 4c 4c 20 42 45 20 44 45 4c |FILE WILL BE DEL|
00000b20 45 54 45 44 92 22 3a 8d 36 31 30 00 44 13 88 04 |ETED.":.610.D...|
00000b30 9f 20 31 35 2c 38 2c 31 35 2c 22 53 30 3a 22 aa |. 15,8,15,"S0:".|
00000b40 4e 24 00 5c 13 92 04 97 20 31 38 33 2c c3 28 4e |N$.\.... 183,.(N|
00000b50 24 29 3a 9e 20 34 39 33 34 33 00 62 13 9c 04 8e |$):. 49343.b....|
00000b60 00 00 00 |...|
00000b63 
.