1 REM ****************************************************
2 POKE &6038,&12,&5D,&60,&7F,&61,&80,&DD,&37,&12,&5D,&60,&BF,&61,&40,&DD,&37
3 POKE &6048,&12,&5D,&60,&3F,&DD,&37
10 "M" CLEAR :CLS :WAIT 0:PRINT "Motor Control"
20 PRINT "L-Left, R-Right, S-STOP"
30 L=&6038:R=&6040:S=&6048
40 A$=INKEY$ :IF A$ GOSUB 100
50 GOTO 40
100 IF A$="L" CALL L
110 IF A$="R" CALL R
120 IF A$="S" CALL S
130 RETURN