image of READY prompt

Wang2200.org

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

# Sector 470, program filename = 'WPFM.DAT'
4000 DEFFN'216(I9,I9$)
   : REM 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 "210",8,"CAT.PRIMCAT.FCRECAT.OPENCAT.RD  CAT.INS REC.PRIMREC.INS REC
     .FREE"
4013 DATA "211",4,"CAT.PRIMCAT.FO/CCAT.OPENCAT.RD  "
4014 DATA "212",4,"CAT.PRIMCAT.FO/CCAT.OPENCAT.RD"
4015 DATA "213",8,"CAT.PRIMCAT.FMODCAT.RD  CAT.INS CAT.DEL REC.PRIMREC.INS REC
     .FREE"
4016 DATA "214",7,"CAT.PRIMCAT.FDELCAT.RD  CAT.DEL REC.PRIMREC.DEL REC.FREE"
4017 DATA "215",4,"CAT.PRIMCAT.FOC CAT.OPENCAT.RD  "
4018 DATA "217",5,"CAT.PRIMCAT.FLISCAT.OPENCAT.RD  CAT.LIST"
4019 DATA "235",2,"CAT.PRIMCAT.FFCB"
4020 DATA "231",7,"CAT.PRIMCAT.VCRECAT.RD  CAT.INS REC.PRIMREC.CRE REC.FREE"
4021 DATA "238",4,"CAT.PRIMCAT.VMANCAT.VCRECAT.RD  "
4022 DATA "237",5,"CAT.PRIMCAT.VMANCAT.VCRECAT.RD  CAT.DEL "
4023 DATA "239",4,"CAT.PRIMCAT.VMANCAT.VCRECAT.RD  "
4024 DATA "234",4,"CAT.PRIMCAT.VMANCAT.VCRECAT.DEL "
4025 DATA "236",4,"CAT.PRIMCAT.VLISCAT.RD  CAT.LIST"
4026 DATA "246",1,"REC.INIT"
4027 DATA "232",2,"CAT.PRIMCAT.INIT"
4029 DATA "220",2,"REC.PRIMREC.RD  "
4030 DATA "221",2,"REC.PRIMREC.RD  "
4031 DATA "222",3,"REC.PRIMREC.INS REC.FREE"
4032 DATA "223",2,"REC.PRIMREC.DEL "
4033 DATA "224",2,"REC.PRIMREC.MOVE"
4034 DATA "225",3,"REC.PRIMREC.INS REC.FREE"
4035 DATA "227",2,"REC.PRIMREC.RD  REC.DEL "
4036 DATA "226",6,"REC.PRIMREC.RD  REC.INS REC.FREEREC.DEL REC.REP "
4040 DATA "END"