Listing of file='PSUB197' on disk='vmedia/701-2739G.wvd.zip'
# Sector 629, program filename = 'PSUB197' 5706 DEFFN'197 5708 GOSUB '199 : IF Q2$<>"0"THEN RETURN : ON POS("12"=STR(Q1$,2,1))GOTO 5710,5712 : Q2$="1" : GOTO 5624 5710 Q9(7)=1 : IF LEN(Q$)<8THEN Q9(8)=LEN(Q$) : ELSE Q9(8)=8 : GOTO 5714 5712 Q9(7)=9 : Q9(8)=2 5714 GOSUB 5750 : IF Q2$="2"THEN 5716 : Q2$="3" : Q9(1)=0 : GOSUB 5786 : IF Q3<>0THEN 5780 : MAT REDIM Q$(25)10 : GOTO 5624 5716 STR(Q$(Q9),1,1)=HEX(FF) : Q$=Q$(Q9) : IF Q8>0THEN Q9(6)=(Q8*25)+Q9 : ELSE Q9(6)=Q9 : FOR Q9=Q9(6)TO Q1 : IF MOD(Q9,25)<>0THEN 5724 : DSKIP #Q9(2),1S : MAT REDIM Q1$(3)84 : DATA LOAD DC #Q9(2),Q1$(1),Q1$(2),STR(Q1$(3),1,82) : ERRORQ3=ERR : GOTO 5780 5722 MAT REDIM Q1$(25)10 : Q$(25)=Q1$(1) : DBACKSPACE #Q9(2),2S : GOSUB 5796 : IF Q3<>0THEN 5780 : MAT REDIM Q$(25)10 : Q8=Q8+1 : Q$()=Q1$() : NEXT Q9 : GOTO 5726 5724 Q$(MOD(Q9,25))=Q$(MOD(Q9,25)+1) : NEXT Q9 5726 IF MOD(Q9,25)=0THEN Q$(25)=Q$ : ELSE Q$(MOD(Q9,25))=Q$ : GOSUB 5796 : IF Q3<>0THEN 5780 : Q9(1)=0 : GOSUB 5786 : IF Q3<>0THEN 5780 : STR(Q$(1),9,2)=STR(Q$(1),9,2)SUBCHEX(0001) : Q2$="0" : GOTO 5624