;
;	LB:[1,2]PREGKPAI.CMD
;
;	DENNA KOMMANDOFIL TILLVERKAR DE REGISTER (L202,L203 OCH L207)
;	SOM MAN G\R KPAI-FILER AV
;
;	DEN NOLLST[LLER PERSON[NDRINGSREGISTRET
;
;	VERSION 88-08-10 B-E TAPPER
;
	.ENABLE SUBSTITUTION
;
;	*** OBSERVERA *** JAG SKA VARA ABSOLUT ENSAM P] SYSTEMET
;
;	INGA BATCHAR ELLER TERMINALER F]R VARA I G]NG !!!
;	JAG VISAR F\RST STATUS P] TAXTERMINALERNA
;
	TXF
	.ASK GO [R DET KLART ATT K\RA (DVS. ALLA I TRATTEN ELLER NX0020)
	.IFF GO .EXIT
;
;	JAG ST[NGER NU AV ALLA TERMINALER
;
	.IFNINS ...LIU INS $LIU/IOP=NO
	.IFNINS ...VFU INS $VFU
.;
	LIU /TE:1:OF
	LIU /TE:2:OF
	LIU /TE:3:OF
	LIU /TE:4:OF
	LIU /TE:5:OF
	LIU /TE:11:OF
	LIU /TE:12:OF
	LIU /TE:13:OF
	LIU /TE:14:OF
	LIU /TE:15:OF
	LIU /TE:16:OF
	LIU /TE:21:OF
	LIU /TE:22:OF
	LIU /TE:23:OF
	LIU /TE:24:OF
	LIU /TE:25:OF
	LIU /TE:31:OF
	LIU /TE:32:OF
	LIU /TE:33:OF
	LIU /TE:34:OF
	LIU /TE:35:OF
	LIU /TE:41:OF
	LIU /TE:42:OF
	LIU /TE:43:OF
	LIU /TE:44:OF
	LIU /TE:45:OF
	LIU /TE:60:OF
	LIU /TE:61:OF
	LIU /TE:62:OF
	LIU /TE:63:OF
;
;
.IGENN:
	ATS
;
	.ASK GO [R DET KLART ATT K\RA
	.IFT GO .GOTO GOO
;	JAG KOMMER NU ATT F\RS\KA IGEN, V[NTA 30 SEKUNDER
	.DELAY 30.S
	.GOTO IGENN:
.;
.GOO:
;
;	JAG STARTAR NU LISAND
;
	INS BA:[166,300]LISAND			!INSTALLERA PROGRAMMET
	RUN LISAND				!K\R PROGRAMMET
;
;	JAG NOLLST[LLER NU H]LKORTS-REGISTREN L202 , L203 , L207
;
	.ASK GO [R DET OK
	.IFF GO .EXIT
;	
	VFU /IL		!LOGGA INTE DETTA
	VFU /ZE:490	!L202 1
	VFU /ZE:500	!L203
	VFU /ZE:530	!L207
	VFU /ZE:1300	!L202 2
	VFU /ZE:1310	!L202 3
	VFU /ZE:1320	!L202 4
	VFU /ZE:1330	!L202 5
;	S[TT INTE P] LOGGNING
.;	VFU /EL		!S[TT P] LOGGNING IGEN
;
;	JAG STARTAR NU PROGRAMMET SKAPA KPAI-POSTER ]T DIG
;
	INS BA:[166,300]NXX620/TASK=NXX620	!INSTALLERA PROGRAMMET
	RUN NXX620				!K\R PROGRAMMET
	.WAIT NXX620
;
;	OM DET GICK BRA SKA EXIT STATUS VARA 1 (ETT)
;
;	EXIT STATUS F\R NXX620 VAR '<EXSTAT>'
;
	.IF <EXSTAT> NE 1 ;TILLKALLA SYSTEMANVSARIG
	.IF <EXSTAT> NE 1 .EXIT
;
;
;
	.DELAY 2.S
	REM NXX620
	.WAIT LISAND
	.DELAY 2.S
	REM LISAND
	.WAIT NAA690
;
;OM DU FICK FELUTSKRIFTER ELLER MISST[NKER FEL -- KONTAKTA SYSTEMANSVARIGE.	
;
	.ASK GO GICK DET BRA		
	.IFF GO .EXIT
;
;	JAG NOLLST[LLER NU REGISTER 480  (PERSON[NDRINGSREGISTRET)
;
	.ASK GO [R DET OK ?
	.IFF GO .EXIT
	VFU /IL			!LOGGA INTE DETTA
	VFU /ZE:480
	VFU /EL			!]TERST[LL LOGGNING
;
;OM DU FICK FELUTSKRIFTER ELLER MISST[NKER FEL -- KONTAKTA SYSTEMANSVARIGE.	
;
	.ASK GO GICK DET BRA
	.IFF GO .EXIT
;
;	ALLT [R NU KLART F\R ATT STARTA TERMINALERNA IGEN - JAG G\R DET
;
	LIU /TE:11:ON
	LIU /TE:12:ON
	LIU /TE:13:ON
	LIU /TE:14:ON
	LIU /TE:15:ON
;	LIU /TE:16:ON
	LIU /TE:21:ON
	LIU /TE:22:ON
	LIU /TE:23:ON
	LIU /TE:24:ON
	LIU /TE:25:ON
	LIU /TE:31:ON
	LIU /TE:32:ON
	LIU /TE:33:ON
	LIU /TE:34:ON
	LIU /TE:35:ON
	LIU /TE:41:ON
	LIU /TE:42:ON
	LIU /TE:43:ON
	LIU /TE:44:ON
	LIU /TE:45:ON
	REM LIU
	REM VFU
;
;	OBS -- 	DU SKAPAR NU DINA RJE-FILER GENOM ATT K\RA -36.
;		DU KAN K\RA OM -36 HUR M]NGA G]NGER SOM HELST.
;
;		INNAN DU G\R DET, MEN EFTER ATT DENNA FIL HAR K\RTS,
;		KAN DU L[GGA IN [NDRINGAR MED H]LKORTSTRANSAKTIONERNA
;		DVS : -29 M.FL. F\R P-REG OCH -26 F\R FTA. 
;
;		F\R VISSA F[LT, SOM EJ FINNS I PDISP, M]STE [NDRINGAR
;		G\RAS P] DETTA S[TT.
;
;	SLUT P] PREGKPAI.CMD
;