MERGEF.F4 ;CALL MERGEF(MASTER,TEMP,IR) ,MLTPNC.F4 ;MONE=MLTPNC('J') ,NANSWR.F4 ;NSPR=NANSWR('NUMBER OF SECTORS PER RECORD?') ,NHBOR ,NUMRC.F4 ;INTEGR=NUMRC(ARRAY) ,OPEN.MAC ,PROTEC.MAC ;CALL PROTEC('FILE.','EXT') ,PTF.F4 ;CALL PTF(2,ISAVE) ,PULLF.F4 ;CALL PULLF(MASTER,TEMP,IR) ,READC.F4 ;CALL READC(IR,R,N,LIST) ,READR.F4 ;CALL READR(IR) ,RIGHT.F4 ;CALL RIGHT(10) ,RLSORT.F4 ;CALL RLSORT(2,PK1,FILE,PK2,TEMP,FILE,1,5,1,1,2) ; SORTS FILE BY IB(1) (NUMERIC) ,SAVEF.F4 ;CALL SAVEF ,SCRTCH ,SHRNKF.F4 ;CALL SHRNKF(IR,N) ,SLCTF.F4 ;CALL SLCTF(NPACK,FILE) ,SLECTF.F4 ;CALL SLECTF(FILE) ,SLSUBF ,SRTSHL ,STRCHF.F4 ;CALL STRCHF(IR,N) ,TYPEF ,UPDTF ,WRDCH1 ,WRDCH2 ,WRDCH3 ,WRITEF.F4 ;CALL WRITEF(FILE,IR) ,WRITER.F4 ;CALL WRITER(IR)