image of READY prompt

Wang2200.org

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