image of READY prompt

Wang2200.org

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

# Sector 635, program filename = 'PSUB198'
5734 DEFFN'198
   : GOSUB '199
   : IF Q2$<>"0"THEN RETURN
   : ON POS("123"=STR(Q1$,2,1))GOTO 5736,5738,5738
   : Q2$="1"
   : GOTO 5624
5736 Q9(7)=1
   : IF LEN(Q$)<8THEN Q9(8)=LEN(Q$)
   : ELSE Q9(8)=8
   : GOTO 5740
5738 Q9(7)=9
   : Q9(8)=2
5740 GOSUB 5750
   : IF Q2$="2"THEN 5742
   : Q9(1)=0
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : Q2$="3"
   : GOTO 5624
5742 STR(Q2$,1,2)=HEX(0000)
   : Q1=VAL(STR(Q$(Q9),9,2),2)
   : IF STR(Q1$,2,1)="1"THEN 5612
   : STR(Q$(Q9),1,8)=STR(Q$,1,8)
   : GOSUB 5796
   : IF Q3<>0THEN 5780
   : IF STR(Q1$,2,1)="2"THEN 5612
   : Q9(1)=0
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : Q2$="0"
   : GOTO 5624