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

LG-SPRITEDEMOS

FILE INFORMATION

FILENAME(S): LG-SPRITEDEMOS

FILE TYPE(S): PRG

FILE SIZE: 855b

FIRST SEEN: 2025-11-30 21:14:31

APPEARS ON: 1 disk(s)

FILE HASH

918b115744cea778cbdb162c2fdb1ae38e98b7bef47feb2bd505fa7bb6f96f89

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-SPRITEDEMOS PRG DuncanTwain 24 11 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 54 52 41  50 4C 4F 4F 50 0D 20 49  |. TO TRAPLOOP. I|
00000010: 46 20 52 43 3F 20 53 54  4F 50 0D 20 49 46 20 54  |F RC? STOP. IF T|
00000020: 42 3F 20 42 4B 20 31 20  52 54 20 52 41 4E 44 4F  |B? BK 1 RT RANDO|
00000030: 4D 20 31 38 30 0D 20 46  44 20 31 0D 20 54 52 41  |M 180. FD 1. TRA|
00000040: 50 4C 4F 4F 50 0D 45 4E  44 0D 0D 54 4F 20 42 4F  |PLOOP.END..TO BO|
00000050: 58 20 3A 53 49 44 45 0D  20 50 44 0D 20 52 45 50  |X :SIDE. PD. REP|
00000060: 45 41 54 20 34 20 5B 46  44 20 3A 53 49 44 45 20  |EAT 4 [FD :SIDE |
00000070: 52 54 20 39 30 5D 0D 20  50 55 0D 45 4E 44 0D 0D  |RT 90]. PU.END..|
00000080: 54 4F 20 54 52 41 50 20  3A 53 49 44 45 0D 20 43  |TO TRAP :SIDE. C|
00000090: 53 20 42 41 43 4B 47 52  4F 55 4E 44 20 33 0D 20  |S BACKGROUND 3. |
000000A0: 50 45 4E 43 4F 4C 4F 52  20 30 20 53 54 0D 20 42  |PENCOLOR 0 ST. B|
000000B0: 4F 58 20 3A 53 49 44 45  0D 20 46 44 20 3A 53 49  |OX :SIDE. FD :SI|
000000C0: 44 45 20 2F 20 32 0D 20  52 54 20 39 30 0D 20 46  |DE / 2. RT 90. F|
000000D0: 44 20 3A 53 49 44 45 20  2F 20 32 0D 20 4C 54 20  |D :SIDE / 2. LT |
000000E0: 39 30 0D 20 50 45 4E 43  4F 4C 4F 52 20 32 0D 20  |90. PENCOLOR 2. |
000000F0: 54 52 41 50 4C 4F 4F 50  0D 45 4E 44 0D 0D 54 4F  |TRAPLOOP.END..TO|
00000100: 20 53 48 4F 57 4C 4F 4F  50 20 3A 43 55 52 52 45  | SHOWLOOP :CURRE|
00000110: 4E 54 20 3A 58 20 3A 59  0D 20 49 46 20 3A 43 55  |NT :X :Y. IF :CU|
00000120: 52 52 45 4E 54 20 3D 20  38 20 53 54 4F 50 0D 20  |RRENT = 8 STOP. |
00000130: 54 45 4C 4C 20 3A 43 55  52 52 45 4E 54 20 53 45  |TELL :CURRENT SE|
00000140: 54 53 48 41 50 45 20 3A  43 55 52 52 45 4E 54 0D  |TSHAPE :CURRENT.|
00000150: 20 53 45 54 58 59 20 3A  58 20 28 20 3A 59 20 29  | SETXY :X ( :Y )|
00000160: 0D 20 53 4D 41 4C 4C 58  20 53 4D 41 4C 4C 59 20  |. SMALLX SMALLY |
00000170: 53 54 0D 20 53 48 4F 57  4C 4F 4F 50 20 3A 43 55  |ST. SHOWLOOP :CU|
00000180: 52 52 45 4E 54 20 2B 20  31 20 3A 58 20 3A 59 20  |RRENT + 1 :X :Y |
00000190: 2D 20 33 30 0D 45 4E 44  0D 0D 54 4F 20 53 48 4F  |- 30.END..TO SHO|
000001A0: 57 0D 20 4C 4F 43 41 4C  20 22 4F 4C 44 0D 20 4D  |W. LOCAL "OLD. M|
000001B0: 41 4B 45 20 22 4F 4C 44  20 57 48 4F 0D 20 54 45  |AKE "OLD WHO. TE|
000001C0: 4C 4C 20 30 20 48 54 0D  20 53 48 4F 57 4C 4F 4F  |LL 0 HT. SHOWLOO|
000001D0: 50 20 31 20 31 32 30 20  31 30 30 0D 20 54 45 4C  |P 1 120 100. TEL|
000001E0: 4C 20 3A 4F 4C 44 0D 45  4E 44 0D 0D 54 4F 20 52  |L :OLD.END..TO R|
000001F0: 41 43 45 0D 20 54 45 4C  4C 20 32 20 53 45 54 58  |ACE. TELL 2 SETX|
00000200: 59 20 2D 20 31 32 35 20  33 30 0D 20 54 45 4C 4C  |Y - 125 30. TELL|
00000210: 20 33 20 53 45 54 58 59  20 2D 20 31 32 35 20 28  | 3 SETXY - 125 (|
00000220: 20 2D 20 33 30 20 29 0D  20 52 45 50 45 41 54 20  | - 30 ). REPEAT |
00000230: 31 35 20 5B 54 45 4C 4C  20 32 20 48 4F 50 20 31  |15 [TELL 2 HOP 1|
00000240: 20 54 45 4C 4C 20 33 20  43 52 41 57 4C 20 31 5D  | TELL 3 CRAWL 1]|
00000250: 0D 45 4E 44 0D 0D 54 4F  20 48 4F 50 20 3A 4E 0D  |.END..TO HOP :N.|
00000260: 20 52 54 20 39 30 0D 20  52 45 50 45 41 54 20 3A  | RT 90. REPEAT :|
00000270: 4E 20 5B 46 44 20 31 30  20 4C 54 20 39 30 20 46  |N [FD 10 LT 90 F|
00000280: 44 20 31 30 20 52 54 20  39 30 20 46 44 20 33 20  |D 10 RT 90 FD 3 |
00000290: 52 54 20 39 30 20 46 44  20 31 30 20 4C 54 20 39  |RT 90 FD 10 LT 9|
000002A0: 30 5D 0D 20 4C 54 20 39  30 0D 45 4E 44 0D 0D 54  |0]. LT 90.END..T|
000002B0: 4F 20 43 52 41 57 4C 20  3A 4E 0D 20 52 54 20 39  |O CRAWL :N. RT 9|
000002C0: 30 0D 20 52 45 50 45 41  54 20 3A 4E 20 5B 46 44  |0. REPEAT :N [FD|
000002D0: 20 31 20 46 44 20 52 41  4E 44 4F 4D 20 32 36 5D  | 1 FD RANDOM 26]|
000002E0: 0D 20 4C 54 20 39 30 0D  45 4E 44 0D 0D 54 4F 20  |. LT 90.END..TO |
000002F0: 41 53 4B 20 3A 4E 20 3A  43 4F 4D 4D 41 4E 44 2E  |ASK :N :COMMAND.|
00000300: 4C 49 53 54 0D 20 4C 4F  43 41 4C 20 22 43 55 52  |LIST. LOCAL "CUR|
00000310: 52 45 4E 54 0D 20 4D 41  4B 45 20 22 43 55 52 52  |RENT. MAKE "CURR|
00000320: 45 4E 54 20 57 48 4F 0D  20 54 45 4C 4C 20 3A 4E  |ENT WHO. TELL :N|
00000330: 20 52 55 4E 20 3A 43 4F  4D 4D 41 4E 44 2E 4C 49  | RUN :COMMAND.LI|
00000340: 53 54 0D 20 54 45 4C 4C  20 3A 43 55 52 52 45 4E  |ST. TELL :CURREN|
00000350: 54 0D 45 4E 44 0D 0D                              |T.END..         |

. TO TRAPLOOP. IF RC? STOP. IF TB? BK 1 
RT RANDOM 180. FD 1. TRAPLOOP.END..TO BO
X :SIDE. PD. REPEAT 4 [FD :SIDE RT 90]. 
PU.END..TO TRAP :SIDE. CS BACKGROUND 3. 
PENCOLOR 0 ST. BOX :SIDE. FD :SIDE / 2. 
RT 90. FD :SIDE / 2. LT 90. PENCOLOR 2. 
TRAPLOOP.END..TO SHOWLOOP :CURRENT :X :Y
. IF :CURRENT = 8 STOP. TELL :CURRENT SE
TSHAPE :CURRENT. SETXY :X ( :Y ). SMALLX
 SMALLY ST. SHOWLOOP :CURRENT + 1 :X :Y 
- 30.END..TO SHOW. LOCAL "OLD. MAKE "OLD
 WHO. TELL 0 HT. SHOWLOOP 1 120 100. TEL
L :OLD.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
 HOP :N. RT 90. REPEAT :N [FD 10 LT 90 F
D 10 RT 90 FD 3 RT 90 FD 10 LT 90]. LT 9
0.END..TO CRAWL :N. RT 90. REPEAT :N [FD
 1 FD RANDOM 26]. LT 90.END..TO ASK :N :
COMMAND.LIST. LOCAL "CURRENT. MAKE "CURR
ENT WHO. TELL :N RUN :COMMAND.LIST. TELL
 :CURRENT.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL