home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / ASM001.ZIP / ALIGN.BAS < prev    next >
Encoding:
BASIC Source File  |  1983-07-25  |  1.0 KB  |  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.