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