10 sopen
60 IF SW AND 8 THEN STX "rt,10,90\r"
70 IF SW AND 4 THEN STX "lt,10,90\r"
80 IF SW AND 2 THEN STX "bk,10,5\r"
90 IF SW AND 1 THEN STX "fd,10,5\r"
100 for i=0 to 200
110 next
140 GOTO 60
