image of READY prompt

Wang2200.org

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

# Sector 494, program filename = 'DDA.145'
7438 %DDA.145, RELEASE X01, (AUG 3, 81) REWRITE A RECORD
7442 DEFFN'145(N3)
   : $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)=0OR N1(6)=0THEN 7457
   : GOSUB '149(N(N3,3)+N0(7),N0(10),N1(6))
   : IF N1(3)=0THEN GOTO 7451
   : ELSE M=N1(3)
   : GOTO 7457
7451 N1(2)=VAL(STR(N0$(),N1(5)),2)
   : IF N1(2)=0THEN 7457
   : MAT COPY K8$()TO N0$()<N1(5)+2,N1(2)>
   : GOSUB '148(N(N3,3)+N0(7),N0(10),N1(6))
7457 $CLOSE#N0
   : RETURN