!Display name of terminal driver and its attributes

!       Program written by George D. Peavy for Frontiers, Inc
!       Program uses stand AMOS/L XCALL TRMCHR
!       Program also uses XCALL TRMTYP  [100,52] on AMUS Network

       MAP1 STATUS,F
       MAP1 TRMCHR'MAP
          MAP2 TRMCHR'FLAGS,F,6
          MAP2 TRMCHR'ROWS,F,6
          MAP2 TRMCHR'COLS,F,6
          MAP2 TRMCHR'COLORS,F,6
          MAP2 TRMCHR'FORE,F,6
          MAP2 TRMCHR'BACK,F,6
          MAP2 TRMCHR'WINROW,F,6
          MAP2 TRMCHR'WINCOL,F,6
       MAP1 MESSAGES(23),S,32
       MAP1 ENTRY,S,6

       FOR I=1 TO 23 : READ MESSAGES(I) : NEXT I

       XCALL TRMTYP, ENTRY

       ?tab(-1,0)
       ?
       ? "Terminal type : ";ENTRY
!       ? "======================="
       ?
       XCALL TRMCHR,STATUS,TRMCHR'MAP

  ?"Rows = "; TRMCHR'ROWS
  ?"Cols = "; TRMCHR'COLS
!       ? "======================="
       ?

   FOR I=0 TO 22
       IF 2**I AND TRMCHR'FLAGS THEN ?MESSAGES(I+1)
   NEXT I
!       ? "======================="
       ?
       DATA Alternate page support,Block fill support
       DATA Column insert/delete support,Multiple color support
       DATA Function key translation support,Is an Alpha Micro terminal
       DATA Has a status line,Horizontal split screen support
       DATA Erase to end of line support,Erase to end of screen support
       DATA Underscore attributes support,Blinking support
       DATA Dim video support,Reverse video support
       DATA Character insert/delete support,Line insert/delete support
       DATA Local printer support,Settable 80/132 column support
       DATA Selectable smooth scroll support,Has box drawing commands
       DATA Has "mode" type attributes,Has AM-70 style color commands
       DATA Has "no space" attribute command