00000000: 00 20 54 4F 20 55 4E 53 45 52 20 48 41 55 53 0D |. TO UNSER HAUS.|
00000010: 20 48 54 20 43 53 0D 20 48 41 55 53 0D 20 42 4F | HT CS. HAUS. BO|
00000020: 47 45 4E 0D 45 4E 44 0D 0D 54 4F 20 42 4F 47 45 |GEN.END..TO BOGE|
00000030: 4E 0D 20 50 43 20 31 0D 20 50 55 20 52 54 20 31 |N. PC 1. PU RT 1|
00000040: 31 30 20 46 44 20 39 31 20 50 44 20 46 44 20 36 |10 FD 91 PD FD 6|
00000050: 30 20 50 55 20 52 54 20 39 30 20 46 44 20 33 30 |0 PU RT 90 FD 30|
00000060: 20 52 54 20 39 30 20 50 44 20 46 44 20 36 30 0D | RT 90 PD FD 60.|
00000070: 20 4D 41 4B 45 20 22 52 41 20 31 35 0D 20 4D 41 | MAKE "RA 15. MA|
00000080: 4B 45 20 22 54 41 4E 47 20 32 20 2A 20 3A 52 41 |KE "TANG 2 * :RA|
00000090: 20 2A 20 33 2E 31 34 31 35 39 20 2F 20 33 36 30 | * 3.14159 / 360|
000000A0: 0D 20 52 45 50 45 41 54 20 31 38 30 20 5B 46 44 |. REPEAT 180 [FD|
000000B0: 20 3A 54 41 4E 47 20 52 54 20 31 5D 0D 45 4E 44 | :TANG RT 1].END|
000000C0: 0D 0D 54 4F 20 48 41 55 53 0D 20 48 54 20 43 53 |..TO HAUS. HT CS|
000000D0: 20 50 55 20 42 4B 20 36 30 20 4C 54 20 39 30 20 | PU BK 60 LT 90 |
000000E0: 50 44 20 46 44 20 31 36 30 20 42 4B 20 33 32 30 |PD FD 160 BK 320|
000000F0: 0D 20 46 44 20 32 30 20 52 54 20 39 30 20 46 44 |. FD 20 RT 90 FD|
00000100: 20 31 30 30 20 4C 54 20 39 30 20 46 44 20 32 38 | 100 LT 90 FD 28|
00000110: 30 20 4C 54 20 39 30 20 46 44 20 31 30 30 20 4C |0 LT 90 FD 100 L|
00000120: 54 20 39 30 0D 20 46 44 20 32 30 30 20 4C 54 20 |T 90. FD 200 LT |
00000130: 39 30 20 46 44 20 37 30 20 52 54 20 39 30 20 46 |90 FD 70 RT 90 F|
00000140: 44 20 37 30 20 52 54 20 39 30 20 46 44 20 37 30 |D 70 RT 90 FD 70|
00000150: 20 4C 54 20 39 30 20 42 4B 20 39 30 20 4C 54 20 | LT 90 BK 90 LT |
00000160: 39 30 20 46 44 20 37 30 20 4C 54 20 39 30 20 46 |90 FD 70 LT 90 F|
00000170: 44 20 33 30 20 4C 54 20 39 30 20 46 44 20 37 30 |D 30 LT 90 FD 70|
00000180: 20 52 54 20 39 30 0D 20 46 44 20 33 30 20 52 54 | RT 90. FD 30 RT|
00000190: 20 39 30 20 50 55 20 46 44 20 33 30 20 50 44 20 | 90 PU FD 30 PD |
000001A0: 46 44 20 34 30 20 4C 54 20 39 30 20 46 44 20 37 |FD 40 LT 90 FD 7|
000001B0: 30 20 4C 54 20 39 30 20 46 44 20 34 30 20 4C 54 |0 LT 90 FD 40 LT|
000001C0: 20 39 30 20 46 44 20 37 30 0D 20 42 4B 20 32 30 | 90 FD 70. BK 20|
000001D0: 20 4C 54 20 39 30 20 46 44 20 34 30 20 4C 54 20 | LT 90 FD 40 LT |
000001E0: 39 30 20 46 44 20 33 30 20 4C 54 20 39 30 20 46 |90 FD 30 LT 90 F|
000001F0: 44 20 34 30 0D 20 4C 54 20 39 30 20 50 55 20 46 |D 40. LT 90 PU F|
00000200: 44 20 31 32 35 20 4C 54 20 39 30 20 46 44 20 33 |D 125 LT 90 FD 3|
00000210: 30 20 50 44 0D 20 52 45 50 45 41 54 20 34 20 5B |0 PD. REPEAT 4 [|
00000220: 46 44 20 31 32 20 4C 54 20 39 30 5D 0D 20 46 44 |FD 12 LT 90]. FD|
00000230: 20 31 30 20 4C 54 20 39 30 20 50 55 20 46 44 20 | 10 LT 90 PU FD |
00000240: 34 20 50 44 0D 20 52 45 50 45 41 54 20 34 20 5B |4 PD. REPEAT 4 [|
00000250: 46 44 20 35 20 4C 54 20 39 30 5D 0D 20 4C 54 20 |FD 5 LT 90]. LT |
00000260: 39 30 20 46 44 20 38 20 52 54 20 39 30 20 46 44 |90 FD 8 RT 90 FD|
00000270: 20 35 0D 20 50 55 20 46 44 20 33 30 20 4C 54 20 | 5. PU FD 30 LT |
00000280: 39 30 20 46 44 20 33 30 20 4C 54 20 39 30 20 50 |90 FD 30 LT 90 P|
00000290: 44 20 46 44 20 31 30 0D 20 52 45 50 45 41 54 20 |D FD 10. REPEAT |
000002A0: 34 20 5B 46 44 20 33 20 52 54 20 39 30 5D 20 4C |4 [FD 3 RT 90] L|
000002B0: 54 20 39 30 0D 20 50 55 20 46 44 20 37 30 20 4C |T 90. PU FD 70 L|
000002C0: 54 20 39 30 20 50 44 20 42 4B 20 31 33 32 20 46 |T 90 PD BK 132 F|
000002D0: 44 20 33 31 34 20 52 54 20 31 36 30 20 46 44 20 |D 314 RT 160 FD |
000002E0: 31 38 30 0D 20 4C 54 20 33 31 37 20 46 44 20 31 |180. LT 317 FD 1|
000002F0: 35 35 0D 20 4C 54 20 32 30 37 20 50 55 20 46 44 |55. LT 207 PU FD|
00000300: 20 31 35 35 20 52 54 20 39 34 20 46 44 20 33 30 | 155 RT 94 FD 30|
00000310: 20 50 44 20 52 45 50 45 41 54 20 34 20 5B 46 44 | PD REPEAT 4 [FD|
00000320: 20 32 30 20 52 54 20 39 30 5D 0D 20 46 44 20 31 | 20 RT 90]. FD 1|
00000330: 30 20 52 54 20 39 30 20 46 44 20 32 30 20 42 4B |0 RT 90 FD 20 BK|
00000340: 20 31 30 20 4C 54 20 39 30 20 46 44 20 31 30 20 | 10 LT 90 FD 10 |
00000350: 42 4B 20 32 30 20 50 55 20 46 44 20 34 30 20 4C |BK 20 PU FD 40 L|
00000360: 54 20 39 30 20 46 44 20 31 30 20 52 54 20 39 30 |T 90 FD 10 RT 90|
00000370: 20 50 44 20 46 44 20 31 30 20 52 54 20 39 30 20 | PD FD 10 RT 90 |
00000380: 46 44 20 32 30 20 52 54 20 39 30 20 46 44 20 31 |FD 20 RT 90 FD 1|
00000390: 30 0D 20 50 55 20 46 44 20 31 34 30 20 4C 54 20 |0. PU FD 140 LT |
000003A0: 39 30 20 46 44 20 37 30 20 50 44 20 46 44 20 35 |90 FD 70 PD FD 5|
000003B0: 20 52 54 20 39 30 20 46 44 20 31 20 52 54 20 39 | RT 90 FD 1 RT 9|
000003C0: 30 20 46 44 20 35 20 52 54 20 39 30 20 46 44 20 |0 FD 5 RT 90 FD |
000003D0: 31 0D 20 50 55 20 46 44 20 31 33 30 20 4C 54 20 |1. PU FD 130 LT |
000003E0: 39 30 20 46 44 20 32 30 30 0D 20 50 43 20 37 20 |90 FD 200. PC 7 |
000003F0: 50 44 20 52 45 50 45 41 54 20 31 30 30 20 5B 52 |PD REPEAT 100 [R|
00000400: 54 20 31 37 38 20 46 44 20 32 30 5D 0D 20 42 4B |T 178 FD 20]. BK|
00000410: 20 31 30 20 52 45 50 45 41 54 20 32 30 20 5B 46 | 10 REPEAT 20 [F|
00000420: 44 20 33 35 20 42 4B 20 33 35 20 4C 54 20 31 38 |D 35 BK 35 LT 18|
00000430: 5D 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 54 41 4E |].END..MAKE "TAN|
00000440: 47 20 28 30 2E 32 36 31 37 39 39 29 0D 4D 41 4B |G (0.261799).MAK|
00000450: 45 20 22 52 41 20 28 31 35 29 0D |E "RA (15). |
. TO UNSER HAUS. HT CS. HAUS. BOGEN.END.
.TO BOGEN. PC 1. PU RT 110 FD 91 PD FD 6
0 PU RT 90 FD 30 RT 90 PD FD 60. MAKE "R
A 15. MAKE "TANG 2 * :RA * 3.14159 / 360
. REPEAT 180 [FD :TANG RT 1].END..TO HAU
S. HT CS PU BK 60 LT 90 PD FD 160 BK 320
. FD 20 RT 90 FD 100 LT 90 FD 280 LT 90
FD 100 LT 90. FD 200 LT 90 FD 70 RT 90 F
D 70 RT 90 FD 70 LT 90 BK 90 LT 90 FD 70
LT 90 FD 30 LT 90 FD 70 RT 90. FD 30 RT
90 PU FD 30 PD FD 40 LT 90 FD 70 LT 90
FD 40 LT 90 FD 70. BK 20 LT 90 FD 40 LT
90 FD 30 LT 90 FD 40. LT 90 PU FD 125 LT
90 FD 30 PD. REPEAT 4 [FD 12 LT 90]. FD
10 LT 90 PU FD 4 PD. REPEAT 4 [FD 5 LT
90]. LT 90 FD 8 RT 90 FD 5. PU FD 30 LT
90 FD 30 LT 90 PD FD 10. REPEAT 4 [FD 3
RT 90] LT 90. PU FD 70 LT 90 PD BK 132 F
D 314 RT 160 FD 180. LT 317 FD 155. LT 2
07 PU FD 155 RT 94 FD 30 PD REPEAT 4 [FD
20 RT 90]. FD 10 RT 90 FD 20 BK 10 LT 9
0 FD 10 BK 20 PU FD 40 LT 90 FD 10 RT 90
PD FD 10 RT 90 FD 20 RT 90 FD 10. PU FD
140 LT 90 FD 70 PD FD 5 RT 90 FD 1 RT 9
0 FD 5 RT 90 FD 1. PU FD 130 LT 90 FD 20
0. PC 7 PD REPEAT 100 [RT 178 FD 20]. BK
10 REPEAT 20 [FD 35 BK 35 LT 18].END..M
AKE "TANG (0.261799).MAKE "RA (15).
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL