home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD022A.D64 / head align (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  992 b   |  29 lines
  1. 10 POKE53280,5:POKE53281,7
  2. 20 PRINT"[147]      DISK HEAD ALIGNMENT/ADJUSTMENT    "
  3. 27 PRINT"[144]TIME OF READING (MUST BE <9):"
  4. 28 GOSUB102
  5. 30 A1$="":A2$="        [157][157][157][157][157][157][157][157]"
  6. 35 A1$=A1$+"                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  7. 40 OPEN5,8,15:OPEN4,8,3,"#":OPEN1,8,15
  8. 50 TI$="000000":PRINT#5,"B-R";3;0;1;1:PRINT#5,"B-P"3;1:GET#4,A$
  9. 60 REM
  10. 70 PRINT#5,"B-R";3;0;35;2:PRINT#5,"B-P"3;1:GET#4,A$
  11. 80 INPUT#1,X1,X2$,X3,X4:PRINTA1$;X1;X2$;X3;X4:ZW=TI
  12. 90 PRINTA2$;ZW:IFZW<9THENFORW=1TO1000:NEXTW:GOTO160
  13. 100 GOTO50
  14. 102 PRINT:PRINT
  15. 104 PRINT"PLEASE WAIT WHILE YOURS DRIVE HEADS ARE ALIGNED"
  16. 110 PRINT"[149]THIS PROGRAM CHANGES THE POSITION ";
  17. 120 PRINT"OF THEHEADS OF YOUR DISK DRIVE ";
  18. 130 PRINT"TO WHAT THEY   SHOULD REALLY BE. PRESENTED FREE WITH   ISSUE";
  19. 140 PRINT" NO.21 OF COMMODORE SCENE FOR IT'S READERS.";
  20. 150 RETURN
  21. 160 CLOSE4:CLOSE5:CLOSE1
  22. 170 OPEN1,8,15
  23. 180 PRINTA2$;"[145]NOW INITIALIZING!               "
  24. 190 FORW=1TO10:PRINT#1,"I":INPUT#1,X1,X2$,X3,X4:PRINTA1$;X1;X2$;X3;X4:NEXTW
  25. 200 CLOSE1
  26. 210 PRINT"[147] YOUR DISK AND YOUR DISK DRIVE HAVE NOW "
  27. 211 PRINTSPC(7)"BEEN PERFECTLY RE-ALLIGNED"
  28. 212 NEW
  29.