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