00000000: 00 20 54 4F 20 43 4F 52 52 45 43 54 41 52 43 52 |. TO CORRECTARCR|
00000010: 20 3A 53 49 5A 45 20 3A 41 4D 4F 55 4E 54 0D 20 | :SIZE :AMOUNT. |
00000020: 46 4F 52 57 41 52 44 20 3A 53 49 5A 45 20 2A 20 |FORWARD :SIZE * |
00000030: 3A 41 4D 4F 55 4E 54 0D 20 52 49 47 48 54 20 3A |:AMOUNT. RIGHT :|
00000040: 41 4D 4F 55 4E 54 0D 45 4E 44 0D 0D 54 4F 20 41 |AMOUNT.END..TO A|
00000050: 52 43 52 31 20 3A 53 49 5A 45 20 3A 44 45 47 52 |RCR1 :SIZE :DEGR|
00000060: 45 45 53 0D 20 52 45 50 45 41 54 20 51 55 4F 54 |EES. REPEAT QUOT|
00000070: 49 45 4E 54 20 3A 44 45 47 52 45 45 53 20 35 20 |IENT :DEGREES 5 |
00000080: 5B 46 4F 52 57 41 52 44 20 3A 53 49 5A 45 20 2A |[FORWARD :SIZE *|
00000090: 20 35 20 52 49 47 48 54 20 35 5D 0D 20 43 4F 52 | 5 RIGHT 5]. COR|
000000A0: 52 45 43 54 41 52 43 52 20 3A 53 49 5A 45 20 28 |RECTARCR :SIZE (|
000000B0: 20 52 45 4D 41 49 4E 44 45 52 20 3A 44 45 47 52 | REMAINDER :DEGR|
000000C0: 45 45 53 20 31 30 20 29 0D 45 4E 44 0D 0D 54 4F |EES 10 ).END..TO|
000000D0: 20 41 52 43 52 20 3A 52 41 44 49 55 53 20 3A 44 | ARCR :RADIUS :D|
000000E0: 45 47 52 45 45 53 0D 20 52 49 47 48 54 20 32 2E |EGREES. RIGHT 2.|
000000F0: 35 0D 20 41 52 43 52 31 20 3A 52 41 44 49 77 79 |5. ARCR1 :RADIwy|
00000100: FF 8C FF 8F 85 80 FF FF FF FF FF FF FF 33 33 BF |.............33.|
00000110: FF 33 B3 FF A7 FF FF FF 71 FF FF 89 85 87 F4 FF |.3......q.......|
00000120: 75 FF FF F4 77 FF FF FF FF 79 FF FF FF 79 FF 8D |u...w....y...y..|
00000130: FF FF FF FF 77 79 F4 FF FF 79 FF 79 FF 8D FF FF |....wy...y.y....|
00000140: FF FF 77 79 FF 89 9B 8F FF FF 75 FF FF F4 77 FF |..wy......u...w.|
00000150: FF FF 70 79 FF FF 78 77 FF 79 FF FF FF 8D FF FF |..py..xw.y......|
00000160: 7D FF FF 8D FF 74 70 77 75 FF FF FF FF FF 79 FF |}....tpwu.....y.|
00000170: FF 79 FF FF 8D FF FF 7D FF FF 8C FF 8D FF 74 70 |.y.....}......tp|
00000180: 77 75 FF FF FF FF FF 71 FF FF 8D FF 74 70 77 75 |wu.....q....tpwu|
00000190: FF FF 75 4E 44 0D 0D 54 4F 20 41 52 43 4C 31 20 |..uND..TO ARCL1 |
000001A0: 3A 53 49 5A 45 20 3A 44 45 47 52 45 45 53 0D 20 |:SIZE :DEGREES. |
000001B0: 52 45 50 45 41 54 20 51 55 4F 54 49 45 4E 54 20 |REPEAT QUOTIENT |
000001C0: 3A 44 45 47 52 45 45 53 20 35 20 5B 46 4F 52 57 |:DEGREES 5 [FORW|
000001D0: 41 52 44 20 3A 53 49 5A 45 20 2A 20 35 20 4C 45 |ARD :SIZE * 5 LE|
000001E0: 46 54 20 35 5D 0D 20 43 4F 52 52 45 43 54 41 52 |FT 5]. CORRECTAR|
000001F0: 43 41 20 3A 53 49 5A 45 20 28 20 52 |CA :SIZE ( R |
. TO CORRECTARCR :SIZE :AMOUNT. FORWARD
:SIZE * :AMOUNT. RIGHT :AMOUNT.END..TO A
RCR1 :SIZE :DEGREES. REPEAT QUOTIENT :DE
GREES 5 [FORWARD :SIZE * 5 RIGHT 5]. COR
RECTARCR :SIZE ( REMAINDER :DEGREES 10 )
.END..TO ARCR :RADIUS :DEGREES. RIGHT 2.
5. ARCR1 :RADIWY.............33..3......
Q.......U...W....Y...Y......WY...Y.Y....
..WY......U...W...PY..XW.Y......}....TPW
U.....Y..Y.....}......TPWU.....Q....TPWU
..UND..TO ARCL1 :SIZE :DEGREES. REPEAT Q
UOTIENT :DEGREES 5 [FORWARD :SIZE * 5 LE
FT 5]. CORRECTARCA :SIZE ( R
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL