00000000: 01 40 85 40 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |.@.@... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 20 20 20 20 20 20 2A 2A 2A 20 54 48 49 53 |** *** THIS|
00000060: 20 57 41 53 20 57 52 49 54 54 45 4E 20 42 59 20 | WAS WRITTEN BY |
00000070: 53 4F 4D 45 4F 4E 45 20 41 54 20 43 4F 4D 4D 4F |SOMEONE AT COMMO|
00000080: 44 4F 52 45 21 00 CD 40 01 00 8F 20 2A 2A 2A 20 |DORE!..@... *** |
00000090: 54 48 49 53 20 49 53 20 41 20 50 52 4F 47 52 41 |THIS IS A PROGRA|
000000A0: 4D 20 54 4F 20 44 45 4D 4F 4E 53 54 52 41 54 45 |M TO DEMONSTRATE|
000000B0: 20 53 50 52 49 54 45 53 20 43 52 45 41 54 45 44 | SPRITES CREATED|
000000C0: 20 42 59 20 55 53 49 4E 47 20 54 48 45 00 16 41 | BY USING THE..A|
000000D0: 02 00 8F 20 2A 2A 2A 20 53 50 52 53 41 56 20 4D |... *** SPRSAV M|
000000E0: 45 54 48 4F 44 2E 20 20 49 54 20 4C 45 41 44 53 |ETHOD. IT LEADS|
000000F0: 20 49 4E 54 4F 20 54 48 45 20 4E 45 58 54 20 4D | INTO THE NEXT M|
00000100: 45 54 48 4F 44 20 54 4F 20 54 41 4C 4B 45 44 20 |ETHOD TO TALKED |
00000110: 41 42 4F 55 54 2E 00 54 41 03 00 8F 20 2A 2A 2A |ABOUT..TA... ***|
00000120: 20 54 48 49 53 20 4D 45 54 48 4F 44 20 49 53 20 | THIS METHOD IS |
00000130: 53 50 52 44 45 46 2E 20 20 28 53 45 41 4E 20 52 |SPRDEF. (SEAN R|
00000140: 4F 4F 4E 45 59 20 2D 20 28 54 50 55 47 2D 57 45 |OONEY - (TPUG-WE|
00000150: 53 54 29 29 00 F5 41 04 00 8F 2A 2A 2A 2A 2A 2A |ST))..A...******|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 2A 2A 2A 00 03 42 05 00 E7 30 2C 31 3A E7 |*****..B...0,1:.|
00000200: 34 2C 31 00 09 42 07 00 3A 00 12 42 0A 00 DE 31 |4,1..B..:..B...1|
00000210: 2C 31 00 18 42 0B 00 3A 00 29 42 0F 00 E1 31 2C |,1..B..:.)B...1,|
00000220: 32 2C 32 2C 34 35 2C 34 35 00 2F 42 10 00 3A 00 |2,2,45,45./B..:.|
00000230: 63 42 14 00 E5 31 2C 31 37 2C 31 30 20 A4 20 32 |cB...1,17,10 . 2|
00000240: 38 2C 31 30 20 A4 20 32 36 2C 33 30 A4 31 39 2C |8,10 . 26,30.19,|
00000250: 33 30 A4 31 37 2C 31 30 3A 8F 20 43 41 52 20 42 |30.17,10:. CAR B|
00000260: 4F 44 59 00 9D 42 16 00 E5 31 2C 31 31 2C 31 30 |ODY..B...1,11,10|
00000270: 20 A4 20 31 35 2C 31 30 20 A4 20 31 35 2C 31 38 | . 15,10 . 15,18|
00000280: 20 A4 20 31 31 2C 31 38 20 A4 20 31 31 2C 31 30 | . 11,18 . 11,10|
00000290: 3A 8F 20 4C 45 46 54 20 57 48 45 45 4C 00 D8 42 |:. LEFT WHEEL..B|
000002A0: 18 00 E5 31 2C 33 30 2C 31 30 20 A4 20 33 34 2C |...1,30,10 . 34,|
000002B0: 31 30 20 A4 20 33 34 2C 31 38 20 A4 20 33 30 2C |10 . 34,18 . 30,|
000002C0: 31 38 20 A4 20 33 30 2C 31 30 3A 8F 20 52 49 47 |18 . 30,10:. RIG|
000002D0: 48 54 20 57 48 45 45 4C 00 18 43 1A 00 E5 31 2C |HT WHEEL..C...1,|
000002E0: 31 31 2C 32 30 20 A4 20 31 35 2C 32 30 20 A4 20 |11,20 . 15,20 . |
000002F0: 31 35 2C 32 38 20 A4 20 31 31 2C 32 38 20 A4 20 |15,28 . 11,28 . |
00000300: 31 31 2C 32 30 3A 8F 20 4C 4F 57 45 52 20 4C 45 |11,20:. LOWER LE|
00000310: 46 54 20 57 48 45 45 4C 00 59 43 1C 00 E5 31 2C |FT WHEEL.YC...1,|
00000320: 33 30 2C 32 30 20 A4 20 33 34 2C 32 30 20 A4 20 |30,20 . 34,20 . |
00000330: 33 34 2C 32 38 20 A4 20 33 30 2C 32 38 20 A4 20 |34,28 . 30,28 . |
00000340: 33 30 2C 32 30 3A 8F 20 4C 4F 57 45 52 20 52 49 |30,20:. LOWER RI|
00000350: 47 48 54 20 57 48 45 45 4C 00 6F 43 1E 00 E5 20 |GHT WHEEL.oC... |
00000360: 31 2C 32 36 2C 32 38 20 A4 20 31 39 2C 32 38 00 |1,26,28 . 19,28.|
00000370: 75 43 1F 00 3A 00 8D 43 20 00 E1 31 2C 32 30 2C |uC..:..C ..1,20,|
00000380: 31 34 2C 32 36 2C 31 38 2C 39 30 2C 31 00 B0 43 |14,26,18,90,1..C|
00000390: 23 00 E1 31 2C 31 35 30 2C 33 35 2C 31 39 35 2C |#..1,150,35,195,|
000003A0: 34 30 2C 39 30 2C 31 3A 8F 20 53 54 52 45 45 54 |40,90,1:. STREET|
000003B0: 00 DD 43 25 00 E1 31 2C 31 35 30 2C 31 33 35 2C |..C%..1,150,135,|
000003C0: 31 39 35 2C 31 34 30 2C 39 30 2C 31 3A 8F 20 41 |195,140,90,1:. A|
000003D0: 4E 4F 54 48 45 52 20 53 54 52 45 45 54 00 0E 44 |NOTHER STREET..D|
000003E0: 28 00 E1 31 2C 31 35 30 2C 32 31 35 2C 31 39 35 |(..1,150,215,195|
000003F0: 2C 32 32 30 2C 39 30 2C 31 3A 8F 20 59 45 54 20 |,220,90,1:. YET |
00000400: 41 4E 4F 54 48 45 52 20 53 54 52 45 45 54 00 14 |ANOTHER STREET..|
00000410: 44 29 00 3A 00 56 44 2A 00 E5 20 31 2C 35 30 2C |D).:.VD*.. 1,50,|
00000420: 31 38 30 20 20 A4 20 33 30 30 2C 31 38 30 3A E5 |180 . 300,180:.|
00000430: 31 2C 35 30 2C 31 38 30 20 A4 20 35 30 2C 31 39 |1,50,180 . 50,19|
00000440: 30 3A E5 31 2C 33 30 30 2C 31 38 30 20 A4 20 33 |0:.1,300,180 . 3|
00000450: 30 30 2C 31 39 30 00 82 44 2B 00 E5 31 2C 35 30 |00,190..D+..1,50|
00000460: 2C 31 39 30 20 A4 20 33 30 30 2C 31 39 30 3A E0 |,190 . 300,190:.|
00000470: 31 2C 31 38 2C 32 33 2C 22 46 49 4E 49 53 48 22 |1,18,23,"FINISH"|
00000480: 2C 30 00 88 44 2C 00 3A 00 C0 44 2D 00 E4 20 41 |,0..D,.:..D-.. A|
00000490: 24 2C 31 30 2C 31 31 2C 33 34 2C 33 31 3A 8F 20 |$,10,11,34,31:. |
000004A0: 53 41 56 45 20 54 48 45 20 43 41 52 20 44 52 41 |SAVE THE CAR DRA|
000004B0: 57 49 4E 47 20 49 4E 20 41 20 53 54 52 49 4E 47 |WING IN A STRING|
000004C0: 00 C6 44 2F 00 3A 00 F3 44 32 00 FE 16 20 41 24 |..D/.:..D2... A$|
000004D0: 2C 31 3A 8F 20 53 54 4F 52 45 20 44 41 54 41 20 |,1:. STORE DATA |
000004E0: 53 54 52 49 4E 47 20 49 4E 20 53 50 52 49 54 45 |STRING IN SPRITE|
000004F0: 20 23 31 00 20 45 37 00 FE 16 20 41 24 2C 32 3A | #1. E7... A$,2:|
00000500: 8F 20 53 54 4F 52 45 20 44 41 54 41 20 53 54 52 |. STORE DATA STR|
00000510: 49 4E 47 20 49 4E 20 53 50 52 49 54 45 20 23 32 |ING IN SPRITE #2|
00000520: 00 26 45 39 00 3A 00 4F 45 3C 00 FE 07 20 31 2C |.&E9.:.OE<... 1,|
00000530: 31 2C 37 2C 30 2C 30 2C 30 2C 30 3A 8F 20 54 55 |1,7,0,0,0,0:. TU|
00000540: 52 4E 20 4F 4E 20 53 50 52 49 54 45 20 23 31 00 |RN ON SPRITE #1.|
00000550: 78 45 41 00 FE 07 20 32 2C 31 2C 33 2C 30 2C 30 |xEA... 2,1,3,0,0|
00000560: 2C 30 2C 30 3A 8F 20 54 55 52 4E 20 4F 4E 20 53 |,0,0:. TURN ON S|
00000570: 50 52 49 54 45 20 23 32 00 7E 45 42 00 3A 00 B2 |PRITE #2.~EB.:..|
00000580: 45 46 00 FE 06 20 31 2C 32 34 30 2C 37 30 3A 8F |EF... 1,240,70:.|
00000590: 20 50 55 54 20 53 50 52 49 54 45 20 23 31 20 40 | PUT SPRITE #1 @|
000005A0: 50 28 58 2C 59 29 20 3D 20 50 28 32 34 30 2C 37 |P(X,Y) = P(240,7|
000005B0: 30 29 00 E6 45 50 00 FE 06 20 32 2C 31 32 30 2C |0)..EP... 2,120,|
000005C0: 37 30 3A 8F 20 50 55 54 20 53 50 52 49 54 45 20 |70:. PUT SPRITE |
000005D0: 23 32 20 40 50 28 58 2C 59 29 20 3D 20 50 28 31 |#2 @P(X,Y) = P(1|
000005E0: 32 30 2C 37 30 29 00 1A 46 55 00 FE 06 20 31 2C |20,70)..FU... 1,|
000005F0: 31 38 30 20 23 36 3A 8F 20 4D 4F 56 45 20 53 50 |180 #6:. MOVE SP|
00000600: 52 49 54 45 23 31 20 20 46 52 4F 4D 20 54 4F 50 |RITE#1 FROM TOP|
00000610: 20 54 4F 20 42 4F 54 54 4F 4D 00 4E 46 57 00 FE | TO BOTTOM.NFW..|
00000620: 06 20 32 2C 31 38 30 20 23 38 3A 8F 20 4D 4F 56 |. 2,180 #8:. MOV|
00000630: 45 20 53 50 52 49 54 45 23 31 20 20 46 52 4F 4D |E SPRITE#1 FROM|
00000640: 20 54 4F 50 20 54 4F 20 42 4F 54 54 4F 4D 00 54 | TOP TO BOTTOM.T|
00000650: 46 58 00 3A 00 5D 46 5A 00 FE 0B 33 30 00 63 46 |FX.:.]FZ...30.cF|
00000660: 5F 00 3A 00 78 46 63 00 FE 07 31 2C 30 3A FE 07 |_.:.xFc...1,0:..|
00000670: 32 2C 30 3A DE 30 2C 31 00 7E 46 64 00 80 00 00 |2,0:.0,1.~Fd....|
00000680: 00 |. |
.@.@... ********************************
****************************************
** *** THIS WAS WRITTEN BY SOMEONE
AT COMMODORE!.M@... *** THIS IS A PROGRA
M TO DEMONSTRATE SPRITES CREATED BY USIN
G THE..A... *** SPRSAV METHOD. IT LEADS
INTO THE NEXT METHOD TO TALKED ABOUT..T
A... *** THIS METHOD IS SPRDEF. (SEAN R
OONEY - (TPUG-WEST))..A...**************
****************************************
****************************************
****************************************
*********************..B...0,1:.4,1..B..
:..B...1,1..B..:.)B...1,2,2,45,45./B..:.
CB...1,17,10 . 28,10 . 26,30.19,30.17,10
:. CAR BODY..B...1,11,10 . 15,10 . 15,18
. 11,18 . 11,10:. LEFT WHEEL.XB...1,30,
10 . 34,10 . 34,18 . 30,18 . 30,10:. RIG
HT WHEEL..C...1,11,20 . 15,20 . 15,28 .
11,28 . 11,20:. LOWER LEFT WHEEL.YC...1,
30,20 . 34,20 . 34,28 . 30,28 . 30,20:.
LOWER RIGHT WHEEL.OC... 1,26,28 . 19,28.
UC..:..C ..1,20,14,26,18,90,1..C#..1,150
,35,195,40,90,1:. STREET..C%..1,150,135,
195,140,90,1:. ANOTHER STREET..D(..1,150
,215,195,220,90,1:. YET ANOTHER STREET..
D).:.VD*.. 1,50,180 . 300,180:.1,50,180
. 50,190:.1,300,180 . 300,190..D+..1,50
,190 . 300,190:.1,18,23,"FINISH",0..D,.:
..D-.. A$,10,11,34,31:. SAVE THE CAR DRA
WING IN A STRING.FD/.:..D2... A$,1:. STO
RE DATA STRING IN SPRITE #1. E7... A$,2:
. STORE DATA STRING IN SPRITE #2.&E9.:.O
E<... 1,1,7,0,0,0,0:. TURN ON SPRITE #1.
XEA... 2,1,3,0,0,0,0:. TURN ON SPRITE #2
.~EB.:..EF... 1,240,70:. PUT SPRITE #1 @
P(X,Y) = P(240,70)..EP... 2,120,70:. PUT
SPRITE #2 @P(X,Y) = P(120,70)..FU... 1,
180 #6:. MOVE SPRITE#1 FROM TOP TO BOTT
OM.NFW... 2,180 #8:. MOVE SPRITE#1 FROM
TOP TO BOTTOM.TFX.:.]FZ...30.CF_.:.XFC.
..1,0:..2,0:.0,1.~FD.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL