      IMPLICIT INTEGER (A-Z)
      CHARACTER*11 LMN
      WRITE (95, 10) 0,'NO TIME AT ALL'
10    FORMAT (R4,A16)
100   PRINT (108, 101)
101   FORMAT (' USER?')
      READ (105, 105) USER
105   FORMAT (I)
      IF (USER.EQ.0) GOTO 900
      IF (USER.LT.0) GOTO 200
      PRINT (108, 110)
110   FORMAT (' LMN?')
      READ (105, 115) LMN
115   FORMAT (A11)
200   CONTINUE
      PRINT (108, 210) 'CPU?'
210   FORMAT (1X,A5)
      READ (105, 105) CPU
      PRINT (108, 210) 'CAL?'
      READ (105, 105) CAL
      PRINT (108, 210) 'I/O?'
      READ (105, 105) IO
      PRINT (108, 210) 'WALL?'
      READ (105, 105) WALL
      WRITE (95, 300) USER,11,LMN,CPU,CAL,IO,WALL,0
300   FORMAT (R4,R1,A11,':SYS    ',5R4)
      GOTO 100
900   WRITE (95, 10) 0,'THIS MOMENT'
      END
