_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SPRITEDEMOS.LOGO

FILE INFORMATION

FILENAME(S): SPRITEDEMOS.LOGO

FILE TYPE(S): PRG

FILE SIZE: 858b

FIRST SEEN: 2025-11-02 16:30:34

APPEARS ON: 1 disk(s)

FILE HASH

78ef2017c59a7e9c7b7a24f21bbe59e5f7d90bc9de6abef3dbd2fd786fa895fb

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NG USERS 11A SPRITEDEMOS.LOGO PRG Treasure Chest - OzzyC64 12 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 41 53 4B  20 3A 4E 20 3A 43 4F 4D  |. TO ASK :N :COM|
00000010: 4D 41 4E 44 2E 4C 49 53  54 0D 20 4C 4F 43 41 4C  |MAND.LIST. LOCAL|
00000020: 20 22 43 55 52 52 45 4E  54 0D 20 4D 41 4B 45 20  | "CURRENT. MAKE |
00000030: 22 43 55 52 52 45 4E 54  20 57 48 4F 0D 20 54 45  |"CURRENT WHO. TE|
00000040: 4C 4C 20 3A 4E 20 52 55  4E 20 3A 43 4F 4D 4D 41  |LL :N RUN :COMMA|
00000050: 4E 44 2E 4C 49 53 54 0D  20 54 45 4C 4C 20 3A 43  |ND.LIST. TELL :C|
00000060: 55 52 52 45 4E 54 0D 45  4E 44 0D 0D 54 4F 20 43  |URRENT.END..TO C|
00000070: 52 41 57 4C 20 3A 4E 0D  20 52 54 20 39 30 0D 20  |RAWL :N. RT 90. |
00000080: 52 45 50 45 41 54 20 3A  4E 20 5B 46 44 20 31 20  |REPEAT :N [FD 1 |
00000090: 46 44 20 52 41 4E 44 4F  4D 20 32 36 5D 0D 20 4C  |FD RANDOM 26]. L|
000000A0: 54 20 39 30 0D 45 4E 44  0D 0D 54 4F 20 48 4F 50  |T 90.END..TO HOP|
000000B0: 20 3A 4E 0D 20 52 54 20  39 30 0D 20 52 45 50 45  | :N. RT 90. REPE|
000000C0: 41 54 20 3A 4E 20 5B 46  44 20 31 30 20 4C 54 20  |AT :N [FD 10 LT |
000000D0: 39 30 20 46 44 20 31 30  20 52 54 20 39 30 20 46  |90 FD 10 RT 90 F|
000000E0: 44 20 33 20 52 54 20 39  30 20 46 44 20 31 30 20  |D 3 RT 90 FD 10 |
000000F0: 4C 54 20 39 30 5D 0D 20  4C 54 20 39 30 0D 45 4E  |LT 90]. LT 90.EN|
00000100: 44 0D 0D 54 4F 20 52 41  43 45 0D 20 54 45 4C 4C  |D..TO RACE. TELL|
00000110: 20 32 20 53 45 54 58 59  20 2D 20 31 32 35 20 33  | 2 SETXY - 125 3|
00000120: 30 0D 20 54 45 4C 4C 20  33 20 53 45 54 58 59 20  |0. TELL 3 SETXY |
00000130: 2D 20 31 32 35 20 28 20  2D 20 33 30 20 29 0D 20  |- 125 ( - 30 ). |
00000140: 52 45 50 45 41 54 20 31  35 20 5B 54 45 4C 4C 20  |REPEAT 15 [TELL |
00000150: 32 20 48 4F 50 20 31 20  54 45 4C 4C 20 33 20 43  |2 HOP 1 TELL 3 C|
00000160: 52 41 57 4C 20 31 5D 0D  45 4E 44 0D 0D 54 4F 20  |RAWL 1].END..TO |
00000170: 53 48 4F 57 0D 20 4C 4F  43 41 4C 20 22 4F 4C 44  |SHOW. LOCAL "OLD|
00000180: 0D 20 4D 41 4B 45 20 22  4F 4C 44 20 57 48 4F 0D  |. MAKE "OLD WHO.|
00000190: 20 54 45 4C 4C 20 30 20  48 54 0D 20 53 48 4F 57  | TELL 0 HT. SHOW|
000001A0: 4C 4F 4F 50 20 31 20 31  32 30 20 31 30 30 0D 20  |LOOP 1 120 100. |
000001B0: 54 45 4C 4C 20 3A 4F 4C  44 0D 45 4E 44 0D 0D 54  |TELL :OLD.END..T|
000001C0: 4F 20 53 48 4F 57 4C 4F  4F 50 20 3A 43 55 52 52  |O SHOWLOOP :CURR|
000001D0: 45 4E 54 20 3A 58 20 3A  59 0D 20 49 46 20 3A 43  |ENT :X :Y. IF :C|
000001E0: 55 52 52 45 4E 54 20 3D  20 38 20 53 54 4F 50 0D  |URRENT = 8 STOP.|
000001F0: 20 54 45 4C 4C 20 3A 43  55 52 52 45 4E 54 20 53  | TELL :CURRENT S|
00000200: 45 54 53 48 41 50 45 20  3A 43 55 52 52 45 4E 54  |ETSHAPE :CURRENT|
00000210: 0D 20 53 45 54 58 59 20  3A 58 20 28 20 3A 59 20  |. SETXY :X ( :Y |
00000220: 29 0D 20 53 4D 41 4C 4C  58 20 53 4D 41 4C 4C 59  |). SMALLX SMALLY|
00000230: 20 53 54 0D 20 53 48 4F  57 4C 4F 4F 50 20 3A 43  | ST. SHOWLOOP :C|
00000240: 55 52 52 45 4E 54 20 2B  20 31 20 3A 58 20 3A 59  |URRENT + 1 :X :Y|
00000250: 20 2D 20 33 30 0D 45 4E  44 0D 0D 54 4F 20 54 52  | - 30.END..TO TR|
00000260: 41 50 20 3A 53 49 44 45  0D 20 43 53 20 42 41 43  |AP :SIDE. CS BAC|
00000270: 4B 47 52 4F 55 4E 44 20  33 0D 20 50 45 4E 43 4F  |KGROUND 3. PENCO|
00000280: 4C 4F 52 20 30 20 53 54  0D 20 42 4F 58 20 3A 53  |LOR 0 ST. BOX :S|
00000290: 49 44 45 0D 20 46 44 20  3A 53 49 44 45 20 2F 20  |IDE. FD :SIDE / |
000002A0: 32 0D 20 52 54 20 39 30  0D 20 46 44 20 3A 53 49  |2. RT 90. FD :SI|
000002B0: 44 45 20 2F 20 32 0D 20  4C 54 20 39 30 0D 20 50  |DE / 2. LT 90. P|
000002C0: 45 4E 43 4F 4C 4F 52 20  32 0D 20 54 52 41 50 4C  |ENCOLOR 2. TRAPL|
000002D0: 4F 4F 50 0D 45 4E 44 0D  0D 54 4F 20 42 4F 58 20  |OOP.END..TO BOX |
000002E0: 3A 53 49 44 45 0D 20 50  44 0D 20 52 45 50 45 41  |:SIDE. PD. REPEA|
000002F0: 54 20 34 20 5B 46 44 20  3A 53 49 44 45 20 52 54  |T 4 [FD :SIDE RT|
00000300: 20 39 30 5D 0D 20 50 55  0D 45 4E 44 0D 0D 54 4F  | 90]. PU.END..TO|
00000310: 20 54 52 41 50 4C 4F 4F  50 0D 20 49 46 20 52 43  | TRAPLOOP. IF RC|
00000320: 3F 20 53 54 4F 50 0D 20  49 46 20 54 42 3F 20 42  |? STOP. IF TB? B|
00000330: 4B 20 31 20 52 54 20 52  41 4E 44 4F 4D 20 31 38  |K 1 RT RANDOM 18|
00000340: 30 0D 20 46 44 20 31 0D  20 54 52 41 50 4C 4F 4F  |0. FD 1. TRAPLOO|
00000350: 50 0D 45 4E 44 0D 0D 44  4E 20                    |P.END..DN       |

. TO ASK :N :COMMAND.LIST. LOCAL "CURREN
T. MAKE "CURRENT WHO. TELL :N RUN :COMMA
ND.LIST. TELL :CURRENT.END..TO CRAWL :N.
 RT 90. REPEAT :N [FD 1 FD RANDOM 26]. L
T 90.END..TO HOP :N. RT 90. REPEAT :N [F
D 10 LT 90 FD 10 RT 90 FD 3 RT 90 FD 10 
LT 90]. LT 90.END..TO RACE. TELL 2 SETXY
 - 125 30. TELL 3 SETXY - 125 ( - 30 ). 
REPEAT 15 [TELL 2 HOP 1 TELL 3 CRAWL 1].
END..TO SHOW. LOCAL "OLD. MAKE "OLD WHO.
 TELL 0 HT. SHOWLOOP 1 120 100. TELL :OL
D.END..TO SHOWLOOP :CURRENT :X :Y. IF :C
URRENT = 8 STOP. TELL :CURRENT SETSHAPE 
:CURRENT. SETXY :X ( :Y ). SMALLX SMALLY
 ST. SHOWLOOP :CURRENT + 1 :X :Y - 30.EN
D..TO TRAP :SIDE. CS BACKGROUND 3. PENCO
LOR 0 ST. BOX :SIDE. FD :SIDE / 2. RT 90
. FD :SIDE / 2. LT 90. PENCOLOR 2. TRAPL
OOP.END..TO BOX :SIDE. PD. REPEAT 4 [FD 
:SIDE RT 90]. PU.END..TO TRAPLOOP. IF RC
? STOP. IF TB? BK 1 RT RANDOM 180. FD 1.
 TRAPLOOP.END..DN
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL