image of READY prompt

Wang2200.org

Listing of file='PSUB197' on disk='vmedia/701-2739G.wvd.zip'

# Sector 629, program filename = 'PSUB197'
5706 DEFFN'197
5708 GOSUB '199
   : IF Q2$<>"0"THEN RETURN
   : ON POS("12"=STR(Q1$,2,1))GOTO 5710,5712
   : Q2$="1"
   : GOTO 5624
5710 Q9(7)=1
   : IF LEN(Q$)<8THEN Q9(8)=LEN(Q$)
   : ELSE Q9(8)=8
   : GOTO 5714
5712 Q9(7)=9
   : Q9(8)=2
5714 GOSUB 5750
   : IF Q2$="2"THEN 5716
   : Q2$="3"
   : Q9(1)=0
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : MAT REDIM Q$(25)10
   : GOTO 5624
5716 STR(Q$(Q9),1,1)=HEX(FF)
   : Q$=Q$(Q9)
   : IF Q8>0THEN Q9(6)=(Q8*25)+Q9
   : ELSE Q9(6)=Q9
   : FOR Q9=Q9(6)TO Q1
   : IF MOD(Q9,25)<>0THEN 5724
   : DSKIP #Q9(2),1S
   : MAT REDIM Q1$(3)84
   : DATA LOAD DC #Q9(2),Q1$(1),Q1$(2),STR(Q1$(3),1,82)
   : ERRORQ3=ERR
   : GOTO 5780
5722 MAT REDIM Q1$(25)10
   : Q$(25)=Q1$(1)
   : DBACKSPACE #Q9(2),2S
   : GOSUB 5796
   : IF Q3<>0THEN 5780
   : MAT REDIM Q$(25)10
   : Q8=Q8+1
   : Q$()=Q1$()
   : NEXT Q9
   : GOTO 5726
5724 Q$(MOD(Q9,25))=Q$(MOD(Q9,25)+1)
   : NEXT Q9
5726 IF MOD(Q9,25)=0THEN Q$(25)=Q$
   : ELSE Q$(MOD(Q9,25))=Q$
   : GOSUB 5796
   : IF Q3<>0THEN 5780
   : Q9(1)=0
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : STR(Q$(1),9,2)=STR(Q$(1),9,2)SUBCHEX(0001)
   : Q2$="0"
   : GOTO 5624