SPRITEN

FILE INFORMATION

FILENAME(S): SPRITEN

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 17:23:58

APPEARS ON: 1 disk(s)

FILE HASH

cc0f892688259fc3d884bdb7b5514d43928d36c39cc21433e40f1eb07bf63e10

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
64 ULTILITIES	SPRITEN	PRG	Quetzal & Style	23	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 12 2F 12 14 00 8F 20  44 52 41 57 20 54 48 45  |../.... DRAW THE|
00000010: 20 4F 52 49 47 49 4E 41  4C 20 42 4F 52 44 45 52  | ORIGINAL BORDER|
00000020: 53 20 42 59 20 54 59 50  49 4E 47 20 52 55 4E 00  |S BY TYPING RUN.|
00000030: 6B 12 19 00 8F 20 54 59  50 45 20 47 4F 54 4F 20  |k.... TYPE GOTO |
00000040: 32 30 30 20 54 4F 20 53  41 56 45 20 54 48 45 20  |200 TO SAVE THE |
00000050: 50 49 43 54 55 52 45 20  41 4E 44 20 44 52 41 57  |PICTURE AND DRAW|
00000060: 20 54 48 45 20 53 50 52  49 54 45 00 9E 12 1E 00  | THE SPRITE.....|
00000070: 8F 20 54 59 50 45 20 47  4F 54 4F 20 35 30 30 20  |. TYPE GOTO 500 |
00000080: 54 4F 20 4C 49 53 54 20  54 48 45 20 44 41 54 41  |TO LIST THE DATA|
00000090: 20 4F 4E 20 54 48 45 20  53 43 52 45 45 4E 00 D3  | ON THE SCREEN..|
000000A0: 12 23 00 8F 20 54 59 50  45 20 47 4F 54 4F 20 36  |.#.. TYPE GOTO 6|
000000B0: 30 30 20 54 4F 20 52 45  44 52 41 57 20 41 4E 44  |00 TO REDRAW AND|
000000C0: 20 4D 4F 44 49 46 59 20  54 48 45 20 50 49 43 54  | MODIFY THE PICT|
000000D0: 55 52 45 00 03 13 28 00  8F 20 54 59 50 45 20 47  |URE...(.. TYPE G|
000000E0: 4F 54 4F 20 37 30 30 20  54 4F 20 4C 49 53 54 20  |OTO 700 TO LIST |
000000F0: 44 41 54 41 20 54 4F 20  54 48 45 20 50 52 49 4E  |DATA TO THE PRIN|
00000100: 54 45 52 00 21 13 2D 00  86 20 41 52 28 35 30 34  |TER.!.-.. AR(504|
00000110: 29 2C 41 31 28 36 33 29  3A 20 56 B2 35 33 32 34  |),A1(63): V.5324|
00000120: 38 00 2B 13 64 00 8D 31  30 30 30 00 31 13 96 00  |8.+.d..1000.1...|
00000130: 80 00 3C 13 C8 00 8D 20  31 32 30 30 00 47 13 2C  |..<.... 1200.G.,|
00000140: 01 8D 20 31 33 30 30 00  52 13 90 01 8D 20 31 34  |.. 1300.R.... 14|
00000150: 30 30 00 58 13 C2 01 80  00 63 13 F4 01 8D 20 31  |00.X.....c.... 1|
00000160: 35 30 30 00 80 13 FE 01  8B 20 50 31 B2 31 20 A7  |500...... P1.1 .|
00000170: 20 98 31 20 3A 20 50 31  B2 30 20 3A 20 A0 20 31  | .1 : P1.0 : . 1|
00000180: 00 86 13 26 02 80 00 91  13 58 02 8D 20 31 36 30  |...&.....X.. 160|
00000190: 30 00 97 13 8A 02 80 00  A0 13 BC 02 50 31 B2 31  |0...........P1.1|
000001A0: 00 B0 13 C6 02 9F 20 31  2C 34 20 3A 20 9D 20 31  |...... 1,4 : . 1|
000001B0: 00 BA 13 D0 02 89 20 35  30 30 00 C0 13 20 03 8F  |...... 500... ..|
000001C0: 00 E5 13 E8 03 8F 20 53  45 54 20 55 50 20 49 4E  |...... SET UP IN|
000001D0: 46 4F 52 4D 41 54 49 4F  4E 20 46 4F 52 20 42 4F  |FORMATION FOR BO|
000001E0: 52 44 45 52 53 00 00 14  F2 03 99 22 93 22 3A 97  |RDERS......".":.|
000001F0: 35 33 32 38 31 2C 31 31  20 20 20 20 20 20 20 20  |53281,11        |
00000200: 00 2E 14 FC 03 53 B2 31  30 33 34 20 3A 20 53 31  |.....S.1034 : S1|
00000210: B2 31 30 35 37 20 3A 20  53 32 B2 31 20 3A 20 53  |.1057 : S2.1 : S|
00000220: 33 B2 31 30 30 20 3A 20  8D 20 31 31 30 30 00 5D  |3.100 : . 1100.]|
00000230: 14 06 04 53 B2 31 30 37  33 20 3A 20 53 31 B2 31  |...S.1073 : S1.1|
00000240: 38 37 33 20 3A 20 53 32  B2 34 30 20 3A 20 53 33  |873 : S2.40 : S3|
00000250: B2 31 30 33 20 3A 20 8D  20 31 31 30 30 00 89 14  |.103 : . 1100...|
00000260: 10 04 53 B2 31 39 31 34  20 3A 20 53 31 B2 31 39  |..S.1914 : S1.19|
00000270: 33 37 20 3A 20 53 32 B2  31 20 3A 20 53 33 B2 39  |37 : S2.1 : S3.9|
00000280: 39 20 3A 20 8D 31 31 30  30 00 B7 14 1A 04 53 B2  |9 : .1100.....S.|
00000290: 31 30 39 38 20 3A 20 53  31 B2 31 39 33 37 20 3A  |1098 : S1.1937 :|
000002A0: 20 53 32 B2 34 30 20 3A  20 53 33 B2 31 30 31 20  | S2.40 : S3.101 |
000002B0: 3A 20 8D 31 31 30 30 00  D9 14 24 04 53 B2 31 30  |: .1100...$.S.10|
000002C0: 33 34 20 3A 20 97 20 53  AA 37 2C 31 32 32 20 3A  |34 : . S.7,122 :|
000002D0: 20 97 20 53 AA 38 2C 37  36 00 F4 14 29 04 97 20  | . S.8,76...).. |
000002E0: 53 AA 31 35 2C 31 32 32  20 3A 20 97 20 53 AA 31  |S.15,122 : . S.1|
000002F0: 36 2C 37 36 00 15 15 2E  04 53 B2 31 39 31 34 20  |6,76.....S.1914 |
00000300: 3A 20 97 20 53 AA 37 2C  38 30 20 3A 20 97 20 53  |: . S.7,80 : . S|
00000310: AA 38 2C 37 39 00 2F 15  33 04 97 20 53 AA 31 35  |.8,79./.3.. S.15|
00000320: 2C 38 30 20 3A 20 97 20  53 AA 31 36 2C 37 39 00  |,80 : . S.16,79.|
00000330: 4F 15 38 04 53 B2 31 34  37 32 20 3A 20 97 20 53  |O.8.S.1472 : . S|
00000340: 2C 36 37 20 3A 20 97 20  53 AA 32 37 2C 36 37 00  |,67 : . S.27,67.|
00000350: 55 15 42 04 8E 00 69 15  4C 04 8F 20 20 44 52 41  |U.B...i.L..  DRA|
00000360: 57 20 42 4F 52 44 45 52  53 00 7D 15 56 04 81 20  |W BORDERS.}.V.. |
00000370: 49 B2 53 20 A4 20 53 31  20 A9 20 53 32 00 8D 15  |I.S . S1 . S2...|
00000380: 60 04 3A 20 20 20 20 97  20 49 2C 53 33 00 95 15  |`.:    . I,S3...|
00000390: 6A 04 82 20 49 00 9B 15  74 04 8E 00 A1 15 7E 04  |j.. I...t.....~.|
000003A0: 8F 00 C3 15 B0 04 8F 20  20 50 55 54 20 42 49 54  |.......  PUT BIT|
000003B0: 20 44 41 54 41 20 49 4E  20 41 52 52 41 59 20 41  | DATA IN ARRAY A|
000003C0: 52 28 29 00 D9 15 BA 04  49 31 B2 30 20 3A 20 8F  |R().....I1.0 : .|
000003D0: 20 20 49 31 3D 5A 45 52  4F 00 F2 15 C4 04 81 20  |  I1=ZERO...... |
000003E0: 53 B2 31 30 37 34 20 A4  20 31 38 37 34 20 A9 20  |S.1074 . 1874 . |
000003F0: 34 30 00 07 16 CE 04 3A  20 20 20 81 20 49 B2 53  |40.....:   . I.S|
00000400: 20 A4 20 53 AA 32 33 00  1C 16 D8 04 3A 20 20 20  | . S.23.....:   |
00000410: 20 20 20 20 20 49 31 B2  49 31 AA 31 00 42 16 E2  |     I1.I1.1.B..|
00000420: 04 3A 20 20 20 20 20 20  20 20 41 52 28 49 31 29  |.:        AR(I1)|
00000430: B2 30 20 3A 20 8F 20 41  52 28 49 31 29 3D 5A 45  |.0 : . AR(I1)=ZE|
00000440: 52 4F 00 64 16 EC 04 3A  20 20 20 20 20 20 20 20  |RO.d...:        |
00000450: 8B 20 C2 28 49 29 B2 34  39 20 A7 20 41 52 28 49  |. .(I).49 . AR(I|
00000460: 31 29 B2 31 00 70 16 F6  04 3A 20 20 20 82 20 49  |1).1.p...:   . I|
00000470: 00 78 16 00 05 82 20 53  00 7E 16 0A 05 8E 00 84  |.x.... S.~......|
00000480: 16 0F 05 8F 00 B3 16 14  05 8F 20 20 44 45 43 4F  |..........  DECO|
00000490: 44 45 20 26 20 50 55 54  20 44 45 43 49 4D 41 4C  |DE & PUT DECIMAL|
000004A0: 20 44 41 54 41 20 49 4E  20 41 52 52 41 59 20 41  | DATA IN ARRAY A|
000004B0: 31 28 29 00 BB 16 1E 05  59 B2 31 00 CA 16 28 05  |1().....Y.1...(.|
000004C0: 81 20 49 B2 31 20 A4 20  36 33 00 F0 16 32 05 3A  |. I.1 . 63...2.:|
000004D0: 20 20 20 44 45 43 B2 30  20 3A 20 42 49 4E B2 31  |   DEC.0 : BIN.1|
000004E0: 32 38 20 3A 20 8F 20 20  44 45 43 3D 5A 45 52 4F  |28 : .  DEC=ZERO|
000004F0: 00 05 17 3C 05 3A 20 20  20 81 20 49 58 B2 59 20  |...<.:   . IX.Y |
00000500: A4 20 59 AA 37 00 24 17  46 05 3A 20 20 20 20 20  |. Y.7.$.F.:     |
00000510: 20 20 44 45 43 B2 44 45  43 AA 42 49 4E AC 41 52  |  DEC.DEC.BIN.AR|
00000520: 28 49 58 29 00 3A 17 50  05 3A 20 20 20 20 20 20  |(IX).:.P.:      |
00000530: 20 42 49 4E B2 42 49 4E  AD 32 00 47 17 5A 05 3A  | BIN.BIN.2.G.Z.:|
00000540: 20 20 20 82 20 49 58 00  61 17 64 05 3A 20 20 20  |   . IX.a.d.:   |
00000550: 59 B2 59 AA 38 20 3A 20  41 31 28 49 29 B2 44 45  |Y.Y.8 : A1(I).DE|
00000560: 43 00 69 17 6E 05 82 20  49 00 6F 17 73 05 8E 00  |C.i.n.. I.o.s...|
00000570: 75 17 75 05 8F 00 8C 17  78 05 8F 20 20 44 52 41  |u.u.....x..  DRA|
00000580: 57 20 54 48 45 20 53 50  52 49 54 45 00 9B 17 82  |W THE SPRITE....|
00000590: 05 81 20 49 B2 31 20 A4  20 36 33 00 B1 17 8C 05  |.. I.1 . 63.....|
000005A0: 3A 20 20 20 97 20 38 33  31 AA 49 2C 41 31 28 49  |:   . 831.I,A1(I|
000005B0: 29 00 B9 17 96 05 82 20  49 00 D2 17 A0 05 97 20  |)...... I...... |
000005C0: 56 AA 34 2C 37 30 20 3A  20 97 20 56 AA 35 2C 32  |V.4,70 : . V.5,2|
000005D0: 30 35 00 EB 17 AA 05 97  20 32 30 34 32 2C 31 33  |05...... 2042,13|
000005E0: 20 3A 20 97 20 56 AA 32  31 2C 34 00 F1 17 B4 05  | : . V.21,4.....|
000005F0: 8E 00 F7 17 BE 05 8F 00  08 18 DC 05 8F 20 20 4C  |.............  L|
00000600: 49 53 54 20 44 41 54 41  00 2F 18 E6 05 99 22 93  |IST DATA./....".|
00000610: 22 20 3A 20 97 20 56 AA  32 31 2C 30 20 3A 20 8F  |" : . V.21,0 : .|
00000620: 20 50 4F 4B 45 20 56 2B  32 31 2C 5A 45 52 4F 00  | POKE V+21,ZERO.|
00000630: 42 18 F0 05 81 20 49 B2  31 20 A4 20 36 33 20 A9  |B.... I.1 . 63 .|
00000640: 20 33 00 62 18 FA 05 3A  20 20 20 99 20 41 31 28  | 3.b...:   . A1(|
00000650: 49 29 2C 41 31 28 49 AA  31 29 2C 41 31 28 49 AA  |I),A1(I.1),A1(I.|
00000660: 32 29 00 6A 18 04 06 82  20 49 00 70 18 0E 06 8E  |2).j.... I.p....|
00000670: 00 76 18 18 06 8F 00 8C  18 40 06 8F 20 20 52 45  |.v.......@..  RE|
00000680: 44 52 41 57 20 50 49 43  54 55 52 45 00 A1 18 4A  |DRAW PICTURE...J|
00000690: 06 97 35 33 32 38 31 2C  31 35 3A 8D 20 31 30 30  |..53281,15:. 100|
000006A0: 30 00 B6 18 54 06 49 31  B2 30 20 3A 20 8F 20 49  |0...T.I1.0 : . I|
000006B0: 31 3D 5A 45 52 4F 00 CF  18 5E 06 81 20 53 B2 31  |1=ZERO...^.. S.1|
000006C0: 30 37 34 20 A4 20 31 38  37 34 20 A9 20 34 30 00  |074 . 1874 . 40.|
000006D0: E4 18 68 06 3A 20 20 20  81 20 49 B2 53 20 A4 20  |..h.:   . I.S . |
000006E0: 53 AA 32 33 00 F8 18 72  06 3A 20 20 20 20 20 20  |S.23...r.:      |
000006F0: 20 49 31 B2 49 31 AA 31  00 18 19 7C 06 3A 20 20  | I1.I1.1...|.:  |
00000700: 20 20 20 20 20 8B 20 41  52 28 49 31 29 B2 31 20  |     . AR(I1).1 |
00000710: A7 20 97 20 49 2C 34 39  00 24 19 86 06 3A 20 20  |. . I,49.$...:  |
00000720: 20 82 20 49 00 2C 19 90  06 82 20 53 00 32 19 9A  | . I.,.... S.2..|
00000730: 06 8E 00 00 00                                    |.....           |

../.... DRAW THE ORIGINAL BORDERS BY TYP
ING RUN.K.... TYPE GOTO 200 TO SAVE THE 
PICTURE AND DRAW THE SPRITE...... TYPE G
OTO 500 TO LIST THE DATA ON THE SCREEN.S
.#.. TYPE GOTO 600 TO REDRAW AND MODIFY 
THE PICTURE...(.. TYPE GOTO 700 TO LIST 
DATA TO THE PRINTER.!.-.. AR(504),A1(63)
: V.53248.+.D..1000.1.....<.H.. 1200.G.,
.. 1300.R.... 1400.X.B...C.... 1500.....
. P1.1 . .1 : P1.0 :   1...&.....X.. 160
0....... ...P1.1...F.. 1,4 : . 1...P.. 5
00... ........ SET UP INFORMATION FOR BO
RDERS......".":.53281,11        .....S.1
034 : S1.1057 : S2.1 : S3.100 : . 1100.]
...S.1073 : S1.1873 : S2.40 : S3.103 : .
 1100.....S.1914 : S1.1937 : S2.1 : S3.9
9 : .1100.....S.1098 : S1.1937 : S2.40 :
 S3.101 : .1100.Y.$.S.1034 : . S.7,122 :
 . S.8,76...).. S.15,122 : . S.16,76....
.S.1914 : . S.7,80 : . S.8,79./.3.. S.15
,80 : . S.16,79.O.8.S.1472 : . S,67 : . 
S.27,67.U.B...I.L..  DRAW BORDERS.}.V.. 
I.S . S1 . S2...`.:    . I,S3...J.. I...
T.....~...C....  PUT BIT DATA IN ARRAY A
R().Y...I1.0 : .  I1=ZERO...D.. S.1074 .
 1874 . 40...N.:   . I.S . S.23...X.:   
     I1.I1.1.B...:        AR(I1).0 : . A
R(I1)=ZERO.D...:        . B(I).49 . AR(I
1).1.P...:   . I.X.... S.~..............
..  DECODE & PUT DECIMAL DATA IN ARRAY A
1().....Y.1.J.(.. I.1 . 63...2.:   DEC.0
 : BIN.128 : .  DEC=ZERO...<.:   . IX.Y 
. Y.7.$.F.:       DEC.DEC.BIN.AR(IX).:.P
.:       BIN.BIN.2.G.Z.:   . IX.A.D.:   
Y.Y.8 : A1(I).DEC.I.N.. I.O.S...U.U.....
X..  DRAW THE SPRITE...... I.1 . 63.....
:   . 831.I,A1(I)...... I.R. .. V.4,70 :
 . V.5,205...... 2042,13 : . V.21,4.....
.............  LIST DATA./...."." : . V.
21,0 : . POKE V+21,ZERO.B.... I.1 . 63 .
 3.B...:   . A1(I),A1(I.1),A1(I.2).J....
 I.P.....V.......@..  REDRAW PICTURE...J
..53281,15:. 1000...T.I1.0 : . I1=ZERO.O
.^.. S.1074 . 1874 . 40...H.:   . I.S . 
S.23...R.:       I1.I1.1...|.:       . A
R(I1).1 . . I,49.$...:   . I.,.... S.2..
.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL