home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol009 / listgrps.asc < prev    next >
Text File  |  1984-04-29  |  783b  |  36 lines
  1. 3 REM PROGRAM TO LIST TRACK AND SECTOR ASSIGNMENTS FOR EACH
  2. 4 REM GROUP ON STANDARD CPM INTERLEAVE DISK
  3. 5 REM ALL VALUES ARE DECIMAL
  4. 6 REM TO PRINT ON LINE PRINTER CHANGE LINES 90 & 150 TO LPRINT
  5. 8 REM WRITTEN BY M.NICHOLS
  6. 9 REM
  7. 10 DIM D(104)
  8. 20 FOR I=1 TO 104
  9. 30 READ D(I)
  10. 35 IF I MOD 26 = 0 THEN RESTORE 260
  11. 40 NEXT I
  12. 50 G=0
  13. 60 T=2
  14. 70 B=1
  15. 80 C=B+7
  16. 90 PRINT "GROUP";G
  17. 100 FOR I=B TO C
  18. 110 IF I<=104 THEN A=3
  19. 120 IF I<=78 THEN A=2
  20. 130 IF I<=52 THEN A=1
  21. 140 IF I<=26 THEN A=0
  22. 150 PRINT " ","TRACK";T+A;"SECTOR";D(I)
  23. 160 NEXT I
  24. 170 IF C=104 THEN GOTO 220
  25. 180 B=B+8
  26. 190 C=C+8
  27. 200 G=G+1
  28. 210 GOTO 90
  29. 220 T=T+4
  30. 230 IF T>76 THEN GOTO 300
  31. 240 G=G+1
  32. 250 GOTO 70
  33. 260 DATA 1,7,13,19,25,5,11,17,23,3,9,15,21
  34. 265 DATA 2,8,14,20,26,6,12,18,24,4,10,16,22
  35. 300 END
  36.