;
;
; LB:[1,2]KPAIHEMT.CMD
;
; OBS ! DENNA KOMMANDOFIL :
;	1) G\R INSTALL P] RJE F\R KPAIHEMT
;	2) SKICKAR STYKORTEN F\R ATT STARTA LISTNING
;	3) F\R \VER LISTORNA FR]N KPAI
;
	CHD 1 2
	ASN =
	.ENABLE SUBSTITUTION
;
.;
.RJEI:
	.IFINS ...RJE .GOTO RJEOK
	@LB:[1,2]RJEINS
.RJEOK:
	RJE @LB:[1,2]KPAIHEMT.RJI
	.IF <EXSTAT> NE 1 ;START AV RJE-EMULATORN P] KPAI-VIS SKET SIG
	.IF <EXSTAT> NE 1 .PAUSE
;
;
	.TESTFILE WI:[200,142]KPAIHEMT.RJE
	.IF <FILERR> NE 1 ;FIL KPAIHEMT SAKNAS
	.IF <FILERR> NE 1 .PAUSE
.;
.;
	QRJ WI:[200,142]KPAIHEMT.RJE
;
;
;	JOBBET LIGGER I K\N XJQ0 !
	QUE /LI
;
.;
	PIP [200,142]KPAILST.*;*/DE/NM
	PIP PRINT.*;*/DE/NM
;
.AGAIN:
;
;SL] P] STR\MMEN TILL BL] V[STER]SMODEMETE
;RING 021/12 60 08 , N[R DE S[GER ATT DET [R KLART - TRYCK NED "DATA"
;P] V[STER]S-MODEMET (V[NSTRA BL])
;
;
;	N[R SISTA FILEN (KVITTENS P] SIGNOFF.RJE) HAR MOTTAGITS
;	SKA DU K\RA @RJESTOPP  (@LB:[1,2]RJESTOPP eller @RJESTOPP)
;	
;	LISTFILERNA FR]N V[STER]S LIGGER SOM WI:[200,142]KPAILST.00n,
;	t.ex. WI:[200,142]KPAILST.001
;	Om Du f|ljer med i vad protokollet skriver, ser du vilka nummer som
;	{r aktuella. Du skriver ut listfilerna genom att skriva
;			 PRI WI:[200,142]KPAILST.*
;	Varje listfil f}r ett nytt nummer, den f|rsta heter KPAILST.001 .
;
;	LYCKA TILL !
;
;