LG-SPRITES
FILE INFORMATION
FILENAME(S): LG-SPRITES
FILE TYPE(S): PRG
FILE SIZE: 813b
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 1 disk(s)
FILE HASH
006766581ea13cad29517f4b5a8c3aa5d5d6bf35870389dd01889c270bf25c64
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-SPRITES | PRG | DuncanTwain | 23 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 52 45 41 44 53 48 41 50 45 53 20 |. TO READSHAPES | 00000010: 3A 46 49 4C 45 0D 20 42 4C 4F 41 44 20 57 4F 52 |:FILE. BLOAD WOR| 00000020: 44 20 3A 46 49 4C 45 20 22 2F 53 48 50 0D 45 4E |D :FILE "/SHP.EN| 00000030: 44 0D 0D 54 4F 20 54 42 3F 0D 20 4C 4F 43 41 4C |D..TO TB?. LOCAL| 00000040: 20 22 54 0D 20 4D 41 4B 45 20 22 54 20 2E 45 58 | "T. MAKE "T .EX| 00000050: 41 4D 49 4E 45 20 35 33 32 37 39 0D 20 4F 50 20 |AMINE 53279. OP | 00000060: 30 20 3C 20 42 49 54 41 4E 44 20 2E 45 58 41 4D |0 < BITAND .EXAM| 00000070: 49 4E 45 20 35 33 32 37 39 20 45 58 50 32 20 57 |INE 53279 EXP2 W| 00000080: 48 4F 0D 45 4E 44 0D 0D 54 4F 20 42 49 47 59 0D |HO.END..TO BIGY.| 00000090: 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 31 20 | .DEPOSIT 53271 | 000000A0: 42 49 54 4F 52 20 45 58 50 32 20 57 48 4F 20 2E |BITOR EXP2 WHO .| 000000B0: 45 58 41 4D 49 4E 45 20 35 33 32 37 31 0D 45 4E |EXAMINE 53271.EN| 000000C0: 44 0D 0D 54 4F 20 53 4D 41 4C 4C 59 0D 20 2E 44 |D..TO SMALLY. .D| 000000D0: 45 50 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 |EPOSIT 53271 BIT| 000000E0: 41 4E 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 |AND 255 - EXP2 W| 000000F0: 48 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 |HO .EXAMINE 5327| 00000100: 31 0D 45 4E 44 0D 0D 54 4F 20 42 49 47 58 0D 20 |1.END..TO BIGX. | 00000110: 2E 44 45 50 4F 53 49 54 20 35 33 32 37 37 20 42 |.DEPOSIT 53277 B| 00000120: 49 54 4F 52 20 45 58 50 32 20 57 48 4F 20 2E 45 |ITOR EXP2 WHO .E| 00000130: 58 41 4D 49 4E 45 20 35 33 32 37 37 0D 45 4E 44 |XAMINE 53277.END| 00000140: 0D 0D 54 4F 20 53 4D 41 4C 4C 58 0D 20 2E 44 45 |..TO SMALLX. .DE| 00000150: 50 4F 53 49 54 20 35 33 32 37 37 20 42 49 54 41 |POSIT 53277 BITA| 00000160: 4E 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 48 |ND 255 - EXP2 WH| 00000170: 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 37 |O .EXAMINE 53277| 00000180: 0D 45 4E 44 0D 0D 54 4F 20 41 53 4B 20 3A 4E 20 |.END..TO ASK :N | 00000190: 3A 43 4F 4D 4D 41 4E 44 2E 4C 49 53 54 0D 20 4C |:COMMAND.LIST. L| 000001A0: 4F 43 41 4C 20 22 43 55 52 52 45 4E 54 0D 20 4D |OCAL "CURRENT. M| 000001B0: 41 4B 45 20 22 43 55 52 52 45 4E 54 20 57 48 4F |AKE "CURRENT WHO| 000001C0: 0D 20 54 45 4C 4C 20 3A 4E 20 52 55 4E 20 3A 43 |. TELL :N RUN :C| 000001D0: 4F 4D 4D 41 4E 44 2E 4C 49 53 54 0D 20 54 45 4C |OMMAND.LIST. TEL| 000001E0: 4C 20 3A 43 55 52 52 45 4E 54 0D 45 4E 44 0D 0D |L :CURRENT.END..| 000001F0: 54 4F 20 45 41 43 48 20 3A 45 2E 57 48 4F 20 3A |TO EACH :E.WHO :| 00000200: 45 2E 57 48 41 54 0D 20 4C 4F 43 41 4C 20 22 4F |E.WHAT. LOCAL "O| 00000210: 2E 57 48 4F 20 4D 41 4B 45 20 22 4F 2E 57 48 4F |.WHO MAKE "O.WHO| 00000220: 20 57 48 4F 0D 20 45 41 43 48 31 20 3A 45 2E 57 | WHO. EACH1 :E.W| 00000230: 48 4F 0D 20 54 45 4C 4C 20 3A 4F 2E 57 48 4F 0D |HO. TELL :O.WHO.| 00000240: 45 4E 44 0D 0D 54 4F 20 45 41 43 48 31 20 3A 45 |END..TO EACH1 :E| 00000250: 2E 57 48 4F 0D 20 49 46 20 45 4D 50 54 59 3F 20 |.WHO. IF EMPTY? | 00000260: 3A 45 2E 57 48 4F 20 53 54 4F 50 0D 20 54 45 4C |:E.WHO STOP. TEL| 00000270: 4C 20 46 49 52 53 54 20 3A 45 2E 57 48 4F 20 52 |L FIRST :E.WHO R| 00000280: 55 4E 20 3A 45 2E 57 48 41 54 0D 20 45 41 43 48 |UN :E.WHAT. EACH| 00000290: 31 20 42 46 20 3A 45 2E 57 48 4F 0D 45 4E 44 0D |1 BF :E.WHO.END.| 000002A0: 0D 54 4F 20 45 58 50 32 20 3A 4E 0D 20 4F 50 20 |.TO EXP2 :N. OP | 000002B0: 49 54 45 4D 20 31 20 2B 20 3A 4E 20 5B 31 20 32 |ITEM 1 + :N [1 2| 000002C0: 20 34 20 38 20 31 36 20 33 32 20 36 34 20 31 32 | 4 8 16 32 64 12| 000002D0: 38 5D 0D 45 4E 44 0D 0D 54 4F 20 54 53 3F 0D 20 |8].END..TO TS?. | 000002E0: 4C 4F 43 41 4C 20 22 54 0D 20 4D 41 4B 45 20 22 |LOCAL "T. MAKE "| 000002F0: 54 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 38 |T .EXAMINE 53278| 00000300: 0D 20 4F 50 20 30 20 3C 20 42 49 54 41 4E 44 20 |. OP 0 < BITAND | 00000310: 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 38 20 45 |.EXAMINE 53278 E| 00000320: 58 50 32 20 57 48 4F 0D 45 4E 44 0D 0D |XP2 WHO.END.. |
. TO READSHAPES :FILE. BLOAD WORD :FILE "/SHP.END..TO TB?. LOCAL "T. MAKE "T .EX AMINE 53279. OP 0 < BITAND .EXAMINE 5327 9 EXP2 WHO.END..TO BIGY. .DEPOSIT 53271 BITOR EXP2 WHO .EXAMINE 53271.END..TO SM ALLY. .DEPOSIT 53271 BITAND 255 - EXP2 W HO .EXAMINE 53271.END..TO BIGX. .DEPOSIT 53277 BITOR EXP2 WHO .EXAMINE 53277.END ..TO SMALLX. .DEPOSIT 53277 BITAND 255 - EXP2 WHO .EXAMINE 53277.END..TO ASK :N :COMMAND.LIST. LOCAL "CURRENT. MAKE "CUR RENT WHO. TELL :N RUN :COMMAND.LIST. TEL L :CURRENT.END..TO EACH :E.WHO :E.WHAT. LOCAL "O.WHO MAKE "O.WHO WHO. EACH1 :E.W HO. TELL :O.WHO.END..TO EACH1 :E.WHO. IF EMPTY? :E.WHO STOP. TELL FIRST :E.WHO R UN :E.WHAT. EACH1 BF :E.WHO.END..TO EXP2 :N. OP ITEM 1 + :N [1 2 4 8 16 32 64 12 8].END..TO TS?. LOCAL "T. MAKE "T .EXAMI NE 53278. OP 0 < BITAND .EXAMINE 53278 E XP2 WHO.END..
> CLICK IMAGE PREVIEW FOR FULL MODAL