00000000: 00 20 54 4F 20 53 49 44 45 20 3A 53 49 5A 45 20 |. TO SIDE :SIZE |
00000010: 3A 4C 45 56 45 4C 0D 20 49 46 20 3A 4C 45 56 45 |:LEVEL. IF :LEVE|
00000020: 4C 20 3D 20 30 20 54 48 45 4E 20 46 4F 52 57 41 |L = 0 THEN FORWA|
00000030: 52 44 20 3A 53 49 5A 45 20 53 54 4F 50 0D 20 53 |RD :SIZE STOP. S|
00000040: 49 44 45 20 3A 53 49 5A 45 20 2F 20 33 20 3A 4C |IDE :SIZE / 3 :L|
00000050: 45 56 45 4C 20 2D 20 31 0D 20 4C 45 46 54 20 36 |EVEL - 1. LEFT 6|
00000060: 30 0D 20 53 49 44 45 20 3A 53 49 5A 45 20 2F 20 |0. SIDE :SIZE / |
00000070: 33 20 3A 4C 45 56 45 4C 20 2D 20 31 0D 20 52 49 |3 :LEVEL - 1. RI|
00000080: 47 48 54 20 31 32 30 0D 20 53 49 44 45 20 3A 53 |GHT 120. SIDE :S|
00000090: 49 5A 45 20 2F 20 33 20 3A 4C 45 56 45 4C 20 2D |IZE / 3 :LEVEL -|
000000A0: 20 31 0D 20 4C 45 46 54 20 36 30 0D 20 53 49 44 | 1. LEFT 60. SID|
000000B0: 45 20 3A 53 49 5A 45 20 2F 20 33 20 3A 4C 45 56 |E :SIZE / 3 :LEV|
000000C0: 45 4C 20 2D 20 31 0D 45 4E 44 0D 0D 54 4F 20 44 |EL - 1.END..TO D|
000000D0: 45 4D 4F 0D 20 44 45 4D 4F 31 20 31 38 30 0D 45 |EMO. DEMO1 180.E|
000000E0: 4E 44 0D 0D 54 4F 20 44 45 4D 4F 31 20 3A 53 49 |ND..TO DEMO1 :SI|
000000F0: 5A 45 0D 20 44 53 45 54 55 50 0D 20 53 4E 4F 57 |ZE. DSETUP. SNOW|
00000100: 20 3A 53 49 5A 45 20 30 0D 20 57 41 49 54 20 44 | :SIZE 0. WAIT D|
00000110: 53 45 54 55 50 0D 20 53 4E 4F 57 20 3A 53 49 5A |SETUP. SNOW :SIZ|
00000120: 45 20 31 0D 20 57 41 49 54 20 44 53 45 54 55 50 |E 1. WAIT DSETUP|
00000130: 0D 20 53 4E 4F 57 20 3A 53 49 5A 45 20 32 0D 20 |. SNOW :SIZE 2. |
00000140: 57 41 49 54 20 44 53 45 54 55 50 0D 20 53 4E 4F |WAIT DSETUP. SNO|
00000150: 57 20 3A 53 49 5A 45 20 33 0D 20 57 41 49 54 20 |W :SIZE 3. WAIT |
00000160: 44 53 45 54 55 50 0D 20 53 4E 4F 57 20 3A 53 49 |DSETUP. SNOW :SI|
00000170: 5A 45 20 34 0D 45 4E 44 0D 0D 54 4F 20 57 41 49 |ZE 4.END..TO WAI|
00000180: 54 0D 20 49 46 20 52 43 3F 20 50 52 20 22 53 54 |T. IF RC? PR "ST|
00000190: 4F 50 50 45 44 21 20 54 4F 50 4C 45 56 45 4C 0D |OPPED! TOPLEVEL.|
000001A0: 20 52 45 50 45 41 54 20 32 30 30 30 20 5B 5D 0D | REPEAT 2000 [].|
000001B0: 45 4E 44 0D 0D 54 4F 20 44 53 45 54 55 50 0D 20 |END..TO DSETUP. |
000001C0: 44 52 41 57 20 42 47 20 36 20 46 55 4C 4C 53 43 |DRAW BG 6 FULLSC|
000001D0: 52 45 45 4E 20 48 54 0D 20 50 43 20 31 0D 20 50 |REEN HT. PC 1. P|
000001E0: 55 0D 20 42 4B 20 31 30 30 0D 20 50 44 0D 45 4E |U. BK 100. PD.EN|
000001F0: 44 0D 0D 54 4F 20 53 4E 4F 57 20 3A 53 49 5A 45 |D..TO SNOW :SIZE|
00000200: 20 3A 4C 45 56 45 4C 0D 20 52 45 50 45 41 54 20 | :LEVEL. REPEAT |
00000210: 33 20 5B 53 49 44 45 20 3A 53 49 5A 45 20 3A 4C |3 [SIDE :SIZE :L|
00000220: 45 56 45 4C 20 52 54 20 31 32 30 5D 0D 45 4E 44 |EVEL RT 120].END|
00000230: 0D 0D 4D 41 4B 45 20 22 53 54 41 52 54 55 50 20 |..MAKE "STARTUP |
00000240: 5B 44 45 4D 4F 5D 0D |[DEMO]. |
. TO SIDE :SIZE :LEVEL. IF :LEVEL = 0 TH
EN FORWARD :SIZE STOP. SIDE :SIZE / 3 :L
EVEL - 1. LEFT 60. SIDE :SIZE / 3 :LEVEL
- 1. RIGHT 120. SIDE :SIZE / 3 :LEVEL -
1. LEFT 60. SIDE :SIZE / 3 :LEVEL - 1.E
ND..TO DEMO. DEMO1 180.END..TO DEMO1 :SI
ZE. DSETUP. SNOW :SIZE 0. WAIT DSETUP. S
NOW :SIZE 1. WAIT DSETUP. SNOW :SIZE 2.
WAIT DSETUP. SNOW :SIZE 3. WAIT DSETUP.
SNOW :SIZE 4.END..TO WAIT. IF RC? PR "ST
OPPED! TOPLEVEL. REPEAT 2000 [].END..TO
DSETUP. DRAW BG 6 FULLSCREEN HT. PC 1. P
U. BK 100. PD.END..TO SNOW :SIZE :LEVEL.
REPEAT 3 [SIDE :SIZE :LEVEL RT 120].END
..MAKE "STARTUP [DEMO].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL