Google
 

Trailing-Edge - PDP-10 Archives - walsh_goodStuff_1600 - more-games/vt100.b20
There is 1 other file named vt100.b20 in the archive. Click here to see a list.
00004 print ""
00005 gosub 795
00010 print "NO ATTRIBUTES   $[0m"
00015 gosub 795
00020 print "BOLD   $[1m"
00025 gosub 795
00030 print "UNDERLINE   $[4m"
00035 gosub 795
00040 print "BOLD & UNDERLINE"
00045 gosub 795
00050 print "BLINK   $[5m"
00055 gosub 795
00060 print "BLINK & BOLD"
00065 gosub 795
00070 print "BLINK & UNDERLINE"
00075 gosub 795
00080 PRINT "BLINK, BOLD & UNDERLINE"
00085 gosub 795
00090 print "REVERSE VIDEO   $[7m"
00095 gosub 795
00100 print "REVERSE VIDEO & BOLD"
00105 gosub 795
00110 print "REVERSE VIDEO & UNDERLINE"
00115 gosub 795
00120 print "REVERSE VIDEO, BOLD & UNDERLINE"
00125 gosub 795
00130 print "REVERSE VIDEO & BLINK"
00135 gosub 795
00140 print "REVERSE VIDEO, BLINK & BOLD"
00145 gosub 795
00150 print "REVERSE VIDEO, BLINK & UNDERLINE"
00155 gosub 795
00160 print "REVERSE 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 "80 COLUMN MODE FOLLOWS  $[?3l"
00255 GOSUB 795
00260 PRINT "[?3l#8"
00265 gosub 795
00270 print "SPECIAL 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 ""
00805 return
00990 print ""
00999 end