Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0139/teco20.tec
There is 1 other file named teco20.tec in the archive. Click here to see a list.
@^U([:W])`[1[2 U1U2
Q1"E !Set terminal type!
     Q2"E :M(%VT52) '    (Q2-2)"E :M(%VT100)'
     (Q2-4)"E :M(%ANSI)' (Q2-6)"E :M(%VT05) '
     (Q2-1)"E :M(%VT61)'
     @O"END"
   '
(Q1-1)"E Q2,^O2012E* @O"END" '!Width!
!2:w is length, but don't tell monitor or it will pause us!
(Q1-3)"E !Display all! Q2"N :M(%DPYA)| :M(%DPYN)' @O"END" '
!4:W is mark, but i don't know what to do with it!
!5:W is hold mode, but I don't have to do anything with it!
!6:w is F0 (start of window), but I don't have to do anything with it!
!END! ]2]1`

!*******************************************************!

@^U(%VT52N)`
80,1:W
24,2:W
0,17:W
14768144384,21:W
17213423616,22:W
4294967296,23:W
14810515968,24:W
14793738752,25:W
17179869184,26:W
0,27:W
14810087424,28:W
14805893120,29:W
14797504512,30:W
17179869184,31:W
0,32:W
0,6ET
[(%VT52N)](%VT52)
[(%VT10N)](%VT100)
[(%ANSIN)](%ANSI)
[(%VT52D)](%DPYA)
0:U(%DPYN)
@^U(%EOL)/K/
@^U(%EOS)/J/
@^U(%CAD)/Y/
`

!*******************************************************!

@^U(%VT52D)`
80,1:W
24,2:W
0,17:W
14768144384,21:W
14792235918,22:W
4294967296,23:W
14810990332,24:W
14793738752,25:W
14792530830,26:W
0,27:W
14810087424,28:W
14805893120,29:W
14797504512,30:W
14792563598,31:W
0,32:W
0,6ET
[(%VT52D)](%VT52)
[(%VT10D)](%VT100)
[(%ANSID)](%ANSI)
[(%VT52N)](%DPYN)
0:U(%DPYA)
@^U(%EOL)/K/
@^U(%EOS)/J/
@^U(%CAD)/Y/
`

!*******************************************************!

@^U(%VT61)`
80,1:W
24,2:W
1,17:W
14768144384,21:W
14792235918,22:W
4294967296,23:W
14810990332,24:W
14793738752,25:W
14792530830,26:W
0,27:W
14810087424,28:W
14805893120,29:W
14797504512,30:W
14792235918,31:W
0,32:W
0,6ET
@^U(%EOL)/K/
@^U(%EOS)/J/
@^U(%CAD)/Y/
`

!*******************************************************!

@^U(%VT05)`
72,1:W
20,2:W
0,17:W
13958643712,21:W
17213423616,22:W
0,23:W
16160980992,24:W
0,25:W
17179869184,26:W
0,27:W
16106127360,28:W
16642998272,29:W
15569256448,30:W
12884901888,31:W
0,32:W
4,2ET
@^U(%EOL)//
@^U(%EOS)//
@^U(%CAD)//
0:U(%DPYA)
0:U(%DPYN)
`

!*******************************************************!

@^U([W])`[(%INVAL)U(%INVAL)
[()](%BUFF)
Q(%INVAL)"G (2:W-Q(%INVAL))"G $ Q(%INVAL)U(%LINB4)'@O"Refresh Window"|
Q(%INVAL)+1"L [() F0:J 0,0FPM(%LPOS) (1-Q(%INVAL))FFJ F0,.T ]()''
[(%WIN)](%WINO)0U(%WINO)
0,8ET0,64ED
F0:J"U@O\Refresh Window\'
(18:W-16)"G@O\Refresh Window\'18:WL
M(%SETWB)
FZ-F0"GQ(%BUFF)J$((.-F0)#(FZ-.))+1"G@O\Build Window Buffer\''
!Refresh Window!Q(%BUFF)J$M(%WI)$0,18:W
!Build Window Buffer!
!Enter old window context![(%WINO)]()
!Delete lines that were scrolled off!$0J$18:WK$0,18:W
[(%BUFF)]()!Back to real buffer!
!Update window!M(%WU)$Q(%BUFF)J$0,0FP$F0,.FF$M(%LPOS)
FHX(%WIN)
64,0ED
](%INVAL)`

!*******************************************************!

@^U(%WU)`
F0J0,0FP
<Q(%WINO)FQ(%WINO)U(%WINO)
((FZ-.)-1)"L(:Q(%WINO)-Q(%WINO))"G
  M(%LPOS)
  ::G(%EOS)'
 0;'
[()[(%WINO)]()
L
.U(%WINO)
]()
M(%LPOS)
::G(%EOL)(FX&511)FX$T
L
!NOTEOF!>`

!*******************************************************!

@^U(%LPOS)`
::G(%CAD)
(FY+32)^T
(FX+32)^T
FX&^O777FX
`

!*******************************************************!

@^U(%EOS)`J`

!*******************************************************!

@^U(%EOL)`K`

!*******************************************************!

@^U(%WI)`
0U(%WINO) 0,0X(%WINO)
[. .U.$-Q(%LINB4)L $.F0 ].
M(%SETWB)
^L
`

!*******************************************************!

@^U(%SETWB)`
.F0
0,0FP$(2:W-2)FFFZ
`

!*******************************************************!

@^U(%CAD)`Y`

!*******************************************************!

@^U(%LINEC)`U(%INVAL)
::G(%CAD)
Q(%INVAL)+32^T
32^T
::G(%EOL)
13^T
0FX
Q(%INVAL)FY
`

!*******************************************************!

[(%VT52N)](%VT52)
[(%VT52N)](%VT10N)
[(%VT52N)](%VT100)
0::M([W])
::M(%WU)
::M(%WI)
0::M(%LINEC)
::M(%LPOS)
::M(%VT61)
::M(%VT52D)
::M(%VT52N)
::M(%SETWB)
0,0:W