10 CLS:PRINT@82,"Cassette Motor Control":PRINT@162,"Press space bar or ESC"
20 A$=INKEY$:IFA$=""THEN20
30 IFA$=" "THENGOSUB100
40 IFA$=CHR$(27)THENMOTOROFF:CLS:NEW
50 GOTO20
100 FL=NOTFL
110 IFFLTHENMOTORONELSEMOTOROFF
120 RETURN