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

LG-VELOCITY

FILE INFORMATION

FILENAME(S): LG-VELOCITY

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

3149083a48c91e4aabd384c6b7baf105a672a77561ac4d6b1da8a99a0957d989

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 53 50 45  45 44 0D 20 4F 50 20 54  |. TO SPEED. OP T|
00000010: 48 49 4E 47 20 57 4F 52  44 20 22 2E 53 50 45 45  |HING WORD ".SPEE|
00000020: 44 20 57 48 4F 0D 45 4E  44 0D 0D 54 4F 20 45 41  |D WHO.END..TO EA|
00000030: 43 48 31 20 3A 2E 4C 49  53 54 0D 20 49 46 20 45  |CH1 :.LIST. IF E|
00000040: 4D 50 54 59 3F 20 3A 2E  4C 49 53 54 20 53 54 4F  |MPTY? :.LIST STO|
00000050: 50 0D 20 54 45 4C 4C 20  46 49 52 53 54 20 3A 2E  |P. TELL FIRST :.|
00000060: 4C 49 53 54 20 52 55 4E  20 3A 2E 57 48 41 54 0D  |LIST RUN :.WHAT.|
00000070: 20 45 41 43 48 31 20 42  46 20 3A 2E 4C 49 53 54  | EACH1 BF :.LIST|
00000080: 0D 45 4E 44 0D 0D 54 4F  20 53 45 54 53 50 45 45  |.END..TO SETSPEE|
00000090: 44 20 3A 53 50 45 45 44  0D 20 4D 41 4B 45 20 57  |D :SPEED. MAKE W|
000000A0: 4F 52 44 20 22 2E 53 50  45 45 44 20 57 48 4F 20  |ORD ".SPEED WHO |
000000B0: 3A 53 50 45 45 44 0D 45  4E 44 0D 0D 54 4F 20 45  |:SPEED.END..TO E|
000000C0: 41 43 48 20 3A 2E 57 48  4F 20 3A 2E 57 48 41 54  |ACH :.WHO :.WHAT|
000000D0: 0D 20 4C 4F 43 41 4C 20  22 2E 4F 57 48 4F 20 4D  |. LOCAL ".OWHO M|
000000E0: 41 4B 45 20 22 2E 4F 57  48 4F 20 57 48 4F 0D 20  |AKE ".OWHO WHO. |
000000F0: 45 41 43 48 31 20 3A 2E  57 48 4F 0D 20 54 45 4C  |EACH1 :.WHO. TEL|
00000100: 4C 20 3A 2E 4F 57 48 4F  0D 45 4E 44 0D 0D 54 4F  |L :.OWHO.END..TO|
00000110: 20 53 45 54 55 50 0D 20  4D 41 4B 45 20 22 41 4C  | SETUP. MAKE "AL|
00000120: 4C 20 5B 30 20 31 20 32  20 33 20 34 20 35 20 36  |L [0 1 2 3 4 5 6|
00000130: 20 37 5D 0D 20 45 41 43  48 20 3A 41 4C 4C 20 5B  | 7]. EACH :ALL [|
00000140: 53 45 54 53 50 45 45 44  20 30 5D 0D 20 44 52 41  |SETSPEED 0]. DRA|
00000150: 57 0D 20 43 55 52 53 4F  52 20 30 20 32 30 0D 20  |W. CURSOR 0 20. |
00000160: 54 48 41 57 0D 45 4E 44  0D 0D 54 4F 20 54 48 41  |THAW.END..TO THA|
00000170: 57 0D 20 4C 4F 43 41 4C  20 22 2E 55 57 48 4F 20  |W. LOCAL ".UWHO |
00000180: 4D 41 4B 45 20 22 2E 55  57 48 4F 20 57 48 4F 0D  |MAKE ".UWHO WHO.|
00000190: 20 54 45 4C 4C 20 30 0D  20 50 52 49 4E 54 31 20  | TELL 0. PRINT1 |
000001A0: 22 3F 0D 20 54 48 41 57  2E 4C 4F 4F 50 0D 45 4E  |"?. THAW.LOOP.EN|
000001B0: 44 0D 0D 54 4F 20 4D 41  47 49 43 0D 20 49 46 20  |D..TO MAGIC. IF |
000001C0: 4E 4F 54 20 30 20 3D 20  3A 2E 53 50 45 45 44 30  |NOT 0 = :.SPEED0|
000001D0: 20 54 45 4C 4C 20 30 20  46 44 20 3A 2E 53 50 45  | TELL 0 FD :.SPE|
000001E0: 45 44 30 0D 20 49 46 20  4E 4F 54 20 30 20 3D 20  |ED0. IF NOT 0 = |
000001F0: 3A 2E 53 50 45 45 44 31  20 54 45 4C 4C 20 31 20  |:.SPEED1 TELL 1 |
00000200: 46 44 20 3A 2E 53 50 45  45 44 31 0D 20 49 46 20  |FD :.SPEED1. IF |
00000210: 4E 4F 54 20 30 20 3D 20  3A 2E 53 50 45 45 44 32  |NOT 0 = :.SPEED2|
00000220: 20 54 45 4C 4C 20 32 20  46 44 20 3A 2E 53 50 45  | TELL 2 FD :.SPE|
00000230: 45 44 32 0D 20 49 46 20  4E 4F 54 20 30 20 3D 20  |ED2. IF NOT 0 = |
00000240: 3A 2E 53 50 45 45 44 33  20 54 45 4C 4C 20 33 20  |:.SPEED3 TELL 3 |
00000250: 46 44 20 3A 2E 53 50 45  45 44 33 0D 20 49 46 20  |FD :.SPEED3. IF |
00000260: 4E 4F 54 20 30 20 3D 20  3A 2E 53 50 45 45 44 34  |NOT 0 = :.SPEED4|
00000270: 20 54 45 4C 4C 20 34 20  46 44 20 3A 2E 53 50 45  | TELL 4 FD :.SPE|
00000280: 45 44 34 0D 20 49 46 20  4E 4F 54 20 30 20 3D 20  |ED4. IF NOT 0 = |
00000290: 3A 2E 53 50 45 45 44 35  20 54 45 4C 4C 20 35 20  |:.SPEED5 TELL 5 |
000002A0: 46 44 20 3A 2E 53 50 45  45 44 35 0D 20 49 46 20  |FD :.SPEED5. IF |
000002B0: 4E 4F 54 20 30 20 3D 20  3A 2E 53 50 45 45 44 36  |NOT 0 = :.SPEED6|
000002C0: 20 54 45 4C 4C 20 36 20  46 44 20 3A 2E 53 50 45  | TELL 6 FD :.SPE|
000002D0: 45 44 36 0D 20 49 46 20  4E 4F 54 20 30 20 3D 20  |ED6. IF NOT 0 = |
000002E0: 3A 2E 53 50 45 45 44 37  20 54 45 4C 4C 20 37 20  |:.SPEED7 TELL 7 |
000002F0: 46 44 20 3A 2E 53 50 45  45 44 37 0D 20 54 45 4C  |FD :.SPEED7. TEL|
00000300: 4C 20 3A 2E 55 57 48 4F  0D 45 4E 44 0D 0D 54 4F  |L :.UWHO.END..TO|
00000310: 20 55 44 4F 0D 20 54 45  4C 4C 20 3A 2E 55 57 48  | UDO. TELL :.UWH|
00000320: 4F 20 52 55 4E 20 52 45  51 55 45 53 54 0D 20 4D  |O RUN REQUEST. M|
00000330: 41 4B 45 20 22 2E 55 57  48 4F 20 57 48 4F 0D 20  |AKE ".UWHO WHO. |
00000340: 50 52 49 4E 54 31 20 22  3F 0D 45 4E 44 0D 0D 54  |PRINT1 "?.END..T|
00000350: 4F 20 54 48 41 57 2E 4C  4F 4F 50 0D 20 49 46 20  |O THAW.LOOP. IF |
00000360: 52 43 3F 20 55 44 4F 0D  20 54 45 4C 4C 20 42 49  |RC? UDO. TELL BI|
00000370: 54 41 4E 44 20 57 48 4F  20 2B 20 31 20 37 20 4D  |TAND WHO + 1 7 M|
00000380: 41 47 49 43 20 54 48 41  57 2E 4C 4F 4F 50 0D 45  |AGIC THAW.LOOP.E|
00000390: 4E 44 0D 0D 4D 41 4B 45  20 22 2E 53 50 45 45 44  |ND..MAKE ".SPEED|
000003A0: 37 20 28 30 29 0D 4D 41  4B 45 20 22 2E 53 50 45  |7 (0).MAKE ".SPE|
000003B0: 45 44 36 20 28 30 29 0D  4D 41 4B 45 20 22 2E 53  |ED6 (0).MAKE ".S|
000003C0: 50 45 45 44 35 20 28 30  29 0D 4D 41 4B 45 20 22  |PEED5 (0).MAKE "|
000003D0: 2E 53 50 45 45 44 34 20  28 30 29 0D 4D 41 4B 45  |.SPEED4 (0).MAKE|
000003E0: 20 22 2E 53 50 45 45 44  33 20 28 30 29 0D 4D 41  | ".SPEED3 (0).MA|
000003F0: 4B 45 20 22 2E 53 50 45  45 44 32 20 28 30 29 0D  |KE ".SPEED2 (0).|
00000400: 4D 41 4B 45 20 22 2E 53  50 45 45 44 31 20 28 30  |MAKE ".SPEED1 (0|
00000410: 29 0D 4D 41 4B 45 20 22  2E 53 50 45 45 44 30 20  |).MAKE ".SPEED0 |
00000420: 28 30 29 0D 4D 41 4B 45  20 22 2E 55 57 48 4F 20  |(0).MAKE ".UWHO |
00000430: 28 30 29 0D 4D 41 4B 45  20 22 53 54 41 52 54 55  |(0).MAKE "STARTU|
00000440: 50 20 5B 53 45 54 55 50  5D 0D 4D 41 4B 45 20 22  |P [SETUP].MAKE "|
00000450: 41 4C 4C 20 5B 30 20 31  20 32 20 33 20 34 20 35  |ALL [0 1 2 3 4 5|
00000460: 20 36 20 37 5D 0D                                 | 6 7].          |

. TO SPEED. OP THING WORD ".SPEED WHO.EN
D..TO EACH1 :.LIST. IF EMPTY? :.LIST STO
P. TELL FIRST :.LIST RUN :.WHAT. EACH1 B
F :.LIST.END..TO SETSPEED :SPEED. MAKE W
ORD ".SPEED WHO :SPEED.END..TO EACH :.WH
O :.WHAT. LOCAL ".OWHO MAKE ".OWHO WHO. 
EACH1 :.WHO. TELL :.OWHO.END..TO SETUP. 
MAKE "ALL [0 1 2 3 4 5 6 7]. EACH :ALL [
SETSPEED 0]. DRAW. CURSOR 0 20. THAW.END
..TO THAW. LOCAL ".UWHO MAKE ".UWHO WHO.
 TELL 0. PRINT1 "?. THAW.LOOP.END..TO MA
GIC. IF NOT 0 = :.SPEED0 TELL 0 FD :.SPE
ED0. IF NOT 0 = :.SPEED1 TELL 1 FD :.SPE
ED1. IF NOT 0 = :.SPEED2 TELL 2 FD :.SPE
ED2. IF NOT 0 = :.SPEED3 TELL 3 FD :.SPE
ED3. IF NOT 0 = :.SPEED4 TELL 4 FD :.SPE
ED4. IF NOT 0 = :.SPEED5 TELL 5 FD :.SPE
ED5. IF NOT 0 = :.SPEED6 TELL 6 FD :.SPE
ED6. IF NOT 0 = :.SPEED7 TELL 7 FD :.SPE
ED7. TELL :.UWHO.END..TO UDO. TELL :.UWH
O RUN REQUEST. MAKE ".UWHO WHO. PRINT1 "
?.END..TO THAW.LOOP. IF RC? UDO. TELL BI
TAND WHO + 1 7 MAGIC THAW.LOOP.END..MAKE
 ".SPEED7 (0).MAKE ".SPEED6 (0).MAKE ".S
PEED5 (0).MAKE ".SPEED4 (0).MAKE ".SPEED
3 (0).MAKE ".SPEED2 (0).MAKE ".SPEED1 (0
).MAKE ".SPEED0 (0).MAKE ".UWHO (0).MAKE
 "STARTUP [SETUP].MAKE "ALL [0 1 2 3 4 5
 6 7].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL