PROGRAM TIME C C This is a demonstration of some of the capabilities of the "VT" C routines. It generates a large date/time display at the top of C the VT100 screen. To stop the program and reset the VT100 type c letter S. C INTEGER TI(4) BYTE DA(9) DATA NTIMES/0/ CALL DATE(DA) CALL ANSI CALL SAVCUR CALL STBM(3,24) CALL CUP(3) CALL CLRTOP CALL CUP(1) CALL BIGTOP CALL CUP(2) CALL BIGBOT CALL IPOKE("44,"10100.OR.IPEEK("44)) ! Terminal special mode CALL RESCUR 1 CALL ISLEEP(0,0,0,10) NTIMES=NTIMES+1 IF(NTIMES.GT.10) NTIMES=10 INPUT=ITTINR() CALL SAVCUR IF(INPUT.LT.0) GOTO 10 IF(INPUT.EQ.83) GOTO 20 ! Stop if S was typed 30 IF(ITTOUR(7).NE.0) GOTO 30 NTIMES=0 CALL CUP(23) TYPE *,'TYPE S TO STOP THE CLOCK' 10 IF(NTIMES.LT.10) GOTO 40 CALL CUP(23) CALL CLRLIN NTIMES=0 40 CONTINUE CALL TIME(TI) CALL NEGVID CALL CUP TYPE 100,DA,TI ! Type the time CALL CLREND CALL CRLF TYPE 100,DA,TI 100 FORMAT('+',9A1,3X,4A2$) CALL CLREND CALL RESCUR GOTO 1 20 CALL RIS CALL EXIT END