00000000: 00 20 54 4F 20 43 49 52 43 4C 45 4C 20 3A 52 41 |. TO CIRCLEL :RA|
00000010: 44 49 55 53 0D 20 41 52 43 4C 20 3A 52 41 44 49 |DIUS. ARCL :RADI|
00000020: 55 53 20 33 36 30 0D 45 4E 44 0D 0D 54 4F 20 41 |US 360.END..TO A|
00000030: 52 43 4C 20 3A 52 41 44 49 55 53 20 3A 44 45 47 |RCL :RADIUS :DEG|
00000040: 52 45 45 53 0D 20 4C 45 46 54 20 32 2E 35 0D 20 |REES. LEFT 2.5. |
00000050: 41 52 43 4C 31 20 3A 52 41 44 49 55 53 20 2A 20 |ARCL1 :RADIUS * |
00000060: 30 2E 30 31 37 34 35 33 20 3A 44 45 47 52 45 45 |0.017453 :DEGREE|
00000070: 53 0D 20 52 49 47 48 54 20 32 2E 35 0D 45 4E 44 |S. RIGHT 2.5.END|
00000080: 0D 0D 54 4F 20 41 52 43 4C 31 20 3A 53 49 5A 45 |..TO ARCL1 :SIZE|
00000090: 20 3A 44 45 47 52 45 45 53 0D 20 52 45 50 45 41 | :DEGREES. REPEA|
000000A0: 54 20 51 55 4F 54 49 45 4E 54 20 3A 44 45 47 52 |T QUOTIENT :DEGR|
000000B0: 45 45 53 20 35 20 5B 46 4F 52 57 41 52 44 20 3A |EES 5 [FORWARD :|
000000C0: 53 49 5A 45 20 2A 20 35 20 4C 45 46 54 20 35 5D |SIZE * 5 LEFT 5]|
000000D0: 0D 20 43 4F 52 52 45 43 54 41 52 43 4C 20 3A 53 |. CORRECTARCL :S|
000000E0: 49 5A 45 20 28 20 52 45 4D 41 49 4E 44 45 52 20 |IZE ( REMAINDER |
000000F0: 3A 44 45 47 52 45 45 53 20 31 30 20 29 0D 45 4E |:DEGREES 10 ).EN|
00000100: 44 0D 0D 54 4F 20 43 4F 52 52 45 43 54 41 52 43 |D..TO CORRECTARC|
00000110: 4C 20 3A 53 49 5A 45 20 3A 41 4D 4F 55 4E 54 0D |L :SIZE :AMOUNT.|
00000120: 20 46 4F 52 57 41 52 44 20 3A 53 49 5A 45 20 2A | FORWARD :SIZE *|
00000130: 20 3A 41 4D 4F 55 4E 54 0D 20 4C 45 46 54 20 3A | :AMOUNT. LEFT :|
00000140: 41 4D 4F 55 4E 54 0D 45 4E 44 0D 0D 54 4F 20 43 |AMOUNT.END..TO C|
00000150: 49 52 43 4C 45 52 20 3A 52 41 44 49 55 53 0D 20 |IRCLER :RADIUS. |
00000160: 41 52 43 52 20 3A 52 41 44 49 55 53 20 33 36 30 |ARCR :RADIUS 360|
00000170: 0D 45 4E 44 0D 0D 54 4F 20 41 52 43 52 20 3A 52 |.END..TO ARCR :R|
00000180: 41 44 49 55 53 20 3A 44 45 47 52 45 45 53 0D 20 |ADIUS :DEGREES. |
00000190: 52 49 47 48 54 20 32 2E 35 0D 20 41 52 43 52 31 |RIGHT 2.5. ARCR1|
000001A0: 20 3A 52 41 44 49 55 53 20 2A 20 30 2E 30 31 37 | :RADIUS * 0.017|
000001B0: 34 35 33 20 3A 44 45 47 52 45 45 53 0D 20 4C 45 |453 :DEGREES. LE|
000001C0: 46 54 20 32 2E 35 0D 45 4E 44 0D 0D 54 4F 20 41 |FT 2.5.END..TO A|
000001D0: 52 43 52 31 20 3A 53 49 5A 45 20 3A 44 45 47 52 |RCR1 :SIZE :DEGR|
000001E0: 45 45 53 0D 20 52 45 50 45 41 54 20 51 55 4F 54 |EES. REPEAT QUOT|
000001F0: 49 45 4E 54 20 3A 44 45 47 52 45 45 53 20 35 20 |IENT :DEGREES 5 |
00000200: 5B 46 4F 52 57 41 52 44 20 3A 53 49 5A 45 20 2A |[FORWARD :SIZE *|
00000210: 20 35 20 52 49 47 48 54 20 35 5D 0D 20 43 4F 52 | 5 RIGHT 5]. COR|
00000220: 52 45 43 54 41 52 43 52 20 3A 53 49 5A 45 20 28 |RECTARCR :SIZE (|
00000230: 20 52 45 4D 41 49 4E 44 45 52 20 3A 44 45 47 52 | REMAINDER :DEGR|
00000240: 45 45 53 20 31 30 20 29 0D 45 4E 44 0D 0D 54 4F |EES 10 ).END..TO|
00000250: 20 43 4F 52 52 45 43 54 41 52 43 52 20 3A 53 49 | CORRECTARCR :SI|
00000260: 5A 45 20 3A 41 4D 4F 55 4E 54 0D 20 46 4F 52 57 |ZE :AMOUNT. FORW|
00000270: 41 52 44 20 3A 53 49 5A 45 20 2A 20 3A 41 4D 4F |ARD :SIZE * :AMO|
00000280: 55 4E 54 0D 20 52 49 47 48 54 20 3A 41 4D 4F 55 |UNT. RIGHT :AMOU|
00000290: 4E 54 0D 45 4E 44 0D 0D FF FE 00 |NT.END..... |
. TO CIRCLEL :RADIUS. ARCL :RADIUS 360.E
ND..TO ARCL :RADIUS :DEGREES. LEFT 2.5.
ARCL1 :RADIUS * 0.017453 :DEGREES. RIGHT
2.5.END..TO ARCL1 :SIZE :DEGREES. REPEA
T QUOTIENT :DEGREES 5 [FORWARD :SIZE * 5
LEFT 5]. CORRECTARCL :SIZE ( REMAINDER
:DEGREES 10 ).END..TO CORRECTARCL :SIZE
:AMOUNT. FORWARD :SIZE * :AMOUNT. LEFT :
AMOUNT.END..TO CIRCLER :RADIUS. ARCR :RA
DIUS 360.END..TO ARCR :RADIUS :DEGREES.
RIGHT 2.5. ARCR1 :RADIUS * 0.017453 :DEG
REES. LEFT 2.5.END..TO ARCR1 :SIZE :DEGR
EES. REPEAT QUOTIENT :DEGREES 5 [FORWARD
:SIZE * 5 RIGHT 5]. CORRECTARCR :SIZE (
REMAINDER :DEGREES 10 ).END..TO CORRECT
ARCR :SIZE :AMOUNT. FORWARD :SIZE * :AMO
UNT. RIGHT :AMOUNT.END.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL