Listing of file='PSUB195' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1236, 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