Google
 
Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/com/vt100.com
There are 3 other files named vt100.com in the archive. Click here to see a list.
$! VT*100 - VT100 command control
$!
$ ON WARNING THEN GOTO warning
$ GOTO 'p1'
$ warning:
$ WRITE SYS$OUTPUT " No such mode supported"
$ EXIT
$!
$ big:	TYPE SYS$INPUT
#3
#4

$ EXIT
$!
$ blink:	TYPE SYS$INPUT

$ EXIT
$!
$ bold:			WRITE SYS$OUTPUT ""
$ EXIT
$!
$ clr:
$ clear:			TYPE SYS$INPUT


$ EXIT
$!
$ c80:			SET TERM/WID=80
$ EXIT
$!
$ c132:			SET TERM/WID=140
$ EXIT
$!
$ double:		TYPE SYS$INPUT
#6

$ EXIT
$!
$ gi:			WRITE SYS$OUTPUT "(0"
$ EXIT
$!
$ go:			WRITE SYS$OUTPUT "(B"
$ EXIT
$!
$ home:			WRITE SYS$OUTPUT ""
$ EXIT
$!
$ jump:			WRITE SYS$OUTPUT "[?4l"
$ EXIT
$!
$ led:			WRITE SYS$OUTPUT "[''p2'''p3'''p4'q"
$ EXIT
$!
$ normal:		WRITE SYS$OUTPUT ""
$ EXIT
$!
$!
$ message:		TYPE SYS$INPUT


#3#4#3#4#3#4
#3#4#3#4#3#4
#3#4#3#4#3#4
#3#4#3#4#3#3








I've gone HOME for the day
I've gone HOME for the day




                Dave
                Dave
$ EXIT
$!
$ reset:		WRITE SYS$OUTPUT "c"
$ EXIT
$!
$ rebold:		TYPE SYS$INPUT


$ EXIT
$ reverse:		WRITE SYS$OUTPUT ""
$ EXIT
$!
$ scr:
$ scroll:
$ IF "''p2'" .eqs. "" THEN p2 = 10
$ IF "''p3'" .eqs. "" THEN p3 = 24
$ IF (p2 .le. p3)  .and. (p3 .le. 24) .and. (p2 .ge. 0)    THEN goto legal
$ write sys$output "Illegal range"
$ EXIT
$ legal:
$ write sys$output "[''p2';''p3'r"
$ write sys$output "[''p3';1H"
$ EXIT
$!
$ smooth:		WRITE SYS$OUTPUT "[?4h"
$ EXIT
$!
$ test:			WRITE SYS$OUTPUT ""
$ EXIT
$!
$ under:		WRITE SYS$OUTPUT ""
$ EXIT
$!
$ vt52:			TYPE SYS$INPUT
[?2l
H
J
$			SET TERM/VT52
$ EXIT
$!
$ vt100:		TYPE SYS$INPUT
<



$			SET TERM/VT100
$ exit
$!
$ wide:			TYPE SYS$INPUT


#6#6#6#6#6#6
#6#6#6#6#6#6
#6#6#6#6#6#6
#6#6#6#6#6#6

$ EXIT