.GOTO 1
 
GET TYPE SUBROUTINE FOR CLG
 
	This module prompts for the file type (RAT, FTN, or MAC)
and stores the response in $TYPE.  It also defines $RATN, $FTNN,
and $MACN for use by COMPIL.
 
VARIABLES
 
NAME	TYPE		DESCRIPTION
 
$TYPE	STRING		Set by user input -- should be RAT, FTN or MAC
$RATN	STRING		"RAT"
$FTNN	STRING		"FTN"
$MACN	STRING		"MAC"
 
.1: .SETS HELP "?"
.SETS $RATN "RAT"
.SETS $FTNN "FTN"
.SETS $MACN "MAC"
.IFDF $TYPE .GOTO 200
     .IFT $KNOWS .GOTO 100
     .50: ;
          ;     All programs to be compiled are assumed to be of
          ; the same type.  You must now specify this.
          ;     If you say "RAT" when you mean "FTN", you're
          ; in trouble.  Abort ...AT. as quickly as possible.
     .100: .ASKS $TYPE ARE FILES RAT, FTN OR MAC?
     .IF $TYPE = HELP .GOTO 50
.200: