image of READY prompt

Wang2200.org

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

# Sector 1576, program filename = 'DOC.OPEN'
4067 % -- line 4067 ---- open ------
4068 DEFFN'206(R5$,A6$,B9)
   : B1$=HEX(00)
   : DIM A0$16,A1$16,A0$(4)62,B7$2
   : IF B9<>INT(B9)OR B9<=0OR B9>4THEN B1$=HEX(08)
   : IF B1$<>HEX(00)THEN RETURN
   : IF A1(1,B9)<>-1OR A1(2,B9)<>-1THEN B1$=HEX(A4)
   : IF B1$<>HEX(00)THEN RETURN
   : IF VER(R5$,"####A")<>5THEN B1$=HEX(A5)
   : IF B1$<>HEX(00)THEN RETURN
   : LIMITS T#M1,"609@ARCH",B3,X,X,X
   : IF X<>2THEN B1$=HEX(A6)
   : IF B1$<>HEX(00)THEN RETURN
4075 A1=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(R5$,5)
     )-1
   : DATA LOAD DA T#M1,(B3+A1)A0$()
   : A0$=STR(A0$(),2,8)
   : X=1
   : IF A0$=" "THEN B1$=HEX(A7)
   : IF B1$<>HEX(00)THEN RETURN
4076 GOSUB '236(8,X)
   : B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : IF V1=0THEN B1$=HEX(03)
   : IF B1$<>HEX(00)THEN RETURN
   : MAT SEARCHSTR(U1$(),,V1*16),=STR(A0$,,8)TO B7$STEP 16
   : IF B7$>HEX(0000)THEN 4077
   : IF V1<8THEN B1$=HEX(03)
   : IF B1$<>HEX(00)THEN RETURN
   : X=X+8
   : GOTO 4076
4077 A0$=STR(U1$(),VAL(B7$,2))
   : A1$="DOCUMENT."&STR(R5$,5,1)&"."&STR(R5$,,4)
   : GOSUB '211(A1$,A0$,A6$,HEX(FF))
   : B1$=R1$
   : IF B1$<>HEX(00)THEN RETURN
   : A1(2,B9)=V3
   : A1(1,B9)=B9
   : RETURN