SHOWSPRITE.L
FILE INFORMATION
FILENAME(S): SHOWSPRITE.L
FILE TYPE(S): SEQ
FILE SIZE: 254b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 3 disk(s)
FILE HASH
bbd9e671c52657bfd0d81c7d11aa020ed6c371b659f68f8c6428623760dff751
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | SHOWSPRITE.L | SEQ | hedning, Mattias H00r | 8 | 1 | DOWNLOAD FILE |
| CCS COMAL | SHOWSPRITE.L | SEQ | hedning, Mattias H00r | 8 | 1 | DOWNLOAD FILE |
| COMAL A | SHOWSPRITE.L | SEQ | hedning, Helsinborg | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 53 48 4F 57 53 50 |9000 PROC SHOWSP| 00000010: 52 49 54 45 28 4E 55 4D 29 20 43 4C 4F 53 45 44 |RITE(NUM) CLOSED| 00000020: 0D 39 30 31 30 20 56 49 43 3A 3D 35 33 32 34 38 |.9010 VIC:=53248| 00000030: 0D 39 30 32 30 20 58 3A 3D 32 5E 4E 55 4D 0D 39 |.9020 X:=2^NUM.9| 00000040: 30 33 30 20 59 3A 3D 28 50 45 45 4B 28 56 49 43 |030 Y:=(PEEK(VIC| 00000050: 2B 32 31 29 20 4D 4F 44 20 28 32 2A 58 29 29 20 |+21) MOD (2*X)) | 00000060: 44 49 56 20 58 0D 39 30 34 30 20 49 46 20 4E 4F |DIV X.9040 IF NO| 00000070: 54 20 59 20 54 48 45 4E 20 50 4F 4B 45 20 56 49 |T Y THEN POKE VI| 00000080: 43 2B 32 31 2C 50 45 45 4B 28 56 49 43 2B 32 31 |C+21,PEEK(VIC+21| 00000090: 29 2B 58 0D 39 30 35 30 20 59 3A 3D 28 50 45 45 |)+X.9050 Y:=(PEE| 000000A0: 4B 28 32 37 32 37 36 29 20 4D 4F 44 20 28 32 2A |K(27276) MOD (2*| 000000B0: 58 29 29 20 44 49 56 20 58 0D 39 30 36 30 20 49 |X)) DIV X.9060 I| 000000C0: 46 20 4E 4F 54 20 59 20 54 48 45 4E 20 50 4F 4B |F NOT Y THEN POK| 000000D0: 45 20 32 37 32 37 36 2C 50 45 45 4B 28 32 37 32 |E 27276,PEEK(272| 000000E0: 37 36 29 2B 58 0D 39 30 37 30 20 45 4E 44 50 52 |76)+X.9070 ENDPR| 000000F0: 4F 43 20 53 48 4F 57 53 50 52 49 54 45 0D |OC SHOWSPRITE. |
9000 PROC SHOWSPRITE(NUM) CLOSED.9010 VI C:=53248.9020 X:=2^NUM.9030 Y:=(PEEK(VIC +21) MOD (2*X)) DIV X.9040 IF NOT Y THEN POKE VIC+21,PEEK(VIC+21)+X.9050 Y:=(PEE K(27276) MOD (2*X)) DIV X.9060 IF NOT Y THEN POKE 27276,PEEK(27276)+X.9070 ENDPR OC SHOWSPRITE.
> CLICK IMAGE PREVIEW FOR FULL MODAL