Listing of file='PSUB196' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1241, program filename = 'PSUB196' 5590 DEFFN'196 5592 GOSUB '199 : IF Q2$<>"0"THEN RETURN : Q8=0 : IF STR(Q$(1),9,2)<=STR(Q$(1),7,2)THEN 5596 : ELSE Q2$="1" : GOTO 5624 5596 STR(Q$,9,2)=HEX(FFFF) : IF STR(Q1$,2,1)="2"OR STR(Q1$,2,1)="4"THEN Q9(8)=10 : ELSE Q9(8)=8 : Q9(7)=1 : GOSUB 5750 : IF Q2$<>"2"THEN 5600 : Q9(1)=0 : GOSUB 5786 : IF Q3<>0THEN 5780 : GOTO 5624 5600 IF STR(Q1$,2,1)<"3"THEN 5610 : Q1=Q1+1 : STR(Q$,9,2)=STR(Q$(Q1),9,2) : MAT REDIM Q4$(25)10 : IF Q1=1THEN 5606 : Q4$()=Q$() 5602 FOR Q9=Q1TO 2STEP -1 : Q4$(Q9)=Q4$(Q9-1) : NEXT Q9 5604 IF Q8=0THEN 5608 : Q8,Q9(1)=Q8-1 : GOSUB 5786 : IF Q3<>0THEN 5780 : MAT REDIM Q$(25)10 : Q4$(1)=Q$(25) : Q$()=Q4$() : Q9(1)=Q8+1 : GOSUB 5794 : IF Q3<>0THEN 5780 : Q1=25 5606 Q9(1)=Q8 : GOSUB 5786 : IF Q3<>0THEN 5780 : MAT REDIM Q$(25)10 : Q4$()=Q$() : IF Q1=1THEN 5604 : GOTO 5602 5608 Q4$(2)=Q$ : Q$()=Q4$() : Q9(1)=0 : GOSUB 5794 : IF Q3<>0THEN 5780 : Q2$=HEX(0001) : Q1=VAL(STR(Q$,9,2),2) : GOTO 5612 5610 Q1=Q1+1 : STR(Q$(Q1),1,8)=Q$ : STR(Q$,9,2)=STR(Q$(Q1),9,2) : Q1=VAL(STR(Q$(Q1),9,2),2) : Q2$=HEX(0001) : GOSUB 5796 : IF Q3<>0THEN 5780