home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / DISKEXPL.ZIP / TMR.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-05-02  |  1.2 KB  |  27 lines
  1. 14102 IF PEEK(&H2D06)<>&HC8 THEN GOSUB 30000
  2. 30000 IDT=0:KEY OFF:CLS:PRINT"TRACK MODIFICATION ROUTINE FOR AUTOMATIC BACKUP MODE"
  3. 30010 PRINT"":PRINT"WHAT TRACK IS TO BE MODIFIED ";IDT;:INPUT IDTT:IF IDTT<>0 THEN IDT=IDTT
  4. 30020 PRINT"":INPUT"WHICH (RELATIVE) SECTOR DO YOU WANT TO CHANGE. ENTER 0 WHEN DONE";IDS
  5. 30025 IF IDS = 0 THEN GOTO 40000
  6. 30030 PRINT"":PRINT"THE OLD C,H,R,N,% VALUES FOR THIS SECTOR ARE: ";
  7. 30033 FOR X=1 TO 4
  8. 30035 PRINT PEEK(&H300+(IDT*256)+2+(5*(IDS-1))+X);",";
  9. 30038 NEXT X
  10. 30040 TH!=PEEK(&H300+(IDT*256)+&HB6+(2*(IDS-1)))
  11. 30050 TL!=PEEK(&H300+(IDT*256)+&HB7+(2*(IDS-1)))
  12. 30060 PRINT USING "##.#";((TL!*256)+TH!)/132.5
  13. 30100 PRINT"":INPUT"DO YOU WANT TO CHANGE THE VALUES? (Y/N) Y";ID$:IF ID$="N" GOTO 30010
  14. 30110 PRINT"":PRINT"ENTER THE NEW VALUES SEPARATED BY COMMAS";
  15. 30150 INPUT IDC,IDH,IDR,IDN,IDP
  16. 30210 POKE(&H300+(IDT*256)+2+(5*(IDS-1))+1),IDC
  17. 30220 POKE(&H300+(IDT*256)+2+(5*(IDS-1))+2),IDH
  18. 30230 POKE(&H300+(IDT*256)+2+(5*(IDS-1))+3),IDR
  19. 30240 POKE(&H300+(IDT*256)+2+(5*(IDS-1))+4),IDN
  20. 30300 IDP=(IDP*.01)*13250
  21. 30310 TL!=INT(IDP/256)
  22. 30320 TH!=IDP-TL!*256
  23. 30400 POKE(&H300+(IDT*256)+&HB6+(2*(IDS-1))),TH!
  24. 30410 POKE(&H300+(IDT*256)+&HB7+(2*(IDS-1))),TL!
  25. 31000 GOTO 30010
  26. 40000 RETURN
  27.