Trailing-Edge
-
PDP-10 Archives
-
walsh_goodStuff_1600
-
g/vt100.b20
There is 1 other file named vt100.b20 in the archive. Click here to see a list.
00004 print "[2J[H"
00005 gosub 795
00010 print "[mNO ATTRIBUTES $[0m"
00015 gosub 795
00020 print "[1mBOLD $[1m"
00025 gosub 795
00030 print "[0m[4mUNDERLINE $[4m"
00035 gosub 795
00040 print "[0m[1m[4mBOLD & UNDERLINE"
00045 gosub 795
00050 print "[0m[5mBLINK $[5m"
00055 gosub 795
00060 print "[0m[1m[5mBLINK & BOLD"
00065 gosub 795
00070 print "[0m[4m[5mBLINK & UNDERLINE"
00075 gosub 795
00080 PRINT "[0m[1m[4m[5mBLINK, BOLD & UNDERLINE"
00085 gosub 795
00090 print "[0m[7mREVERSE VIDEO $[7m"
00095 gosub 795
00100 print "[0m[7m[1mREVERSE VIDEO & BOLD"
00105 gosub 795
00110 print "[0m[7m[4mREVERSE VIDEO & UNDERLINE"
00115 gosub 795
00120 print "[0m[7m[1m[4mREVERSE VIDEO, BOLD & UNDERLINE"
00125 gosub 795
00130 print "[0m[7m[5mREVERSE VIDEO & BLINK"
00135 gosub 795
00140 print "[0m[7m[5m[1mREVERSE VIDEO, BLINK & BOLD"
00145 gosub 795
00150 print "[0m[7m[5m[4mREVERSE VIDEO, BLINK & UNDERLINE"
00155 gosub 795
00160 print "[0m[7m[5m[1m[4mREVERSE VIDEO, BLINK, BOLD & UNDERLINE"
00165 gosub 795
00170 print "SCREEN REVERSE $[?5h[?5h"
00175 gosub 795
00180 print "SCREEN NORMAL $[?5l[?5l"
00185 gosub 795
00190 print "#3DOUBLE HEIGHT/DOUBLE WIDTH $#3TOP/$#4BOT"
00200 PRINT "#4DOUBLE HEIGHT/DOUBLE WIDTH $#3TOP/$#4BOT"
00205 gosub 795
00210 PRINT "#6DOUBLE WIDTH/SINGLE HEIGHT $#6"
00215 gosub 795
00220 PRINT "#5NORMAL HEIGHT/NORMAL WIDTH $#5"
00225 gosub 795
00230 print "132 COLUMN MODE FOLLOWS $[?3h"
00235 gosub 795
00240 print "[?3h#8"
00245 gosub 795
00250 print "[2J[H80 COLUMN MODE FOLLOWS $[?3l"
00255 GOSUB 795
00260 PRINT "[?3l#8"
00265 gosub 795
00270 print "[2J[HSPECIAL CHARACTER AND LINE DRAWING SET FOLLOWS $(0"
00275 GOSUB 795
00280 print "(0`abcdefghijklmnopqrstuvwxyz{|}~"
00285 print "(B`abcdefghijklmnopqrstuvwxyz{|}~"
00290 gosub 795
00790 goto 990
00795 for x=1 to 370000
00797 next x
00800 print "[0m"
00805 return
00990 print "[0m"
00999 end