;
;	LB:[1,2]BORTTAG.CMD
;
;	VERSION 85-07-19
;
;	HANTERAR PROGRAM, SOM RENSAR I KPAI:S REGISTER
;	SE UPP MED PUBKIL, SEMESTER OCH REG 225 [R EJ IMPLEMENTERAT (TROR JAG)
;
.ENABLE SUBSTITUTION
;
.IGEN:
;
;	KOD	PROGRAM			FUNTION
;
;	0.				AVSLUTAR K\RNING
;	1.	NXX990			RENSAR I REGISTREN
;	2.	NXX980			]TERST[LLER REGISTREN
;	3.	PUBKIL			TAR BORT PERSONER UR PDISP
;	4.	LISKIL			TAR BORT TJG-LISTOR UR PDISP
;
.ASKS KOD VILKEN KOD
.IF KOD EQ "0" .EXIT
;
;*********************************************************************
;
;	BORTTAG INITIERAT '<DATE>' '<TIME>'
;
;*********************************************************************
;
.IF KOD EQ "1" RUN BA:[166,300]NXX990/TASK=NAA990
.IF KOD EQ "2" RUN BA:[166,300]NXX980/TASK=NAA980
.IF KOD EQ "3" RUN BA:[166,300]PUBKIL/TASK=PUBKIL
.IF KOD EQ "4" RUN BA:[166,300]LISKIL/TASK=LISKIL
;
;*********************************************************************
;
;	BORTTAG KLART '<DATE>' '<TIME>'
;
;*********************************************************************
;
.GOTO IGEN
;
;
;