🚀 go-pugleaf

Although some people hate the old 4025's with a passion, I actually
rather liked it.  I did have some problems - mainly that you can't
do direct cursor movements in the "normal" (monitor) viewing area,
but I really liked the scroll memory.  Also, if you have the
graphics memory option it will do 4025 graphics, as well as standard
Plot-10 (4010/4014) style graphics.

Here's the termcap I used to use.  One is for a vanilla 4025, another
if you have a 4025a and yet another if you have a 4025a with the
Mod VT, which makes it look like a VT-100 or VT-52.  I had the
numeric keypad programmed so that the 2 4 6 and 8 keys move the
cursor and the 1 and 7 keys move forward and back a page in vi and
the 3 and 9 keys move the internal scroll memory forward and back
a half screen full (I think - it's been awhile since I used one).

The initialization files are below the termcap stuff - this sets the
command character to control-underscore (the default '!' is particularly
bad on Unix systems).
-------------------------------------------
X8|tek4025a|4025a|tektronix 4025a:\
        :am:bs:da:db:pt:li#34:co#80:cl=^_dli100\r\n\n:up=^K:nd=rig\r:\
        :cd=^_dli50\r:al=^Kili\r:dl=dli\r:\
        :dc=^_dch\r:im=ich\r:ei=^F\n^K:nl=^F\n:\
	:if=/usr/local/lib/p4025a:\
        :vs=^_expand m1\r:ve=^_expand m2\r:
X5|4025|tek4025|tektronix 4025:\
        :am:bs:da:db:pt:li#34:co#80:cl=^_dli100\r\n\n:up=^K:nd=^_rig\r:\
        :cd=^_dli50\r:al=^K^_ili\r:dl=^_dli\r:\
	:if=/usr/local/lib/p4024:\
        :ve=^_dliu100\r\n\n:dc=^_dch\r:im=^_ich\r:ei=^F\n^K:nl=^F\n:\
        :ti=^_lea p2 /j/^_lea p4 /h/^_lea p1 06^_lea p6 /l/^_lea p8 /k/^_lea p7 02^_lea pt /ZZ/\r:\
        :te=^_lea p2^_lea p4^_lea p6^_lea p8^_lea p1^_lea p7^_lea pt /next/ 13\r:
# put 4025a in ansi mode (^_ansi) first
X9|4025vt|4025a-modvt|tektronix 4025a w/mod vt:\
        :co#80:li#24:as=\E(0:ae=\E(B:cs=\E[%i%2;%2r:al=\E[L:dl=\E[M:\
        :aw:bs:cl=50\E[;H\E[2J:cm=\E[%i%2;%2H:nd=\E[C:up=\E[A:\
        :ce=3\E[K:cd=50\E[J:so=\E[7m:se=\E[m:us=\E[4m:ue=\E[m:\
        :ti=\E[?1l\E[?7h\E[?8h\E=:ks=\E=:ke=\E>:\
        :ku=\EOx:kd=\EOr:kr=\EOv:kl=\EOt:kh=\EOu:pt:sr=5\EM:\
        :k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:k5=\EOM:k6=\EOq:k7=\EOs:k8=\EOw:k9=\EOy:
Xw|4025rogue|25r:am:cl=^_era w\r:bs:up=^K:nl=^F\n:cm=^_jum%i%d,%d\r:co#80:li#33:\
        :ti=^_wor33h\r:te=^_wor0\r:

#---------------------------------------------
initialization files:
(change the '^_' character pair to a real control-underscore character
 in both files)
====p4025=====
!com 31
^_sto 9 17 25 33 41 49 57 65 73
^_lea p9 161 161 161 161 161 161 161 161 161 161 161 161 161 161 161 161 161
^_lea p3 162 162 162 162 162 162 162 162 162 162 162 162 162 162 162 162 162
^_lea 170 168 137 161 166 166
^_lea 174 04
4025 programmed

====p4025a=====
programming 4025
!com 31 
^_sto 9 17 25 33 41 49 57 65 73
^_lea M1  31"lea p0 ''"   31"lea p1 06"   31"lea p2 'j'"                                  31"lea p4 'h'"  31"lea p5 'H'"  31"lea p6 'l'"                                  31"lea p7 02"   31"lea p8 'k'"  31"lea pt 'ZZ'"                                 31"lea f1 '$'"  31"lea f2 'd$'" 31"lea f3 ')'"                                  31"lea f4 'd)'" 31"lea 170"     31"lea 174 04"  13
^_lea M2  31"lea p0"      31"lea p1"      31"lea p2"                                      31"lea p4"      31"lea p5"      31"lea p6"                                      31"lea p7"      31"lea p8"                                                      31"lea pt 'n' 13"               31"lea f1"                                      31"lea f2"      31"lea f3"      31"lea f4"   13
^_lea M3  31"lea p9 161 161 161 161 161 161 161 161 161 161 161 161 161 161 161 161 161"  31"lea p3 162 162 162 162 162 162 162 162 162 162 162 162 162 162 162 162 162"  31"lea 170 168 137 161 166 166" 31"lea 174"  13
^_exp M2 ^_exp M3