image of READY prompt

Wang2200.org

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

# Sector 509, program filename = 'DDA.148'
7364 %DDA.148, RELEASE X01, (AUG 3, 81) WRITE PHYSICAL BLOCK
7368 DEFFN'148(J3,J4,J5)
   : MAT REDIM N0$(3*J4)83
   : DATA SAVE DA T#N0,(J3+(J5-1)*J4)N0$()
   : ERRORN1(3)=ERR
7371 MAT REDIM N0$(6)83
   : RETURN