00100	TITLE TP
00200	SEARCH STENEX,PLEX
00300	
00400	OPDEF	BUGERR	[1B8]
00500	
00600	DEFINE	KRK
00700	<
00800	STAT1:	JRST	[BUG	HLT,<Status-file not available !>
00900			 	]
01000	STAT2:	JRST	[PREST	A
01100			 RLJFN
01200			  JFCL
01300			 BUG	HLT,<Unable to open Status-file !>
01400			 ]
01500		JRST	[0
01550			 [0]]
01600	STAT3:	JRST	[BUG	HLT,<You have no access privileges>
01700			 ]
01800	>
01900	
02000	STAT:	KRK
02100	
02200	XLIT
02300	END	STAT