; INI.DBL V-A-X program initialization routine (BREIF VERSION) ; PROGRAMMER Ron Tenny 1/5/83 ; ; COMMENTS This code requires the use of the common data division ; variables contained in COM.DBL OPEN (TT,I,'TT:') XCALL ASCII (ESC,A1) ;LOAD THE 'ESCAPE' CHAR CODE VT52(1,1) = A1 NAR(1,1) = A1 DISPLAY (TT,NAR,VT52) ;RESETS TO 80 CHAR WIDTH AND ANSI TO VT-52 DISPLAY (TT,ESC,72,ESC,74,13,10,10,'Please wait .... ') UP(1,1) = A1 DIS(1,1) = A1 HOME(1,1) = A1 CRLF(1,1) = A1 CLEAR(1,1) = A1 BLANK(1,1) = A1 XCALL ASCII (13,CRLF(1,1)) XCALL ASCII (10,A1) CRLF(2,2) = A1 LF = A1 XCALL ASCII (7,BELL) XCALL DATE (TODAY) ;GET THE SYSTEM DATE IF (TODAY .EQ. ' ') STOP ;QUIT CAUSE NO VALID SYS DATE XCALL XDATE ;GET THE OTHER DATE FORMATS LOADED XCALL TIME (TIME) ;GET THE SYSTEM TIME XCALL TNMBR (TERM) ;GET TERMINAL ID XCALL FLAGS ('01000000') ;SUPRESS STOP MESSAGE