image of READY prompt

Wang2200.org

Listing of file='PSUBS00 ' on disk='vmedia/701-2739G.wvd.zip'

# Sector 642, 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