Listing of file='PSUBS159' on disk='vmedia/701-2739G.wvd.zip'
# Sector 616, program filename = 'PSUBS159' 5580 DEFFN'204 5582 DATA LOAD DC OPEN T"BUMPmain" : ERRORQ2$=BIN(ERR) : GOTO 5588 5584 MAT REDIM Q$(50)3 : DATA LOAD DC Q$() : DATA SAVE DC CLOSE : SELECT #Q<Q$(1)> : Q1(2)=Q : Q2$="0" : LIMITS T#Q,"Pqueue",Q1(1),Q8,Q9 : ERRORQ2$=BIN(ERR) 5588 R1$(1)="P" : IF Q2$="0"THEN R1$(2)=HEX(00) : ELSE R1$(1)=Q2$ : RETURN