Listing of file='PSUB195' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1261, program filename = 'PSUB195' 5666 DEFFN'195 : STR(Q1$,1,1)="2" : GOSUB '199 : IF Q2$<>"0"THEN RETURN 5668 ON POS("12345"=STR(Q1$,2,1))GOTO 5672,5688,5690,5702,5704 : Q2$="1" : GOTO 5684 5672 Q9(1)=INT(Q1/25) : GOSUB 5786 : IF Q3<>0THEN 5780 : MAT REDIM Q$(25)10,Q4$(Q)10 : IF MOD(Q1,25)=0THEN DBACKSPACE #Q9(2),1S : Q8=0 : FOR Q9=Q1TO Q+Q1-1 : IF MOD(Q9,25)<>0THEN 5678 : GOSUB 5788 : IF Q3<>0THEN 5780 : MAT REDIM Q$(25)10 5678 IF STR(Q$(MOD(Q9,25)+1),,1)=HEX(FF)THEN 5680 : Q4$(Q9-Q1+1)=Q$(MOD(Q9,25)+1) : Q8=Q8+1 : NEXT Q9 5680 Q=Q8 5682 Q2$="0" 5684 DATA SAVE DC CLOSE#Q9(2) : ERRORQ3=ERR : GOTO 5780 5686 RETURN 5688 Q9(7)=1 : IF LEN(Q$)<8THEN Q9(8)=LEN(Q$) : ELSE Q9(8)=8 : GOTO 5692 5690 Q9(7)=9 : Q9(8)=2 5692 GOSUB 5750 : IF Q2$="2"THEN 5694 : Q2$="3" : GOTO 5684 5694 Q9(6)=VAL(STR(Q$(Q9),9,2),2) : Q9(1)=Q9(4)+INT(Q9(6)/Q9(5)) : GOSUB 5786 : IF Q3<>0THEN 5780 : MAT REDIM Q$(256)1 : MAT REDIM Q1$(Q9(3))1 : Q9(6)=Q9(3)*MOD(Q9(6),Q9(5)) : Q1$()=Q$() : GOTO 5682 5702 Q9(7)=1 : IF LEN(Q$)<8THEN Q9(8)=LEN(Q$) : ELSE Q9(8)=8 : GOSUB 5750 : IF Q2$="2"THEN 5682 : ELSE Q2$="3" : GOTO 5684 5704 Q=VAL(STR(Q$(1),9,2),2)-1 : GOTO 5682