00000000: 00 30 54 4F 20 41 52 43 52 49 47 48 54 31 20 3A |.0TO ARCRIGHT1 :|
00000010: 53 49 5A 45 20 3A 44 45 47 52 45 45 53 0D 20 52 |SIZE :DEGREES. R|
00000020: 45 50 45 41 54 20 3A 44 45 47 52 45 45 53 20 5B |EPEAT :DEGREES [|
00000030: 46 44 20 3A 53 49 5A 45 20 52 54 20 31 5D 0D 45 |FD :SIZE RT 1].E|
00000040: 4E 44 0D 0D 54 4F 20 41 52 43 52 49 47 48 54 20 |ND..TO ARCRIGHT |
00000050: 3A 52 41 44 49 55 53 20 3A 44 45 47 52 45 45 53 |:RADIUS :DEGREES|
00000060: 0D 20 41 52 43 52 49 47 48 54 31 20 3A 52 41 44 |. ARCRIGHT1 :RAD|
00000070: 49 55 53 20 2A 20 31 2E 37 34 4E 32 20 3A 44 45 |IUS * 1.74N2 :DE|
00000080: 47 52 45 45 53 0D 45 4E 44 0D 0D 54 4F 20 43 49 |GREES.END..TO CI|
00000090: 52 43 4C 45 20 3A 52 41 44 49 55 53 0D 20 43 49 |RCLE :RADIUS. CI|
000000A0: 52 43 4C 45 32 20 3A 52 41 44 49 55 53 20 2A 20 |RCLE2 :RADIUS * |
000000B0: 31 2E 37 34 4E 32 0D 45 4E 44 0D 0D 54 4F 20 43 |1.74N2.END..TO C|
000000C0: 49 52 43 4C 45 31 0D 20 52 45 50 45 41 54 20 33 |IRCLE1. REPEAT 3|
000000D0: 36 30 20 5B 46 44 20 31 20 52 54 20 31 5D 0D 45 |60 [FD 1 RT 1].E|
000000E0: 4E 44 0D 0D 54 4F 20 43 49 52 43 4C 45 32 20 3A |ND..TO CIRCLE2 :|
000000F0: 53 49 5A 45 0D 20 52 45 50 45 41 54 20 33 36 30 |SIZE. REPEAT 360|
00000100: 20 5B 46 44 20 3A 53 49 5A 45 20 52 54 20 31 5D | [FD :SIZE RT 1]|
00000110: 0D 45 4E 44 0D 0D |.END.. |
.0TO ARCRIGHT1 :SIZE :DEGREES. REPEAT :D
EGREES [FD :SIZE RT 1].END..TO ARCRIGHT
:RADIUS :DEGREES. ARCRIGHT1 :RADIUS * 1.
74N2 :DEGREES.END..TO CIRCLE :RADIUS. CI
RCLE2 :RADIUS * 1.74N2.END..TO CIRCLE1.
REPEAT 360 [FD 1 RT 1].END..TO CIRCLE2 :
SIZE. REPEAT 360 [FD :SIZE RT 1].END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL