.;GROUP.CMD
.;FILE TO FIND OUT WHAT GROUP IS MAKING THE DOCUMENT
	.ENABLE ESCAPE
	.ENABLE SUBSTITUTION
	.IF $TRCF = 1 .GOTO MACR
	.IF $TRCF = 2 .GOTO PER
	.IF $TRCF = 3 ; ERROR ERROR ERROR ERROR
	.IF $TRCF = 3 .GOTO MACR
	.IF $TRCF = 4 .GOTO SWICS
.MACR:
	.SETS  T1 "SYSTEM INTEGRATION"
	.SETS  T2 "NETWORK/INTER-TASK COMMUNICATION"
	.SETS  T3 "COMMAND LANQUAGE"
	.SETS  T4 "LEVEL 3 COMPUTER"
	.SETS  T5 "DATA BASE DESIGN/ACCESS"
	.SETS  T6 "DIAGNOSTIC SUPPORT/PERFORMANCE"
	.SETS  T7 "RSX-11M SYSTEM EXTENSIONS"
	.SETS  T8 "PROCESS TASKS"
	.SETS  T9 "GRAPHICS"
	.SETS  T10 "LIBRARY"
	.SETS  T11 "DESIGN PROTOCOLS AND STANDARDS"
	.SETS T12 "SYSTEM MAINTENANCE"
	.SETN MAX 12.
	.GOTO 1A

.PER:
	.SETS T1 "SYSTEM INTEGRATION"
	.SETS T2 "COMMAND LANQUAGE"
	.SETS T3 "PROCESS TASKS"
	.SETS T4 "DESIGN PROTOCALS AND STANDARDS"
	.SETS T5 "SOFTWARE MODIFICATIONS"
	.SETS T6 "HARDWARE MODIFICATIONS"
	.SETS T7 "UNIBUS POD"
	.SETS T8 ""
	.SETS T9 ""
	.SETS T10 ""
	.SETS T11 ""
	.SETS T12 ""
	.SETN MAX 7.
	.GOTO 1A
.1:
;THERE ARE THE FOLLOWING GROUPS THAT YOU SELECT
;	1)  'T1'
;	2)  'T2'
;	3)  'T3'
;	4)  'T4'
;	5)  'T5'
;	6)  'T6'
;	7)  'T7'
;	8)  'T8'
;	9)  'T9'
;	10) 'T10'
;	11) 'T11'
;	12) 'T12'
;
;
;
;
.1A:
	.ASKN [::0.] Z GROUP NUMBER
	.IFT <ESCAPE> .GOTO 1
	.IF Z > MAX .GOTO 1
	.SETS TMP "T'Z'"
	.SETS $GRUP 'TMP'
	.GOTO END

.SWICS:	.SETS  $GRUP "SYSTEM INTEGRATION"
.END: