00001 REM "MUSED - GETS NUMBER OF USED RECORDS IN AN MSORT FILE
00008 REM "USAGE EXAMPLE - CALL "MUSED","MKDATA1",X
00009 REM "WHERE "MKDATA1" IS AN MKEYED FILE AND X WILL CONTAIN THE RESULTS
00010 ENTER F$,U
00011 REM "F$ = Msort File name
00012 REM "U  = Retuns numbber of records used
00013 REM "Remove line 150 to disable printing of info to screen
00020 LET U=0
00030 LET CH1=UNT; OPEN (CH1,OPT="TEXT") F$
00040 READ RECORD (CH1,IND=25,SIZ=4) A$
00050 IF DEC(A$)=0 THEN LET T=0; GOTO 00130 FI
00060 LET P=(DEC(A$)-1)*1024
00070 READ RECORD (CH1,IND=P,SIZ=6) B$
00080 LET B=DEC(B$(1,2))
00090 LET B=B-6
00100 LET B=B/4; LET T=T+B
00110 IF B$(3,4)=$00000000$ THEN GOTO 00130
00120 LET P=(DEC(B$(3,4))-1)*1024; GOTO 00070
00130 READ RECORD (CH1,IND=33,SIZ=4) C$
00140 LET U=DEC(C$)-T
00150 PRINT "NUMBER OF USED RECORDS : ",U
00160 CLOSE (CH1)
09999 END