SUBROUTINE ALPHA
C TO TURN ON ALPHA MODE AFTER PLOTTING
C FORTRAN II
S	CLA
S	TAD (37		/ US=CNTRL/SHIFT/O
SX,	TSF
S	JMP X
S	TLS
S	CLA
	RETURN
	END