UNDER

Syntax UNDER [#ch,] switch
Location QL ROM

This command switches underlining in the specified window (default #1) either on or off. Underlining is enabled if switch=1 or disabled if switch=0. Other values of switch will return a ‘bad parameter’ error.

If underlining is enabled, whenever anything is PRINTed, a line will be drawn in the current INK colour in the bottom but one row of the character.

If FLASH is enabled, although the character will continue to flash, the underline itself will not. MODE will disable underlining.

Example 1

UNDER 1: PRINT 'Title:'!: UNDER 0: PRINT !'QL SuperBASIC'

Example 2

If you don’t like the line which is drawn by underline than you can use OVER to draw your own line with a different colour. Note however that this line ought to be drawn before the underlined text since the line should not overlap letters like g, p, q and j.

100 DEFine PROCedure PRNT_UNDL (ch, x, y, text$, col1, col2)
110   AT#ch,x,y: INK#ch,col2: OVER#ch,0
120   PRINT#ch,FILL$("_",LEN(text$))
130   AT#ch,x,y: INK#ch,col1: OVER#ch,1
140   PRINT#ch,text$
150   OVER#ch,0
160 END DEFine PRNT_UNDL
PAPER 3: CLS
PRNT_UNDL #1,3,3,"Looking good.",7,0

NOTE

MODE will reset the current underline mode in all windows.

CROSS-REFERENCE

INK sets the current ink colour for the specified channel, PRINT prints out characters.