start tok64 d64-ZAV8vX
2 PRINT"{clear}{down*3}{right*2}{black}disk drive motor spin routine"
3 PRINT"{down*2}insert cleaning disk and close door"
4 PRINT"press {reverse on}return{reverse off}"
5 GET a$: IF a$ <> CHR$(13) THEN 5
10 REM    ***************************
15 REM    * 1541 motor spin routine *
20 OPEN15,8,15
30 REM    * ml routine to start motor
40 PRINT#15,"m-e"CHR$(126)CHR$(249)
50 FOR i=1 TO 6000: NEXT: REM delay *
60 REM    * ml routine to stop motor
70 PRINT#15,"m-e"CHR$(232)CHR$(249)
80 CLOSE 15
100 PRINT"{white}{reverse on}remove cleaning disk"
stop tok64
(bastext 1.0)