SPRITE CODER
FILE INFORMATION
FILENAME(S): SPRITE CODER
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:23:52
APPEARS ON: 1 disk(s)
FILE HASH
abe90e8e4f3f33aed02ff499bdda99dda41aabd752cfb82c430e6cea32dd02fc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 25 1 | SPRITE CODER | PRG | DuncanTwain | 25 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 05 00 86 20 53 28 32 32 2C 32 33 29 |....... S(22,23)| 00000010: 2C 42 28 33 2C 32 32 29 00 33 08 0A 00 8F 20 53 |,B(3,22).3.... S| 00000020: 50 52 49 54 45 20 43 4F 44 45 52 20 50 52 4F 47 |PRITE CODER PROG| 00000030: 52 41 4D 00 47 08 0B 00 8F 20 42 59 20 54 49 4D |RAM.G.... BY TIM| 00000040: 20 4B 4E 49 47 48 54 00 82 08 0C 00 97 20 35 33 | KNIGHT...... 53| 00000050: 32 38 30 2C 31 34 3A 97 20 35 33 32 38 31 2C 36 |280,14:. 53281,6| 00000060: 3A 99 20 C7 28 31 34 32 29 3A 99 22 93 22 3A 97 |:. .(142):.".":.| 00000070: 20 35 33 32 36 39 2C 30 3A 97 20 35 34 32 39 36 | 53269,0:. 54296| 00000080: 2C 30 00 A8 08 0D 00 99 3A 99 20 22 20 20 20 20 |,0......:. " | 00000090: 57 45 4C 43 4F 4D 45 20 54 4F 20 53 50 52 49 54 |WELCOME TO SPRIT| 000000A0: 45 20 43 4F 44 45 52 22 00 D5 08 0E 00 99 3A 99 |E CODER"......:.| 000000B0: 20 22 54 48 49 53 20 50 52 4F 47 52 41 4D 20 54 | "THIS PROGRAM T| 000000C0: 41 4B 45 53 20 54 48 45 20 50 49 43 54 55 52 45 |AKES THE PICTURE| 000000D0: 20 59 4F 55 22 00 FA 08 0F 00 99 22 50 55 54 20 | YOU"......"PUT | 000000E0: 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 20 41 4E |ON THE SCREEN AN| 000000F0: 44 20 46 49 47 55 52 45 53 22 00 22 09 10 00 99 |D FIGURES"."....| 00000100: 22 54 48 45 20 44 41 54 41 20 53 54 41 54 45 4D |"THE DATA STATEM| 00000110: 45 4E 54 53 20 46 4F 52 20 41 20 53 50 52 49 54 |ENTS FOR A SPRIT| 00000120: 45 22 00 48 09 11 00 99 3A 99 22 54 4F 20 4D 41 |E".H....:."TO MA| 00000130: 4B 45 20 54 48 45 20 50 49 43 54 55 52 45 20 59 |KE THE PICTURE Y| 00000140: 4F 55 20 4D 55 53 54 22 00 72 09 12 00 99 22 45 |OU MUST".r...."E| 00000150: 4E 54 45 52 20 41 20 4C 45 54 54 45 52 20 54 48 |NTER A LETTER TH| 00000160: 45 4E 20 45 4E 54 45 52 20 41 20 4E 55 4D 42 45 |EN ENTER A NUMBE| 00000170: 52 22 00 99 09 13 00 99 3A 99 22 54 48 45 20 4E |R"......:."THE N| 00000180: 55 4D 42 45 52 20 4D 55 53 54 20 42 45 20 54 57 |UMBER MUST BE TW| 00000190: 4F 20 44 49 47 49 54 53 22 00 D0 09 14 00 99 3A |O DIGITS"......:| 000001A0: 99 20 22 20 20 20 20 20 20 20 20 20 20 30 31 20 |. " 01 | 000001B0: 20 46 4F 52 20 20 31 22 3A 99 22 20 20 20 20 20 | FOR 1":." | 000001C0: 20 20 20 20 20 30 32 20 20 46 4F 52 20 20 32 22 | 02 FOR 2"| 000001D0: 00 ED 09 15 00 99 22 20 20 20 20 20 20 20 20 20 |......" | 000001E0: 20 31 38 20 20 46 4F 52 20 20 31 38 22 00 14 0A | 18 FOR 18"...| 000001F0: 16 00 99 3A 99 22 59 4F 55 20 43 41 4E 20 54 55 |...:."YOU CAN TU| 00000200: 52 4E 20 4F 46 46 20 41 20 4D 49 53 54 41 4B 45 |RN OFF A MISTAKE| 00000210: 20 42 59 22 00 39 0A 17 00 99 22 52 45 2D 45 4E | BY".9...."RE-EN| 00000220: 54 45 52 49 4E 47 20 54 48 45 20 53 41 4D 45 20 |TERING THE SAME | 00000230: 4C 4F 43 41 54 49 4F 4E 22 00 61 0A 18 00 99 3A |LOCATION".a....:| 00000240: 99 22 50 52 45 53 53 20 12 5A 92 20 57 48 45 4E |."PRESS .Z. WHEN| 00000250: 20 46 49 4E 49 53 48 45 44 20 4D 41 4B 49 4E 47 | FINISHED MAKING| 00000260: 22 00 88 0A 19 00 99 22 54 48 45 20 50 49 43 54 |"......"THE PICT| 00000270: 55 52 45 20 54 4F 20 53 54 41 52 54 20 54 48 45 |URE TO START THE| 00000280: 20 43 4F 44 49 4E 47 22 00 B8 0A 1A 00 99 3A 99 | CODING"......:.| 00000290: 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |"PRESS ANY KEY T| 000002A0: 4F 20 53 54 41 52 54 22 3A 92 20 31 39 37 2C 36 |O START":. 197,6| 000002B0: 34 2C 36 34 3A A1 51 24 00 C1 0A 1B 00 99 22 93 |4,64:.Q$......".| 000002C0: 22 00 EC 0A 1E 00 99 22 20 20 20 20 20 20 20 20 |"......" | 000002D0: 20 5B 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E | [ABCDEFGHIJKLMN| 000002E0: 4F 50 51 52 53 54 55 56 57 58 5D 22 00 11 0B 28 |OPQRSTUVWX]"...(| 000002F0: 00 81 20 49 20 B2 20 31 20 A4 20 32 30 3A 8D 20 |.. I . 1 . 20:. | 00000300: 31 30 30 30 3A 99 49 24 3B A6 32 33 29 3B 49 3A |1000:.I$;.23);I:| 00000310: 82 00 2B 0B 2D 00 99 22 20 20 20 20 20 20 20 20 |..+.-.." | 00000320: 32 31 22 3B A6 32 33 29 3B 32 31 00 56 0B 32 00 |21";.23);21.V.2.| 00000330: 99 22 20 20 20 20 20 20 20 20 20 5B 41 42 43 44 |." [ABCD| 00000340: 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 |EFGHIJKLMNOPQRST| 00000350: 55 56 57 58 5D 22 00 82 0B 3C 00 99 C7 28 31 39 |UVWX]"...<...(19| 00000360: 29 3B 3A 99 22 20 20 20 20 20 20 20 20 20 22 3A |);:." ":| 00000370: 99 C7 28 31 39 29 3B 3A 8F 20 47 4F 20 48 4F 4D |..(19);:. GO HOM| 00000380: 45 21 00 8C 0B 41 00 99 22 3F 22 3B 00 A2 0B 46 |E!...A.."?";...F| 00000390: 00 A1 20 58 24 3A 8B 20 58 24 B2 22 22 20 A7 20 |.. X$:. X$."" . | 000003A0: 37 30 00 B6 0B 4B 00 8B 20 58 24 B2 22 5A 22 20 |70...K.. X$."Z" | 000003B0: A7 20 35 30 30 30 00 D5 0B 50 00 8B 20 C6 28 58 |. 5000...P.. .(X| 000003C0: 24 29 B3 36 35 20 B0 20 C6 28 58 24 29 B1 38 38 |$).65 . .(X$).88| 000003D0: 20 A7 20 37 30 00 E3 0B 55 00 99 58 24 3B 22 20 | . 70...U..X$;" | 000003E0: 2F 22 3B 00 FA 0B 5A 00 A1 20 59 31 24 3A 8B 20 |/";...Z.. Y1$:. | 000003F0: 59 31 24 B2 22 22 A7 20 39 30 00 1B 0C 5F 00 8B |Y1$."". 90..._..| 00000400: 20 C6 28 59 31 24 29 B3 34 38 20 B0 20 C6 28 59 | .(Y1$).48 . .(Y| 00000410: 31 24 29 B1 35 37 20 A7 20 39 30 00 34 0C 64 00 |1$).57 . 90.4.d.| 00000420: A1 20 59 32 24 3A 8B 20 59 32 24 B2 22 22 20 A7 |. Y2$:. Y2$."" .| 00000430: 20 31 30 30 00 56 0C 69 00 8B 20 C6 28 59 32 24 | 100.V.i.. .(Y2$| 00000440: 29 B3 34 38 20 B0 20 C6 28 59 32 24 29 B1 35 37 |).48 . .(Y2$).57| 00000450: 20 A7 20 31 30 30 00 6D 0C 6E 00 59 24 B2 59 31 | . 100.m.n.Y$.Y1| 00000460: 24 AA 59 32 24 3A 59 B2 C5 28 59 24 29 00 81 0C |$.Y2$:Y..(Y$)...| 00000470: 73 00 8B 20 59 B1 32 31 B0 59 B3 31 20 A7 20 39 |s.. Y.21.Y.1 . 9| 00000480: 30 00 89 0C 78 00 99 59 3B 00 94 0C 82 00 4C B2 |0...x..Y;.....L.| 00000490: 31 30 30 39 00 A9 0C 8C 00 4C B2 4C AA 28 59 AC |1009.....L.L.(Y.| 000004A0: 34 30 29 AA C6 28 58 24 29 00 D1 0C 96 00 8B 20 |40)..(X$)...... | 000004B0: C2 28 4C 29 B2 32 30 39 20 A7 20 97 20 4C 2C 30 |.(L).209 . . L,0| 000004C0: 3A 97 20 4C AA 35 34 32 37 32 2C 36 3A 89 20 36 |:. L.54272,6:. 6| 000004D0: 30 00 E9 0C C2 01 97 20 4C 2C 32 30 39 3A 97 20 |0...... L,209:. | 000004E0: 4C AA 35 34 32 37 32 2C 31 00 F2 0C F4 01 89 20 |L.54272,1...... | 000004F0: 36 30 00 F8 0C E7 03 80 00 11 0D E8 03 8F 20 43 |60............ C| 00000500: 4C 45 41 4E 20 55 50 20 4E 55 4D 42 45 52 49 4E |LEAN UP NUMBERIN| 00000510: 47 00 23 0D F2 03 8B 20 49 B3 31 30 20 A7 20 31 |G.#.... I.10 . 1| 00000520: 30 34 30 00 2F 0D FC 03 49 24 B2 C4 28 49 29 00 |040./...I$..(I).| 00000530: 52 0D 06 04 49 24 B2 22 20 20 20 20 20 20 20 20 |R...I$." | 00000540: 22 AA C9 28 C4 28 49 29 2C 32 29 3A 89 20 31 30 |"..(.(I),2):. 10| 00000550: 35 30 00 69 0D 10 04 49 24 B2 22 20 20 20 20 20 |50.i...I$." | 00000560: 20 20 20 22 AA C4 28 49 29 00 6F 0D 1A 04 8E 00 | "..(I).o.....| 00000570: 8B 0D 88 13 8F 20 45 58 45 43 55 54 45 20 53 50 |..... EXECUTE SP| 00000580: 52 49 54 45 20 43 4F 44 49 4E 47 00 9C 0D 92 13 |RITE CODING.....| 00000590: 81 20 49 20 B2 20 32 20 A4 20 32 32 00 AB 0D 9C |. I . 2 . 22....| 000005A0: 13 81 20 4A B2 30 20 A4 20 32 33 00 D8 0D A6 13 |.. J.0 . 23.....| 000005B0: 8B 20 C2 28 31 30 33 34 AA 28 49 AC 34 30 29 AA |. .(1034.(I.40).| 000005C0: 4A 29 B2 32 30 39 20 A7 20 53 28 49 2C 4A 29 B2 |J).209 . S(I,J).| 000005D0: 31 3A 89 20 35 30 33 35 00 E5 0D A7 13 53 28 49 |1:. 5035.....S(I| 000005E0: 2C 4A 29 B2 30 00 FC 0D AB 13 97 20 31 30 33 34 |,J).0...... 1034| 000005F0: AA 28 49 AC 34 30 29 AA 4A 2C 38 33 00 04 0E B0 |.(I.40).J,83....| 00000600: 13 82 3A 82 00 15 0E BA 13 81 20 49 20 B2 20 32 |..:....... I . 2| 00000610: 20 A4 20 32 32 00 25 0E C4 13 81 20 4A 20 B2 20 | . 22.%.... J . | 00000620: 30 20 A4 20 37 00 4C 0E CE 13 8B 20 53 28 49 2C |0 . 7.L.... S(I,| 00000630: 4A 29 B2 31 20 A7 20 42 28 31 2C 49 29 B2 42 28 |J).1 . B(1,I).B(| 00000640: 31 2C 49 29 AA 32 AE 28 37 AB 4A 29 00 54 0E D8 |1,I).2.(7.J).T..| 00000650: 13 82 3A 82 00 65 0E E2 13 81 20 49 20 B2 20 32 |..:..e.... I . 2| 00000660: 20 A4 20 32 32 00 74 0E EC 13 81 20 4A B2 38 20 | . 22.t.... J.8 | 00000670: A4 20 31 35 00 9C 0E F6 13 8B 20 53 28 49 2C 4A |. 15...... S(I,J| 00000680: 29 B2 31 20 A7 20 42 28 32 2C 49 29 B2 42 28 32 |).1 . B(2,I).B(2| 00000690: 2C 49 29 AA 32 AE 28 31 35 AB 4A 29 00 A4 0E F7 |,I).2.(15.J)....| 000006A0: 13 82 3A 82 00 B3 0E FB 13 81 20 49 B2 32 20 A4 |..:....... I.2 .| 000006B0: 20 32 32 00 C5 0E FD 13 81 20 4A 20 B2 20 31 36 | 22...... J . 16| 000006C0: 20 A4 20 32 33 00 ED 0E 00 14 8B 20 53 28 49 2C | . 23...... S(I,| 000006D0: 4A 29 B2 31 20 A7 20 42 28 33 2C 49 29 B2 42 28 |J).1 . B(3,I).B(| 000006E0: 33 2C 49 29 AA 32 AE 28 32 33 AB 4A 29 00 F5 0E |3,I).2.(23.J)...| 000006F0: 01 14 82 3A 82 00 1C 0F 02 14 99 22 93 22 3A 99 |...:.......".":.| 00000700: 22 54 48 45 20 44 41 54 41 20 4E 55 4D 42 45 52 |"THE DATA NUMBER| 00000710: 53 20 4E 45 43 45 53 53 41 52 59 22 00 3C 0F 03 |S NECESSARY".<..| 00000720: 14 99 22 54 4F 20 43 52 45 41 54 45 20 59 4F 55 |.."TO CREATE YOU| 00000730: 52 20 53 50 52 49 54 45 3A 22 3A 99 00 5B 0F 04 |R SPRITE:":..[..| 00000740: 14 99 22 57 49 4C 4C 20 42 45 20 53 48 4F 57 4E |.."WILL BE SHOWN| 00000750: 20 41 46 54 45 52 20 59 4F 55 22 00 84 0F 05 14 | AFTER YOU".....| 00000760: 99 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |."PRESS ANY KEY"| 00000770: 3A 92 20 31 39 37 2C 36 34 2C 36 34 3A A1 51 24 |:. 197,64,64:.Q$| 00000780: 3A 99 3A 99 00 AE 0F 0A 14 81 20 49 20 B2 20 32 |:.:....... I . 2| 00000790: 20 A4 20 32 32 3A 81 20 4A B2 31 20 A4 20 33 3A | . 22:. J.1 . 3:| 000007A0: 99 42 28 4A 2C 49 29 2C 3A 82 3A 99 3A 82 00 E1 |.B(J,I),:.:.:...| 000007B0: 0F 14 14 99 3A 99 22 50 52 45 53 53 20 41 4E 59 |....:."PRESS ANY| 000007C0: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE| 000007D0: 22 3A 92 20 31 39 37 2C 36 34 2C 36 34 3A A1 51 |":. 197,64,64:.Q| 000007E0: 24 00 00 10 1E 14 97 20 35 33 32 38 30 2C 31 34 |$...... 53280,14| 000007F0: 3A 97 20 35 33 32 38 31 2C 36 3A 99 20 22 93 22 |:. 53281,6:. "."| 00000800: 00 06 10 28 14 80 00 00 00 02 |...(...... |
....... S(22,23),B(3,22).3.... SPRITE CO DER PROGRAM.G.... BY TIM KNIGHT...... 53 280,14:. 53281,6:. G(142):.".":. 53269,0 :. 54296,0......:. " WELCOME TO SPRIT E CODER".U....:. "THIS PROGRAM TAKES THE PICTURE YOU"......"PUT ON THE SCREEN AN D FIGURES"."...."THE DATA STATEMENTS FOR A SPRITE".H....:."TO MAKE THE PICTURE Y OU MUST".R...."ENTER A LETTER THEN ENTER A NUMBER"......:."THE NUMBER MUST BE TW O DIGITS".P....:. " 01 FOR 1" :." 02 FOR 2"......" 18 FOR 18"......:."YOU CAN TURN OFF A MISTAKE BY".9...."RE-ENTERING THE SAME LOCATION".A....:."PRESS .Z. WHEN FINISHE D MAKING"......"THE PICTURE TO START THE CODING"......:."PRESS ANY KEY TO START" :. 197,64,64:.Q$.A...."."......" [ABCDEFGHIJKLMNOPQRSTUVWX]"...(.. I . 1 . 20:. 1000:.I$;.23);I:..+.-.." 21";.23);21.V.2.." [ABCDEFGHIJKL MNOPQRSTUVWX]"...<..G(19);:." ": .G(19);:. GO HOME!...A.."?";...F.. X$:. X$."" . 70...K.. X$."Z" . 5000.U.P.. F(X $).65 . F(X$).88 . 70...U..X$;" /";...Z. . Y1$:. Y1$."". 90..._.. F(Y1$).48 . F(Y 1$).57 . 90.4.D.. Y2$:. Y2$."" . 100.V.I .. F(Y2$).48 . F(Y2$).57 . 100.M.N.Y$.Y1 $.Y2$:Y.E(Y$)...S.. Y.21.Y.1 . 90...X..Y ;.....L.1009.....L.L.(Y.40).F(X$).Q.... B(L).209 . . L,0:. L.54272,6:. 60...B.. L,209:. L.54272,1...... 60............ C LEAN UP NUMBERING.#.... I.10 . 1040./... I$.D(I).R...I$." ".I(D(I),2):. 10 50.I...I$." ".D(I).O.......... EX ECUTE SPRITE CODING...... I . 2 . 22.... .. J.0 . 23.X.... B(1034.(I.40).J).209 . S(I,J).1:. 5035.....S(I,J).0...... 1034 .(I.40).J,83......:....... I . 2 . 22.%. D.. J . 0 . 7.L.N.. S(I,J).1 . B(1,I).B( 1,I).2.(7.J).T.X..:..E.... I . 2 . 22.T. ... J.8 . 15...... S(I,J).1 . B(2,I).B(2 ,I).2.(15.J)......:....... I.2 . 22.E... . J . 16 . 23...... S(I,J).1 . B(3,I).B( 3,I).2.(23.J)......:.......".":."THE DAT A NUMBERS NECESSARY".<...."TO CREATE YOU R SPRITE:":..[...."WILL BE SHOWN AFTER Y OU"......"PRESS ANY KEY":. 197,64,64:.Q$ :.:....... I . 2 . 22:. J.1 . 3:.B(J,I), :.:.:.......:."PRESS ANY KEY TO CONTINUE ":. 197,64,64:.Q$...... 53280,14:. 53281 ,6:. "."...(......
> CLICK IMAGE PREVIEW FOR FULL MODAL