SUBROUTINE PEN(ID,IN)
C HILSPROGRAMM FUER XY-SCHREIBER
C Z-FUNKTION : REGISTER 6 / BIT 4
C	ID=0 : SCHREIBSTIFT ABHEBEN
C	ID=1 : SCHREIBSTIFT IN SCHREIBSTELLUNG
C FORTRAN II
C SR : AUS.FT / IBIT.SB
	IF(ID)1000,1000,1002
1000	CALL ZBIT(IN,4)
1001	CALL AUS(1,6,IN)
S	JMS MS50
	RETURN
1002	CALL SETB(IN,4)
	GOTO 1001
SMS50,	0	/ CA 50 [MS] VERZOEGERUNG
S	CLA
S	TAD (K0000
S	DCA CT
SDEL,	NOP
S	ISZ CT
S	JMP DEL
S	JMP I MS50
SCT,	0
	END