169 lines
9.0 KiB
Plaintext
169 lines
9.0 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* uniVerse include file for BASIC @(-ve) functions
|
||
|
|
*
|
||
|
|
* Module ATFUNCTIONS.H
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intended
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
EQUATE IT$CS TO -1 ;* clear screen (ANSI)
|
||
|
|
EQUATE IT$CAH TO -2 ;* cursor absolute home (ANSI)
|
||
|
|
EQUATE IT$CLEOS TO -3 ;* clear to end of screen
|
||
|
|
EQUATE IT$CLEOL TO -4 ;* clear to end of line
|
||
|
|
EQUATE IT$SBLINK TO -5 ;* start blinking field
|
||
|
|
EQUATE IT$EBLINK TO -6 ;* end blinking field
|
||
|
|
EQUATE IT$SPA TO -7 ;* start protected area (ANSI)
|
||
|
|
EQUATE IT$EPA TO -8 ;* end protected area (ANSI)
|
||
|
|
EQUATE IT$CUB TO -9 ;* cursor backward (ANSI)
|
||
|
|
EQUATE IT$CUU TO -10 ;* cursor up (ANSI)
|
||
|
|
EQUATE IT$SHALF TO -11 ;* start half-intensity field
|
||
|
|
EQUATE IT$EHALF TO -12 ;* end half-intensity field
|
||
|
|
EQUATE IT$SREV TO -13 ;* start reverse video field
|
||
|
|
EQUATE IT$EREV TO -14 ;* end reverse video field
|
||
|
|
EQUATE IT$SUL TO -15 ;* start underlined field
|
||
|
|
EQUATE IT$EUL TO -16 ;* end underlined field
|
||
|
|
EQUATE IT$IL TO -17 ;* insert line
|
||
|
|
EQUATE IT$DL TO -18 ;* delete line
|
||
|
|
EQUATE IT$ICH TO -19 ;* insert character (ANSI)
|
||
|
|
EQUATE IT$SIRM TO -20 ;* set insert/replace mode (ANSI)
|
||
|
|
EQUATE IT$RIRM TO -21 ;* reset insert/replace mode (ANSI)
|
||
|
|
EQUATE IT$DCH TO -22 ;* delete character (ANSI)
|
||
|
|
EQUATE IT$AUXON TO -23 ;* auxiliary port on
|
||
|
|
EQUATE IT$AUXOFF TO -24 ;* auxiliary port off
|
||
|
|
EQUATE IT$TRON TO -25 ;* transparent auxiliary port on
|
||
|
|
EQUATE IT$TROFF TO -26 ;* transparent auxiliary port off
|
||
|
|
EQUATE IT$AUXDLY TO -27 ;* auxiliary delay time
|
||
|
|
EQUATE IT$PRSCRN TO -28 ;* print screen
|
||
|
|
EQUATE IT$E80 TO -29 ;* enter 80 column mode
|
||
|
|
EQUATE IT$E132 TO -30 ;* enter 132 column mode
|
||
|
|
EQUATE IT$RIC TO -31 ;* reset inhibit cursor (ANSI)
|
||
|
|
EQUATE IT$SIC TO -32 ;* set inhibit cursor (ANSI)
|
||
|
|
EQUATE IT$CUD TO -33 ;* cursor down (ANSI)
|
||
|
|
EQUATE IT$CUF TO -34 ;* cursor forward (ANSI)
|
||
|
|
EQUATE IT$VIDEO TO -35 ;* set video attributes
|
||
|
|
EQUATE IT$SCOLPR TO -36 ;* set color pair
|
||
|
|
EQUATE IT$FCOLOR TO -37 ;* set foreground color
|
||
|
|
EQUATE IT$BCOLOR TO -38 ;* set background color
|
||
|
|
EQUATE IT$SLINEGRFX TO -39 ;* start line graphics
|
||
|
|
EQUATE IT$ELINEGRFX TO -40 ;* end line graphics
|
||
|
|
EQUATE IT$LINEGRFXCH TO -41 ;* line graphics character
|
||
|
|
EQUATE IT$DMI TO -42 ;* disable manual input
|
||
|
|
EQUATE IT$EMI TO -43 ;* enable manual input
|
||
|
|
EQUATE IT$BSCN TO -44 ;* blank screen
|
||
|
|
EQUATE IT$UBS TO -45 ;* unblank screen
|
||
|
|
* RESERVED TO -46
|
||
|
|
* RESERVED TO -47
|
||
|
|
EQUATE IT$SU TO -48 ;* scroll up
|
||
|
|
EQUATE IT$SD TO -49 ;* scroll down
|
||
|
|
EQUATE IT$SR TO -50 ;* scroll right
|
||
|
|
EQUATE IT$SL TO -51 ;* scroll left
|
||
|
|
* RESERVED TO -52
|
||
|
|
* RESERVED TO -53
|
||
|
|
EQUATE IT$SLT TO -54 ;* set line truncate
|
||
|
|
EQUATE IT$RLT TO -55 ;* reset line truncate
|
||
|
|
EQUATE IT$SNK TO -56 ;* set numeric keypad
|
||
|
|
EQUATE IT$RNK TO -57 ;* reset numeric keypad
|
||
|
|
EQUATE IT$SBOLD TO -58 ;* start bold field
|
||
|
|
EQUATE IT$EBOLD TO -59 ;* end bold field
|
||
|
|
EQUATE IT$SSECUR TO -60 ;* start secure field
|
||
|
|
EQUATE IT$ESECUR TO -61 ;* end secure field
|
||
|
|
EQUATE IT$SSCPROT TO -62 ;* start screen protect mode
|
||
|
|
EQUATE IT$ESCPROT TO -63 ;* end screen protect mode
|
||
|
|
EQUATE IT$SLD TO -64 ;* system line display
|
||
|
|
EQUATE IT$SLR TO -65 ;* system line reset
|
||
|
|
EQUATE IT$SLS TO -66 ;* system line set
|
||
|
|
* RESERVED TO -67
|
||
|
|
* RESERVED TO -68
|
||
|
|
* RESERVED TO -69
|
||
|
|
EQUATE IT$CHA TO -70 ;* cursor horizontal absolute
|
||
|
|
EQUATE IT$ECH TO -71 ;* erase character
|
||
|
|
* RESERVED TO -72
|
||
|
|
* RESERVED TO -73
|
||
|
|
EQUATE IT$NPC TO -74 ;* substitute for non-printing character
|
||
|
|
EQUATE IT$DISPLAY TO -75 ;* EDFS main display attributes
|
||
|
|
EQUATE IT$MINIBUF TO -76 ;* EDFS mini-buffer display attributes
|
||
|
|
EQUATE IT$LOKL TO -77 ;* lock display lines
|
||
|
|
EQUATE IT$UNLL TO -78 ;* unlock display lines
|
||
|
|
EQUATE IT$MARKSUBS TO -79 ;* 5 substitute chars for displaying @IM@FM@VM@SM@TM
|
||
|
|
EQUATE IT$NLSMAP TO -80 ;* Terminal NLS map name
|
||
|
|
EQUATE IT$NLSAUXMAP TO -81 ;* AUX printer NLS map name
|
||
|
|
EQUATE IT$USERFIRST TO -101 ;* first user-allocated @-function
|
||
|
|
EQUATE IT$USERLAST TO -128 ;* last user-allocated @-function
|
||
|
|
|
||
|
|
* ADDITIVE VIDEO attributes, for IT$VIDEO argument 2: @(-35,n)
|
||
|
|
|
||
|
|
EQUATE IT$NORMAL TO 0 ;* normal
|
||
|
|
EQUATE IT$BOLD TO 1 ;* bold
|
||
|
|
EQUATE IT$HALF TO 2 ;* half intensity
|
||
|
|
EQUATE IT$ITALIC TO 4 ;* italic
|
||
|
|
EQUATE IT$STANDOUT TO 4 ;* enhanced
|
||
|
|
EQUATE IT$ULINE TO 8 ;* underline
|
||
|
|
EQUATE IT$SLOWBLINK TO 16 ;* slow blink rate
|
||
|
|
EQUATE IT$FASTBLINK TO 32 ;* fast blink rate
|
||
|
|
EQUATE IT$REVERSE TO 64 ;* reverse video
|
||
|
|
EQUATE IT$BLANK TO 128 ;* concealed
|
||
|
|
EQUATE IT$PROTECT TO 256 ;* protected
|
||
|
|
EQUATE IT$ALTCHARSET TO 512 ;* alternate char set
|
||
|
|
|
||
|
|
* COLOURS, TYPE of display
|
||
|
|
|
||
|
|
EQUATE IT$COLOR TO 1 ;* use colour
|
||
|
|
EQUATE IT$MONO TO 2 ;* don't use colour
|
||
|
|
|
||
|
|
* COLOURS, FOR IT$FCOLOR and IT$BCOLOR argument 2: @(-37,n)/@(-38,n)
|
||
|
|
|
||
|
|
EQUATE IT$NOCOLOR TO -1
|
||
|
|
EQUATE IT$BLACK TO 0
|
||
|
|
EQUATE IT$RED TO 1
|
||
|
|
EQUATE IT$GREEN TO 2
|
||
|
|
EQUATE IT$YELLOW TO 3
|
||
|
|
EQUATE IT$BLUE TO 4
|
||
|
|
EQUATE IT$MAGENTA TO 5
|
||
|
|
EQUATE IT$CYAN TO 6
|
||
|
|
EQUATE IT$WHITE TO 7
|
||
|
|
EQUATE IT$DARK.RED TO 8
|
||
|
|
EQUATE IT$CERISE TO 9
|
||
|
|
EQUATE IT$ORANGE TO 10
|
||
|
|
EQUATE IT$PINK TO 11
|
||
|
|
EQUATE IT$DARK.GREEN TO 12
|
||
|
|
EQUATE IT$SEA.GREEN TO 13
|
||
|
|
EQUATE IT$LIME.GREEN TO 14
|
||
|
|
EQUATE IT$PALE.GREEN TO 15
|
||
|
|
EQUATE IT$BROWN TO 16
|
||
|
|
EQUATE IT$CREAM TO 17
|
||
|
|
EQUATE IT$DARK.BLUE TO 18
|
||
|
|
EQUATE IT$SLATE.BLUE TO 19
|
||
|
|
EQUATE IT$VIOLET TO 20
|
||
|
|
EQUATE IT$PALE.BLUE TO 21
|
||
|
|
EQUATE IT$PURPLE TO 22
|
||
|
|
EQUATE IT$PLUM TO 23
|
||
|
|
EQUATE IT$DARK.CYAN TO 24
|
||
|
|
EQUATE IT$SKY.BLUE TO 25
|
||
|
|
EQUATE IT$GREY TO 26
|
||
|
|
|
||
|
|
* The next token is used by the color verbs and subroutines to
|
||
|
|
* offset the color ids defined above, into an array indexed from 1
|
||
|
|
|
||
|
|
EQUATE IT$COLOR.OFFSET TO 2
|
||
|
|
|
||
|
|
* Graphics character for IT$LINEGRFXCH arg 2: @(-41,n)
|
||
|
|
|
||
|
|
EQUATE IT$GRFX.CROSS TO 0 ;* cross piece (ie, '+')
|
||
|
|
EQUATE IT$GRFX.H.LINE TO 1 ;* horizontal line
|
||
|
|
EQUATE IT$GRFX.V.LINE TO 2 ;* vertical line
|
||
|
|
EQUATE IT$GRFX.TL.CORNER TO 3 ;* top-left corner
|
||
|
|
EQUATE IT$GRFX.TR.CORNER TO 4 ;* top-right corner
|
||
|
|
EQUATE IT$GRFX.BL.CORNER TO 5 ;* bottom-left corner
|
||
|
|
EQUATE IT$GRFX.BR.CORNER TO 6 ;* bottom-right corner
|
||
|
|
EQUATE IT$GRFX.TOP.TEE TO 7 ;* top-edge tee piece
|
||
|
|
EQUATE IT$GRFX.LEFT.TEE TO 8 ;* left-edge tee piece
|
||
|
|
EQUATE IT$GRFX.RIGHT.TEE TO 9 ;* right-edge tee piece
|
||
|
|
EQUATE IT$GRFX.BOTTOM.TEE TO 10 ;* bottom-edge tee piece
|
||
|
|
|
||
|
|
* END-CODE
|