image of READY prompt

Wang2200.org

Listing of file='DAST.DAT' on disk='vmedia/701-2739G.wvd.zip'

# Sector 848, program filename = 'DAST.DAT'
4000 DEFFN'216(I9,I9$)
   : REM "DAST.DAT"--REvised 11/22/81
4001 RESTORE LINE4012
   : I9(5)=INT(LEN(STR(R9$()))/8)
   : R9=0
   : R9$()=" "
4002 FOR I=1TO I9
4003 READ I8$
   : IF I8$="END"THEN 4010
4004 READ I9(4)
   : READ I9$()
   : MAT SEARCHI9$,=STR(I8$,1,3)TO I$STEP 3
4005 IF STR(I$,1,2)=HEX(0000)THEN 4003
4006 FOR I1=0TO I9(4)-1
4007 MAT SEARCHR9$(),=STR(I9$(),(I1*8)+1,8)TO I$STEP 8
4008 IF STR(I$,1,2)<>HEX(0000)THEN 4009
   : IF R9=I9(5)THEN 4011
   : STR(R9$(),(R9*8)+1,8)=STR(I9$(),(I1*8)+1,8)
   : R9=R9+1
4009 NEXT I1
   : NEXT I
   : R9$=HEX(00)
   : RETURN
4010 R9$=HEX(01)
   : RETURN
4011 R9$=HEX(02)
   : RETURN
4012 DATA "205",2,"DOC.INITREC.INIT"
4013 DATA "206",7,"DOC.OPENCAT.VLISCAT.PRIMCAT.RD  CAT.LISTCAT.FO/CCAT.OPEN"
4014 DATA "207",5,"DOC.CLOSCAT.FO/CCAT.PRIMCAT.OPENCAT.RD  "
4015 DATA "208",14,"DOC.CRETCAT.VLISCAT.FCRECAT.FO/CCAT.FLISCAT.PRIMCAT.OPENCA
     T.RD  CAT.INS CAT.LISTREC.PRIMREC.RD  REC.INS REC.FREE"
4016 DATA "209",8,"DOC.DEL CAT.FDELCAT.PRIMCAT.RD  CAT.DEL REC.PRIMREC.FREEREC
     .DEL "
4017 DATA "079",9,"CAT.FMODCAT.PRIMCAT.RD  CAT.INS CAT.DEL REC.PRIMREC.INS REC
     .FREEDOC.PASS"
4018 DATA "245",4,"PAG.GOTOPAG.SUB REC.PRIMREC.RD  "
4019 DATA "247",4,"PAG.READPAG.SUB REC.PRIMREC.RD  "
4020 DATA "248",8,"PAG.REWTPAG.SUB REC.PRIMREC.RD  REC.INS REC.FREEREC.DEL REC
     .REP"
4021 DATA "249",10,"PAG.INS PAG.SUB REC.PRIMREC.RD  REC.INS REC.FREEADM.READAD
     M.WRITCAT.FFCBCAT.PRIM"
4022 DATA "251",11,"PAG.DEL PAG.SUB REC.PRIMREC.DEL REC.INS REC.FREEADM.READAD
     M.WRITCAT.FFCBREC.RD  CAT.PRIM"
4023 DATA "252",10,"PAG.APD PAG.SUB REC.PRIMREC.INS REC.FREEREC.RD  ADM.READAD
     M.WRITCAT.PRIMCAT.FFCB"
4024 DATA "253",2,"PAG.SRCHPAG.SUB "
4025 DATA "218",3,"ADM.READREC.PRIMREC.RD  "
4026 DATA "219",5,"ADM.WRITREC.PRIMREC.RD  CAT.PRIMCAT.FFCB"
4027 DATA "229",7,"GLS.ATCHCAT.VLISCAT.PRIMCAT.RD  CAT.LISTCAT.FO/CCAT.OPEN"
4028 DATA "230",3,"GLS.CALLREC.PRIMREC.RD  "
4029 DATA "233",5,"GLS.DTCHCAT.PRIMCAT.FO/CCAT.OPENCAT.RD  "
4030 DATA "END"