Difference between revisions of "TMGTERM.m"

From VistApedia
Jump to: navigation, search
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>

Revision as of 08:22, 16 January 2006

;"--------------------------------------------------------------
;"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
      do VTATRIB(0)
      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
      do VTATRIB(0)
      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
      do VTATRIB(0)
      if FG>7 do
      . do VTATRIB(1)
      . 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
      set TMGcBlack=0
      set TMGcRed=1
      set TMGcGreen=2
      set TMGcYellow=3
      set TMGcBlue=4
      set TMGcMagenta=5
      set TMGcCyan=6
      set TMGcGrey=7

      set TMGcBRed=8
      set TMGcBGreen=9
      set TMGcBYellow=10
      set TMGcBBlue=11
      set TMGcBMagenta=12
      set TMGcBCyan=13
      set TMGcBGrey=14
      set TMGcWhite=15
      
      quit
                                     
KillGlobals
      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

milfseeker.com milf camps galleries mature free free fisting black milf kiss lesbian teen mature ladies fist fucking milfs milf camps galleries mature free double fisting mature galleries lesbian pussy free mature porn lesbian black milf milf milfhunter milf hunter fist fucking fist fuck deep fisting anal fisting pussy fisting hot milfs girls fisting fisting lessons foot fisting mature sex fist fuck nude lesbians female fisting milfs triple anal fisting naked lesbians pussy fisting fistfuck extreme anal fisting mature triple fisting sexy lesbians double fisting milf seekers extreme fisting mature lesbians fisting sisters gaping fist anal fisting lessons mature post double fisting milf older male fisting lesbian sex extreme fisting milf foot fisting mature tits fist fucking lesbian milfs girls fisting lesbian movie extreme anal fisting milf women fisting men extreme fisting triple anal fisting teen lesbians fisting girls older mature double fisting anal fisting sex fisting pussy anal fisting women fisting men older mature girls fisting milfseeker.com gaping fist anal free lesbian videos extreme anal fisting disney lesbian toons girls fisting milf riders girls fisting gay fisting fist her first lesbian sex gay fisting hentai lesbian lesbian fisting black lesbians vaginal fisting lesbians fist fight anal fisting fisting sisters fisting sisters deep anal fisting lesbian kiss fisting girls anal fisting women fisting men lesbian fisting fisting sex triple anal fisting vaginal fisting lesbian sisters fisting sisters lesbian hentai fisting lessons girls fisting teen fisting blonde lesbians fisting girls lesbian teen movies teen fisting fisting girls free fisting milfseeker.com