C PROGRAM TO PERFORM RUDAMENTARY LOGIN OPERATION. C FILED--4-OCT-84, G. BEVER. C C .LINK LOGIN,ICNSOL,ISWTCH C COMPLEX PASSWD,PASTBL(10) DATA PASTBL/'BEVER ','TRASHITT','DEAN ',7*' '/ IER=ICNSOL("176500,"300) ! SWITCH CONSOLES. IF(IER.LT.0) STOP 'UNABLE TO SWITCH CONSOLES' CALL SCCA(IFLG) ! DISABLE CTRL C. 1 TYPE 100 100 FORMAT(' ENTER PASSWORD:') ACCEPT 101,PASSWD 101 FORMAT(2A4) TYPE 103,PASSWD 103 FORMAT(1X,2A4,'/') DO 5 I=1,3 IF(PASSWD.EQ.PASTBL(I)) GO TO 10 ! IF PASSWORD MATCH, JMP. 5 CONTINUE GO TO 1 ! TRY AGAIN. 10 STOP 'OK, YOU ARE IN!' END