home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol163 / findctl.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  688 b   |  23 lines
  1.     REM FINDCTL.BAS
  2.     B9$="0123456789ABCDEF"
  3.     A=1:PRINT TAB(20);"CLUSTER EXTENTS"
  4.     PRINT "Cluster";TAB(10);"Min  Hx Tr Sc";TAB(40);"Max  Hx Tr Sc"
  5.  
  6. 60     CL=68+(8*(A-2)):MI=CL:MA=CL+7
  7.     PRINT USING "### ";A;
  8.         X7=A:GOSUB 100:PRINT P1$;
  9.     D1=(MI+1)/26:E1=(MA+1)/26:T1=INT(D1):T2=(D1-T1)*26
  10.     T3=INT(E1):T4=(E1-T3)*26:T2=INT(T2+.2):T4=INT(T4+.2)
  11.     PRINT TAB(10);USING "#### ";MI;
  12.         X7=M1:GOSUB 100:PRINT P1$;
  13.     PRINT USING " ## ##";T1,T2;:PRINT TAB(40);USING "#### ";MA;
  14.         X7=MA:GOSUB 100
  15.     PRINT P1$;:PRINT USING " ## ##";T3,T4:A=A+1
  16.     IF A>254 THEN STOP
  17.     GOTO 60
  18.  
  19. 100     REM ** DECIMAL TO BASE 16 CONVERT **
  20.     P1$=MID$(B9$,(INT(X7/16) AND 15)+1,1)+MID$(B9$,(X7 AND 15)+1,1)
  21.     RETURN
  22.  
  23.