> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 37 08 01 00 8F 20 50 52 4F 47 52 41 4D 20 |..7.... PROGRAM |
00000010: 54 4F 20 43 4F 50 59 20 41 20 46 4F 4E 54 20 46 |TO COPY A FONT F|
00000020: 52 4F 4D 20 4F 4E 45 20 44 49 53 4B 20 54 4F 20 |ROM ONE DISK TO |
00000030: 41 4E 4F 54 48 45 52 00 4A 08 02 00 86 4C 24 28 |ANOTHER.J....L$(|
00000040: 36 37 29 2C 4D 24 28 36 35 29 00 83 08 03 00 99 |67),M$(65)......|
00000050: 22 93 22 3A 99 22 49 4E 53 45 52 54 20 46 4F 4E |".":."INSERT FON|
00000060: 54 20 44 49 53 4B 22 3A 99 3A 85 22 45 4E 54 45 |T DISK":.:."ENTE|
00000070: 52 20 46 4F 4E 54 20 4E 55 4D 42 45 52 22 3B 46 |R FONT NUMBER";F|
00000080: 24 3A 99 00 9D 08 04 00 8B C5 28 46 24 29 B3 31 |$:........(F$).1|
00000090: B0 C5 28 46 24 29 B1 39 39 39 39 A7 33 00 AE 08 |..(F$).9999.3...|
000000A0: 05 00 46 24 B2 22 46 4F 4E 54 22 AA 46 24 00 EE |..F$."FONT".F$..|
000000B0: 08 0A 00 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 |....2,8,2,"0:".F|
000000C0: 24 AA 22 2C 53 2C 52 22 3A 84 32 2C 5A 24 3A 8B |$.",S,R":.2,Z$:.|
000000D0: 5A 24 B2 22 22 A7 A0 32 3A 99 22 46 4F 4E 54 20 |Z$.""..2:."FONT |
000000E0: 4E 4F 54 20 46 4F 55 4E 44 22 3A 99 3A 80 00 21 |NOT FOUND":.:..!|
000000F0: 09 14 00 81 58 B2 30 A4 36 37 3A 84 32 2C 4C 24 |....X.0.67:.2,L$|
00000100: 28 58 29 3A 8B C9 28 4C 24 28 58 29 2C 31 29 B1 |(X):..(L$(X),1).|
00000110: 22 44 22 AF 58 B3 36 35 A7 84 32 2C 4D 24 28 58 |"D".X.65..2,M$(X|
00000120: 29 00 56 09 1E 00 82 3A A0 32 3A 99 22 43 48 41 |).V....:.2:."CHA|
00000130: 4E 47 45 20 44 49 53 4B 2C 20 50 52 45 53 53 20 |NGE DISK, PRESS |
00000140: 3C 45 4E 54 45 52 3E 20 54 4F 20 43 4F 4E 54 49 |<ENTER> TO CONTI|
00000150: 4E 55 45 22 3A 99 00 6C 09 23 00 A1 58 24 3A 8B |NUE":..l.#..X$:.|
00000160: 58 24 B3 B1 C7 28 31 33 29 A7 33 35 00 8C 09 28 |X$...(13).35...(|
00000170: 00 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 AA |..2,8,2,"0:".F$.|
00000180: 22 2C 53 2C 57 22 3A 98 32 2C 5A 24 00 BF 09 32 |",S,W":.2,Z$...2|
00000190: 00 81 58 B2 30 A4 36 37 3A 98 32 2C 4C 24 28 58 |..X.0.67:.2,L$(X|
000001A0: 29 3A 8B C9 28 4C 24 28 58 29 2C 31 29 B1 22 44 |):..(L$(X),1)."D|
000001B0: 22 AF 58 B3 36 35 A7 98 32 2C 4D 24 28 58 29 00 |".X.65..2,M$(X).|
000001C0: C8 09 3C 00 82 3A A0 32 00 E8 09 46 00 9F 32 2C |..<..:.2...F..2,|
000001D0: 38 2C 32 2C 22 30 3A 22 AA 46 24 AA 22 2C 53 2C |8,2,"0:".F$.",S,|
000001E0: 52 22 3A 84 32 2C 5A 24 00 0F 0A 50 00 81 58 B2 |R":.2,Z$...P..X.|
000001F0: 30 A4 36 37 3A 84 32 2C 41 24 3A 8B 41 24 B3 B1 |0.67:.2,A$:.A$..|
00000200: 4C 24 28 58 29 B0 41 24 B2 22 22 A7 31 30 30 00 |L$(X).A$."".100.|
00000210: 40 0A 55 00 8B C9 28 41 24 2C 31 29 B1 22 44 22 |@.U...(A$,1)."D"|
00000220: AF 58 B3 36 35 A7 84 32 2C 41 24 3A 8B 41 24 B3 |.X.65..2,A$:.A$.|
00000230: B1 4D 24 28 58 29 B0 41 24 B2 22 22 A7 31 30 30 |.M$(X).A$."".100|
00000240: 00 58 0A 5A 00 82 3A A0 32 3A 99 22 44 41 54 41 |.X.Z..:.2:."DATA|
00000250: 20 4F 4B 45 59 22 3A 80 00 6F 0A 64 00 A0 32 3A | OKEY":..o.d..2:|
00000260: 99 22 44 41 54 41 20 45 52 52 4F 52 22 3A 80 00 |."DATA ERROR":..|
00000270: 00 00 |.. |
..7.... PROGRAM TO COPY A FONT FROM ONE
DISK TO ANOTHER.J....L$(67),M$(65)......
".":."INSERT FONT DISK":.:."ENTER FONT N
UMBER";F$:.......E(F$).1.E(F$).9999.3...
..F$."FONT".F$......2,8,2,"0:".F$.",S,R"
:.2,Z$:.Z$."". 2:."FONT NOT FOUND":.:..!
....X.0.67:.2,L$(X):.I(L$(X),1)."D".X.65
..2,M$(X).V....: 2:."CHANGE DISK, PRESS
<ENTER> TO CONTINUE":..L.#..X$:.X$..G(13
).35...(..2,8,2,"0:".F$.",S,W":.2,Z$...2
..X.0.67:.2,L$(X):.I(L$(X),1)."D".X.65..
2,M$(X).H.<..: 2...F..2,8,2,"0:".F$.",S,
R":.2,Z$...P..X.0.67:.2,A$:.A$..L$(X).A$
."".100.@.U..I(A$,1)."D".X.65..2,A$:.A$.
.M$(X).A$."".100.X.Z..: 2:."DATA OKEY":.
.O.D. 2:."DATA ERROR":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL