Listing of file='PSUB197' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1271, 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