home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 November / 1994-11b.d64 / spindisk (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  210b  |  11 lines
  1. 100 rem spin the disk
  2. 110 rem
  3. 120 t=ti:s=30:rem s is seconds of spin
  4. 130 open 15,8,15
  5. 140 rem start drive motor
  6. 150 print#15,"m-e"chr$(126)chr$(249)
  7. 160 if(ti-t)/60<sthen160
  8. 170 rem stop drive motor
  9. 180 print#15,"m-e"chr$(232)chr$(249)
  10. 190 close 15
  11.