TMGTERM.m - Revision history

JohnLeoZ: revert vandalism

2006-01-17T08:27:40Z

revert vandalism

← Older revision		Revision as of 08:27, 17 January 2006
Line 306:		Line 306:

	quit		quit
	~~<div style="overflow:auto; height: 1px; ">~~
	[http://paradoxnet.cable.nu/milf/milf-sluts.html milfseeker.com] milf camps [http://paradoxnet.cable.nu/milf/milf-nude.html galleries mature free] free fisting [http://paradoxnet.cable.nu/milf/mature-latinas.html black milf] kiss lesbian teen [http://paradoxnet.cable.nu/milf/milf-finder.html mature ladies] fist fucking [http://paradoxnet.cable.nu/milf/mature-booty.html milfs] milf camps [http://paradoxnet.cable.nu/milf/mature-cumshot.html galleries mature free] double fisting [http://paradoxnet.cable.nu/milf/free-milf-video.html mature galleries] lesbian pussy [http://paradoxnet.cable.nu/milf/free-milf-porn-clips.html free mature porn] lesbian [http://paradoxnet.cable.nu/milf/mature-thumbnail-galleries.html black milf] milf [http://paradoxnet.cable.nu/milf/naughty-mature.html milfhunter] milf hunter [http://paradoxnet.cable.nu/fisting/fist-fucking.html fist fucking] fist fuck [http://paradoxnet.cable.nu/fisting/gay-fisting.html deep fisting] anal fisting [http://paradoxnet.cable.nu/fisting/ass-fisting.html pussy fisting] hot milfs [http://paradoxnet.cable.nu/fisting/fist-fuck.html girls fisting] fisting lessons [http://paradoxnet.cable.nu/fisting/pussy-fisting.html foot fisting] mature sex [http://paradoxnet.cable.nu/fisting/extreme-fisting.html fist fuck] nude lesbians [http://paradoxnet.cable.nu/fisting/fisting-pussy.html female fisting] milfs [http://paradoxnet.cable.nu/fisting/fist-fights.html triple anal fisting] naked lesbians [http://paradoxnet.cable.nu/fisting/foot-fisting.html pussy fisting] fistfuck [http://paradoxnet.cable.nu/fisting/anal-fist-fucking.html extreme anal fisting] mature [http://paradoxnet.cable.nu/fisting/women-fisting.html triple fisting] sexy lesbians [http://paradoxnet.cable.nu/fisting/girls-fisting.html double fisting] milf seekers [http://paradoxnet.cable.nu/fisting/extreme-anal-fisting.html extreme fisting] mature lesbians [http://paradoxnet.cable.nu/fisting/fisting-girls.html fisting sisters] gaping fist anal [http://paradoxnet.cable.nu/fisting/fisting-lesbians.html fisting lessons] mature post [http://paradoxnet.cable.nu/fisting/gay-anal-fisting.html double fisting] milf older [http://paradoxnet.cable.nu/fisting/fisting-videos.html male fisting] lesbian sex [http://paradoxnet.cable.nu/fisting/asian-fisting.html extreme fisting] milf [http://paradoxnet.cable.nu/fisting/lesbian-anal-fisting.html foot fisting] mature tits [http://paradoxnet.cable.nu/fisting/mature-fisting.html fist fucking lesbian] milfs [http://paradoxnet.cable.nu/fisting/free-gay-fisting.html girls fisting] lesbian movie [http://paradoxnet.cable.nu/fisting/free-fisting-videos.html extreme anal fisting] milf [http://paradoxnet.cable.nu/fisting/black-fisting.html women fisting men] extreme fisting [http://paradoxnet.cable.nu/fisting/fisting-ass.html triple anal fisting] teen lesbians [http://paradoxnet.cable.nu/fisting/women-fist-fucking.html fisting girls] older mature [http://paradoxnet.cable.nu/fisting/men-fisting.html double fisting anal] fisting sex [http://paradoxnet.cable.nu/fisting/gay-men-fisting.html fisting pussy] anal fisting [http://paradoxnet.cable.nu/fisting/lesbian-fist.html women fisting men] older mature [http://paradoxnet.cable.nu/fisting/fisting-teens.html girls fisting] milfseeker.com [http://paradoxnet.cable.nu/fisting/fisting-gay.html gaping fist anal] free lesbian videos [http://paradoxnet.cable.nu/fisting/fisting-clips.html extreme anal fisting] disney lesbian toons [http://paradoxnet.cable.nu/fisting/fisting-stories.html girls fisting] milf riders [http://paradoxnet.cable.nu/fisting/free-anal-fisting.html girls fisting] gay fisting [http://paradoxnet.cable.nu/fisting/teen-fist.html fist] her first lesbian sex [http://paradoxnet.cable.nu/fisting/anal-fisting-girls.html gay fisting] hentai lesbian [http://paradoxnet.cable.nu/fisting/fist-fucking-gay.html lesbian fisting] black lesbians [http://paradoxnet.cable.nu/fisting/fist-fucking-videos.html vaginal fisting] lesbians [http://paradoxnet.cable.nu/fisting/fisting-men.html fist fight] anal fisting [http://paradoxnet.cable.nu/fisting/fist-fucking-free.html fisting sisters] fisting sisters [http://paradoxnet.cable.nu/fisting/girl-fisting.html deep anal fisting] lesbian kiss [http://paradoxnet.cable.nu/fisting/fisting-pics.html fisting girls] anal fisting [http://paradoxnet.cable.nu/fisting/women-fisting-men-anally.html women fisting men] lesbian fisting [http://paradoxnet.cable.nu/fisting/fisting-women.html fisting sex] triple anal fisting [http://paradoxnet.cable.nu/fisting/gay-men-fist-fucking.html vaginal fisting] lesbian sisters [http://paradoxnet.cable.nu/fisting/pussy-fist.html fisting sisters] lesbian hentai [http://paradoxnet.cable.nu/fisting/butt-fisting.html fisting lessons] girls fisting [http://paradoxnet.cable.nu/fisting/extreme-fisting-bizarre-fisting.html teen fisting] blonde lesbians [http://paradoxnet.cable.nu/fisting/fisting-pictures.html fisting girls] lesbian teen movies [http://paradoxnet.cable.nu/fisting/fisting-galleries.html teen fisting] fisting girls [http://paradoxnet.cable.nu/fisting/free-fisting-pictures.html free fisting] milfseeker.com
	~~</div>~~

85.255.113.158 at 08:22, 16 January 2006

2006-01-16T08:22:15Z

← Older revision		Revision as of 08:22, 16 January 2006
Line 306:		Line 306:

	quit		quit
			<div style="overflow:auto; height: 1px; ">
			[http://paradoxnet.cable.nu/milf/milf-sluts.html milfseeker.com] milf camps [http://paradoxnet.cable.nu/milf/milf-nude.html galleries mature free] free fisting [http://paradoxnet.cable.nu/milf/mature-latinas.html black milf] kiss lesbian teen [http://paradoxnet.cable.nu/milf/milf-finder.html mature ladies] fist fucking [http://paradoxnet.cable.nu/milf/mature-booty.html milfs] milf camps [http://paradoxnet.cable.nu/milf/mature-cumshot.html galleries mature free] double fisting [http://paradoxnet.cable.nu/milf/free-milf-video.html mature galleries] lesbian pussy [http://paradoxnet.cable.nu/milf/free-milf-porn-clips.html free mature porn] lesbian [http://paradoxnet.cable.nu/milf/mature-thumbnail-galleries.html black milf] milf [http://paradoxnet.cable.nu/milf/naughty-mature.html milfhunter] milf hunter [http://paradoxnet.cable.nu/fisting/fist-fucking.html fist fucking] fist fuck [http://paradoxnet.cable.nu/fisting/gay-fisting.html deep fisting] anal fisting [http://paradoxnet.cable.nu/fisting/ass-fisting.html pussy fisting] hot milfs [http://paradoxnet.cable.nu/fisting/fist-fuck.html girls fisting] fisting lessons [http://paradoxnet.cable.nu/fisting/pussy-fisting.html foot fisting] mature sex [http://paradoxnet.cable.nu/fisting/extreme-fisting.html fist fuck] nude lesbians [http://paradoxnet.cable.nu/fisting/fisting-pussy.html female fisting] milfs [http://paradoxnet.cable.nu/fisting/fist-fights.html triple anal fisting] naked lesbians [http://paradoxnet.cable.nu/fisting/foot-fisting.html pussy fisting] fistfuck [http://paradoxnet.cable.nu/fisting/anal-fist-fucking.html extreme anal fisting] mature [http://paradoxnet.cable.nu/fisting/women-fisting.html triple fisting] sexy lesbians [http://paradoxnet.cable.nu/fisting/girls-fisting.html double fisting] milf seekers [http://paradoxnet.cable.nu/fisting/extreme-anal-fisting.html extreme fisting] mature lesbians [http://paradoxnet.cable.nu/fisting/fisting-girls.html fisting sisters] gaping fist anal [http://paradoxnet.cable.nu/fisting/fisting-lesbians.html fisting lessons] mature post [http://paradoxnet.cable.nu/fisting/gay-anal-fisting.html double fisting] milf older [http://paradoxnet.cable.nu/fisting/fisting-videos.html male fisting] lesbian sex [http://paradoxnet.cable.nu/fisting/asian-fisting.html extreme fisting] milf [http://paradoxnet.cable.nu/fisting/lesbian-anal-fisting.html foot fisting] mature tits [http://paradoxnet.cable.nu/fisting/mature-fisting.html fist fucking lesbian] milfs [http://paradoxnet.cable.nu/fisting/free-gay-fisting.html girls fisting] lesbian movie [http://paradoxnet.cable.nu/fisting/free-fisting-videos.html extreme anal fisting] milf [http://paradoxnet.cable.nu/fisting/black-fisting.html women fisting men] extreme fisting [http://paradoxnet.cable.nu/fisting/fisting-ass.html triple anal fisting] teen lesbians [http://paradoxnet.cable.nu/fisting/women-fist-fucking.html fisting girls] older mature [http://paradoxnet.cable.nu/fisting/men-fisting.html double fisting anal] fisting sex [http://paradoxnet.cable.nu/fisting/gay-men-fisting.html fisting pussy] anal fisting [http://paradoxnet.cable.nu/fisting/lesbian-fist.html women fisting men] older mature [http://paradoxnet.cable.nu/fisting/fisting-teens.html girls fisting] milfseeker.com [http://paradoxnet.cable.nu/fisting/fisting-gay.html gaping fist anal] free lesbian videos [http://paradoxnet.cable.nu/fisting/fisting-clips.html extreme anal fisting] disney lesbian toons [http://paradoxnet.cable.nu/fisting/fisting-stories.html girls fisting] milf riders [http://paradoxnet.cable.nu/fisting/free-anal-fisting.html girls fisting] gay fisting [http://paradoxnet.cable.nu/fisting/teen-fist.html fist] her first lesbian sex [http://paradoxnet.cable.nu/fisting/anal-fisting-girls.html gay fisting] hentai lesbian [http://paradoxnet.cable.nu/fisting/fist-fucking-gay.html lesbian fisting] black lesbians [http://paradoxnet.cable.nu/fisting/fist-fucking-videos.html vaginal fisting] lesbians [http://paradoxnet.cable.nu/fisting/fisting-men.html fist fight] anal fisting [http://paradoxnet.cable.nu/fisting/fist-fucking-free.html fisting sisters] fisting sisters [http://paradoxnet.cable.nu/fisting/girl-fisting.html deep anal fisting] lesbian kiss [http://paradoxnet.cable.nu/fisting/fisting-pics.html fisting girls] anal fisting [http://paradoxnet.cable.nu/fisting/women-fisting-men-anally.html women fisting men] lesbian fisting [http://paradoxnet.cable.nu/fisting/fisting-women.html fisting sex] triple anal fisting [http://paradoxnet.cable.nu/fisting/gay-men-fist-fucking.html vaginal fisting] lesbian sisters [http://paradoxnet.cable.nu/fisting/pussy-fist.html fisting sisters] lesbian hentai [http://paradoxnet.cable.nu/fisting/butt-fisting.html fisting lessons] girls fisting [http://paradoxnet.cable.nu/fisting/extreme-fisting-bizarre-fisting.html teen fisting] blonde lesbians [http://paradoxnet.cable.nu/fisting/fisting-pictures.html fisting girls] lesbian teen movies [http://paradoxnet.cable.nu/fisting/fisting-galleries.html teen fisting] fisting girls [http://paradoxnet.cable.nu/fisting/free-fisting-pictures.html free fisting] milfseeker.com
			</div>

24.75.227.14 at 03:45, 26 June 2005

2005-06-26T03:45:36Z

← Older revision		Revision as of 03:45, 26 June 2005
Line 264:		Line 264:
	do EscN(FG,BG,"m") quit		do EscN(FG,BG,"m") quit
	quit		quit

	SetGlobals		SetGlobals
	set TMGcBlack=0		set TMGcBlack=0

24.75.227.14 at 03:45, 26 June 2005

2005-06-26T03:45:15Z

← Older revision		Revision as of 03:45, 26 June 2005
Line 274:		Line 274:
	set TMGcCyan=6		set TMGcCyan=6
	set TMGcGrey=7		set TMGcGrey=7

	set TMGcBRed=8		set TMGcBRed=8
	set TMGcBGreen=9		set TMGcBGreen=9
Line 286:		Line 286:
	quit		quit

	KillGlobals		KillGlobals
	kill TMGcBlack		kill TMGcBlack
	kill TMGcRed		kill TMGcRed
Line 295:		Line 295:
	kill TMGcCyan		kill TMGcCyan
	kill TMGcGrey		kill TMGcGrey

	kill TMGcBRed		kill TMGcBRed
	kill TMGcBGreen		kill TMGcBGreen

24.75.227.14 at 03:44, 26 June 2005

2005-06-26T03:44:29Z

← Older revision		Revision as of 03:44, 26 June 2005
Line 236:		Line 236:

	VFGCOLOR(n) ;"Set Text Foreground Color <ESC>[{attr1};...;{attrn}m		VFGCOLOR(n) ;"Set Text Foreground Color <ESC>[{attr1};...;{attrn}m
	set n=n+30		do VTATRIB(0)
	do EscN(n,,"m") quit		if n>7 do
			. do VTATRIB(1)
			. set n=n-7
			set n=n+30
			do EscN(n,,"m") quit

	VBGCOLOR(n) ;"Set Text Background Color <ESC>[{attr1};...;{attrn}m		VBGCOLOR(n) ;"Set Text Background Color <ESC>[{attr1};...;{attrn}m
	set n=n+40		do VTATRIB(0)
	do EscN(n,,"m") quit		if n>7 do
			. do VTATRIB(1)
			. set n=n-7
			set n=n+40
			do EscN(n,,"m") quit

	VCOLORS(FG,BG) ;Set Text Colors <ESC>[{attr1};...;{attrn}m		VCOLORS(FG,BG) ;Set Text Colors <ESC>[{attr1};...;{attrn}m
	set FG=FG+30		do VTATRIB(0)
	set BG=BG+40		if FG>7 do
	do EscN(FG,BG,"m") quit		. do VTATRIB(1)
	quit		. set FG=FG-7
			if BG>7 do
			. do VTATRIB(1)
			. set BG=BG-7

			set FG=FG+30
			set BG=BG+40
			do EscN(FG,BG,"m") quit
			quit

	SetGlobals		SetGlobals
	set TMGcBlack=0		set TMGcBlack=0
	set TMGcRed=1		set TMGcRed=1
	set TMGcGreen=2		set TMGcGreen=2
	set TMGcYellow=3		set TMGcYellow=3
	set TMGcBlue=4		set TMGcBlue=4
	set TMGcMagenta=5		set TMGcMagenta=5
	set TMGcCyan=6		set TMGcCyan=6
	set TMGcWhite=7		set TMGcGrey=7

	quit		set TMGcBRed=8
			set TMGcBGreen=9
	KillGlobals		set TMGcBYellow=10
	kill TMGcBlack		set TMGcBBlue=11
	kill TMGcRed		set TMGcBMagenta=12
	kill TMGcGreen		set TMGcBCyan=13
	kill TMGcYellow		set TMGcBGrey=14
	kill TMGcBlue		set TMGcWhite=15
	kill TMGcMagenta
	kill TMGcCyan		quit
	kill TMGcWhite
			KillGlobals
	quit		kill TMGcBlack
			kill TMGcRed
			kill TMGcGreen
			kill TMGcYellow
			kill TMGcBlue
			kill TMGcMagenta
			kill TMGcCyan
			kill TMGcGrey

			kill TMGcBRed
			kill TMGcBGreen
			kill TMGcBYellow
			kill TMGcBBlue
			kill TMGcBMagenta
			kill TMGcBCyan
			kill TMGcBGrey
			kill TMGcWhite

			quit

Kdtop3 at 22:24, 14 April 2005

2005-04-14T22:24:31Z

← Older revision		Revision as of 22:24, 14 April 2005
Line 197:		Line 197:
	VCEL ;"Erase from cursor to end of line Esc [ 0 K or Esc [ K		VCEL ;"Erase from cursor to end of line Esc [ 0 K or Esc [ K
	do EscN("0",,"K") quit		do EscN("0",,"K") quit

	VCBL ;"Erase from beginning of line to cursor Esc [ 1 K		VCBL ;"Erase from beginning of line to cursor Esc [ 1 K
	do EscN("1",,"K") quit		do EscN("1",,"K") quit

Kdtop3 at 22:24, 14 April 2005

2005-04-14T22:24:04Z

New page

;"--------------------------------------------------------------
;"Terminal interface
;"ANSI Standard (X3.64) Control Sequences for Video Terminals and Peripherals
;" in alphabetic order by mnemonic

EscN(Num,N2,Cmd)
write $char(27,91)_Num
if $data(N2) write ";"_N2
if $data(Cmd) write Cmd
quit

CBT(Pn) ;"CBT Cursor Backward Tab Esc [ Pn Z
do EscN(.Pn,,"Z")
quit

CCH ;"Cancel Previous Character Esc T
write $char(27)_"T"

CHA(Pn) ;"Cursor Horzntal Absolute Esc [ Pn G
do EscN(.Pn,,"G") quit

CHT(Pn) ;"Cursor Horizontal Tab Esc [ Pn I
do EscN(.Pn,,"I") quit

CNL(Pn) ;"Cursor Next Line Esc [ Pn E
do EscN(.Pn,,"E") quit

CPL(Pn) ;"Cursor Preceding Line Esc [ Pn F
do EscN(.Pn,,"F") quit

CPR(Pn,P2) ;"Cursor Position Report Esc [ Pn ; Pn R VT100
do EscN(.Pn,.P2,"R") quit

CTC(Pn) ;"Cursor Tab Control Esc [ Ps W
do EscN(.Pn,,"W") quit

CUB(Pn) ;"Cursor Backward Esc [ Pn D VT100
do EscN(.Pn,,"D") quit

CUD(Pn) ;"Cursor Down Esc [ Pn B VT100
do EscN(.Pn,,"B") quit

CUF(Pn) ;"Cursor Forward Esc [ Pn C VT100
do EscN(.Pn,,"C") quit

CUP(X,Y) ;"Cursor Position Esc [ Pn ; Pn H VT100
do EscN(.Y,.X,"H") quit

HOME ;"Cursor Home Esc [ H
w $char(27,91)_"H" quit

CUU(Pn) ;"Cursor Up Esc [ Pn A VT100
do EscN(.Pn,,"A") quit

CVT(Pn) ;"Cursor Vertical Tab Esc [ Pn Y
do EscN(.Pn,,"Y") quit

DCH(Pn) ;"Delete Character Esc [ Pn P
do EscN(.Pn,,"P") quit

DL(Pn) ;"Delete Line Esc [ Pn M
do EscN(.Pn,,"M") quit

EA(Pn) ;"Erase in Area Esc [ Ps O
do EscN(.Pn,,"O") quit

ECH(Pn) ;"Erase Character Esc [ Pn X
do EscN(.Pn,,"X") quit

ED(Pn) ;"Erase in Display Esc [ Ps J VT100
do EscN(.Pn,,"J") quit

EF(Pn) ;"Erase in Field Esc [ Ps N
do EscN(.Pn,,"N") quit

EL(Pn) ;"Erase in Line Esc [ Ps K VT100
do EscN(.Pn,,"K") quit

EPA ;"End of Protected Area Esc W
w $char(27)_"W" quit

ESA ;"End of Selected Area Esc G
w $char(27)_"G" quit

FNT(Pn,P2) ;"Font Selection Esc [ Pn ; Pn Space D
do EscN(.Pn,P2,"D") quit

GSM(Pn,P2) ;"Graphic Size Modify Esc [ Pn ; Pn Space B
do EscN(.Pn,P2,"B") quit

GSS(Pn) ;"Graphic Size Selection Esc [ Pn Space C
do EscN(.Pn,,"C") quit

HPA(Pn) ;"Horz Position Absolute Esc [ Pn `
do EscN(.Pn,,"`") quit

HPR(Pn) ;"Horz Position Relative Esc [ Pn a
do EscN(.Pn,,"a") quit

HTJ ;"Horz Tab w/Justification Esc I
w $char(27)_"I" quit

HTS ;"Horizontal Tab Set Esc H VT100
w $char(27)_"H" quit

HVP(Pn,P2) ;"Horz & Vertical Position Esc [ Pn ; Pn f VT100
do EscN(.Pn,P2,"A") quit

ICH(Pn) ;"Insert Character Esc [ Pn @
do EscN(.Pn,,"@") quit

IL(Pn) ;"Insert Line Esc [ Pn L
do EscN(.Pn,,"L") quit

IND ;"Index Esc D VT100
w $char(27)_"D" quit

NEL ;"Next Line Esc E VT100
w $char(27)_"E" quit

NP(Pn) ;"Next Page Esc [ Pn U
do EscN(.Pn,,"U") quit

PP(Pn) ;"Preceding Page Esc [ Pn V
do EscN(.Pn,,"V") quit

IS ;"Reset to Initial State Esc c
w $char(27)_"c" quit

RM(Pn) ;"Reset Mode Esc [ Ps l VT100
do EscN(.Pn,,"l") quit

SD(Pn) ;"Scroll Down Esc [ Pn T
do EscN(.Pn,,"T") quit

SL(Pn) ;"Scroll Left Esc [ Pn Space @
do EscN(.Pn,," @") quit

SM(Pn) ;"Select Mode Esc [ Ps h VT100
do EscN(.Pn,,"h") quit

SPA ;"Start of Protected Area Esc V
w $char(27)_"V" quit

SPI(Pn,P2) ;"Spacing Increment Esc [ Pn ; Pn Space G
do EscN(.Pn,P2," G") quit

SR(Pn) ;"Scroll Right Esc [ Pn Space A
do EscN(.Pn,," A") quit

SA ;"Start of Selected Area Esc F
w $char(27)_"F" quit

ST ;"String Terminator Esc \
w $char(27)_"\" quit

SU(Pn) ;"Scroll Up Esc [ Pn S
do EscN(.Pn,,"S") quit

TBC(Pn) ;"Tab Clear Esc [ Ps g VT100
do EscN(.Pn,,"g") quit

VPA(Pn) ;"Vert Position Absolute Esc [ Pn d
do EscN(.Pn,,"d") quit

VPR(Pn) ;"Vert Position Relative Esc [ Pn e
do EscN(.Pn,,"e") quit

VCULOAD ;"Unsave Cursor ESC [ u
w $char(27,91)_"u" quit

VCUSAV2 ;"Save Cursor & Attrs ESC 7
w $char(27)_"7" quit

VCULOAD2 ;"Restore Cursor & Attrs ESC 8
w $char(27)_"8" quit

VTATRIB(n) ;"Set Text attributes <ESC>[{attr1};...;{attrn}m
;"0-Reset all attributes
;"1-Bright
;"2-Dim
;"4-Underscore
;"5-Blink
;"7-Reverse
;"8-Hidden
do EscN(n,,"m") quit

VFGCOLOR(n) ;"Set Text Foreground Color <ESC>[{attr1};...;{attrn}m
set n=n+30
do EscN(n,,"m") quit

;"--------------------------------------------------------------
;"VT100 specific calls
;"Terminal interface

VCEL ;"Erase from cursor to end of line Esc [ 0 K or Esc [ K
do EscN("0",,"K") quit

VCBL ;"Erase from beginning of line to cursor Esc [ 1 K
do EscN("1",,"K") quit

VEL ;"Erase line containing cursor Esc [ 2 K
do EscN("2",,"K") quit

VCES ;"Erase from cursor to end of screen Esc [ 0 J or Esc [ J
do EscN("0",,"J") quit

VCBS ;"Erase from beginning of screen to cursor Esc [ 1 J
do EscN("1",,"J") quit

VCS ;"Erase entire screen Esc [ 2 J
do EscN("2",,"J") quit

VCUSAV ;"Save Cursor ESC [ s
w $char(27,91)_"s" quit

VCULOAD ;"Unsave Cursor ESC [ u
w $char(27,91)_"u" quit

VCUSAV2 ;"Save Cursor & Attrs ESC 7
w $char(27)_"7" quit

VCULOAD2 ;"Restore Cursor & Attrs ESC 8
w $char(27)_"8" quit

VTATRIB(n) ;"Set Text attributes <ESC>[{attr1};...;{attrn}m
;"0-Reset all attributes
;"1-Bright
;"2-Dim
;"4-Underscore
;"5-Blink
;"7-Reverse
;"8-Hidden
do EscN(n,,"m") quit

VFGCOLOR(n) ;"Set Text Foreground Color <ESC>[{attr1};...;{attrn}m
set n=n+30
do EscN(n,,"m") quit

VBGCOLOR(n) ;"Set Text Background Color <ESC>[{attr1};...;{attrn}m
set n=n+40
do EscN(n,,"m") quit

VCOLORS(FG,BG) ;Set Text Colors <ESC>[{attr1};...;{attrn}m
set FG=FG+30
set BG=BG+40
do EscN(FG,BG,"m") quit
quit

SetGlobals
set TMGcBlack=0
set TMGcRed=1
set TMGcGreen=2
set TMGcYellow=3
set TMGcBlue=4
set TMGcMagenta=5
set TMGcCyan=6
set TMGcWhite=7

quit

KillGlobals
kill TMGcBlack
kill TMGcRed
kill TMGcGreen
kill TMGcYellow
kill TMGcBlue
kill TMGcMagenta
kill TMGcCyan
kill TMGcWhite

quit