$INCLUDE BP.MASTER GEN.COMMON
CRT 'INPUT FILENAME: ':
NAME=''
INPUT NAME
IF NAME = '' OR NAME = PF2 THEN STOP
OPEN 'DICT ':NAME TO DFILE ELSE ABORT
CRT ''
CRT 'ENTER HOW MANY FIELDS: ':
FIELDS=''
INPUT FIELDS
IF FIELDS = '' OR FIELDS = PF3 THEN STOP
IF FIELDS > 200 THEN FIELDS = 200
FOR X = 1 TO FIELDS
 FIELDNAME='F':X
 REC='A':AM:X:AM:'FIELD ':X'R%2':AM:AM:AM:AM:AM:AM:'L':AM:'10'
 READ DUMMY FROM DFILE,FIELDNAME THEN
  CRT 'FIELD ':X:' ALREADY IN DICTIONARY - SKIPPED'
 END ELSE
  WRITE REC ON DFILE,FIELDNAME
 END
NEXT X
CRT 'PROCESS COMPLETE!'
STOP