image of READY prompt

Wang2200.org

Listing of file='PSUB195' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 1261, program filename = 'PSUB195'
5666 DEFFN'195
   : STR(Q1$,1,1)="2"
   : GOSUB '199
   : IF Q2$<>"0"THEN RETURN
5668 ON POS("12345"=STR(Q1$,2,1))GOTO 5672,5688,5690,5702,5704
   : Q2$="1"
   : GOTO 5684
5672 Q9(1)=INT(Q1/25)
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : MAT REDIM Q$(25)10,Q4$(Q)10
   : IF MOD(Q1,25)=0THEN DBACKSPACE #Q9(2),1S
   : Q8=0
   : FOR Q9=Q1TO Q+Q1-1
   : IF MOD(Q9,25)<>0THEN 5678
   : GOSUB 5788
   : IF Q3<>0THEN 5780
   : MAT REDIM Q$(25)10
5678 IF STR(Q$(MOD(Q9,25)+1),,1)=HEX(FF)THEN 5680
   : Q4$(Q9-Q1+1)=Q$(MOD(Q9,25)+1)
   : Q8=Q8+1
   : NEXT Q9
5680 Q=Q8
5682 Q2$="0"
5684 DATA SAVE DC CLOSE#Q9(2)
   : ERRORQ3=ERR
   : GOTO 5780
5686 RETURN
5688 Q9(7)=1
   : IF LEN(Q$)<8THEN Q9(8)=LEN(Q$)
   : ELSE Q9(8)=8
   : GOTO 5692
5690 Q9(7)=9
   : Q9(8)=2
5692 GOSUB 5750
   : IF Q2$="2"THEN 5694
   : Q2$="3"
   : GOTO 5684
5694 Q9(6)=VAL(STR(Q$(Q9),9,2),2)
   : Q9(1)=Q9(4)+INT(Q9(6)/Q9(5))
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : MAT REDIM Q$(256)1
   : MAT REDIM Q1$(Q9(3))1
   : Q9(6)=Q9(3)*MOD(Q9(6),Q9(5))
   : Q1$()=Q$()
   : GOTO 5682
5702 Q9(7)=1
   : IF LEN(Q$)<8THEN Q9(8)=LEN(Q$)
   : ELSE Q9(8)=8
   : GOSUB 5750
   : IF Q2$="2"THEN 5682
   : ELSE Q2$="3"
   : GOTO 5684
5704 Q=VAL(STR(Q$(1),9,2),2)-1
   : GOTO 5682