Listing of file='PSUBS00' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1259, program filename = 'PSUBS00' 5624 STR(Q$(1),1,1)=HEX(00) 5626 Q9(1)=0 : GOSUB 5794 : IF Q3<>0THEN 5780 5627 DATA SAVE DC CLOSE#Q9(2) : ERRORQ3=ERR : GOTO 5780 5628 Q9$=$PSTAT(#PART) : IF STR(Q9$,1,3)="MON"THEN 5631 : Q9=1 5629 Q9$=$PSTAT(Q9) : ERRORGOTO 5631 5630 IF STR(Q9$,1,3)="MON"THEN $ALERTQ9 : Q9=Q9+1 : GOTO 5629 5631 RETURN 5632 DEFFN'199 : Q8$=BIN(#PART) : Q2$=BIN(#ID,2) : IF STR(Q1$,1,1)<>"2"THEN 5642 : GOSUB 5788 : IF Q3<>0THEN 5780 : DBACKSPACE #Q9(2),BEG : IF HEX(00)=STR(Q$(1),1,1)THEN 5662 : IF STR(Q$(1),1,1)=Q8$AND STR(Q$(1),2,2)=Q2$THEN 5640 : Q2$="5" : GOTO 5627 5640 STR(Q$(1),1,1)=HEX(00) : GOSUB 5796 : IF Q3<>0THEN 5780 : DBACKSPACE #Q9(2),BEG : GOTO 5662 5642 FOR Q9=1TO 25 : $OPEN 5650,#Q9(2) : GOSUB 5788 : IF Q3<>0THEN 5780 : DBACKSPACE #Q9(2),BEG : IF STR(Q$(),1,1)=Q8$AND STR(Q$(),2,2)=Q2$THEN 5661 : IF STR(Q$(1),1,1)=HEX(00)THEN 5652 5650 $CLOSE#Q9(2) : $BREAK10 : NEXT Q9 : Q2$="5" : GOTO 5627 5652 IF STR(Q1$,1,1)="1"THEN 5661 : STR(Q$(1),1,1)=Q8$ : STR(Q$(1),2,2)=Q2$ : GOSUB 5796 : IF Q3<>0THEN 5780 : DBACKSPACE #Q9(2),BEG : GOSUB 5788 : IF Q3<>0THEN 5780 : DBACKSPACE #Q9(2),BEG : IF Q8$=STR(Q$(1),1,1)AND Q2$=STR(Q$(1),2,2)THEN 5661 : GOTO 5650 5661 $CLOSE#Q9(2) 5662 Q9(5)=VAL(STR(Q$(1),5,1)) : Q9(3)=VAL(STR(Q$(1),4,1)) : Q9(4)=VAL(STR(Q$(1),6,1)) : Q2$="0" : MAT REDIM Q$(25)10 : RETURN