1 POKE53280,0:POKE53280,7:PRINT"[147][144]"
2 PRINTTAB(12)"DRIVE SPINNER"
3 PRINTTAB(10)"FOR CLEANING 1541":PRINTTAB(11)"DISK DRIVE HEAD"
4 PRINTTAB(4)"[155]PREPAIR THE CLEANING DISK PER"
5 PRINTTAB(5)"MANUFACTURER'S INSTRUCTIONS."
6 PRINTTAB(8)"INSET DISK IN DRIVE."
10 PRINTTAB(12)"";:INPUT"WHICH DRIVE  ";U
20 PRINTTAB(12)"";:INPUT"# OF SECONDS ";S
25 IFS>40THEN:PRINTTAB(10)"MAX. 40 SECONDS. REDO":FOR T=1TO1300:NEXT:GOTO1
30 OPEN15,U,15
40 OPEN2,U,2,"#"
50 S=S/10
60 FORT=1TOS
70 PRINT#15,"U1:2 0 1 1"
80 PRINT#15,"U1:2 0 35 1"
90 NEXTT
100 INPUT#15,A$,A$,A$,A$
110 CLOSE2:CLOSE 15:PRINT"[147]"
120 PRINTTAB(15)"  DONE  [146]"
130 PRINTTAB(10)"";:INPUT"ANOTHER DRIVE (Y OR N)";OD$
140 IFOD$="N"THENSYS64738
150 IFOD$="Y"THENGOTO1
160 REM: DON DAVIS    (518) 643-8234
161 REM: DECEMBER 8,1985    PCUG