ine */ "" , /* null entry for hardcopy tt's */ "\033[24;40H" , /* ansi */ "\033[24;40H" , /* vt100 */ "\033[24;40H" , /* vt220 */ "" /* some future type ? */ } ; static char *s_c60[] ={ /* move to col 60 of last line */ "" , /* null entry for hardcopy tt's */ "\033[24;60H" , /* ansi */ "\033[24;60H" , /* vt100 */ "\033[24;60H" , /* vt220 */ "" /* some future type ? */ } ; static char *s_kill[] ={ /* delete to the end of line */ "" , /* null entry for hardcopy ttys */ "\033[K" , /* ansi */ "\033[K" , /* vt100 */ "\033[K" , /* vt220 */ "" /* some future type ? */ } ; static char *s_left[] ={ /* move left one position */ "" , /* null entry for hardcopy ttys */ "\033[D" , /* ansi */ "\033[D" , /* vt100 */ "\033[D" , /* vt220 */ "" /* some future type ? */ } ; static char *s_right[] ={ /* move right one position */ "" , /* null entry for hardcopy ttys */ "\033[C" , /* ansi */ "\033[C" , /* vt100 */ "\033[C" , /* vt220 */ "" /* some future type ? */ } ; static char *s_next[] ={ /* next line in display */ "" , /* null entry for hardcopy ttys */ "\015\012" , /* ansi */ "\015\012\012" , /* vt100 */ "\015\012\012" , /* vt220 */ "" /* some future type ? */ } ; /* special things for the terminal */ char *ff_prt[] ={ /* what to print for a form feed*/ "" , /* null entry for hardcopy ttys */ "\033[10m^\033[11m", /* ansi */ "\033[7m\033(0c\033(B\033[0m", /* vt100 (a pain) */ "\033[7m\033(0c\033(B\033[0m", /* vt220 (a pain) */ "" /* some future type ? */ } ; static char *rv_on[] ={ /* switch to reverse video */ "" , /* null entry for hardcopy ttys */ "\033[7m" , /* ansi */ "\033[7m" , /* vt100 */ "\033[7m" , /* vt220 */ "" /* some future type ? */ } ; static char *rv_off[] ={ /* disable reverse video */ "" , /* null entry for hardcopy ttys */ "\033[0m" , /* ansi */ "\033[0m" , /* vt100 */ "\033[0m" , /* vt220 */ "" /* some future type ? */ } ; static char *kp_on[] ={ /* turn keypad mode on (vt100's)*/ "" , /* null entry for hardcopy ttys */ "" , /* ansi */ "\033=" , /* vt100 */ "\033=" , /* vt220 */ "" /* some future type ? */ } ; static char *kp_off[] ={ /* turn keypad mode off (vt100) */ "" , /* null entry for hardcopy ttys */ "" , /* ansi */ "\033>" , /* vt100 */ "\033>" , /* vt220 */ "" /* some future type ? */ } ; sclear() /* clear entire screen */ { home() ; skill() ; } fclear() { putbin(s_fclear[gterm()],0) ; } ceol24() /* clear bottom line in display */ { if ( gterm() == _tty ) then putbin("\015\012",0) ; else { movel24() ; skill() ; movel24() ; } } movel24() /* move to start of bottom line */ { putbin(s_l24[gterm()],0) ; } lreverse() { putbin(s_ri[gterm()],0) ; } lnext() /* next line operation */ { putbin(s_next[gterm()],0) ; } skill() /* clear to the end of display */ { putbin(s_clear[gterm()],0) ; } lkill() /* erase to the end of the line */ { putbin(s_kill[gterm()],0) ; } cursup() /* up one line in display */ { putbin(s_up[gterm()],0) ; } cursdown() /* down one line in the display */ { putbin(s_down[gterm()],0) ; } cursright() /* over to the right one please */ { putbin(s_right[gterm()],0) ; } cursleft() /* over to the left one please */ { putbin(s_left[gterm()],0) ; } home() /* to the home position now */ { putbin(s_home[gterm()],0) ; } ffprint() /* what to print for a formfeed */ { putbin(ff_prt[gterm()],0) ; } rvon() /* turn on reverse video ? */ { putbin(rv_on[gterm()],0) ; } rvoff() /* turn off reverse video ? */ { putbin(rv_off[gterm()],0) ; } kpapplication() /* turn keypad application mode on */ { putbin(kp_SCDEF C [.050036]SCDEF .C [.050036]    X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@ggh<i|o<m<4p<p<k|Zn<l fr rwx<x<x<x޺<w@]@@fjnr]Ze@@|> | |v<H|  |  |xz|  |zt f r   < &^ @&@'*/V,"?Lh:hmBmz|z{x`y~|fN|@@|@͂|@ ݃ƃ<ns<|Ŏ |️|ep|u|-@率|<ᄇ2ֻr||ZRM | ntB|xyvZw|J=|R>|J? nnaa|bddfon[gterm()],0) ; } kpnormal() /* put keypad back to normal mode */ { putbin(kp_off[gterm()],0) ; } set132col() { putbin(s_132[gterm()],0) ; } set80col() { putbin(s_80[gterm()],0) ; } char cmdleadin() { return( _cmdleadin[gterm()] ) ; }