home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / 1541spin.prg (.txt) < prev    next >
Commodore BASIC  |  1988-12-02  |  1KB  |  25 lines
  1. 1 POKE53280,0:POKE53280,7:PRINT"[147][144]"
  2. 2 PRINTTAB(12)"DRIVE SPINNER"
  3. 3 PRINTTAB(10)"FOR CLEANING 1541":PRINTTAB(11)"DISK DRIVE HEAD"
  4. 4 PRINTTAB(4)"[155]PREPAIR THE CLEANING DISK PER"
  5. 5 PRINTTAB(5)"MANUFACTURER'S INSTRUCTIONS."
  6. 6 PRINTTAB(8)"INSET DISK IN DRIVE."
  7. 10 PRINTTAB(12)"";:INPUT"WHICH DRIVE  ";U
  8. 20 PRINTTAB(12)"";:INPUT"# OF SECONDS ";S
  9. 25 IFS>40THEN:PRINTTAB(10)"MAX. 40 SECONDS. REDO":FOR T=1TO1300:NEXT:GOTO1
  10. 30 OPEN15,U,15
  11. 40 OPEN2,U,2,"#"
  12. 50 S=S/10
  13. 60 FORT=1TOS
  14. 70 PRINT#15,"U1:2 0 1 1"
  15. 80 PRINT#15,"U1:2 0 35 1"
  16. 90 NEXTT
  17. 100 INPUT#15,A$,A$,A$,A$
  18. 110 CLOSE2:CLOSE 15:PRINT"[147]"
  19. 120 PRINTTAB(15)"  DONE  [146]"
  20. 130 PRINTTAB(10)"";:INPUT"ANOTHER DRIVE (Y OR N)";OD$
  21. 140 IFOD$="N"THENSYS64738
  22. 150 IFOD$="Y"THENGOTO1
  23. 160 REM: DON DAVIS    (518) 643-8234
  24. 161 REM: DECEMBER 8,1985    PCUG
  25.