home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / DISKEXPL.ZIP / TRKCALC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-10-23  |  1.4 KB  |  29 lines
  1. 10  REM COPYRIGHT 1983 MLI MICROSYSTEMS
  2. 20  REM
  3. 30  REM EXPERIMENTAL PROGRAM TO CALCULATE GAP DATA FOR FORMATTING TRACKS                WITH THE TECHNIQUES SHOWN IN EXAMPLE 6: THE IMPOSSIBLE SECTOR SIZE.
  4. 40  DIM TP!(50),TP$(50):DEF SEG=0:POKE &H417,(PEEK(&H417) OR &H40)
  5. 50  CLS:PRINT"ANSWER ALL QUESTIONS IN CAPS":INPUT;"DO YOU WANT PRINTED OUTPUT Y/N";PO$
  6. 60  PRINT"":INPUT;"WHAT TRACK IS THIS FOR";TRK
  7. 70  PRINT"":INPUT;"WHAT TRACK N FOR THIS FORMAT";N
  8. 80  PRINT"":INPUT;"ENTER THE NUMBER OF SECTORS ON THE TRACK";NS:PRINT""
  9. 90  TP$(0)="    "
  10. 100  FOR S=1 TO NS
  11. 110  PRINT"ENTER PERCENTAGE FOR SECTOR ";S;TP$(S-1);
  12. 120  INPUT TP$(S):IF TP$(S)=""THEN TP$(S)=TP$(S-1)
  13. 130  NEXT S
  14. 140  PRINT"TRY THESE PARAMETERS FOR TRACK ";TRK:PRINT"":PRINT"TYPE OF","SECTOR","FORMAT GAP","ABTIME","TARGET":PRINT"FORMAT","NUMBER","LENGTH","VALUE","PERCENTAGE":PRINT""
  15. 150  IF PO$="Y" THEN LPRINT"TRY THESE PARAMETERS FOR TRACK ";TRK:LPRINT"":LPRINT"TYPE OF","SECTOR","FORMAT GAP","ABTIME","TARGET":LPRINT"FORMAT","NUMBER","LENGTH","VALUE","PERCENTAGE":LPRINT"" ELSE
  16. 160  FOR S=NS TO 1 STEP -1
  17. 170  TP!(S)=VAL(TP$(S))
  18. 180  IF S = NS THEN GOTO 190 ELSE GOTO 200
  19. 190  F$="REGULAR":ABTIME$="":TPP!=TP!(S):GOTO 240
  20. 200  F$="ABORTED":ABTIME$="150":TPP!=TPP!+TP!(S)
  21. 210  IF S-1=0 THEN GAP$=""
  22. 220  IF S-1=0 THEN ABTIME$=""
  23. 230  IF S-1=0 GOTO 250
  24. 240  GAP$=HEX$((((100-TPP!)/(S-1))*62.5)-62-(128*2^N))
  25. 250  PRINT F$,S,GAP$,ABTIME$,TP!(S)
  26. 260  IF PO$="Y" THEN LPRINT F$,S,GAP$,ABTIME$,TP!(S)
  27. 270  NEXT S
  28. 280  IF PO$="Y" THEN LPRINT"":LPRINT""
  29.