1	!
	!	SYSELF 		VERSION 1(3)		04/15/75
	!
	!	WRITTEN BY CHARLES R. GEHMAN
	!	MATRIX SOFTWARE COMPANY
	!
	!	THIS PROGRAM GIVES THE PROGRAMMER USE STATISTICS
	!	FOR HIS CURRENT JOB.  IT IS SUGGESTED THAT THIS 
	!	PROGRAM BE STORED ON ($), WITH AN EXECUTE-ONLY 
	!	PROTECTION.
	!
	!	TYPED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E V06C
	!
5	IF ERR = 0%
	THEN A$ = SYS(CHR$(6%) + CHR$(9%) + CHR$(ERR))
	\ Q1% = ERR
10	ON ERROR GOTO 60
	\ DIM M%(30%), S%(30%)
15	M%(1%) = 6%
	\ M%(2%) = 14%
	\ M%(0%) = 6%
	\ M%(5%) = 1%
	\ M%(6%) = 1%
20	M%(3%) = I% AND 255%
	\ M%(4%) = SWAP%(I%) AND 255%
30	CHANGE M% TO S$
	\ S$ = SYS(S$)
	\ CHANGE S$ TO S%
40	S%(U%) = S%(U%) + SWAP%(S%(U%+1%)) FOR U% = 7% TO 29% STEP 2%
50	P$ = RAD$(S%(9%)) + RAD$(S%(11%))
55	IF Q1% <> 0%
	THEN 60
58	IF TIME(0%) < 43200
	THEN A$ = "NO ERRORS. GOOD MORNING."
	ELSE IF TIME(0%) > 64800
	     THEN A$ = "NO ERRORS. GOOD EVENING."
	     ELSE A$ = "NO ERRORS. GOOD AFTERNOON."
60	Q = TIME(2%) 
	\ Q2 = INT(Q/60)
	\ Q3 = Q - Q2 * 60
	\ PRINT 
	\ PRINT
70	PRINT "STATUS OF ";RIGHT(SYS(CHR$(6%) + CHR$(9%) + CHR$(0%)),3);
			" JOB ";
	\ S1$ = SYS(CHR$(6%) + CHR$(14%))
	\ S$ = SYS(CHR$(6%) + CHR$(9%))
	\ PRINT ASCII(S$)/2;
	\ PRINT " ON ";DATE$(0%);" AT "; TIME$(0%)
80	X% = ASCII(RIGHT(S1$,8%))
	\ Y% = ASCII(RIGHT(S1$,7%))
	\ PRINT
	\ PRINT "YOU ARE LOGGED IN UNDER [";FNA$(X%);",";FNA$(Y%);"]";"      ";P$
90	PRINT "CPU TIME ";TIME(1%)/10%;" SECS. ELAPSED ";Q2;" HRS. ";Q3;" MINS."
	\ IF Q1 = 0
	  THEN PRINT "THERE WERE ";A$ 
	  ELSE PRINT "LAST ERROR DETECTED WAS '";A$;"'"
	  \ PRINT
	  \ PRINT
	  \ PRINT "READY" 
	  \ Q = TIME(2%) 
	  \ Q2 = INT(Q/60)
	  \ Q3 = Q - Q2 * 60
	  \ PRINT 
	  \ PRINT
	  \ PRINT SYS(CHR$(9%))
100	DEF FNA$(H%)
	\ PRINT MID(NUM$(H%),2%,LEN(NUM$(H%))-2%);
	\ FNEND
	\ END