Listing of file='PSUBS000' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1290, program filename = 'PSUBS000' 5750 Q8=0 : Q1=VAL(STR(Q$(1),9,2),2) : IF Q1>24THEN 5758 5752 FOR Q9=2TO Q1 5754 IF STR(Q$(Q9),Q9(7),Q9(8))<>STR(Q$,Q9(7),Q9(8))THEN 5756 : ELSE Q2$="2" : DBACKSPACE #Q9(2),1S : STR(Q$,9,2)=STR(Q$(Q9),9,2) : RETURN 5756 NEXT Q9 : IF Q1<=24THEN 5774 : GOTO 5760 5758 FOR Q9=2TO 25 : GOTO 5754 5760 DSKIP #Q9(2),1S : FOR Q8=1TO INT(Q1/25) : GOSUB 5788 : IF Q3<>0THEN 5776 : MAT REDIM Q$(25)10 : FOR Q9=1TO 25 : IF STR(Q$(Q9),Q9(7),Q9(8))<>STR(Q$,Q9(7),Q9(8))THEN 5772 : ELSE Q2$="2" : DBACKSPACE #Q9(2),1S : STR(Q$,9,2)=STR(Q$(Q9),9,2) : RETURN 5772 NEXT Q9 : NEXT Q8 : Q1=MOD(Q1,25) 5774 Q2$="0" : DBACKSPACE #Q9(2),1S : RETURN 5776 RETURN CLEAR 5780 $CLOSE#Q9(2) : Q2$=BIN(Q3) : DATA SAVE DC CLOSE#Q9(2) : ERRORGOTO 5782 5782 RETURN 5786 DBACKSPACE #Q9(2),BEG : DSKIP #Q9(2),Q9(1)S : ERRORGOTO 5800 5788 Q3=0 : MAT REDIM Q$(3)84 : DATA LOAD DC #Q9(2),Q$(1),Q$(2),STR(Q$(3),1,82) : ERRORGOTO 5800 5790 RETURN 5794 DBACKSPACE #Q9(2),BEG : DSKIP #Q9(2),Q9(1)S : ERRORGOTO 5800 5796 Q3=0 : MAT REDIM Q$(3)84 : DATA SAVE DC #Q9(2),Q$(1),Q$(2),STR(Q$(3),1,82) : ERRORGOTO 5800 5798 RETURN 5800 Q3=ERR : RETURN 5802 DEFFN'21(S$) : SCRATCH TS$ : SAVE T()S$,3799 : PRINT S$;" RESAVED" : RETURN 5808 DEFFN'23(S$) : SCRATCH T/B30,S$ : MOVE TS$TO T/B30,() : RETURN 5812 DEFFN'24(S$) : SELECT LIST 215 : LIST S$,D,3799 : LIST S$,V : LIST S$,' : LIST S$,#,3799 : LIST HEX(0C0C0C)0,0 : SELECT LIST 005 : RETURN