VELOCITY.LOGO
FILE INFORMATION
FILENAME(S): VELOCITY.LOGO
FILE TYPE(S): PRG
FILE SIZE: 941b
FIRST SEEN: 2025-11-02 16:30:34
APPEARS ON: 1 disk(s)
FILE HASH
6d0c915243bd1ea5c7da3bc6bdf4f0cf733410227e2bfb7ad54b0b75e02aa669
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NG USERS 11A | VELOCITY.LOGO | PRG | Treasure Chest - OzzyC64 | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 54 48 41 57 2E 4C 4F 4F 50 0D 20 |. TO THAW.LOOP. | 00000010: 49 46 20 52 43 3F 20 55 44 4F 0D 20 54 45 4C 4C |IF RC? UDO. TELL| 00000020: 20 42 49 54 41 4E 44 20 57 48 4F 20 2B 20 31 20 | BITAND WHO + 1 | 00000030: 37 20 4D 41 47 49 43 20 54 48 41 57 2E 4C 4F 4F |7 MAGIC THAW.LOO| 00000040: 50 0D 45 4E 44 0D 0D 54 4F 20 55 44 4F 0D 20 54 |P.END..TO UDO. T| 00000050: 45 4C 4C 20 3A 2E 55 57 48 4F 20 52 55 4E 20 52 |ELL :.UWHO RUN R| 00000060: 45 51 55 45 53 54 0D 20 4D 41 4B 45 20 22 2E 55 |EQUEST. MAKE ".U| 00000070: 57 48 4F 20 57 48 4F 0D 20 50 52 49 4E 54 31 20 |WHO WHO. PRINT1 | 00000080: 22 3F 0D 45 4E 44 0D 0D 54 4F 20 4D 41 47 49 43 |"?.END..TO MAGIC| 00000090: 0D 20 49 46 20 4E 4F 54 20 30 20 3D 20 3A 2E 53 |. IF NOT 0 = :.S| 000000A0: 50 45 45 44 30 20 54 45 4C 4C 20 30 20 46 44 20 |PEED0 TELL 0 FD | 000000B0: 3A 2E 53 50 45 45 44 30 0D 20 49 46 20 4E 4F 54 |:.SPEED0. IF NOT| 000000C0: 20 30 20 3D 20 3A 2E 53 50 45 45 44 31 20 54 45 | 0 = :.SPEED1 TE| 000000D0: 4C 4C 20 31 20 46 44 20 3A 2E 53 50 45 45 44 31 |LL 1 FD :.SPEED1| 000000E0: 0D 20 49 46 20 4E 4F 54 20 30 20 3D 20 3A 2E 53 |. IF NOT 0 = :.S| 000000F0: 50 45 45 44 32 20 54 45 4C 4C 20 32 20 46 44 20 |PEED2 TELL 2 FD | 00000100: 3A 2E 53 50 45 45 44 32 0D 20 49 46 20 4E 4F 54 |:.SPEED2. IF NOT| 00000110: 20 30 20 3D 20 3A 2E 53 50 45 45 44 33 20 54 45 | 0 = :.SPEED3 TE| 00000120: 4C 4C 20 33 20 46 44 20 3A 2E 53 50 45 45 44 33 |LL 3 FD :.SPEED3| 00000130: 0D 20 49 46 20 4E 4F 54 20 30 20 3D 20 3A 2E 53 |. IF NOT 0 = :.S| 00000140: 50 45 45 44 34 20 54 45 4C 4C 20 34 20 46 44 20 |PEED4 TELL 4 FD | 00000150: 3A 2E 53 50 45 45 44 34 0D 20 49 46 20 4E 4F 54 |:.SPEED4. IF NOT| 00000160: 20 30 20 3D 20 3A 2E 53 50 45 45 44 35 20 54 45 | 0 = :.SPEED5 TE| 00000170: 4C 4C 20 35 20 46 44 20 3A 2E 53 50 45 45 44 35 |LL 5 FD :.SPEED5| 00000180: 0D 20 49 46 20 4E 4F 54 20 30 20 3D 20 3A 2E 53 |. IF NOT 0 = :.S| 00000190: 50 45 45 44 36 20 54 45 4C 4C 20 36 20 46 44 20 |PEED6 TELL 6 FD | 000001A0: 3A 2E 53 50 45 45 44 36 0D 20 49 46 20 4E 4F 54 |:.SPEED6. IF NOT| 000001B0: 20 30 20 3D 20 3A 2E 53 50 45 45 44 37 20 54 45 | 0 = :.SPEED7 TE| 000001C0: 4C 4C 20 37 20 46 44 20 3A 2E 53 50 45 45 44 37 |LL 7 FD :.SPEED7| 000001D0: 0D 20 54 45 4C 4C 20 3A 2E 55 57 48 4F 0D 45 4E |. TELL :.UWHO.EN| 000001E0: 44 0D 0D 54 4F 20 54 48 41 57 0D 20 4C 4F 43 41 |D..TO THAW. LOCA| 000001F0: 4C 20 22 2E 55 57 48 4F 20 4D 41 4B 45 20 22 2E |L ".UWHO MAKE ".| 00000200: 55 57 48 4F 20 57 48 4F 0D 20 54 45 4C 4C 20 30 |UWHO WHO. TELL 0| 00000210: 0D 20 50 52 49 4E 54 31 20 22 3F 0D 20 54 48 41 |. PRINT1 "?. THA| 00000220: 57 2E 4C 4F 4F 50 0D 45 4E 44 0D 0D 54 4F 20 53 |W.LOOP.END..TO S| 00000230: 45 54 55 50 0D 20 4D 41 4B 45 20 22 41 4C 4C 20 |ETUP. MAKE "ALL | 00000240: 5B 30 20 31 20 32 20 33 20 34 20 35 20 36 20 37 |[0 1 2 3 4 5 6 7| 00000250: 5D 0D 20 45 41 43 48 20 3A 41 4C 4C 20 5B 53 45 |]. EACH :ALL [SE| 00000260: 54 53 50 45 45 44 20 30 5D 0D 20 44 52 41 57 0D |TSPEED 0]. DRAW.| 00000270: 20 43 55 52 53 4F 52 20 30 20 32 30 0D 20 54 48 | CURSOR 0 20. TH| 00000280: 41 57 0D 45 4E 44 0D 0D 54 4F 20 45 41 43 48 20 |AW.END..TO EACH | 00000290: 3A 2E 57 48 4F 20 3A 2E 57 48 41 54 0D 20 4C 4F |:.WHO :.WHAT. LO| 000002A0: 43 41 4C 20 22 2E 4F 57 48 4F 20 4D 41 4B 45 20 |CAL ".OWHO MAKE | 000002B0: 22 2E 4F 57 48 4F 20 57 48 4F 0D 20 45 41 43 48 |".OWHO WHO. EACH| 000002C0: 31 20 3A 2E 57 48 4F 0D 20 54 45 4C 4C 20 3A 2E |1 :.WHO. TELL :.| 000002D0: 4F 57 48 4F 0D 45 4E 44 0D 0D 54 4F 20 53 50 45 |OWHO.END..TO SPE| 000002E0: 45 44 0D 20 4F 50 20 54 48 49 4E 47 20 57 4F 52 |ED. OP THING WOR| 000002F0: 44 20 22 2E 53 50 45 45 44 20 57 48 4F 0D 45 4E |D ".SPEED WHO.EN| 00000300: 44 0D 0D 54 4F 20 53 45 54 53 50 45 45 44 20 3A |D..TO SETSPEED :| 00000310: 53 50 45 45 44 0D 20 4D 41 4B 45 20 57 4F 52 44 |SPEED. MAKE WORD| 00000320: 20 22 2E 53 50 45 45 44 20 57 48 4F 20 3A 53 50 | ".SPEED WHO :SP| 00000330: 45 45 44 0D 45 4E 44 0D 0D 54 4F 20 45 41 43 48 |EED.END..TO EACH| 00000340: 31 20 3A 2E 4C 49 53 54 0D 20 49 46 20 45 4D 50 |1 :.LIST. IF EMP| 00000350: 54 59 3F 20 3A 2E 4C 49 53 54 20 53 54 4F 50 0D |TY? :.LIST STOP.| 00000360: 20 54 45 4C 4C 20 46 49 52 53 54 20 3A 2E 4C 49 | TELL FIRST :.LI| 00000370: 53 54 20 52 55 4E 20 3A 2E 57 48 41 54 0D 20 45 |ST RUN :.WHAT. E| 00000380: 41 43 48 31 20 42 46 20 3A 2E 4C 49 53 54 0D 45 |ACH1 BF :.LIST.E| 00000390: 4E 44 0D 0D 4D 41 4B 45 20 22 53 54 41 52 54 55 |ND..MAKE "STARTU| 000003A0: 50 20 5B 53 45 54 55 50 5D 0D 00 FF 00 |P [SETUP].... |
. TO THAW.LOOP. IF RC? UDO. TELL BITAND WHO + 1 7 MAGIC THAW.LOOP.END..TO UDO. T ELL :.UWHO RUN REQUEST. MAKE ".UWHO WHO. PRINT1 "?.END..TO MAGIC. IF NOT 0 = :.S PEED0 TELL 0 FD :.SPEED0. IF NOT 0 = :.S PEED1 TELL 1 FD :.SPEED1. IF NOT 0 = :.S PEED2 TELL 2 FD :.SPEED2. IF NOT 0 = :.S PEED3 TELL 3 FD :.SPEED3. IF NOT 0 = :.S PEED4 TELL 4 FD :.SPEED4. IF NOT 0 = :.S PEED5 TELL 5 FD :.SPEED5. IF NOT 0 = :.S PEED6 TELL 6 FD :.SPEED6. IF NOT 0 = :.S PEED7 TELL 7 FD :.SPEED7. TELL :.UWHO.EN D..TO THAW. LOCAL ".UWHO MAKE ".UWHO WHO . TELL 0. PRINT1 "?. THAW.LOOP.END..TO S ETUP. MAKE "ALL [0 1 2 3 4 5 6 7]. EACH :ALL [SETSPEED 0]. DRAW. CURSOR 0 20. TH AW.END..TO EACH :.WHO :.WHAT. LOCAL ".OW HO MAKE ".OWHO WHO. EACH1 :.WHO. TELL :. OWHO.END..TO SPEED. OP THING WORD ".SPEE D WHO.END..TO SETSPEED :SPEED. MAKE WORD ".SPEED WHO :SPEED.END..TO EACH1 :.LIST . IF EMPTY? :.LIST STOP. TELL FIRST :.LI ST RUN :.WHAT. EACH1 BF :.LIST.END..MAKE "STARTUP [SETUP]....
> CLICK IMAGE PREVIEW FOR FULL MODAL