image of READY prompt

Wang2200.org

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

# Sector 520, program filename = 'DDA.DAT'
7000 DEFFN'140(I9,I9$)
7001 RESTORE LINE7012
   : I9(5)=INT(LEN(STR(R9$()))/8)
   : R9=0
   : R9$()=" "
7002 FOR I=1TO I9
7003 READ I8$
   : IF I8$="END"THEN 7010
7004 READ I9(4)
   : READ I9$()
   : MAT SEARCHI9$,=STR(I8$,1,3)TO I$STEP 3
7005 IF STR(I$,1,2)=HEX(0000)THEN 7003
7006 FOR I1=0TO I9(4)-1
7007 MAT SEARCHR9$(),=STR(I9$(),(I1*8)+1,8)TO I$STEP 8
7008 IF STR(I$,1,2)<>HEX(0000)THEN 7009
   : IF R9=I9(5)THEN 7011
   : STR(R9$(),(R9*8)+1,8)=STR(I9$(),(I1*8)+1,8)
   : R9=R9+1
7009 NEXT I1
   : NEXT I
   : R9$=HEX(00)
   : RETURN
7010 R9$=HEX(01)
   : RETURN
7011 R9$=HEX(02)
   : RETURN
7012 DATA "150",3,"DDA.OPENDDA.LSUBDDA.HSUB"
7013 DATA "151",3,"DDA.FINDDDA.LSUBDDA.HSUB"
7014 DATA "152",3,"DDA.READDDA.LSUBDDA.HSUB"
7015 DATA "153",3,"DDA.STORDDA.LSUBDDA.HSUB"
7016 DATA "154",3,"DDA.MOD DDA.LSUBDDA.HSUB"
7017 DATA "155",3,"DDA.DEL DDA.LSUBDDA.HSUB"
7018 DATA "156",2,"DDA.CLOSDDA.HSUB"
7019 DATA "160",3,"DDA.ERR DDA.CLOSDDA.HSUB"
7020 DATA "END"