DISK TO TAPE

00000000: 01 08 27 08 01 00 8F 54  52 41 4E 53 46 45 52 53  |..'....TRANSFERS|
00000010: 20 41 46 49 4C 45 20 46  52 4F 4D 20 41 20 44 49  | AFILE FROM A DI|
00000020: 53 4B 20 54 4F 20 41 00  49 08 02 00 8F 54 41 50  |SK TO A.I....TAP|
00000030: 45 20 46 49 4C 45 20 41  4E 44 20 42 41 43 4B 20  |E FILE AND BACK |
00000040: 54 4F 20 41 20 44 49 53  4B 00 6F 08 03 00 8F 47  |TO A DISK.o....G|
00000050: 49 56 45 53 20 41 20 44  49 53 4B 20 54 4F 20 44  |IVES A DISK TO D|
00000060: 49 53 4B 20 43 4F 50 59  20 4F 50 54 49 4F 4E 00  |ISK COPY OPTION.|
00000070: 8C 08 04 00 8F 57 49 54  48 20 41 20 53 49 4E 47  |.....WITH A SING|
00000080: 4C 45 20 44 49 53 4B 44  52 49 56 45 00 92 08 05  |LE DISKDRIVE....|
00000090: 00 8F 00 AC 08 06 00 8F  4F 57 4E 45 52 3A 20 53  |........OWNER: S|
000000A0: 2E 4B 2E 44 49 45 44 45  52 49 43 48 00 C6 08 07  |.K.DIEDERICH....|
000000B0: 00 8F 20 20 20 20 20 20  20 38 32 20 4A 41 43 4B  |..       82 JACK|
000000C0: 53 4F 4E 20 53 54 00 E2  08 08 00 8F 20 20 20 20  |SON ST......    |
000000D0: 20 20 20 48 41 4D 49 4C  54 4F 4E 2E 51 20 34 30  |   HAMILTON.Q 40|
000000E0: 30 37 00 02 09 09 00 99  22 53 45 54 20 55 50 20  |07......"SET UP |
000000F0: 43 41 53 53 45 54 54 45  20 41 4E 44 20 54 48 45  |CASSETTE AND THE|
00000100: 4E 22 00 21 09 0A 00 85  22 49 4E 50 55 54 20 44  |N".!...."INPUT D|
00000110: 49 53 4B 20 46 49 4C 45  20 4E 41 4D 45 22 3B 46  |ISK FILE NAME";F|
00000120: 24 00 3C 09 14 00 85 22  46 49 4C 45 20 54 59 50  |$.<...."FILE TYP|
00000130: 45 28 53 2F 50 2F 55 29  22 3B 54 24 00 4B 09 1E  |E(S/P/U)";T$.K..|
00000140: 00 54 24 B2 C8 28 54 24  2C 31 29 00 6D 09 28 00  |.T$..(T$,1).m.(.|
00000150: 8B 54 24 B3 B1 22 53 22  A7 8B 54 24 B3 B1 22 50  |.T$.."S"..T$.."P|
00000160: 22 A7 8B 54 24 B3 B1 22  55 22 A7 32 30 00 7B 09  |"..T$.."U".20.{.|
00000170: 29 00 4B 24 B2 22 54 22  AA 46 24 00 9C 09 2A 00  |).K$."T".F$...*.|
00000180: 8F 50 52 4F 56 49 44 45  20 41 20 55 4E 49 51 55  |.PROVIDE A UNIQU|
00000190: 45 20 54 45 52 4D 49 4E  41 54 4F 52 00 AC 09 2B  |E TERMINATOR...+|
000001A0: 00 45 24 B2 22 23 24 25  26 4E 43 22 00 B9 09 2C  |.E$."#$%&NC"...,|
000001B0: 00 4E 25 B2 C3 28 45 24  29 00 C6 09 2D 00 9F 31  |.N%..(E$)...-..1|
000001C0: 35 2C 38 2C 31 35 00 E5  09 32 00 9F 35 2C 38 2C  |5,8,15...2..5,8,|
000001D0: 35 2C 22 30 3A 22 AA 46  24 AA 22 2C 22 AA 54 24  |5,"0:".F$.",".T$|
000001E0: AA 22 2C 52 22 00 F4 09  37 00 9F 31 30 2C 31 2C  |.",R"...7..10,1,|
000001F0: 31 2C 4B 24 00 FD 09 3C  00 8D 32 30 30 00 1F 0A  |1,K$...<..200...|
00000200: 44 00 99 3A 99 22 20 20  20 20 20 20 20 20 20 20  |D..:."          |
00000210: 44 49 53 4B 20 44 41 54  41 20 49 4E 22 3A 99 00  |DISK DATA IN":..|
00000220: 2A 0A 46 00 A1 23 35 2C  41 24 00 3E 0A 48 00 8B  |*.F..#5,A$.>.H..|
00000230: 53 54 B2 36 34 A7 46 25  B2 31 3A 89 39 30 00 5E  |ST.64.F%.1:.90.^|
00000240: 0A 50 00 8B 53 33 B3 B1  38 A7 99 22 53 54 41 54  |.P..S3..8.."STAT|
00000250: 55 53 20 3D 20 22 3B 53  54 3A 89 33 30 30 00 70  |US = ";ST:.300.p|
00000260: 0A 5A 00 56 25 B2 C6 28  41 24 AA C7 28 30 29 29  |.Z.V%..(A$..(0))|
00000270: 00 79 0A 5C 00 99 56 25  2C 00 8D 0A 5F 00 8B 56  |.y.\..V%,..._..V|
00000280: 25 B2 30 A7 98 31 35 2C  C7 28 30 29 3B 00 9F 0A  |%.0..15,.(0);...|
00000290: 61 00 8B 56 24 B3 B1 30  A7 98 31 30 2C 41 24 00  |a..V$..0..10,A$.|
000002A0: BD 0A 62 00 8B 46 25 B2  31 A7 99 31 30 2C 45 24  |..b..F%.1..10,E$|
000002B0: 3A 99 22 20 45 4F 46 22  3A 89 33 30 30 00 C5 0A  |:." EOF":.300...|
000002C0: 64 00 89 37 30 00 D9 0A  C8 00 84 31 35 2C 41 24  |d..70......15,A$|
000002D0: 2C 42 24 2C 43 24 2C 44  24 00 0D 0B D2 00 8B C5  |,B$,C$,D$.......|
000002E0: 28 41 24 29 B1 30 A7 99  22 45 52 52 4F 52 20 43  |(A$).0.."ERROR C|
000002F0: 48 41 4E 4E 45 4C 22 20  22 3B 41 24 2C 42 24 2C  |HANNEL" ";A$,B$,|
00000300: 43 24 2C 44 24 3A 47 4F  54 4F 33 30 30 00 13 0B  |C$,D$:GOTO300...|
00000310: DC 00 8E 00 1B 0B 2C 01  A0 31 30 00 21 0B 2E 01  |......,..10.!...|
00000320: 99 00 3C 0B 31 01 99 22  54 41 50 45 20 46 49 4C  |..<.1.."TAPE FIL|
00000330: 45 20 31 30 20 43 4C 4F  53 45 44 22 00 43 0B 36  |E 10 CLOSED".C.6|
00000340: 01 A0 35 00 5D 0B 3B 01  99 22 44 49 53 4B 20 46  |..5.].;.."DISK F|
00000350: 49 4C 45 20 35 20 43 4C  4F 53 45 44 22 00 65 0B  |ILE 5 CLOSED".e.|
00000360: 40 01 A0 31 35 00 89 0B  45 01 99 22 45 52 52 4F  |@..15...E.."ERRO|
00000370: 52 20 43 48 41 4E 4E 45  4C 20 46 49 4C 45 20 31  |R CHANNEL FILE 1|
00000380: 35 20 43 4C 4F 53 45 44  22 00 8F 0B 47 01 99 00  |5 CLOSED"...G...|
00000390: CE 0B 4A 01 99 22 44 4F  20 59 4F 55 20 57 49 53  |..J.."DO YOU WIS|
000003A0: 48 20 54 4F 20 54 52 41  4E 53 46 45 52 20 54 48  |H TO TRANSFER TH|
000003B0: 45 20 46 49 4C 45 20 54  4F 20 41 4E 4F 54 48 45  |E FILE TO ANOTHE|
000003C0: 52 20 44 49 53 4B 20 28  59 2F 4E 29 3F 22 00 E1  |R DISK (Y/N)?"..|
000003D0: 0B 5E 01 A1 52 24 3A 8B  52 24 B2 22 22 A7 33 35  |.^..R$:.R$."".35|
000003E0: 30 00 F2 0B 63 01 8B 52  24 B3 B1 22 4E 22 A7 33  |0...c..R$.."N".3|
000003F0: 37 30 00 21 0C 68 01 99  22 44 4F 20 59 4F 55 20  |70.!.h.."DO YOU |
00000400: 57 49 53 48 20 54 4F 20  43 4F 50 59 20 41 4E 4F  |WISH TO COPY ANO|
00000410: 54 48 45 52 20 46 49 4C  45 20 28 59 2F 4E 29 3F  |THER FILE (Y/N)?|
00000420: 22 00 34 0C 6A 01 A1 51  24 3A 8B 51 24 B2 22 22  |".4.j..Q$:.Q$.""|
00000430: A7 33 36 32 00 63 0C 6B  01 8B 51 24 B2 22 4E 22  |.362.c.k..Q$."N"|
00000440: A7 99 3A 99 22 54 48 41  4E 4B 53 2E 2E 2E 48 41  |..:."THANKS...HA|
00000450: 56 45 20 41 20 4E 49 43  45 20 44 41 59 21 22 3A  |VE A NICE DAY!":|
00000460: 99 3A 80 00 74 0C 6C 01  8B 51 24 B3 B1 22 59 22  |.:..t.l..Q$.."Y"|
00000470: A7 33 36 30 00 7B 0C 6D  01 89 39 00 8C 0C 72 01  |.360.{.m..9...r.|
00000480: 8B 52 24 B3 B1 22 59 22  A7 33 33 30 00 B8 0C 7C  |.R$.."Y".330...||
00000490: 01 99 22 50 52 45 53 53  20 41 4E 59 20 4B 45 59  |.."PRESS ANY KEY|
000004A0: 20 57 48 45 4E 20 44 49  53 4B 20 41 4E 44 20 43  | WHEN DISK AND C|
000004B0: 41 53 53 45 54 54 45 22  00 D9 0C 7D 01 99 22 41  |ASSETTE"...}.."A|
000004C0: 52 45 20 43 4F 52 52 45  43 54 4C 59 20 50 4F 53  |RE CORRECTLY POS|
000004D0: 49 54 49 4F 4E 45 44 2E  22 00 EC 0C 86 01 A1 52  |ITIONED."......R|
000004E0: 24 3A 8B 52 24 B2 22 22  A7 33 39 30 00 F9 0C 90  |$:.R$."".390....|
000004F0: 01 9F 31 35 2C 38 2C 31  35 00 18 0D 9A 01 9F 35  |..15,8,15......5|
00000500: 2C 38 2C 35 2C 22 30 3A  22 AA 46 24 AA 22 2C 22  |,8,5,"0:".F$.","|
00000510: AA 54 24 AA 22 2C 57 22  00 27 0D A4 01 9F 31 30  |.T$.",W".'....10|
00000520: 2C 31 2C 30 2C 4B 24 00  30 0D AE 01 8D 32 30 30  |,1,0,K$.0....200|
00000530: 00 39 0D B3 01 8D 39 30  30 00 5D 0D B5 01 99 3A  |.9....900.]....:|
00000540: 99 22 20 20 20 20 20 20  20 20 20 20 20 20 44 41  |."            DA|
00000550: 54 41 20 54 4F 20 44 49  53 4B 22 3A 99 00 69 0D  |TA TO DISK":..i.|
00000560: B8 01 A1 23 31 30 2C 41  24 00 8F 0D C2 01 8F 20  |...#10,A$...... |
00000570: 49 47 4E 4F 52 45 20 41  4E 59 20 54 41 50 45 20  |IGNORE ANY TAPE |
00000580: 45 4F 46 20 49 4E 44 49  43 41 54 4F 52 53 2E 00  |EOF INDICATORS..|
00000590: 9E 0D CC 01 8B 53 54 B2  36 34 A7 34 37 35 00 BF  |.....ST.64.475..|
000005A0: 0D D6 01 8B 53 54 B3 B1  30 A7 99 22 53 54 41 54  |....ST..0.."STAT|
000005B0: 55 53 20 20 3D 20 22 3B  53 54 3A 89 33 30 30 00  |US  = ";ST:.300.|
000005C0: D5 0D DB 01 8B 41 24 B2  42 24 A7 8D 31 30 30 30  |.....A$.B$..1000|
000005D0: 3A 89 35 33 30 00 DE 0D  E5 01 8D 38 38 30 00 E9  |:.530......880..|
000005E0: 0D FE 01 98 35 2C 53 24  3B 00 0F 0E 03 02 81 58  |....5,S$;......X|
000005F0: B2 31 A4 C3 28 53 24 29  3A 99 C6 28 CA 28 53 24  |.1..(S$):..(.(S$|
00000600: 2C 58 2C 31 29 AA C7 28  30 29 29 2C 3A 82 58 00  |,X,1)..(0)),:.X.|
00000610: 18 0E 08 02 8D 39 30 30  00 21 0E 12 02 89 34 34  |.....900.!....44|
00000620: 30 00 33 0E 70 03 56 25  B2 C6 28 41 24 AA C7 28  |0.3.p.V%..(A$..(|
00000630: 30 29 29 00 48 0E 7A 03  8B 56 25 B2 30 A7 53 24  |0)).H.z..V%.0.S$|
00000640: B2 53 24 AA C7 28 30 29  00 5C 0E 7E 03 8B 56 25  |.S$..(0).\.~..V%|
00000650: B3 B1 30 A7 53 24 B2 53  24 AA 41 24 00 62 0E 82  |..0.S$.S$.A$.b..|
00000660: 03 8E 00 7E 0E 84 03 53  24 B2 22 22 3A 42 24 B2  |...~...S$."":B$.|
00000670: C8 28 45 24 2C 31 29 3A  4A 25 B2 31 3A 8E 00 87  |.(E$,1):J%.1:...|
00000680: 0E E8 03 8D 38 38 30 00  A2 0E F2 03 8B C3 28 53  |....880.......(S|
00000690: 24 29 B2 4E 25 A7 99 22  20 45 4F 46 22 3A 89 33  |$).N%.." EOF":.3|
000006A0: 30 30 00 BE 0E FC 03 4A  25 B2 4A 25 AA 31 3A 42  |00.....J%.J%.1:B|
000006B0: 24 B2 CA 28 45 24 2C 4A  25 2C 31 29 3A 8E 00 00  |$..(E$,J%,1):...|
000006C0: 00 99                                             |..              |

..'....TRANSFERS AFILE FROM A DISK TO A.
I....TAPE FILE AND BACK TO A DISK.O....G
IVES A DISK TO DISK COPY OPTION......WIT
H A SINGLE DISKDRIVE............OWNER: S
.K.DIEDERICH.F....       82 JACKSON ST..
....       HAMILTON.Q 4007......"SET UP 
CASSETTE AND THEN".!...."INPUT DISK FILE
 NAME";F$.<...."FILE TYPE(S/P/U)";T$.K..
.T$.H(T$,1).M.(..T$.."S"..T$.."P"..T$.."
U".20.{.).K$."T".F$...*..PROVIDE A UNIQU
E TERMINATOR...+.E$."#$%&NC"...,.N%.C(E$
).F.-..15,8,15...2..5,8,5,"0:".F$.",".T$
.",R"...7..10,1,1,K$...<..200...D..:."  
        DISK DATA IN":..*.F..#5,A$.>.H..
ST.64.F%.1:.90.^.P..S3..8.."STATUS = ";S
T:.300.P.Z.V%.F(A$.G(0)).Y.\..V%,..._..V
%.0..15,G(0);...A..V$..0..10,A$...B..F%.
1..10,E$:." EOF":.300.E.D..70.Y.H..15,A$
,B$,C$,D$...R..E(A$).0.."ERROR CHANNEL" 
";A$,B$,C$,D$:GOTO300.........,. 10.!...
..<.1.."TAPE FILE 10 CLOSED".C.6. 5.].;.
."DISK FILE 5 CLOSED".E.@. 15...E.."ERRO
R CHANNEL FILE 15 CLOSED"...G...N.J.."DO
 YOU WISH TO TRANSFER THE FILE TO ANOTHE
R DISK (Y/N)?"...^..R$:.R$."".350...C..R
$.."N".370.!.H.."DO YOU WISH TO COPY ANO
THER FILE (Y/N)?".4.J..Q$:.Q$."".362.C.K
..Q$."N"..:."THANKS...HAVE A NICE DAY!":
.:..T.L..Q$.."Y".360.{.M..9...R..R$.."Y"
.330...|.."PRESS ANY KEY WHEN DISK AND C
ASSETTE".Y.}.."ARE CORRECTLY POSITIONED.
"......R$:.R$."".390......15,8,15......5
,8,5,"0:".F$.",".T$.",W".'....10,1,0,K$.
0....200.9....900.]....:."            DA
TA TO DISK":..I....#10,A$...B.. IGNORE A
NY TAPE EOF INDICATORS....L..ST.64.475..
.V..ST..0.."STATUS  = ";ST:.300.U....A$.
B$..1000:.530......880......5,S$;......X
.1.C(S$):.F(J(S$,X,1).G(0)),:.X......900
.!....440.3.P.V%.F(A$.G(0)).H.Z..V%.0.S$
.S$.G(0).\.~..V%..0.S$.S$.A$.B.....~...S
$."":B$.H(E$,1):J%.1:.......880......C(S
$).N%.." EOF":.300.....J%.J%.1:B$.J(E$,J
%,1):.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL