Listing of file='WPFM.DAT' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1112, program filename = 'WPFM.DAT' 4000 DEFFN'216(I9,I9$) : REM revised 11/22/81 4001 RESTORE LINE4012 : I9(5)=INT(LEN(STR(R9$()))/8) : R9=0 : R9$()=" " 4002 FOR I=1TO I9 4003 READ I8$ : IF I8$="END"THEN 4010 4004 READ I9(4) : READ I9$() : MAT SEARCHI9$,=STR(I8$,1,3)TO I$STEP 3 4005 IF STR(I$,1,2)=HEX(0000)THEN 4003 4006 FOR I1=0TO I9(4)-1 4007 MAT SEARCHR9$(),=STR(I9$(),(I1*8)+1,8)TO I$STEP 8 4008 IF STR(I$,1,2)<>HEX(0000)THEN 4009 : IF R9=I9(5)THEN 4011 : STR(R9$(),(R9*8)+1,8)=STR(I9$(),(I1*8)+1,8) : R9=R9+1 4009 NEXT I1 : NEXT I : R9$=HEX(00) : RETURN 4010 R9$=HEX(01) : RETURN 4011 R9$=HEX(02) : RETURN 4012 DATA "210",8,"CAT.PRIMCAT.FCRECAT.OPENCAT.RD CAT.INS REC.PRIMREC.INS REC .FREE" 4013 DATA "211",4,"CAT.PRIMCAT.FO/CCAT.OPENCAT.RD " 4014 DATA "212",4,"CAT.PRIMCAT.FO/CCAT.OPENCAT.RD" 4015 DATA "213",8,"CAT.PRIMCAT.FMODCAT.RD CAT.INS CAT.DEL REC.PRIMREC.INS REC .FREE" 4016 DATA "214",7,"CAT.PRIMCAT.FDELCAT.RD CAT.DEL REC.PRIMREC.DEL REC.FREE" 4017 DATA "215",4,"CAT.PRIMCAT.FOC CAT.OPENCAT.RD " 4018 DATA "217",5,"CAT.PRIMCAT.FLISCAT.OPENCAT.RD CAT.LIST" 4019 DATA "235",2,"CAT.PRIMCAT.FFCB" 4020 DATA "231",7,"CAT.PRIMCAT.VCRECAT.RD CAT.INS REC.PRIMREC.CRE REC.FREE" 4021 DATA "238",4,"CAT.PRIMCAT.VMANCAT.VCRECAT.RD " 4022 DATA "237",5,"CAT.PRIMCAT.VMANCAT.VCRECAT.RD CAT.DEL " 4023 DATA "239",4,"CAT.PRIMCAT.VMANCAT.VCRECAT.RD " 4024 DATA "234",4,"CAT.PRIMCAT.VMANCAT.VCRECAT.DEL " 4025 DATA "236",4,"CAT.PRIMCAT.VLISCAT.RD CAT.LIST" 4026 DATA "246",1,"REC.INIT" 4027 DATA "232",2,"CAT.PRIMCAT.INIT" 4029 DATA "220",2,"REC.PRIMREC.RD " 4030 DATA "221",2,"REC.PRIMREC.RD " 4031 DATA "222",3,"REC.PRIMREC.INS REC.FREE" 4032 DATA "223",2,"REC.PRIMREC.DEL " 4033 DATA "224",2,"REC.PRIMREC.MOVE" 4034 DATA "225",3,"REC.PRIMREC.INS REC.FREE" 4035 DATA "227",2,"REC.PRIMREC.RD REC.DEL " 4036 DATA "226",6,"REC.PRIMREC.RD REC.INS REC.FREEREC.DEL REC.REP " 4040 DATA "END"