image of READY prompt

Wang2200.org

Listing of file='DDA.OPEN' on disk='vmedia/701-2720C.wvd.zip'

# Sector 581, program filename = 'DDA.OPEN'
7050 %DDA.141, RELEASE X01, (AUG 03, 81) OPEN FILES
7054 DEFFN'141(K1$(),N0,N1$)
   : M=0
   : N1=INT((LEN(K1$())-1)/8)+1
   : MAT N=ZER
   : MAT N0=ZER
   : MAT N1=ZER
   : MAT N2=ZER
   : MAT N3=ZER
   : N0$(),N1$(),N2$(),N3$(),N5$(),N0$=ALL(00)
   : $OPEN #N0
   : J=0
7066 J=J+1
   : GOSUB 7090
   : IF M>0THEN 7087
   : IF J>1THEN 7078
   : MAT SEARCHN9$,=STR(N1$,,3)TO N2$()STEP 3
   : IF N2$(1)=HEX(0000)THEN 7074
   : M=77
   : GOTO 7087
7074 MAT SEARCHN9$,=HEX(FFFFFF)TO N2$()STEP 3
   : IF N2$(1)>HEX(0000)THEN 7075
   : M=79
   : GOTO 7087
7075 STR(N9$,VAL(N2$(1),2),3)=N1$
   : DATA SAVE DA T#N0,(N(J,3))N0(),N9$
   : ERRORM=ERR
   : GOTO 7087
7078 N(J,1)=1
   : N(J,2)=1
   : GOSUB '149(N(J,3)+N0(1),N0(6),1)
   : IF N1(3)=0THEN GOTO 7083
   : ELSE M=N1(3)
   : GOTO 7087
7083 MAT COPY N0$()<1,N0(6)*249>TO N5$()<(J-1)*N0(6)*249+1,N0(6)*249>
   : IF J<N1THEN GOTO 7066
7087 $CLOSE#N0
   : RETURN
7090 LIMITS T#N0,K1$(J),N2(1),N2(2),N2(3),N2(4)
   : IF N2(4)=2THEN GOTO 7095
   : M=71
   : GOTO 7102
7095 DATA LOAD DA T#N0,(N2(1))N0(),N9$
   : ERRORM=74
   : GOTO 7102
7096 N1(9)=J
   : IF N0(9)=0THEN GOTO 7100
   : M=70
   : GOTO 7102
7100 N(J,3)=N2(1)
   : N(J,4)=N2(2)
7102 RETURN
7603 DEFFN'150(K6$())
   : M=0
   : IF K6$(1)=" "THEN 7646
   : IF M8$="Y"THEN 7620
   : N1$=STR(K9$,1,3)
   : M7$=STR(K9$,4,3)
   : IF N1$=" "OR M7$=" "THEN 7658
   : SELECT #15<M7$>
   : K1$()=" "
   : K1$(1)="DD.DEF"
   : K1$(2)="DD.REL"
   : GOSUB '141(K1$(),15,N1$)
   : IF M<>0THEN 7660
   : M8$="Y"
   : K7$()=" "
7620 M2=1
7621 IF K6$(M2)=" "THEN 7660
   : GOSUB '157(K6$(M2))
   : IF M1=0THEN 7649
   : IF M=0THEN 7639
   : M=0
   : N0$=" "
   : STR(N0$,1,2)=K6$(M2)
   : IF STR(K6$(M2),2,1)=" "THEN K7(7)=1
   : ELSE K7(7)=2
   : GOSUB '143(N0$,"EQ",K7(7))
   : IF M<>0THEN 7652
   : K8$()=" "
   : GOSUB '144(K7(7))
   : IF M<>0THEN 7655
   : STR(K7$(M1),1,2)=K6$(M2)
   : IF STR(K6$(M2),2,1)=" "THEN J1=24
   : ELSE J1=45
7637 STR(K7$(M1),3,7)=STR(K8$(),J1,7)
7639 N0$=" "
   : STR(K7$(M1),10,44)=N0$
   : IF STR(K6$(M2),2,1)=" "THEN GOSUB '159
   : M2=M2+1
   : IF M2<17THEN 7621
   : GOTO 7660
7646 M=40
   : GOTO 7660
7649 M=41
   : GOTO 7660
7652 M=42
   : GOTO 7660
7655 M=44
   : GOTO 7660
7658 M=43
   : GOTO 7660
7660 K8$()=" "
   : RETURN