00000000: 00 30 54 4F 20 53 55 4E 20 3A 53 49 5A 45 0D 20 |.0TO SUN :SIZE. |
00000010: 52 45 50 45 41 54 20 39 20 5B 52 41 59 20 3A 53 |REPEAT 9 [RAY :S|
00000020: 49 5A 45 20 52 54 20 31 36 30 5D 0D 45 4E 44 0D |IZE RT 160].END.|
00000030: 0D 54 4F 20 52 41 59 20 3A 53 49 5A 45 0D 20 41 |.TO RAY :SIZE. A|
00000040: 52 43 4C 45 46 54 20 3A 53 49 5A 45 20 39 30 0D |RCLEFT :SIZE 90.|
00000050: 20 41 52 43 52 49 47 48 54 20 3A 53 49 5A 45 20 | ARCRIGHT :SIZE |
00000060: 39 30 0D 20 41 52 43 4C 45 46 54 20 3A 53 49 5A |90. ARCLEFT :SIZ|
00000070: 45 20 39 30 0D 20 41 52 43 52 49 47 48 54 20 3A |E 90. ARCRIGHT :|
00000080: 53 49 5A 45 20 39 30 0D 45 4E 44 0D 0D 54 4F 20 |SIZE 90.END..TO |
00000090: 41 52 43 4C 45 46 54 20 3A 52 41 44 49 55 53 20 |ARCLEFT :RADIUS |
000000A0: 3A 44 45 47 52 45 45 53 0D 20 41 52 43 4C 45 46 |:DEGREES. ARCLEF|
000000B0: 54 31 20 3A 52 41 44 49 55 53 20 2A 20 31 2E 37 |T1 :RADIUS * 1.7|
000000C0: 34 4E 32 20 3A 44 45 47 52 45 45 53 0D 45 4E 44 |4N2 :DEGREES.END|
000000D0: 0D 0D 54 4F 20 41 52 43 4C 45 46 54 31 20 3A 53 |..TO ARCLEFT1 :S|
000000E0: 49 5A 45 20 3A 44 45 47 52 45 45 53 0D 20 52 45 |IZE :DEGREES. RE|
000000F0: 50 45 41 54 20 3A 44 45 47 52 45 45 53 20 5B 46 |PEAT :DEGREES [F|
00000100: 44 20 3A 53 49 5A 45 20 4C 54 20 31 5D 0D 45 4E |D :SIZE LT 1].EN|
00000110: 44 0D 0D 54 4F 20 46 4C 4F 57 45 52 20 3A 53 49 |D..TO FLOWER :SI|
00000120: 5A 45 0D 20 52 45 50 45 41 54 20 36 20 5B 50 45 |ZE. REPEAT 6 [PE|
00000130: 54 41 4C 20 3A 53 49 5A 45 20 52 54 20 36 30 5D |TAL :SIZE RT 60]|
00000140: 0D 45 4E 44 0D 0D 54 4F 20 50 45 54 41 4C 20 3A |.END..TO PETAL :|
00000150: 53 49 5A 45 0D 20 41 52 43 52 49 47 48 54 20 3A |SIZE. ARCRIGHT :|
00000160: 53 49 5A 45 20 36 30 0D 20 52 54 20 31 32 30 20 |SIZE 60. RT 120 |
00000170: 41 52 43 52 49 47 48 54 20 3A 53 49 5A 45 20 36 |ARCRIGHT :SIZE 6|
00000180: 30 20 52 54 20 31 32 30 0D 45 4E 44 0D 0D 54 4F |0 RT 120.END..TO|
00000190: 20 43 49 52 43 4C 45 31 0D 20 52 45 50 45 41 54 | CIRCLE1. REPEAT|
000001A0: 20 33 36 30 20 5B 46 44 20 31 20 52 54 20 31 5D | 360 [FD 1 RT 1]|
000001B0: 0D 45 4E 44 0D 0D 54 4F 20 43 49 52 43 4C 45 32 |.END..TO CIRCLE2|
000001C0: 20 3A 53 49 5A 45 0D 20 52 45 50 45 41 54 20 33 | :SIZE. REPEAT 3|
000001D0: 36 30 20 5B 46 44 20 3A 53 49 5A 45 20 52 54 20 |60 [FD :SIZE RT |
000001E0: 31 5D 0D 45 4E 44 0D 0D 54 4F 20 43 49 52 43 4C |1].END..TO CIRCL|
000001F0: 45 20 3A 52 41 44 49 55 53 0D 20 43 49 52 43 4C |E :RADIUS. CIRCL|
00000200: 45 32 20 3A 52 41 44 49 55 53 20 2A 20 31 2E 37 |E2 :RADIUS * 1.7|
00000210: 34 4E 32 0D 45 4E 44 0D 0D 54 4F 20 41 52 43 52 |4N2.END..TO ARCR|
00000220: 49 47 48 54 20 3A 52 41 44 49 55 53 20 3A 44 45 |IGHT :RADIUS :DE|
00000230: 47 52 45 45 53 0D 20 41 52 43 52 49 47 48 54 31 |GREES. ARCRIGHT1|
00000240: 20 3A 52 41 44 49 55 53 20 2A 20 31 2E 37 34 4E | :RADIUS * 1.74N|
00000250: 32 20 3A 44 45 47 52 45 45 53 0D 45 4E 44 0D 0D |2 :DEGREES.END..|
00000260: 54 4F 20 41 52 43 52 49 47 48 54 31 20 3A 53 49 |TO ARCRIGHT1 :SI|
00000270: 5A 45 20 3A 44 45 47 52 45 45 53 0D 20 52 45 50 |ZE :DEGREES. REP|
00000280: 45 41 54 20 3A 44 45 47 52 45 45 53 20 5B 46 44 |EAT :DEGREES [FD|
00000290: 20 3A 53 49 5A 45 20 52 54 20 31 5D 0D 45 4E 44 | :SIZE RT 1].END|
000002A0: 0D 0D |.. |
.0TO SUN :SIZE. REPEAT 9 [RAY :SIZE RT 1
60].END..TO RAY :SIZE. ARCLEFT :SIZE 90.
ARCRIGHT :SIZE 90. ARCLEFT :SIZE 90. AR
CRIGHT :SIZE 90.END..TO ARCLEFT :RADIUS
:DEGREES. ARCLEFT1 :RADIUS * 1.74N2 :DEG
REES.END..TO ARCLEFT1 :SIZE :DEGREES. RE
PEAT :DEGREES [FD :SIZE LT 1].END..TO FL
OWER :SIZE. REPEAT 6 [PETAL :SIZE RT 60]
.END..TO PETAL :SIZE. ARCRIGHT :SIZE 60.
RT 120 ARCRIGHT :SIZE 60 RT 120.END..TO
CIRCLE1. REPEAT 360 [FD 1 RT 1].END..TO
CIRCLE2 :SIZE. REPEAT 360 [FD :SIZE RT
1].END..TO CIRCLE :RADIUS. CIRCLE2 :RADI
US * 1.74N2.END..TO ARCRIGHT :RADIUS :DE
GREES. ARCRIGHT1 :RADIUS * 1.74N2 :DEGRE
ES.END..TO ARCRIGHT1 :SIZE :DEGREES. REP
EAT :DEGREES [FD :SIZE RT 1].END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL