SCR Library
===========

Basic
-----

call scr_put_lin(txt) ! write line at current position
                      ! txt is readonly string by descriptor

call scr_put_txt(row,col,txt,attr) ! write text
                                   ! row and col are readonly longword by reference
                                   ! txt is readonly string by descriptor
                                   ! attr is readonly longword by reference (0=normal, 1=bold, 2=blink, 4=reverse)

call scr_put_bigtxt(row,col,txt,attr) ! write double size text
                                      ! row and col are readonly longword by reference
                                      ! txt is readonly string by descriptor
                                      ! attr is readonly longword by reference (0=normal, 1=bold, 2=blink, 4=reverse)

call scr_get_key(row,col,key) ! read keystroke
                              ! row and col are readonly longword by reference
                              ! key is writeonly longword by reference (0-255 DECMCS, 301-304 arrows, 401-406 E1-E6, 501-515 F6-F20, 601-610 KP0-KP10, 701-708 PF1-PF4 and 4 other)

call scr_get_lin(lin,linlen,pmt) ! read line at current position
                                 ! lin is writeonly string by descriptor
                                 ! linlen is writeonly longword by reference                                
                                 ! pmt is readonly string by descriptor

call scr_get_pw(lin,linlen,pmt) ! read line at current position without echo
                                ! lin is writeonly string by descriptor
                                ! linlen is writeonly longword by reference
                                ! pmt is readonly string by descriptor

call scr_get_txt(row,col,lin,linlen,pmt) ! read text
                                         ! row and col are readonly longword by reference
                                         ! linlin is writeonly string by descriptor
                                         ! actlen is writeonly longword by reference
                                         ! pmt is readonly string by descriptor

call scr_scroll(nlin) ! scroll number of lines
                      ! nlin readonly longword by reference

call scr_setscroll(first,last) ! set scrolling region lines
                               ! first and last are readonly longword by reference

call scr_del_lin(row) ! delete line
                      ! row is readonly longword by reference

call scr_flush() ! flush

call scr_exit() ! done

Drawing
-------

call scr_hor_lin(row,col,len) ! draw horizontal line
                              ! row, col and len are readonly longword by reference

call scr_ver_lin(row,col,len) ! draw vertical line
                              ! row, col and len are readonly longword by reference

call scr_box(row,col,h,w) ! draw box
                          ! row, col, h and w are readonly longword by reference

State
-----

call scr_clr() ! clear screen

call scr_wid_80() ! set width 80

call scr_wid_132() ! set width 132

call scr_cur_on() ! cursor on

call scr_cur_off() ! cursor off

call scr_app() ! set application keypad

call scr_asciifont() ! load standard font

call scr_softfont1() ! load soft font #1 [requires a realt VT300 terminal or a damn good emulator]

call scr_softfont2() ! load soft font #2 [requires a realt VT300 terminal or a damn good emulator]

call scr_notrap() ! don't trap unsolicted messages

call scr_trap(handl) ! trap unsolicted messages
                     ! handl is routine by reference

Misc
----

= scr_hit() ! test if key has been hit
            ! return longword (-1=yes, 0=no)

call scr_where(row,col) ! get current position
                        ! row and col are writeonly longword by descriptor

call scr_get_msg(msg,msglen,star) ! get catched unsolicited message
                                  ! msg writeonly string by descriptor
                                  ! msglen writeonly longword by referece
                                  ! stat writeonly longword by reference (-1=ok, 0=no message)

call scr_devtyp(typ) ! get terminal type
                     ! typ is writeonly longword by reference (0=unknown, 1=vt100, 2=vt200, 3=vt300, 4=vt400)

call scr_bel() ! beep

call scr_cancel() ! cancel outstanding operation