image of READY prompt

Wang2200.org

Listing of file='IDS2SUB8' on disk='vmedia/701-2715B.wvd.zip'

# Sector 837, program filename = 'IDS2SUB8'
0014 DEFFN3(Q)=VAL(STR(E3$(),3))-Q
   : DEFFN4(Q)=VAL(STR(E3$(),4),2)
0015 DEFFNJ(Q)=VAL(F9$,2)+Q
3903 DEFFN'60(F5$,E$)
   : GOSUB '78(F5$)
   : GOSUB '51(E$)
   : E6$()=ALL(FF)
   : GOSUB 3966
   : FOR N=0TO B-1
   : E$=E4$()
   : GOSUB 3958
   : NEXT N
   : RETURN
3918 DEFFN'61(F5$,E$,J)
   : GOSUB 3903
   : M=1
3922 DEFFN'62(F5$,M,J)
   : GOSUB '78(F5$)
3929 GOSUB 3966
   : E$=E6$()
   : IF POS(STR(E$,,C)<FF)=0THEN 3976
   : E6$()=STR(E6$(),C+1)&ALL(FF)
   : G=VAL(STR(E$,C-1),2)
   : U,H=VAL(STR(E$,O+1),2)
   : GOSUB 3973
   : IF STR(E$,,O)<>STR(E3$(),G,O)THEN 3975
3933 F9$=STR(E$,O+3)ADDCBIN(E)
   : IF FNJ(0)<=FN4(0)THEN 3940
   : IF VAL(E3$())=0THEN 3947
   : F9$=HEX(000A)
   : H=H+8
   : GOSUB 3973
3940 E$=STR(E3$(),FNJ(0),O)&BIN(H,2)&F9$
   : IF POS(STR(E$,,L)<FF)>0THEN 3948
   : DATA LOAD DA T#D,(H-VAL(STR(E1$(V),45))+8+8*VAL(E3$()))E0$()
   : F9$=SUBCHEX(09)
   : Q=2
   : GOSUB '73
   : ON QGOTO 3948
3947 E$=ALL(FF)
3948 GOSUB 3959
   : C=G
   : H=H-8
   : IF H=UTHEN GOSUB 3973
   : F3$=STR(E3$(),C+L)
   : IF T=4THEN C=C+L
   : GOSUB '67(V,F3$,0)
   : X=5
   : GOSUB '79
   : RETURN
3958 GOSUB '52
   : $CLOSE#D
   : T=FNJ(FN3(1))
   : E$=STR(E3$(),T,O)&BIN(G,2)&BIN(T,2)
   : IF T<=FN3(1)OR Q<>1THEN E$=ALL(FF)
3959 MAT SEARCHE6$(),>=STR(E$,,C)TO F9$STEP C
   : M=FNJ(0)
   : MAT COPY -E6$()<M,A-M-C>TO -E6$()<M+C,A-M-C>
   : STR(E6$(),M,C)=E$
   : RETURN
3966 GOSUB '47
   : O=L+P
   : C=O+4
   : X=6
   : A=B*C+C+1
   : RETURN
3973 GOSUB '50(H,24," ")
   : RETURN
3975 Y=O
   : N=INT((H-VAL(STR(E1$(V),55),2))/S)
   : GOSUB 3958
   : GOTO 3929
3976 H,Q=0
   : GOSUB '38(19,F5$)
   : RETURN