;
;
; LB:[1,2]KPAISKICK.CMD
;
; OBS ! DENNA KOMMANDOFIL :
;	1) G\R INSTALL P] RJE F\R KPAISKICK
;	2) FR]GAR VILKA FILER SOM SKA F\RAS \VER
;	3) KVITTERAR VILKA FILER SOM KOMMER ATT F\RAS \VER
;	4) F\R \VER FILERNA TILL KPAI
;
	CHD 1 2
	ASN =
	.ENABLE SUBSTITUTION
;
.;
.RJEI:
	.IFINS ...RJE .GOTO RJEOK
	@LB:[1,2]RJEINS
.RJEOK:
	RJE @LB:[1,2]START.RJI
	.IF <EXSTAT> NE 1 ;START AV RJE-EMULATOTN P] KPAI-VIS MISSADE
	.IF <EXSTAT> NE 1 ;RING SYSTEMANSVARIG
	.IF <EXSTAT> NE 1 .PAUSE
;
;	**** ANGE NEDAN FILNAMN SOM SKA SKICKAS: L202 , L204 , L215 ELLER L227
;
	.TESTFILE WI:[200,142]SIGNON.RJE
	.IF <FILERR> NE 1 ;FIL SIGNON SAKNAS
	.IF <FILERR> NE 1 .PAUSE
.;
.IGEN:
	.ASKS NAMN ANGE FILNAMN
	.IF NAMN EQ "L202" .GOTO L202
	.IF NAMN EQ "L204" .GOTO L204
	.IF NAMN EQ "L215" .GOTO L215
	.IF NAMN EQ "L227" .GOTO L227
;
;	'NAMN' FINNS EJ - TILL]TET [R L202 , L204 , L215 ELLER L227
;	N[R L202 ANGES S[NDES L202, L203 OCH L207
;	N[R L204 ANGES S[NDES L204 OCH L205
;	N[R L215 ANGES S[NDES L215
;	N[R L227 ANGES S[NDES L227
;
;	F\RS\K IGEN !
;
	.GOTO IGEN
.;
.L202:
	QRJ WI:[200,142]SIGNON.RJE
	.TESTFILE WI:[200,142]L202.RJE
	.IF <FILERR> NE 1 ;FIL WI:[200,142]L202.RJE SAKNAS
	.IF <FILERR> NE 1 .PAUSE
	QRJ WI:[200,142]L202.RJE
	.TESTFILE WI:[200,142]L203.RJE
	.IF <FILERR> NE 1 ;FIL WI:[200,142]L203.RJE SAKNAS
	.IF <FILERR> NE 1 .PAUSE
	QRJ WI:[200,142]L203.RJE
	.TESTFILE WI:[200,142]L207.RJE
	.IF <FILERR> NE 1 ;FIL WI:[200,142]L207.RJE SAKNAS
	.IF <FILERR> NE 1 .PAUSE
	QRJ WI:[200,142]L207.RJE
	.GOTO SLUTT
.L204:
	QRJ WI:[200,142]SIGNON.RJE
	.TESTFILE WI:[200,142]L204.RJE
	.IF <FILERR> NE 1 ;FIL L204 SAKNAS
	.IF <FILERR> NE 1 .PAUSE
	QRJ WI:[200,142]L204.RJE
	.TESTFILE WI:[200,142]L205.RJE
	.IF <FILERR> NE 1 ;FIL L205 SAKNAS
	.IF <FILERR> NE 1 .PAUSE
	QRJ WI:[200,142]L205.RJE
	.GOTO SLUTT
.;
.L215:
	QRJ WI:[200,142]SIGNON.RJE
	.TESTFILE WI:[200,142]L215.RJE
	.IF <FILERR> NE 1 ;FIL L215 SAKNAS
	.IF <FILERR> NE 1 .PAUSE
	QRJ WI:[200,142]L215.RJE
	.GOTO SLUTT
.;
.L227:
	QRJ WI:[200,142]SIGNON.RJE
	.TESTFILE WI:[200,142]L227.RJE
	.IF <FILERR> NE 1 ;FIL L227 SAKNAS
	.IF <FILERR> NE 1 .PAUSE
	QRJ WI:[200,142]L227.RJE
	.GOTO SLUTT
.;
.SLUTT:
	QRJ WI:[200,142]SIGNOFF.RJE
;
;	JOBBEN LIGGER I K\N XJQ0 !
	QUE XJQ0:/LI
;
.;
	PIP PRINT.*;*/DE/NM
;
.AGAIN:
;
;	SL] P] STR\MMEN TILL BL]A MODEMET, DET MED EN R\D TELEFON P].(SVART
;	KNAPP P] BAKSIDAN).
;
;	RING 021/12 76 80 , N[R DU H\R EN L]NG TON - TRYCK IN KNAPPEN "DATA"
;	P] MODEMET, DU KAN NU SE P] LAMPORNA ATT \VERF\RINGEN STARTAR.
;
;
;	N[R SISTA FILEN HAR S[NTS (KOLLA MOT S[NDNINGSKVITTOT)
;	SKA DU K\RA @RJESTOPP  (@LB:[1,2]RJESTOPP eller @RJESTOPP).
;	
;	KVITTENSFILERNA FR]N V[STER]S HETER PRINT.00n, t.ex. PRINT.001
;	Om Du f|ljer med i vad protokollet skriver, ser du vilka nummer som
;	{r aktuella. Du skriver ut kvittensfilen genom att skriva
;			 TYP PRINT.00n
;	d{r n ska vara aktuell siffra.
;
;	Varje kvittensfil f}r ett nytt nummer, den f|rsta heter PRINT.001 .
;
;	OBS!! GL\M INTE ATT TRYCK IN KNAPPEN "PHONE" P] MODEMET N[R ALLT
;	      [R KLART.
;
;	OM DET BLIR AVBROTT I \VERF\RNINGEN KONTAKTA SYSTEMANSVARIGA.
;
;	LYCKA TILL !
;
;