out 32891,139
1 out 32888,0
cls
print:print"Taste -r- fr Rechtslauf drcken"
print:print"Taste -l- fr Linkslauf"
print:print"Taste -b- fr Beenden !"
print:input"Welche Wahl ?";a$
if a$<>"r" and a$<>"l" then end
print:input"Wieviele Schritte ?";q
cls
if a$="r" then a=3:b=2
if a$="l" then a=1:b=0
cls
for x=1 to q
out 32888,a
out 32888,b
next x
goto 1