900 SERIES MONARCH RESIDENT RAD FILE MANAGEMENT ROUTINE (QFMR)
REWIND
9£t!m _
'"
Q,R
SECTOR
(Q)
-
IUFFER(J)
QFMI
FDT
(2) -
N
FDT
(3) -
1
initialize
READ
PRIME SUI
TO READ
SUI
IUFFER N
ITEMS IN
WRITE
CLOSE
QCWro
'"
-
Q,R
SUI
IUFFER
(I) -
BUFFER N
ITEMS OUT
SECTOR
(Q)
65
