00000000: 01 08 20 08 0A 00 8B 59 B2 30 A7 59 B2 31 3A 93 |.. ....Y.0.Y.1:.|
00000010: 22 46 49 4C 45 43 4F 50 59 2E 4F 22 2C 38 2C 31 |"FILECOPY.O",8,1|
00000020: 00 3F 08 0B 00 97 35 36 2C 33 32 3A 9C 3A 86 20 |.?....56,32:.:. |
00000030: 46 24 28 31 30 30 29 2C 54 24 28 31 30 30 29 00 |F$(100),T$(100).|
00000040: 48 08 0C 00 8D 35 30 30 00 5B 08 0F 00 46 4C 24 |H....500.[...FL$|
00000050: B2 22 22 3A 46 B2 33 32 37 36 38 00 83 08 11 00 |."":F.32768.....|
00000060: 41 B2 C2 28 46 29 3A 8B 41 B3 B1 30 A7 46 4C 24 |A..(F):.A..0.FL$|
00000070: B2 46 4C 24 AA C7 28 41 29 3A 46 B2 46 AA 31 3A |.FL$..(A):F.F.1:|
00000080: 89 31 37 00 B6 08 12 00 99 3A 99 22 08 0E D0 52 |.17......:."...R|
00000090: 45 53 53 20 D3 D0 C1 C3 C5 20 54 4F 20 53 54 41 |ESS ..... TO STA|
000000A0: 52 54 20 43 4F 50 59 49 4E 47 3B 20 D2 C5 D4 D5 |RT COPYING; ....|
000000B0: D2 CE 20 54 4F 22 00 D2 08 13 00 99 22 20 52 45 |.. TO"......" RE|
000000C0: 54 55 52 4E 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 |TURN TO ........|
000000D0: 2E 22 00 F0 08 14 00 A1 41 24 3A 8B 41 24 B3 B1 |."......A$:.A$..|
000000E0: 22 20 22 AF 41 24 B3 B1 C7 28 31 33 29 A7 32 30 |" ".A$...(13).20|
000000F0: 00 02 09 16 00 8B 41 24 B2 C7 28 31 33 29 A7 31 |......A$..(13).1|
00000100: 33 31 00 22 09 19 00 9F 32 2C 38 2C 32 2C 22 46 |31."....2,8,2,"F|
00000110: 49 4C 45 53 20 4F 4E 20 53 49 44 45 20 22 AA 53 |ILES ON SIDE ".S|
00000120: 49 24 00 42 09 1E 00 84 32 2C 41 24 3A 49 B2 53 |I$.B....2,A$:I.S|
00000130: 54 3A 84 32 2C 4E 46 24 3A 4E 46 B2 C5 28 4E 46 |T:.2,NF$:NF..(NF|
00000140: 24 29 00 5F 09 23 00 81 58 B2 31 A4 4E 46 3A 84 |$)._.#..X.1.NF:.|
00000150: 32 2C 46 24 28 58 29 2C 54 24 28 58 29 3A 82 00 |2,F$(X),T$(X):..|
00000160: 73 09 28 00 8B 41 24 B3 B1 46 4C 24 AF 49 B2 30 |s.(..A$..FL$.I.0|
00000170: A7 33 30 00 82 09 2D 00 8B 41 24 B2 46 4C 24 A7 |.30...-..A$.FL$.|
00000180: 35 30 00 B2 09 2F 00 99 22 45 52 52 4F 52 2E 2E |50.../.."ERROR..|
00000190: 2E 2E 46 49 4C 45 20 22 46 4C 24 22 20 4E 4F 54 |..FILE "FL$" NOT|
000001A0: 20 46 4F 55 4E 44 20 49 4E 20 46 49 4C 45 21 22 | FOUND IN FILE!"|
000001B0: 3A 90 00 B8 09 30 00 3A 00 C7 09 32 00 A0 32 3A |:....0.:...2..2:|
000001C0: 81 44 B2 31 A4 4E 46 00 D8 09 37 00 97 35 31 2C |.D.1.NF...7..51,|
000001D0: 30 3A 97 35 32 2C 33 32 00 08 0A 38 00 99 22 91 |0:.52,32...8..".|
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 22 00 20 0A 39 00 99 22 91 | ". .9..".|
00000210: 9A D2 45 41 44 49 4E 47 3A 05 22 46 24 28 44 29 |..EADING:."F$(D)|
00000220: 00 38 0A 3C 00 9F 31 2C 38 2C 32 2C 46 24 28 44 |.8.<..1,8,2,F$(D|
00000230: 29 3A 9E 34 39 31 35 32 00 57 0A 46 00 8B 53 54 |):.49152.W.F..ST|
00000240: B3 B1 36 34 A7 99 22 45 52 52 4F 52 2E 2E 2E 22 |..64.."ERROR..."|
00000250: 53 54 3A A0 31 3A 90 00 5E 0A 50 00 A0 31 00 8F |ST:.1:..^.P..1..|
00000260: 0A 5A 00 99 22 11 20 20 20 20 20 20 20 1E C9 4E |.Z..". ..N|
00000270: 53 45 52 54 20 C4 45 53 54 49 4E 41 54 49 4F 4E |SERT .ESTINATION|
00000280: 20 C4 49 53 4B 2E 2E 2E 20 20 20 20 20 20 22 00 | .ISK... ".|
00000290: C1 0A 5C 00 99 22 20 20 20 20 D0 52 45 53 53 20 |..\.." .RESS |
000002A0: D3 D0 C1 C3 C5 20 57 48 45 4E 20 52 45 41 44 59 |..... WHEN READY|
000002B0: 20 54 4F 20 43 4F 50 59 2E 22 3A 97 31 39 38 2C | TO COPY.":.198,|
000002C0: 2E 00 D5 0A 5E 00 A1 41 24 3A 8B 41 24 B3 B1 22 |....^..A$:.A$.."|
000002D0: 20 22 A7 39 34 00 13 0B 5F 00 99 22 91 91 22 3B | ".94..._.."..";|
000002E0: 3A 81 41 B2 31 A4 32 3A 99 22 20 20 20 20 20 20 |:.A.1.2:." |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 22 3A 82 00 33 0B 60 00 99 22 91 91 91 91 9A D7 |":..3.`.."......|
00000320: 52 49 54 49 4E 47 3A 05 22 46 24 28 44 29 3A 8D |RITING:."F$(D):.|
00000330: 37 30 30 00 40 0B 61 00 8B 4D 4D B2 31 A7 39 30 |700.@.a..MM.1.90|
00000340: 00 4D 0B 62 00 8B 4D 4D B2 32 A7 39 36 00 77 0B |.M.b..MM.2.96.w.|
00000350: 64 00 9F 31 2C 38 2C 32 2C 46 24 28 44 29 AA 22 |d..1,8,2,F$(D)."|
00000360: 2C 22 AA 54 24 28 44 29 AA 22 2C 57 22 3A 9E 34 |,".T$(D).",W":.4|
00000370: 39 31 39 36 3A A0 31 00 A6 0B 78 00 99 22 11 20 |9196:.1...x..". |
00000380: 20 20 20 20 20 20 20 20 20 1E C9 4E 53 45 52 54 | ..NSERT|
00000390: 20 D3 4F 55 52 43 45 20 C4 49 53 4B 2E 2E 2E 20 | .OURCE .ISK... |
000003A0: 20 20 20 20 20 22 00 D9 0B 7A 00 99 22 20 D0 52 | "...z.." .R|
000003B0: 45 53 53 20 D3 D0 C1 C3 C5 20 57 48 45 4E 20 52 |ESS ..... WHEN R|
000003C0: 45 41 44 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |EADY TO CONTINUE|
000003D0: 2E 22 3A 97 31 39 38 2C 2E 00 EE 0B 7C 00 A1 41 |.":.198,....|..A|
000003E0: 24 3A 8B 41 24 B3 B1 22 20 22 A7 31 32 34 00 16 |$:.A$.." ".124..|
000003F0: 0C 7D 00 8D 36 30 30 3A 8F 20 20 20 20 49 46 28 |.}..600:. IF(|
00000400: 4D 4D 24 3C 3E 44 4E 24 29 54 48 45 4E 47 4F 53 |MM$<>DN$)THENGOS|
00000410: 55 42 32 30 30 30 00 55 0C 7E 00 99 22 91 91 22 |UB2000.U.~..".."|
00000420: 3B 3A 81 41 B2 31 A4 32 3A 99 22 20 20 20 20 20 |;:.A.1.2:." |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 22 3A 82 00 61 0C 7F 00 99 22 91 91 91 22 | ":..a...."..."|
00000460: 3B 00 68 0C 81 00 82 44 00 83 0C 82 00 99 A6 31 |;.h....D.......1|
00000470: 33 29 22 C4 4F 4E 45 20 43 4F 50 59 49 4E 47 2E |3)".ONE COPYING.|
00000480: 2E 2E 22 00 BC 0C 83 00 9F 31 35 2C 38 2C 31 35 |.."......15,8,15|
00000490: 2C 22 52 30 3A 48 45 4C 4C 4F 20 43 4F 4E 4E 45 |,"R0:HELLO CONNE|
000004A0: 43 54 3D 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |CT=HELLO CONNECT|
000004B0: 22 3A 84 31 35 2C 45 52 3A A0 31 35 00 CA 0C 84 |":.15,ER:.15....|
000004C0: 00 8B 45 52 B3 B1 36 33 A7 80 00 DC 0C 85 00 97 |..ER..63........|
000004D0: 35 35 2C 2E 3A 97 35 36 2C 31 36 30 00 F5 0C 86 |55,.:.56,160....|
000004E0: 00 93 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |.."HELLO CONNECT|
000004F0: 22 2C 38 3A 80 00 0B 0D F4 01 97 35 33 32 38 30 |",8:.......53280|
00000500: 2C 2E 3A 97 35 33 32 38 31 2C 2E 00 3C 0D FE 01 |,.:.53281,..<...|
00000510: 9E 35 31 34 35 39 3A 99 22 93 08 0E 05 20 20 20 |.51459:.".... |
00000520: 20 20 20 20 20 20 9E CC CF C1 C4 D3 D4 C1 D2 20 | ......... |
00000530: C6 49 4C 45 20 C3 4F 50 49 45 52 22 00 5A 0D 08 |.ILE .OPIER".Z..|
00000540: 02 8D 36 30 30 3A 53 49 24 B2 C9 28 44 4E 24 2C |..600:SI$..(DN$,|
00000550: 31 29 3A 4D 4D 24 B2 44 4E 24 00 92 0D 26 02 99 |1):MM$.DN$...&..|
00000560: 22 11 11 11 20 9A D0 4C 45 41 53 45 20 D7 41 49 |"... ..LEASE .AI|
00000570: 54 20 2D 2D 20 D2 45 41 44 49 4E 47 20 05 C6 49 |T -- .EADING ..I|
00000580: 4C 45 53 20 CF 4E 20 D3 49 44 45 20 22 53 49 24 |LES .N .IDE "SI$|
00000590: 3A 8E 00 AF 0D 58 02 9F 31 35 2C 38 2C 31 35 2C |:....X..15,8,15,|
000005A0: 22 49 30 22 3A 9F 38 2C 38 2C 38 2C 22 23 22 00 |"I0":.8,8,8,"#".|
000005B0: C5 0D 62 02 98 31 35 2C 22 55 41 3A 38 20 30 20 |..b..15,"UA:8 0 |
000005C0: 31 38 20 30 22 00 D9 0D 6C 02 98 31 35 2C 22 42 |18 0"...l..15,"B|
000005D0: 2D 50 3A 38 20 31 34 34 22 00 09 0E 76 02 44 4E |-P:8 144"...v.DN|
000005E0: 24 B2 22 22 3A 81 41 B2 31 A4 31 36 3A A1 23 38 |$."":.A.1.16:.#8|
000005F0: 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 |,A$:DN$.DN$.A$:.|
00000600: 3A A0 38 3A A0 31 35 3A 8E 00 37 0E BC 02 9F 31 |:.8:.15:..7....1|
00000610: 35 2C 38 2C 31 35 2C 22 52 30 3A 22 AA 46 24 28 |5,8,15,"R0:".F$(|
00000620: 44 29 AA 22 3D 22 AA 46 24 28 44 29 3A 84 31 35 |D)."=".F$(D):.15|
00000630: 2C 45 52 3A A0 31 35 00 4A 0E C6 02 8B 45 52 B3 |,ER:.15.J....ER.|
00000640: B1 36 33 A7 4D 4D B2 2E 3A 8E 00 78 0E CB 02 99 |.63.MM..:..x....|
00000650: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 20 20 20 20 20 22 00 9C 0E D0 02 99 22 91 | "......".|
00000680: 05 22 46 24 28 44 29 22 20 9A 41 4C 52 45 41 44 |."F$(D)" .ALREAD|
00000690: 59 20 45 58 49 53 54 53 2E 2E 2E 22 00 C8 0E DA |Y EXISTS..."....|
000006A0: 02 99 22 11 20 20 20 20 20 05 D4 9A 52 59 20 41 |..". ...RY A|
000006B0: 47 41 49 4E 20 57 49 54 48 20 41 4E 4F 54 48 45 |GAIN WITH ANOTHE|
000006C0: 52 20 44 49 53 4B 2E 22 00 F0 0E E4 02 99 22 20 |R DISK."......" |
000006D0: 20 20 20 20 05 D3 9A 43 52 41 54 43 48 20 41 4E | ...CRATCH AN|
000006E0: 44 20 52 45 50 4C 41 43 45 20 46 49 4C 45 2E 22 |D REPLACE FILE."|
000006F0: 00 0C 0F F8 02 99 22 11 C3 48 4F 4F 53 45 20 05 |......"..HOOSE .|
00000700: D4 9A 2C 20 4F 52 20 05 D3 9A 2E 22 00 1F 0F 02 |.., OR ...."....|
00000710: 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 37 30 00 |..A$:.A$."".770.|
00000720: 36 0F 0C 03 8B 41 24 B2 22 54 22 B0 41 24 B2 22 |6....A$."T".A$."|
00000730: D4 22 A7 38 32 30 00 4D 0F 16 03 8B 41 24 B2 22 |.".820.M....A$."|
00000740: 53 22 B0 41 24 B2 22 D3 22 A7 38 34 30 00 56 0F |S".A$.".".840.V.|
00000750: 2A 03 89 37 37 30 00 67 0F 34 03 8D 31 30 30 30 |*..770.g.4..1000|
00000760: 3A 4D 4D B2 31 3A 8E 00 88 0F 48 03 8D 31 30 30 |:MM.1:....H..100|
00000770: 30 3A 99 22 11 9A D3 43 52 41 54 43 48 49 4E 47 |0:."...CRATCHING|
00000780: 3A 05 22 46 24 28 44 29 00 CE 0F 52 03 9F 31 35 |:."F$(D)...R..15|
00000790: 2C 38 2C 31 35 2C 22 53 30 3A 22 AA 46 24 28 44 |,8,15,"S0:".F$(D|
000007A0: 29 3A A0 31 35 3A 99 22 91 20 20 20 20 20 20 20 |):.15:.". |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 D9 | "..|
000007D0: 0F 5C 03 4D 4D B2 32 3A 8E 00 1A 10 E8 03 99 22 |.\.MM.2:......."|
000007E0: 91 91 91 91 91 91 22 3B 3A 81 41 B2 31 A4 36 3A |......";:.A.1.6:|
000007F0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000810: 20 20 20 20 20 20 20 20 20 22 00 2C 10 F2 03 82 | ".,....|
00000820: 3A 99 22 91 91 91 91 91 22 3B 3A 8E 00 50 10 D0 |:.".....";:..P..|
00000830: 07 99 22 91 91 22 4D 4D 24 22 20 49 53 20 4E 4F |..".."MM$" IS NO|
00000840: 54 20 49 4E 20 54 48 45 20 44 52 49 56 45 2E 22 |T IN THE DRIVE."|
00000850: 00 00 00 |... |
.. ....Y.0.Y.1:."FILECOPY.O",8,1.?....56
,32:.:. F$(100),T$(100).H....500.[...FL$
."":F.32768.....A.B(F):.A..0.FL$.FL$.G(A
):F.F.1:.17......:."..PRESS SPACE TO STA
RT COPYING; RETURN TO".R...." RETURN TO
LOADSTAR."......A$:.A$.." ".A$..G(13).20
......A$.G(13).131."....2,8,2,"FILES ON
SIDE ".SI$.B....2,A$:I.ST:.2,NF$:NF.E(NF
$)._.#..X.1.NF:.2,F$(X),T$(X):..S.(..A$.
.FL$.I.0.30...-..A$.FL$.50.../.."ERROR..
..FILE "FL$" NOT FOUND IN FILE!":....0.:
.G.2. 2:.D.1.NF.X.7..51,0:.52,32...8..".
"
. .9.."..READING:."F$(D).8.<..1,8,2,F$(D
):.49152.W.F..ST..64.."ERROR..."ST: 1:..
^.P. 1...Z..". .INSERT DESTINATION
DISK... ".A.\.." PRESS SPACE WH
EN READY TO COPY.":.198,..U.^..A$:.A$.."
".94..._.."..";:.A.1.2:."
":..3.`..".....W
RITING:."F$(D):.700.@.A..MM.1.90.M.B..MM
.2.96.W.D..1,8,2,F$(D).",".T$(D).",W":.4
9196: 1...X..". .INSERT SOURCE
DISK... ".Y.Z.." PRESS SPACE WHEN R
EADY TO CONTINUE.":.198,....|..A$:.A$.."
".124...}..600:. IF(MM$<>DN$)THENGOS
UB2000.U.~.."..";:.A.1.2:."
":..A..."..."
;.H....D.......13)"DONE COPYING...".....
.15,8,15,"R0:HELLO CONNECT=HELLO CONNECT
":.15,ER: 15.J....ER..63........55,.:.56
,160......"HELLO CONNECT",8:.......53280
,.:.53281,..<....51459:.".... .L
OADSTAR FILE COPIER".Z....600:SI$.I(DN$,
1):MM$.DN$...&.."... .PLEASE WAIT -- REA
DING .FILES ON SIDE "SI$:....X..15,8,15,
"I0":.8,8,8,"#".E.B..15,"UA:8 0 18 0".Y.
L..15,"B-P:8 144"...V.DN$."":.A.1.16:.#8
,A$:DN$.DN$.A$:.: 8: 15:..7....15,8,15,"
R0:".F$(D)."=".F$(D):.15,ER: 15.J.F..ER.
.63.MM..:..X.K..".
"...P..".."F$(D)" .ALREAD
Y EXISTS...".H.Z..". .T.RY AGAIN WIT
H ANOTHER DISK."......" .S.CRATCH AN
D REPLACE FILE."......".CHOOSE .T., OR .
S.."......A$:.A$."".770.6....A$."T".A$."
T".820.M....A$."S".A$."S".840.V.*..770.G
.4..1000:MM.1:....H..1000:."..SCRATCHING
:."F$(D).N.R..15,8,15,"S0:".F$(D): 15:."
. ".Y
.\.MM.2:......."......";:.A.1.6:."
".,....
:.".....";:..P.P..".."MM$" IS NOT IN THE
DRIVE."...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL