Listing of file='PSUBSALL' on disk='vmedia/701-2739G.wvd.zip'
# Sector 654, program filename = 'PSUBSALL' 5552 DEFFN'200 : MAT REDIM Q4$(5)50,Q1$(250)1 : Q9(1)=Q1(1) : Q9(2)=Q1(2) : DATA LOAD DC OPEN T#Q9(2),"Pqueue" : ERRORQ2$=BIN(ERR) : GOTO 5555 5553 GOSUB '195 : IF Q2$<>"0"THEN 5555 : IF STR(Q1$,2,1)="2"OR STR(Q1$,2,1)="3"THEN Q4$()=Q1$() 5555 R1$(1)="P" : IF Q2$="0"THEN R1$(2)=HEX(00) : ELSE R1$(1)=Q2$ : RETURN 5558 DEFFN'201 : GOSUB 5570 : GOSUB '196 : GOTO 5555 5562 DEFFN'202 : Q9(2)=Q1(2) : Q9(1)=Q1(1) : DATA LOAD DC OPEN T#Q9(2),"Pqueue" : ERRORQ2$=BIN(ERR) : GOTO 5555 5563 MAT REDIM Q1$(25)10 : Q1$="02" : GOSUB '197 : GOTO 5555 5566 DEFFN'203 : GOSUB 5570 : GOSUB '198 : GOTO 5555 5570 MAT REDIM Q1$(250)1 : Q1$()=Q4$() : Q9(1)=Q1(1) : Q9(2)=Q1(2) : DATA LOAD DC OPEN T#Q9(2),"Pqueue" : ERRORQ2$=BIN(ERR) : RETURN CLEAR : GOTO 5555 5571 STR(Q$,5,1)=BIN(#PART) : STR(Q$,6,2)=BIN(#ID,2) : STR(Q$,8,1)=BIN(#TERM) : RETURN