PROGRAM mypassbox

INTEGER:: enter, password=1234 ! Replace '1234' with your numerical (integer) password. Don't forget it!
CHARACTER(1):: exiit

PRINT*,
PRINT*,
PRINT*, 'Please type your interger password.'
READ*, enter

IF (enter/=password) THEN
PRINT*, 'Incorrect password!'
GO TO 99
END IF

PRINT*, '-------------|-----------------------|---------------'
PRINT*, ' Account     | ID                    | Password      '
PRINT*, '-------------|-----------------------|---------------'
PRINT*, ' Google      | Gid                   | Gpassword     ' ! Below, insert new lines like this.

PRINT*, '-------------|-----------------------|---------------'

PRINT*,
PRINT*,
PRINT*, 'Press any key to exit.'
READ*, exiit

IF (exiit=='a') THEN
GO TO 99
END IF

99 END PROGRAM mypassbox