prozedur main
li 90
stifthoch
go 50
stiftrunter
re 90
farbe rot
goto trapez,a=15,b=80,d=95
li 90
go 80
re 180
goto dreieck,a=80,b=20
re 90
go 15
li 90
goto rect,a=190,b=35
farbe weiss
re 180
go 50
re 180
goto dreieck,a=51,b=10
li 90
stifthoch
go 30
farbe rot
stiftrunter
li 90
go 185
re 140
goto rect,a=40,b=6
re 180
go 40
li 140
go 80
li 70
goto rect,a=12,b=8
li 90
go 2
re 80
goto rect,a=8,b=6
stifthoch
re 170
go 40
li 90
go 35
re 180
goto rad,r=17,dicke=6
stifthoch
re 6
go 138
goto rad,r=16,dicke=6
stifthoch
re 93
go 80
ende
prozedur trapez
goto rect,a=a,b=b
re 180
go a
re 90
go d
re 180
goto dreieck,a=d-b,b=a
go b
li 90
go a
ende
prozedur rect
wiederhole a-1,rectSchritt,a=a,b=b
li 90
go b
re 180
go b
li 90
ende
prozedur rectSchritt
li 90
go b
re 180
go b
li 90
go 1
ende
prozedur dreieck
wiederhole a,dreieckSchritt,a=a,b=b
ende
prozedur dreieckSchritt
li 90
go (loop/a)*b
re 180
go (loop/a)*b
li 90
go 1
ende
prozedur rad
farbe schwarz
neuevar dicke=5
goto kreis,r=r,grad=360,dicke=dicke
farbe grau
li 6
wiederhole 5,speichen,r=r-dicke
goto kreis,r=5,grad=360,dicke=5
ende
prozedur speichen
goto speiche,r=r
re 60
ende
prozedur speiche
goto kreis,r=r,dicke=r,grad=12
ende
prozedur kreis
stifthoch
wiederhole grad,step,r=r,dicke=dicke
stiftrunter
ende
prozedur step
go r-dicke
stiftrunter
go dicke
stifthoch
re 180
go r
re 181
ende
