00000000: 00 20 54 4F 20 51 55 20 3A 4C 41 45 4E 47 45 0D |. TO QU :LAENGE.|
00000010: 20 51 55 41 44 52 41 54 20 3A 4C 41 45 4E 47 45 | QUADRAT :LAENGE|
00000020: 0D 45 4E 44 0D 0D 54 4F 20 51 55 41 44 52 41 54 |.END..TO QUADRAT|
00000030: 20 3A 4C 41 45 4E 47 45 0D 20 52 54 20 39 30 0D | :LAENGE. RT 90.|
00000040: 20 52 45 50 45 41 54 20 34 20 5B 46 44 20 31 30 | REPEAT 4 [FD 10|
00000050: 20 4C 54 20 39 30 5D 0D 45 4E 44 0D 0D 54 4F 20 | LT 90].END..TO |
00000060: 50 4F 4C 59 20 3A 4C 41 45 4E 47 45 20 3A 53 45 |POLY :LAENGE :SE|
00000070: 49 54 45 4E 41 4E 5A 41 48 4C 0D 20 52 45 50 45 |ITENANZAHL. REPE|
00000080: 41 54 20 3A 53 45 49 54 45 4E 41 4E 5A 41 48 4C |AT :SEITENANZAHL|
00000090: 20 5B 46 44 20 3A 4C 41 45 4E 47 45 20 52 54 20 | [FD :LAENGE RT |
000000A0: 33 36 30 2F 3A 53 45 49 54 45 4E 41 4E 5A 41 48 |360/:SEITENANZAH|
000000B0: 4C 5D 0D 45 4E 44 0D 0D 54 4F 20 51 55 41 44 52 |L].END..TO QUADR|
000000C0: 41 4C 20 3A 4C 41 45 4E 47 45 0D 20 4E 4F 57 52 |AL :LAENGE. NOWR|
000000D0: 41 50 20 46 44 20 3A 4C 41 45 4E 47 45 0D 20 52 |AP FD :LAENGE. R|
000000E0: 54 20 38 37 0D 20 51 55 41 44 52 41 4C 20 3A 4C |T 87. QUADRAL :L|
000000F0: 41 45 4E 47 45 20 2B 20 32 0D 45 4E 44 0D 0D |AENGE + 2.END.. |
. TO QU :LAENGE. QUADRAT :LAENGE.END..TO
QUADRAT :LAENGE. RT 90. REPEAT 4 [FD 10
LT 90].END..TO POLY :LAENGE :SEITENANZA
HL. REPEAT :SEITENANZAHL [FD :LAENGE RT
360/:SEITENANZAHL].END..TO QUADRAL :LAEN
GE. NOWRAP FD :LAENGE. RT 87. QUADRAL :L
AENGE + 2.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL