1 ! TIMES.BAS - Time RSTS/E happenings & ! & ! 12-Mar-88 F. Mitchell Erskine College & ! & ! 22-Mar-89 last edit *M & ! & ! Author: W. Franklin Mitchell, Jr. & ! Director of Computer Services & ! Erskine College, Due West, South Carolina & ! & ! Copyright (c) 1989 & ! Erskine College, Due West, South Carolina & ! & ! *********************************************************************** & ! * This software is furnished without charge by Erskine College and * & ! * may be copied only with the inclusion of the author's name and * & ! * copyright notice. No title to or ownership of this software is * & ! * hereby transmitted. Neither Erskine College nor the author assumes * & ! * any responsibility for the use or reliability of this software. The * & ! * author welcomes comments and/or bug reports mailed to Franklin * & ! * Mitchell, Erskine College, Box 86M, Due West, South Carolina 29639. * & ! *********************************************************************** & 2 ! Use this program to time RSTS/E tests. I use it to test BASIC vs & ! PASCAL, etc. It's like CTRL/T but includes elapsed time. Of course, & ! it's up to you to make sure other users are not on the system or & ! the amount of elapsed time would be useless information. & ! & ! The first time TIMES is run, it makes H.VIR and inits it. Each & ! additional time it is run (after doing something), it reports the & ! elapsed time and CPU time used in sec. & ! & ! Reset recorded times by deleting the H.VIR file. & 5 ON ERROR GOTO 200 & 10 OPEN "H.VIR" FOR INPUT AS FILE 1% 20 DIM #1%, T(1) & 100 T0 = TIME(0%) : T1 = TIME(1%) 110 PRINT USING "RT:#,###.# CPU:###.#", T0-T(0%), (T1-T(1%))/10. 130 GOTO 800 & 200 PRINT "Initing RT and CPU times." 210 OPEN "H.VIR" FOR OUTPUT AS FILE 1% & 800 T(0%) = TIME(0%) : T(1%) = TIME(1%) 810 CLOSE 1% & 999 END