> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 99 22 93 13 22 00 1A 08 14 00 |......."..".....|
00000010: 8B 20 58 B2 31 20 A7 20 34 30 00 2E 08 1E 00 58 |. X.1 . 40.....X|
00000020: B2 31 3A 93 20 22 53 2E 30 22 2C 38 2C 31 00 3C |.1:. "S.0",8,1.<|
00000030: 08 28 00 4D 4C B2 37 AC 34 30 39 36 00 56 08 32 |.(.ML.7.4096.V.2|
00000040: 00 9E 20 4D 4C AA 31 38 3A 8F 20 53 45 54 55 50 |.. ML.18:. SETUP|
00000050: 20 54 41 42 4C 45 00 5C 08 64 00 99 00 72 08 6E | TABLE.\.d...r.n|
00000060: 00 99 22 31 29 20 45 44 49 54 20 53 50 52 49 54 |.."1) EDIT SPRIT|
00000070: 45 22 00 88 08 78 00 99 22 32 29 20 43 4F 50 59 |E"...x.."2) COPY|
00000080: 20 53 50 52 49 54 45 22 00 A4 08 82 00 99 22 33 | SPRITE"......"3|
00000090: 29 20 43 4F 50 59 20 54 4F 20 43 4C 49 50 42 4F |) COPY TO CLIPBO|
000000A0: 41 52 44 22 00 C2 08 8C 00 99 22 34 29 20 43 4F |ARD"......"4) CO|
000000B0: 50 59 20 46 52 4F 4D 20 43 4C 49 50 42 4F 41 52 |PY FROM CLIPBOAR|
000000C0: 44 22 00 D9 08 96 00 99 22 35 29 20 4C 4F 41 44 |D"......"5) LOAD|
000000D0: 20 53 50 52 49 54 45 53 22 00 F0 08 A0 00 99 22 | SPRITES"......"|
000000E0: 36 29 20 53 41 56 45 20 53 50 52 49 54 45 53 22 |6) SAVE SPRITES"|
000000F0: 00 FF 08 AA 00 99 22 37 29 20 51 55 49 54 22 00 |......"7) QUIT".|
00000100: 05 09 B4 00 99 00 1C 09 BE 00 85 20 22 43 48 4F |........... "CHO|
00000110: 49 43 45 20 3E 3E 3E 20 22 3B 43 48 00 4A 09 C8 |ICE >>> ";CH.J..|
00000120: 00 91 20 43 48 20 89 20 31 30 30 30 2C 32 30 30 |.. CH . 1000,200|
00000130: 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 30 30 30 |0,3000,4000,5000|
00000140: 2C 36 30 30 30 2C 37 30 30 30 00 54 09 FA 00 89 |,6000,7000.T....|
00000150: 20 31 30 30 00 67 09 E8 03 8F 20 45 44 49 54 20 | 100.g.... EDIT |
00000160: 41 20 53 48 41 50 45 00 6D 09 F2 03 99 00 92 09 |A SHAPE.m.......|
00000170: FC 03 85 20 22 45 44 49 54 20 57 48 49 43 48 20 |... "EDIT WHICH |
00000180: 53 50 52 49 54 45 20 28 30 2D 36 33 29 20 22 3B |SPRITE (0-63) ";|
00000190: 53 50 00 A1 09 06 04 97 20 4D 4C AA 33 31 2C 53 |SP...... ML.31,S|
000001A0: 50 00 AA 09 10 04 9E 20 4D 4C 00 C2 09 1A 04 8F |P...... ML......|
000001B0: 20 52 45 53 45 54 20 54 45 58 54 20 53 43 52 45 | RESET TEXT SCRE|
000001C0: 45 4E 00 DD 09 24 04 97 20 35 33 32 36 35 2C C2 |EN...$.. 53265,.|
000001D0: 28 35 33 32 36 35 29 20 AF 20 32 32 33 00 F8 09 |(53265) . 223...|
000001E0: 2E 04 97 20 35 33 32 37 30 2C C2 28 35 33 32 37 |... 53270,.(5327|
000001F0: 30 29 20 AF 20 32 33 39 00 03 0A 33 04 99 20 22 |0) . 239...3.. "|
00000200: 93 13 22 00 23 0A 35 04 97 20 35 33 32 37 32 2C |..".#.5.. 53272,|
00000210: 28 C2 28 35 33 32 37 32 29 AF 20 32 34 30 29 20 |(.(53272). 240) |
00000220: B0 20 34 00 3F 0A 38 04 89 20 31 30 30 20 3A 8F |. 4.?.8.. 100 :.|
00000230: 20 47 4F 54 4F 20 4D 41 49 4E 20 4C 4F 4F 50 00 | GOTO MAIN LOOP.|
00000240: 53 0A D0 07 8F 20 43 4F 50 59 20 41 20 53 50 52 |S.... COPY A SPR|
00000250: 49 54 45 00 59 0A DA 07 99 00 77 0A E4 07 85 20 |ITE.Y.....w.... |
00000260: 22 4D 4F 56 45 20 57 48 49 43 48 20 53 50 52 49 |"MOVE WHICH SPRI|
00000270: 54 45 20 22 3B 53 31 00 7D 0A EE 07 99 00 A2 0A |TE ";S1.}.......|
00000280: F8 07 85 20 22 54 4F 20 57 48 49 43 48 20 53 50 |... "TO WHICH SP|
00000290: 52 49 54 45 20 50 4F 53 49 54 49 4F 4E 20 22 3B |RITE POSITION ";|
000002A0: 53 32 00 B1 0A 02 08 97 20 4D 4C AA 33 31 2C 53 |S2...... ML.31,S|
000002B0: 31 00 C0 0A 0C 08 97 20 4D 4C AA 33 32 2C 53 32 |1...... ML.32,S2|
000002C0: 00 CB 0A 16 08 9E 20 4D 4C AA 33 00 D5 0A 20 08 |...... ML.3... .|
000002D0: 89 20 31 30 30 00 ED 0A B8 0B 8F 20 4D 4F 56 45 |. 100...... MOVE|
000002E0: 20 54 4F 20 43 4C 49 50 42 4F 41 52 44 00 F3 0A | TO CLIPBOARD...|
000002F0: C2 0B 99 00 15 0B CC 0B 85 20 22 53 54 41 52 54 |......... "START|
00000300: 20 41 54 20 57 48 49 43 48 20 53 50 52 49 54 45 | AT WHICH SPRITE|
00000310: 20 22 3B 53 31 00 1B 0B D6 0B 99 00 43 0B E0 0B | ";S1.......C...|
00000320: 85 20 22 4D 4F 56 45 20 48 4F 57 20 4D 41 4E 59 |. "MOVE HOW MANY|
00000330: 20 53 50 52 49 54 45 53 20 28 31 2D 34 29 20 22 | SPRITES (1-4) "|
00000340: 3B 4C 45 00 52 0B EA 0B 97 20 4D 4C AA 33 31 2C |;LE.R.... ML.31,|
00000350: 53 31 00 68 0B F4 0B 97 20 4D 4C AA 33 34 2C 28 |S1.h.... ML.34,(|
00000360: 4C 45 AC 36 34 29 AB 31 00 73 0B FE 0B 9E 20 4D |LE.64).1.s.... M|
00000370: 4C AA 36 00 7D 0B 08 0C 89 20 31 30 30 00 97 0B |L.6.}.... 100...|
00000380: A0 0F 8F 20 4D 4F 56 45 20 46 52 4F 4D 20 43 4C |... MOVE FROM CL|
00000390: 49 50 42 4F 41 52 44 00 9D 0B AA 0F 99 00 C7 0B |IPBOARD.........|
000003A0: B4 0F 85 20 22 43 4F 50 59 20 54 4F 20 57 48 49 |... "COPY TO WHI|
000003B0: 43 48 20 53 50 52 49 54 45 20 50 4F 53 49 54 49 |CH SPRITE POSITI|
000003C0: 4F 4E 20 22 3B 53 31 00 CD 0B BE 0F 99 00 F5 0B |ON ";S1.........|
000003D0: C8 0F 85 20 22 43 4F 50 59 20 48 4F 57 20 4D 41 |... "COPY HOW MA|
000003E0: 4E 59 20 53 50 52 49 54 45 53 20 28 31 2D 34 29 |NY SPRITES (1-4)|
000003F0: 20 22 3B 4C 45 00 04 0C D2 0F 97 20 4D 4C AA 33 | ";LE...... ML.3|
00000400: 31 2C 53 31 00 1A 0C DC 0F 97 20 4D 4C AA 33 34 |1,S1...... ML.34|
00000410: 2C 28 4C 45 AC 36 34 29 AB 31 00 25 0C E6 0F 9E |,(LE.64).1.%....|
00000420: 20 4D 4C AA 39 00 2F 0C F0 0F 89 20 31 30 30 00 | ML.9./.... 100.|
00000430: 3F 0C 88 13 8F 20 4C 4F 41 44 20 46 49 4C 45 00 |?.... LOAD FILE.|
00000440: 45 0C 92 13 99 00 67 0C 9C 13 85 20 22 4E 41 4D |E.....g.... "NAM|
00000450: 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 4C 4F 41 |E OF FILE TO LOA|
00000460: 44 20 22 3B 4E 41 24 00 81 0C A6 13 8D 20 35 39 |D ";NA$...... 59|
00000470: 30 30 20 3A 8F 20 50 4F 4B 45 20 49 4E 20 4E 41 |00 :. POKE IN NA|
00000480: 24 00 9C 0C B0 13 9E 20 4D 4C AA 31 32 3A 8F 20 |$...... ML.12:. |
00000490: 47 4F 20 4C 4F 41 44 20 46 49 4C 45 00 A6 0C BA |GO LOAD FILE....|
000004A0: 13 89 20 31 30 30 00 B8 0C 0C 17 8F 20 50 4F 4B |.. 100...... POK|
000004B0: 45 20 49 4E 20 4E 41 24 00 CC 0C 16 17 97 20 4D |E IN NA$...... M|
000004C0: 4C AA 32 31 2C C3 20 28 4E 41 24 29 00 DF 0C 20 |L.21,. (NA$)... |
000004D0: 17 81 20 54 B2 31 20 A4 20 C3 28 4E 41 24 29 00 |.. T.1 . .(NA$).|
000004E0: F1 0C 2A 17 41 24 B2 CA 28 4E 41 24 2C 54 2C 31 |..*.A$..(NA$,T,1|
000004F0: 29 00 FC 0C 34 17 99 20 41 24 2C 54 00 10 0D 3E |)...4.. A$,T...>|
00000500: 17 97 20 4D 4C AA 32 31 AA 54 2C C6 28 41 24 29 |.. ML.21.T,.(A$)|
00000510: 00 16 0D 48 17 82 00 1C 0D 52 17 8E 00 2F 0D 70 |...H.....R.../.p|
00000520: 17 8F 20 53 41 56 45 20 53 50 52 49 54 45 53 00 |.. SAVE SPRITES.|
00000530: 35 0D 7A 17 99 00 57 0D 84 17 85 20 22 4E 41 4D |5.z...W.... "NAM|
00000540: 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 53 41 56 |E OF FILE TO SAV|
00000550: 45 20 22 3B 41 41 24 00 68 0D 89 17 4E 41 24 B2 |E ";AA$.h...NA$.|
00000560: 22 40 3A 22 AA 41 41 24 00 73 0D 8E 17 8D 20 35 |"@:".AA$.s.... 5|
00000570: 39 30 30 00 7F 0D 98 17 9E 20 4D 4C AA 31 35 00 |900...... ML.15.|
00000580: 89 0D A2 17 89 20 31 30 30 00 94 0D 58 1B 8F 20 |..... 100...X.. |
00000590: 51 55 49 54 00 9A 0D BC 1B 80 00 00 00 |QUIT......... |
.......".."...... X.1 . 40.....X.1:. "S.
0",8,1.<.(.ML.7.4096.V.2.. ML.18:. SETUP
TABLE.\.D...R.N.."1) EDIT SPRITE"...X..
"2) COPY SPRITE"......"3) COPY TO CLIPBO
ARD".B...."4) COPY FROM CLIPBOARD".Y....
"5) LOAD SPRITES"... .."6) SAVE SPRITES"
......"7) QUIT"............ "CHOICE >>>
";CH.J.H.. CH . 1000,2000,3000,4000,5000
,6000,7000.T.... 100.G.... EDIT A SHAPE.
M.......... "EDIT WHICH SPRITE (0-63) ";
SP...... ML.31,SP...... ML.B.... RESET T
EXT SCREEN...$.. 53265,B(53265) . 223...
... 53270,B(53270) . 239...3.. "..".#.5.
. 53272,(B(53272). 240) . 4.?.8.. 100 :.
GOTO MAIN LOOP.S.P.. COPY A SPRITE.Y.Z.
..W.... "MOVE WHICH SPRITE ";S1.}.......
... "TO WHICH SPRITE POSITION ";S2......
ML.31,S1...... ML.32,S2.K.... ML.3.U. .
. 100...... MOVE TO CLIPBOARD...B.....L.
. "START AT WHICH SPRITE ";S1...V...C...
. "MOVE HOW MANY SPRITES (1-4) ";LE.R...
. ML.31,S1.H.... ML.34,(LE.64).1.S.... M
L.6.}.... 100... .. MOVE FROM CLIPBOARD.
......G.... "COPY TO WHICH SPRITE POSITI
ON ";S1.M.......H.. "COPY HOW MANY SPRIT
ES (1-4) ";LE...R.. ML.31,S1...... ML.34
,(LE.64).1.%.... ML.9./.... 100.?.... LO
AD FILE.E.....G.... "NAME OF FILE TO LOA
D ";NA$...... 5900 :. POKE IN NA$......
ML.12:. GO LOAD FILE...... 100...... POK
E IN NA$.L.... ML.21,C (NA$)... .. T.1 .
C(NA$)...*.A$.J(NA$,T,1)...4.. A$,T...>
.. ML.21.T,F(A$)...H.....R.../.P.. SAVE
SPRITES.5.Z...W.... "NAME OF FILE TO SAV
E ";AA$.H...NA$."@:".AA$.S.... 5900....
. ML.15...... 100...X.. QUIT.........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL