> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 0A 00 FE 82 33 2C 31 3A FE 82 30 00 |........3,1:..0.|
00000010: 24 08 14 00 FE 87 2C 31 31 2C 31 30 2C 31 30 2C |$.....,11,10,10,|
00000020: 2C 2C 2C 31 00 37 08 1E 00 FE 8C 41 24 2C 30 2C |,,,1.7.....A$,0,|
00000030: 30 2C 32 33 2C 32 30 00 44 08 28 00 8D 36 30 30 |0,23,20.D.(..600|
00000040: 30 30 3A 80 00 4F 08 32 00 8D 31 30 30 30 30 00 |00:..O.2..10000.|
00000050: 6C 08 3C 00 FE 95 41 24 2C 31 3A FE 91 31 2C 31 |l.<...A$,1:..1,1|
00000060: 36 30 2C 31 30 30 3A FE 93 31 2C 31 00 72 08 46 |60,100:..1,1.r.F|
00000070: 00 80 00 84 08 C8 00 83 20 36 37 20 20 3A 8F 20 |........ 67 :. |
00000080: 54 45 53 54 00 A9 08 D2 00 83 20 20 30 2C 32 35 |TEST...... 0,25|
00000090: 34 2C 20 20 30 2C 20 20 33 2C 31 33 31 2C 31 32 |4, 0, 3,131,12|
000000A0: 38 2C 20 20 36 2C 20 20 30 00 CE 08 DC 00 83 31 |8, 6, 0......1|
000000B0: 39 32 2C 20 20 38 2C 20 20 30 2C 20 33 32 2C 20 |92, 8, 0, 32, |
000000C0: 31 36 2C 20 20 30 2C 20 31 36 2C 20 34 38 00 F3 |16, 0, 16, 48..|
000000D0: 08 E6 00 83 20 20 30 2C 20 32 34 2C 20 33 32 2C |.... 0, 24, 32,|
000000E0: 20 20 30 2C 20 20 38 2C 20 39 36 2C 20 20 30 2C | 0, 8, 96, 0,|
000000F0: 20 31 32 00 18 09 F0 00 83 20 36 34 2C 20 20 30 | 12...... 64, 0|
00000100: 2C 20 20 34 2C 20 36 34 2C 20 20 30 2C 20 20 34 |, 4, 64, 0, 4|
00000110: 2C 20 36 34 2C 20 20 30 00 3D 09 FA 00 83 20 20 |, 64, 0.=.... |
00000120: 34 2C 20 36 34 2C 20 20 30 2C 20 20 34 2C 20 36 |4, 64, 0, 4, 6|
00000130: 34 2C 20 20 30 2C 20 20 34 2C 20 39 36 00 62 09 |4, 0, 4, 96.b.|
00000140: 04 01 83 20 20 30 2C 20 31 32 2C 20 33 32 2C 20 |... 0, 12, 32, |
00000150: 20 30 2C 20 20 38 2C 20 34 38 2C 20 20 30 2C 20 | 0, 8, 48, 0, |
00000160: 32 34 00 87 09 0E 01 83 20 31 36 2C 20 20 30 2C |24...... 16, 0,|
00000170: 20 31 36 2C 20 20 38 2C 20 20 30 2C 20 33 32 2C | 16, 8, 0, 32,|
00000180: 20 20 36 2C 20 20 30 00 AC 09 18 01 83 31 39 32 | 6, 0......192|
00000190: 2C 20 20 33 2C 31 33 31 2C 31 32 38 2C 20 20 30 |, 3,131,128, 0|
000001A0: 2C 32 35 34 2C 20 20 30 2C 20 32 33 00 BD 09 22 |,254, 0, 23..."|
000001B0: 01 83 20 20 30 2C 20 32 30 2C 20 20 30 00 E1 09 |.. 0, 20, 0...|
000001C0: 10 27 8F 20 54 48 49 53 20 52 4F 55 54 49 4E 45 |.'. THIS ROUTINE|
000001D0: 20 52 45 42 55 49 4C 44 53 20 47 52 41 50 48 49 | REBUILDS GRAPHI|
000001E0: 43 00 05 0A 1A 27 8F 20 53 54 52 49 4E 47 53 20 |C....'. STRINGS |
000001F0: 46 52 4F 4D 20 44 41 54 41 20 53 54 41 54 45 4D |FROM DATA STATEM|
00000200: 45 4E 54 53 2E 00 23 0A 24 27 8F 20 45 4E 54 45 |ENTS..#.$'. ENTE|
00000210: 52 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 56 |R THIS ROUTINE V|
00000220: 49 41 3A 00 29 0A 2E 27 8F 00 44 0A 38 27 8F 20 |IA:.)..'..D.8'. |
00000230: 20 20 20 20 20 20 20 20 20 47 4F 53 55 42 20 31 | GOSUB 1|
00000240: 30 30 30 30 00 4A 0A 42 27 8F 00 6D 0A 4C 27 8F |0000.J.B'..m.L'.|
00000250: 20 54 48 45 20 41 24 20 53 54 52 49 4E 47 20 43 | THE A$ STRING C|
00000260: 4F 4E 54 41 49 4E 53 20 44 41 54 41 2E 00 73 0A |ONTAINS DATA..s.|
00000270: 56 27 8F 00 82 0A 60 27 41 24 B2 22 22 20 3A 87 |V'....`'A$."" :.|
00000280: 20 4E 00 8D 0A 6A 27 81 49 B2 31 A4 4E 00 A1 0A | N...j'.I.1.N...|
00000290: 74 27 87 20 41 3A 20 41 24 B2 41 24 AA C7 28 41 |t'. A: A$.A$..(A|
000002A0: 29 00 A8 0A 7E 27 82 49 00 AE 0A 88 27 8E 00 D2 |)...~'.I....'...|
000002B0: 0A 60 EA 8F 20 54 48 49 53 20 52 4F 55 54 49 4E |.`.. THIS ROUTIN|
000002C0: 45 20 43 4F 4E 56 45 52 54 53 20 53 54 52 49 4E |E CONVERTS STRIN|
000002D0: 47 53 00 F6 0A 6A EA 8F 20 43 4F 4E 54 41 49 4E |GS...j.. CONTAIN|
000002E0: 49 4E 47 20 20 47 52 41 50 48 49 43 20 53 48 41 |ING GRAPHIC SHA|
000002F0: 50 45 53 20 4F 52 00 1A 0B 74 |PES OR...t |
........3,1:..0.$.....,11,10,10,,,,1.7..
...A$,0,0,23,20.D.(..60000:..O.2..10000.
L.<...A$,1:..1,160,100:..1,1.R.F.....H..
67 :. TEST...R.. 0,254, 0, 3,131,12
8, 6, 0.N....192, 8, 0, 32, 16, 0,
16, 48...... 0, 24, 32, 0, 8, 96, 0,
12...... 64, 0, 4, 64, 0, 4, 64, 0
.=.... 4, 64, 0, 4, 64, 0, 4, 96.B.
... 0, 12, 32, 0, 8, 48, 0, 24......
16, 0, 16, 8, 0, 32, 6, 0......192
, 3,131,128, 0,254, 0, 23...".. 0, 2
0, 0....'. THIS ROUTINE REBUILDS GRAPHI
C....'. STRINGS FROM DATA STATEMENTS..#.
$'. ENTER THIS ROUTINE VIA:.)..'..D.8'.
GOSUB 10000.J.B'..M.L'. THE A$
STRING CONTAINS DATA..S.V'....`'A$."" :.
N...J'.I.1.N...T'. A: A$.A$.G(A)...~'.I
....'..R.`.. THIS ROUTINE CONVERTS STRIN
GS...J.. CONTAINING GRAPHIC SHAPES OR..
.T
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL