start tok64 d64-PAe2D3
0 DIMx(3000):CLR:SYS65409:v=53248:u={pi}/180:c=100:INPUT"laenge ";l:INPUT"breite ";b
1 b=b*u:l=l*u:POKEv+24,29:POKEv+17,PEEK(v+17)OR32:DIMn$(80):FORi=1024TO2023:POKEi,14:NEXT
2 DEFFNa(x)=x+(x+x-90)*(x>90):FORi=.01TO2*{pi}STEP.01:x=c*COS(i):y=c*SIN(i):GOSUB8:NEXT
3 FORa=0TO36:READn$:FORi=2TOLEN(n$)STEP2:e=ASC(MID$(n$,i,1))-1:f=FNa(ASC(MID$(n$,i+1,1)))
4 e=e*u:e=e+2*e*(MID$(n$,1,1)="-"):f=f*u:p=c*SIN(f)*COS(b)-c*COS(f)*COS(e-l)*SIN(b)
5 o=c*COS(f)*SIN(e-l):IFi=2ORSIN(b)*SIN(f)+COS(b)*COS(f)*COS(e-l)<0THEN7:DATA"+p{ct h}p{ct b}s{white}p{ct i}"
6 g=o-q:h=p-r:s=SQR(g*g+h*h+.01):g=g/s:h=h/s:FORj=0TOs:x=q+j*g:y=r+j*h:GOSUB8:NEXTj
7 q=o:r=p:NEXTi,a:CONT:DATA"+{115}{110}{115}{125}{130}{122}{f8}{128}{pink}{128}{light gray}{115}{143}{100}{f8}{108}{f1}{102}{122}{108}{115}{110}","+1{102}0{115}-{116},{112},{106}1{102}","-+<#a{delete}f{ct k}r{green}udm5j+<
8 x=c+x:y=c-y:d=8192+320*INT(y/8)+(yAND7)+(xAND248):POKEd,PEEK(d)OR(2^(7-(xAND7))):RETURN
9 DATA"+{ct a}#{ct j}%{ct j}!{delete}{blue}{ct u}!{space*2},{ct k}4{ct l}'{097}){106}#{115}{027}{123}{reverse on}{123}{ct l}{107}{ct j}]{ct j}{white}{ct a}{ct f}","-{ct a}{ct f}{ct h}{white}{down}{ct n}{down}{ct x}{ct j}{blue}{ct f}${ct a}#","-n?a=<bniyizgufjdn?"
10 DATA"-a{reverse off}h{up}k{f2}i{127}h{108}l{105}r{arrow left}p{ct a}m{ct h}t{ct i}[{ct n}{105}{delete}{112} {114} {110}{ct v}{116}!{123}({127}2{f8}<{gray}<{cm t}7{light gray};{cm g}<{sh space}f{130}f{108}dydw?{arrow left}=[9s7q3o3n?a<84<2
11 DATA"-<2f*k#q{green}p{ct x}t{green}{097}{ct x}{096}{reverse on}{pound}{reverse on}z{ct u}w{ct u}x{ct p}s{ct o}r{ct j}p{ct j}m{ct i}f{ct l}>{ct j}9{ct h}4{ct f}2{ct a}(]#{097}'{103}){112}0{115}>{orange}a{131}b{f2}e{black}a{reverse off}","-m{delete}t{ct w}i{delete}m{delete}
12 DATA"+{ct a}({ct c}*{ct d}+{ct j},{ct p}({ct p}&{down}'{reverse on}({ct l}.{ct n}.{ct v}%{ct x}&{ct w}){right}){blue}*!, -*)#*{right}){ct z}({green}{$*3}! +{down}+{ct n}7{down}<{ct w}7{027}4{ct y}0{green}2{green}:{ct z}?{ct y}c{ct y}g{ct u}h{ct v}
13 DATA"+h{ct v}j{ct p}m{ct h}p{ct j}p{ct p}w{ct v}[{ct w}{arrow left}{ct o}{097}{ct p}{098}{ct h}{104}{ct a}{100}{ct i}{101}{ct n}{105}{ct i}{109}{ct l}{106}{delete}{116}{ct x}{122}{green}{117}({125}({126}#{128}#{128}({f5}+{f8}2{141};{sh space}<{left}2{cm t}6{cm +}<{cm v}c{cm n}f{sh space}g{f8}i{130}h{113}j{105}n
14 DATA"+{105}nfice*b#@!c(c(d{ct z}g{ct j}@{white}>{ct h}:{ct k}<{ct n}8{home}<{reverse on}?{ct x}b{ct u}={ct w}< >{ct v};{delete}7{ct k}6{ct j}9{ct h}6{white}5{ct b}3{ct a}2","-{ct w}c{ct w}@{reverse on}?{ct h}a{ct p}c{ct u}a{ct w}c
15 DATA"-{ct a}2{white}0{ct a}.{ct b}+{ct i}+{ct i}%{white}${ct a}'{ct a}(","+{ct a}{sh space}({sh space}-{left}f{cm k}z{left}{112}{light gray}{f8}{left}{cm n}{sh space}{cm n}{cm d}{cm h}{cm p}","-{cm l}{cm p}{light gray}{cm e}{cyan}{cm m}{130}{cm g}{100}{cm i}f{cm k}h{left}8{light green}@{sh space}?{cm g}p{cm n}({cm q}{delete}{cm g}{ct a}{sh space}
16 DATA"-{ct f}2{white}6{ct f}:{ct c}9{ct a}3{ct f}2","-{ct g}4{ct g}7{ct k}6{ct k}3{ct g}4","+{130} {130}{green}{f8}#{142}){142}.{up}+{f8}({f5}#{130} ","+{f5}^{f8}{098}{reverse off}{097}{brown}{100}{reverse off}{arrow left}{f4}{pound}{f5}^{f3}[{131}[{f1}^{f5}^
17 DATA"+{117}{ct g}{109}{ct b}{110}]{115}^{119}{white}{117}{ct g}","+{arrow left}{white}{104}{arrow left}{106}^{099}{white}{arrow left}{white}","+{106}{097}{125}{098}{114}{097}{106}{096}{106}{097}","+{120}{arrow left}{120}{ct a}{125}{ct b}{121}{ct a}{124}[{124}{arrow left}{120}]{120}{arrow left}","+{cm m}{f7}{cm n}{f2}{cm s}{131}{cm d}{131}{cm m}{f7}
18 DATA"+{122}{ct g}{125}{white}{126}{ct i}{122}{ct g}","+{125}{ct k}{121}{ct n}{121}{reverse on}{123}{reverse on}{122}{ct o}{125}{ct k}","+{f8}{131}{148}{131}{clear}{f1}{f8}{131}","+{cm p}{132}{cm r}{127}{cm z}{124}{cm s}{orange}{cm p}{132}","-pl<r{097}p{arrow left}lpl","+{black}.{black}2{143}7
19 DATA"-{119}h{102}i{107}l{127}m{123}i{119}h","+1%6$2,7,3//-1%","+9g8hen7i9g","+{reverse on}m{right}p{ct j}o{reverse on}m","-;/6.417273:/;/
stop tok64
(bastext 1.0)