.ENABLE SUBSTITUTION
	.ENABLE QUIET
	.DISABLE DISPLAY
	.TEST P1
	'IF'.IF <STRLEN> EQ 0
		.SETS P1 "HK"
		.DISABLE QUIET
		.ENABLE DISPLAY
	'ENDIF'
.;
	;	KOMMANDOFIL F\R ATT SKRIVA UT SJUKANM[LNINGAR
	;	OCH PLOCKA UNDAN DAGENS LISTOR
	;
	;	VERSION 88-09-02 /BTA
	;
	CHD 1 2
	PRI 'P1':=PB:[200,142]*.FSK;*
	'IF'.IF <EXSTAT> NE 1
		.EXIT 4
	'ENDIF'
.;
	.OPENA PB:[200,142]SLUTFSK.FSK
	.DATA '<TIME>' '<DATE>'
	.CLOSE
	.OPENA PB:[200,142]SLUTFSK.TST
	.DATA [2"z



    Sjukanm{lan klar !
	.DATA [0"z


          K|r -302 !
	.CLOSE
	PRI 'P1':=PB:[200,142]SLUTFSK.TST/DEL
	'IF'.IF <EXSTAT> NE 1
		.EXIT 4
	'ENDIF'
	;
	;	OBS !	OM INTE DU RENSAR N[R DU [R BOMBIS P] ATT DU F]TT UT SJUKA
	;		S] F]R DU UT SAMMA ANM[LNINGAR IGEN I MORGON !!
	;
	;	RENSNING G\RS MED -302 eller @LB:[1,2]RENSA
	;
	; <EOF> SJUKA.SAT
	;