image of READY prompt

Wang2200.org

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

# Sector 452, program filename = 'DDA.141'
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