win-logo (www.win-logo.de/eng/e_index.htm; , 30 ), ( β 2):
PR test
;*
SETZE "sprung.x" 0
SETZE "sprung.y" 0
flug
ENDE
PR flug
sprung
tasten
flug
ENDE
PR sprung
SETZE "sprung.x" :sprung.x + (SIN KURS)/2
SETZE "sprung.y" :sprung.y + (COS KURS)/2
AUFXY (XKO + :sprung.x) (YKO + :sprung.y)
ENDE
PR tasten
SETZE "t" TASTE
WENN :t = "d" DANN LI 30
WENN :t = "e" DANN DZ "Abbruch!" AUSSTIEG
WENN :t = "f" DANN RE 30
WENN :t = "h" DANN sprung
tasten
ENDE
OK?
.
Michael Kraus