PROGRAM PUNCH
	BYTE D(8),C(9),BUF(80),OUT(40)
	REAL W,PW
	CALL ERRSET(39,.TRUE.,.FALSE.,.TRUE.,.FALSE.,31)
	CALL GETMCR(BUF,L)
	DO 5 I=1,L
	IF (BUF(I).EQ.' ') GOTO 15
5	CONTINUE
6	WRITE(5,20)
20	FORMAT('$PUN>')
	READ (5,30,END=999,ERR=999) BUF
30	FORMAT(80A1)
	I=1
15	DO 50 J=I,80
	IF (BUF(J).NE.' ') GOTO 10
50	CONTINUE
55	WRITE(5,60)
60	FORMAT(' PUNCH -- PLEASE SPECIFY IN OR OUT')
	GOTO 6
10	IF (BUF(J).EQ.'I') W='IN  '
	IF (BUF(J).EQ.'O') W='OUT '
	IF (W.NE.'IN  '.AND.W.NE.'OUT ') GOTO 55
	WRITE(5,70)
70	FORMAT('$PASSWORD:')
	READ(5,80) PW
80	FORMAT(A4)
	ID=1
	IF (PW.EQ.'JNC ') GOTO 81
	ID=2
	IF (PW.EQ.'MCW ') GOTO 81
	ID=3
	IF (PW.EQ.'LCL ') GOTO 81
	GOTO 999
81	CALL TIME(D)
	CALL DATE(C)
	WRITE(5,40) W,D,C
40	FORMAT(' ',A4,3X,8A1,3X,9A1)
	IF (ID.GE.2) GOTO 41
	OPEN(UNIT=1,NAME='DB0:[211,10]TIME.CLK',TYPE='OLD',RECORDSIZE=133,
     *	ACCESS='APPEND')
	GOTO 900
41	IF (ID.GE.3) GOTO 42
	OPEN(UNIT=1,NAME='DB0:[211,2]TIME.CLK',TYPE='OLD',RECORDSIZE=133,
     *	ACCESS='APPEND')
	GOTO 900
42	OPEN(UNIT=1,NAME='DB0:[211,1]TIME.CLK',TYPE='OLD',RECORDSIZE=133,
     *	ACCESS='APPEND')
900	WRITE(1,40) W,D,C
999	CALL EXIT
	END