.;
.;
.; LB:[1,2]USERDEF.SAT F\R BER[KNING AV  $ANVND, $PUSER OCH $ID
.;                     SAMT PROGRAMMERING AV TANGENTER
.;
.; V A R N I N G - .SAT & .CMF ANV[NDES ! K\R @SAT !
.;
.;
.;	HISTORIK:
.;	DATUM	NAMN			]TG[RD
.;	870214	B-E TAPPER		F[RDIGST[LLT F\R ALLM[NT BRUK
.;	870303	B-E TAPPER		PROGRAMMERING AV TANGENTER
.;	880729	B-E TAPPER		.sat, .cmf samt NEW i ID.DEF
.;
.;
	.ENABLE SUBSTITUTION
	.DISABLE DISPLAY
	.ENABLE GLOBAL
	.ENABLE ESCAPE
	.DISABLE LOWERCASE
	.DISABLE DECIMAL
.;
.;L[S $ID OCH [NDRA EV. UIC
	@ID.DEF
.;
	'IF'.IFDF $MAI11
		NEW
		'IF'.IF <EXSTAT> EQ 3
			MAI
		'ENDIF'
	'ENDIF'
.;
	.PARSE $USER "$" $ANVND
.;
	.OPEN ID.USG
	.DATA MAIL-kontot anv{nt av '$ANVND' '<DATE>' '<TIME>'
	.CLOSE
.;
	.TESTFILE TNG'$PUSER'.DEF
	'IF'.IF <FILERR> EQ 1
.;
		.OPENR TNG'$PUSER'.DEF
		.ENABLE LOWERCASE
		.ENABLE CONTROL-Z
		.SETF <EOF>
		;~
.;
		'WHILE'.IFT <TRUE>
.;
			.READ DUMMY
			'BREAKIF'.IFT <EOF>
.;
			.READ DUMMY
			.IFT <EOF> .GOSUB SYSFEL
.;
			.READ PRKEY
			.IFT <EOF> .GOSUB SYSFEL
.;
			.READ DLSTR
			.IFT <EOF> .GOSUB SYSFEL
.;
			.READ DUMMY
			.IFT <EOF> .GOSUB SYSFEL
.;
			.READ DPFTX
			.IFT <EOF> .GOSUB SYSFEL
.;
			.SETS PRSTR "@"+PRKEY+DLSTR+DPFTX+DLSTR
			;'PRSTR'
.;
		'ENDDO'
.;
		.CLOSE
	'ENDIF'
.;
	.DISABLE CONTROL-Z
	.DISABLE LOWERCASE
	.EXIT
.;
.;
.SYSFEL:
	;SYSTEMFEL - Ring 120.
	.SETF OLDF
	.SETF <EOF>
	.PAUSE
	.RETURN
.;
.;
.;
.; <EOF> LB:[1,2]USERDEF.SAT
.;