Listing of file='PSUB.DAT' on disk='vmedia/701-2739G.wvd.zip'
# Sector 659, program filename = 'PSUB.DAT' 5502 DEFFN'205(I9,I9$) 5504 RESTORE LINE5528 : I9(5)=INT(LEN(STR(R9$()))/8) : R9=0 : R9$()=" " : FOR I=1TO I9 5508 READ I8$ : IF I8$="END"THEN 5522 : READ I9(4) : READ I9$() : MAT SEARCHI9$,=STR(I8$,1,3)TO I$STEP 3 : IF STR(I$,1,2)=HEX(0000)THEN 5508 : FOR I1=0TO I9(4)-1 : MAT SEARCHR9$(),=STR(I9$(),(I1*8)+1,8)TO I$STEP 8 : IF STR(I$,1,2)<>HEX(0000)THEN 5520 : IF R9=I9(5)THEN 5524 : STR(R9$(),(R9*8)+1,8)=STR(I9$(),(I1*8)+1,8) : R9=R9+1 5520 NEXT I1 : NEXT I : R9$=HEX(00) : RETURN 5522 R9$=HEX(01) : RETURN 5524 R9$=HEX(02) : RETURN 5528 DATA "204",1,"PSUBS159" : DATA "162",1,"QSUBS02" : DATA "163",1,"QSUBS00","164",1,"QSUBS00" : DATA "200",4,"PSUBSALLPSUBS00 PSUBS000PSUB195" : DATA "201",5,"PSUBSALLPSUBS00 PSUBS000PSUB196 PSUB1960" : DATA "202",4,"PSUBSALLPSUBS00 PSUBS000PSUB197" 5538 DATA "203",5,"PSUBSALLPSUBS00 PSUBS000PSUB198 PSUB1960" : DATA "END"