!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