Listing of file='DAST.DAT' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1465, program filename = 'DAST.DAT' 4000 DEFFN'216(I9,I9$) : REM "DAST.DAT"--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 "205",2,"DOC.INITREC.INIT" 4013 DATA "206",7,"DOC.OPENCAT.VLISCAT.PRIMCAT.RD CAT.LISTCAT.FO/CCAT.OPEN" 4014 DATA "207",5,"DOC.CLOSCAT.FO/CCAT.PRIMCAT.OPENCAT.RD " 4015 DATA "208",14,"DOC.CRETCAT.VLISCAT.FCRECAT.FO/CCAT.FLISCAT.PRIMCAT.OPENCA T.RD CAT.INS CAT.LISTREC.PRIMREC.RD REC.INS REC.FREE" 4016 DATA "209",8,"DOC.DEL CAT.FDELCAT.PRIMCAT.RD CAT.DEL REC.PRIMREC.FREEREC .DEL " 4017 DATA "079",9,"CAT.FMODCAT.PRIMCAT.RD CAT.INS CAT.DEL REC.PRIMREC.INS REC .FREEDOC.PASS" 4018 DATA "245",4,"PAG.GOTOPAG.SUB REC.PRIMREC.RD " 4019 DATA "247",4,"PAG.READPAG.SUB REC.PRIMREC.RD " 4020 DATA "248",8,"PAG.REWTPAG.SUB REC.PRIMREC.RD REC.INS REC.FREEREC.DEL REC .REP" 4021 DATA "249",10,"PAG.INS PAG.SUB REC.PRIMREC.RD REC.INS REC.FREEADM.READAD M.WRITCAT.FFCBCAT.PRIM" 4022 DATA "251",11,"PAG.DEL PAG.SUB REC.PRIMREC.DEL REC.INS REC.FREEADM.READAD M.WRITCAT.FFCBREC.RD CAT.PRIM" 4023 DATA "252",10,"PAG.APD PAG.SUB REC.PRIMREC.INS REC.FREEREC.RD ADM.READAD M.WRITCAT.PRIMCAT.FFCB" 4024 DATA "253",2,"PAG.SRCHPAG.SUB " 4025 DATA "218",3,"ADM.READREC.PRIMREC.RD " 4026 DATA "219",5,"ADM.WRITREC.PRIMREC.RD CAT.PRIMCAT.FFCB" 4027 DATA "229",7,"GLS.ATCHCAT.VLISCAT.PRIMCAT.RD CAT.LISTCAT.FO/CCAT.OPEN" 4028 DATA "230",3,"GLS.CALLREC.PRIMREC.RD " 4029 DATA "233",5,"GLS.DTCHCAT.PRIMCAT.FO/CCAT.OPENCAT.RD " 4030 DATA "END"