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 |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].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL