Listing of file='PSUB198 ' on disk='vmedia/701-2739G.wvd.zip'
# Sector 635, program filename = 'PSUB198'
5734 DEFFN'198
: GOSUB '199
: IF Q2$<>"0"THEN RETURN
: ON POS("123"=STR(Q1$,2,1))GOTO 5736,5738,5738
: Q2$="1"
: GOTO 5624
5736 Q9(7)=1
: IF LEN(Q$)<8THEN Q9(8)=LEN(Q$)
: ELSE Q9(8)=8
: GOTO 5740
5738 Q9(7)=9
: Q9(8)=2
5740 GOSUB 5750
: IF Q2$="2"THEN 5742
: Q9(1)=0
: GOSUB 5786
: IF Q3<>0THEN 5780
: Q2$="3"
: GOTO 5624
5742 STR(Q2$,1,2)=HEX(0000)
: Q1=VAL(STR(Q$(Q9),9,2),2)
: IF STR(Q1$,2,1)="1"THEN 5612
: STR(Q$(Q9),1,8)=STR(Q$,1,8)
: GOSUB 5796
: IF Q3<>0THEN 5780
: IF STR(Q1$,2,1)="2"THEN 5612
: Q9(1)=0
: GOSUB 5786
: IF Q3<>0THEN 5780
: Q2$="0"
: GOTO 5624