*
**-- PROGRAM TO PROGRAM TERMINAL FUNCTION KEYS
* Item last updated: 16:36:44 16 FEB 1987 MIS.SNA.PROG.ATM DEVEL 3
*
  DIM F(32), MSG(32)
  ESC = CHAR(27)
  NO.OF.FUNCTIONS = 10
  F(1) = 'WHO' : CHAR(13)
  MSG(1) = 'WHO'
  F(2) = 'SPL' : CHAR(13)
  MSG(2) = 'SPL'
  F(3) = CHAR(12):':':CHAR(24)
  MSG(3) = 'CS'
  F(4) = 'WTIME':CHAR(13)
  MSG(4) = 'WTIME'
  F(5) = ESC : '`:'  ; * 80 COLUMN SCREEN
  MSG(5) = '80 COL'
  F(6) = ESC : '`;'  ; * 132 COLUMN SCREEN
  MSG(6) = '132 COL'
  F(7) = ESC : 'u'   ; * MONITOR MODE OFF
  MSG(7) = 'MNTR OFF'
  F(8) = ESC : 'U'   ; * MONITOR MODE ON
  MSG(8) = 'MNTR ON'
  F(9) = ESC : 'A14'   ; * STATUS LINE ON
  MSG(9) = 'STAT ON'
  F(10) = ESC : 'A11'  ; * STATUS LINE OFF
  MSG(10) = 'STAT OFF'
  FOR I = 1 TO NO.OF.FUNCTIONS
    PRINT ESC : 'z' : CHAR(I+63) : F(I) : CHAR(24) : CHAR(127):
    IF I < 9 THEN
       PRINT ESC : 'z' : CHAR(47+I) : MSG(I) : CHAR(13):
    END
  NEXT I
  PRINT ESC : 'A14':
* PRINT 'Terminal now programmed'
END