.;
.; GSRGROUP.CMD -- FIND INFO ABOUT PROJECT GROUPINGS
.;
.; EDIT NUMBER = 0001
.; EDITED BY: D.B.CURTIS  17 APR 80  20:48
.;
	.ENABLE ESCAPE
	.ENABLE SUBSTITUTION
	.SETS T1 ""
	.SETS T2 ""
	.SETS T3 ""
	.SETS T4 ""
	.SETS T5 ""
	.SETS T6 ""
	.SETS T7 ""
	.SETS T8 ""
	.SETS T9 ""
	.SETS T10 ""
	.SETS T11 ""
	.SETS T12 ""
	.SETS T13 ""
	.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
	.IF $TRCF = 5 .GOTO HARDW
	.IF $TRCF = 6 .GOTO FASTB
	.IF $TRCF = 7 .GOTO MODDIG
.FASTB:
.MODDIG:
	.SETS T1 "DEFAULT"
	.SETN MAX 1.
	.GOTO 1A
.MACR:
	.SETS  T1 "SYSTEM INTEGRATION"
	.SETS  T2 "NETWORK"
	.SETS  T3 "COMMAND LANGUAGE"
	.SETS  T4 "LEVEL 3 COMPUTER"
	.SETS  T5 "DATA BASE"
	.SETS  T6 "DIAGNOSTIC"
	.SETS  T7 "SYSTEM EXTENSIONS"
	.SETS  T8 "PROCESS TASKS"
	.SETS  T9 "GRAPHICS"
	.SETS  T10 "LIBRARY"
	.SETS  T11 "STANDARDS"
	.SETS T12 "SYSTEM MAINTAINCE"
	.SETN MAX 12.
	.GOTO 1A

.HARDW:
	.SETS T1 "CAMAC MODULES"
	.SETS T2 "TRIGGER PROCESSORS"
	.SETS T3 "BEAM PROFILE MONITORS"
	.SETS T4 "FAST BUS"
	.SETS T5 "PDP-11 HARDWARE"
	.SETS T6 "PROTON LINE CONTROL CABLES"
	.SETS T7 "MESON LINE CONTROL CABLES"
	.SETS T8 "NEUTRINO LINE CONTROL CABLES"
	.SETS T9 "MULTIWIRE"
	.SETN MAX 9.
	.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"
	.SETN MAX 7.
	.GOTO 1A
.1:
	.DISABLE QUIET
;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'
;	13) 'T13'
;
;
;
;
	.ENABLE QUIET
.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:
