image of READY prompt

Wang2200.org

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

# Sector 499, program filename = 'DDA.146'
7410 %DDA.146, RELEASE X01, (AUG 3, 81) DELETE A RECORD
7414 DEFFN'146(N0$,N3)
   : GOSUB '143(N0$,"EQ",N3)
   : IF M>0THEN GOTO 7436
   : $OPEN #N0
   : M=0
   : MAT COPY N5$()<(N3-1)*(249*N0(6))+N(N3,2),N0(5)>TO N1$(2)
   : N1(6)=VAL(STR(N1$(2),N0(5)-3),2)
   : N1(5)=VAL(STR(N1$(2),N0(5)-1),2)
   : IF N1(5)<>0AND N1(6)<>0THEN 7423
   : M=62
   : GOTO 7436
7423 GOSUB '149(N(N3,3)+N0(7),N0(10),N1(6))
   : IF N1(3)=0THEN GOTO 7425
   : ELSE M=N1(3)
   : GOTO 7436
7425 N1(2)=VAL(STR(N0$(),N1(5)),2)
   : IF N1(2)=0THEN 7436
   : STR(N0$(),N1(5)+2,N1(2))=ALL(00)
   : GOSUB '148(N(N3,3)+N0(7),N0(10),N1(6))
   : STR(N5$(),(N3-1)*(249*N0(6))+N(N3,2)+N0(5)-4,4)=ALL(FF)
   : MAT COPY N5$()<(N3-1)*249*N0(6)+1,N0(6)*249>TO N0$()<1,N0(6)*249>
   : GOSUB '148(N(N3,3)+N0(1),N0(6),N(N3,1))
7436 $CLOSE#N0
   : RETURN