image of READY prompt

Wang2200.org

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

# Sector 624, program filename = 'PSUB196'
5590 DEFFN'196
5592 GOSUB '199
   : IF Q2$<>"0"THEN RETURN
   : Q8=0
   : IF STR(Q$(1),9,2)<=STR(Q$(1),7,2)THEN 5596
   : ELSE Q2$="1"
   : GOTO 5624
5596 STR(Q$,9,2)=HEX(FFFF)
   : IF STR(Q1$,2,1)="2"OR STR(Q1$,2,1)="4"THEN Q9(8)=10
   : ELSE Q9(8)=8
   : Q9(7)=1
   : GOSUB 5750
   : IF Q2$<>"2"THEN 5600
   : Q9(1)=0
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : GOTO 5624
5600 IF STR(Q1$,2,1)<"3"THEN 5610
   : Q1=Q1+1
   : STR(Q$,9,2)=STR(Q$(Q1),9,2)
   : MAT REDIM Q4$(25)10
   : IF Q1=1THEN 5606
   : Q4$()=Q$()
5602 FOR Q9=Q1TO 2STEP -1
   : Q4$(Q9)=Q4$(Q9-1)
   : NEXT Q9
5604 IF Q8=0THEN 5608
   : Q8,Q9(1)=Q8-1
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : MAT REDIM Q$(25)10
   : Q4$(1)=Q$(25)
   : Q$()=Q4$()
   : Q9(1)=Q8+1
   : GOSUB 5794
   : IF Q3<>0THEN 5780
   : Q1=25
5606 Q9(1)=Q8
   : GOSUB 5786
   : IF Q3<>0THEN 5780
   : MAT REDIM Q$(25)10
   : Q4$()=Q$()
   : IF Q1=1THEN 5604
   : GOTO 5602
5608 Q4$(2)=Q$
   : Q$()=Q4$()
   : Q9(1)=0
   : GOSUB 5794
   : IF Q3<>0THEN 5780
   : Q2$=HEX(0001)
   : Q1=VAL(STR(Q$,9,2),2)
   : GOTO 5612
5610 Q1=Q1+1
   : STR(Q$(Q1),1,8)=Q$
   : STR(Q$,9,2)=STR(Q$(Q1),9,2)
   : Q1=VAL(STR(Q$(Q1),9,2),2)
   : Q2$=HEX(0001)
   : GOSUB 5796
   : IF Q3<>0THEN 5780