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