home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / align.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  822 b   |  47 lines
  1. 5  ON KEY (13) GOSUB 250
  2. 6  ON KEY (12) GOSUB 280
  3. 7  ON KEY (14) GOSUB 400
  4. 8  KEY (14) ON
  5. 10  PRINT"I.B.M.DISK DRIVE ALIGNMENT PROGRAM"
  6. 16  INPUT "PRESS ENTER TO CONTINUE",A$
  7. 20  DOR=&H3F2:SR=&H3F4:FD=&H3F5
  8. 30  OUT DOR,32
  9. 40  OUT DOR,37
  10. 50  OUT FD,3
  11. 60  OUT FD,&HCF
  12. 70  OUT FD,7:REM RECALIBRATE HEAD
  13. 80  OUT FD,1
  14. 90  FOR I=1 TO 500:NEXT I
  15. 100  PRINT "HEAD HAS NOW RECALIBRATED TO TRACK ZERO"
  16. 105  CLS
  17. 110  TRK=0
  18. 120  PRINT "HEAD IS NOW AT TRACK ";TRK
  19. 130  PRINT "PRESS RIGHT ARROW TO STEP IN, PRESS LEFT ARROW TO STEP OUT "
  20. 131  PRINT "OR PRESS DOWN ARROW TO RECALIBRATE"
  21. 140  KEY (13) ON
  22. 150  KEY (12) ON
  23. 160  OUT DOR,37
  24. 170  LOCATE 1,1
  25. 180  GOTO 120
  26. 190  END
  27. 250  TRK=TRK+1
  28. 255  IF TRK>39 THEN BEEP:TRK=39
  29. 260  GOSUB 300
  30. 265  RETURN
  31. 280  TRK=TRK-1
  32. 285  IF TRK<0 THEN BEEP:TRK=0
  33. 290  GOSUB 300
  34. 295  RETURN
  35. 300  KEY (13) OFF:KEY (12) OFF
  36. 301  OUT DOR,37
  37. 305  OUT FD,15
  38. 310  OUT FD,1
  39. 320  OUT FD,TRK
  40. 330  FOR I=1 TO 50:NEXT I
  41. 340  RETURN
  42. 400  OUT FD,7
  43. 410  OUT FD,1
  44. 415  TRK=0
  45. 420  FOR I=1 TO 500:NEXT I
  46. 430  RETURN
  47.