home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / psionu_arc / MI.OPL < prev    next >
Text File  |  1991-04-22  |  722b  |  49 lines
  1. MI:
  2. LOCAL TB%,TC%,TR%,TP%,TS%,TW%,A$(24),B$(24),C$(24),D$(24),E$(24),F$(8)
  3. ESCAPE ON
  4. PRINT"Input File" : PRINT"    A:";
  5. INPUT F$
  6. F$="A:"+F$
  7. OPEN F$,A,A$,B$,C$,D$,E$
  8. TC%=SPACE
  9. PRINT"Avail Mem ";TC%
  10. PAUSE -60
  11. TR%=COUNT
  12. TC%=0
  13. FIRST
  14. WHILE NOT EOF
  15.  TB%=TB%+RECSIZE
  16.  IF RECSIZE>TC%
  17.   TC%=RECSIZE
  18.   TS%=POS
  19.  ENDIF
  20.  NEXT
  21. ENDWH
  22. TP%=INT(TB%/TR%)
  23. A$=GEN$(TR%,3)
  24. WHILE LEN(A$)<3
  25.  A$="0"+A$
  26. ENDWH
  27. B$=GEN$(TB%,4)
  28. WHILE LEN(B$)<4
  29.  B$="0"+B$
  30. ENDWH
  31. C$=GEN$(TP%,3)
  32. WHILE LEN(C$)<3
  33.  C$="0"+C$
  34. ENDWH
  35. D$=GEN$(TC%,3)
  36. WHILE LEN(D$)<3
  37.  D$="0"+D$
  38. ENDWH
  39. TW%=-60
  40. PRINT"Rcd:";A$;"  Sz:";B$;
  41. PAUSE TW%
  42. PRINT"Avg:";C$;" Max:";D$;
  43. PAUSE TW%
  44. POSITION TS%
  45. PRINT
  46. PRINT"MaxRcdNo = ";TS%
  47. PRINT A.A$;
  48. PAUSE TW%
  49.