image of READY prompt

Wang2200.org

Listing of file='PSUBS000' on disk='vmedia/731-0071G.wvd.zip'

# Sector 1265, 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