INTEGER ANSWER
COMMON IPAR(10),IFRMAT(3,20)
1 NAME=ANSWER('WHAT IS YOUR FILE NAME?')
NR=NANSWR('HOW MANEY RECORDS?')
NSPR=NANSWR('NUMBER OF SECTORS PER RECORD?')
NCPR=NANSWR('NUMBER OF CATEGORIES?')
CALL DFINEF(NAME,NSPR,NR,NCPR)
CALL SAVEF
GO TO 1
END