Window Drawing (4/4)

 BBS: Inland Empire Archive
Date: 10-16-93 (12:59)             Number: 6
From: EDWARD SCHLUNDER             Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Window Drawing (4/4)           Conf: (2) Quik_Bas

'>>> Page 4 of WINDOW.BAS begins here.
COLOR Fore, Back
IF ATTR AND 1 THEN
 FOR J = 1 TO TLEN \ 2
  RTitle$ = RIGHT$(Title$, J)
  LTitle$ = LEFT$(Title$, J)
  IF J = TLEN \ 2 THEN
  IF LEN(Title$) MOD 2 THEN RTitle$ = RIGHT$(Title$, J + 1)
  END IF
  LOCATE ROW, COL + (TLEN \ 2) + 1
  PRINT RTitle$
  LOCATE ROW, COL + (TLEN \ 2 - LEN(LTitle$)) + 1
  PRINT LTitle$
  WaitSec .01
 NEXT
ELSE
 LOCATE ROW, COL + 1
 PRINT Title$
END IF

COLOR WindowFore(WindowNum), WindowBack(WindowNum)
LOCATE ROW, COL
PRINT LTB$
LOCATE ROW, COL + LEN(Title$) + 1
PRINT RTB$
LOCATE ROW, COL + 1
END SUB

SUB SetColor (ATTR)
Forg = ATTR AND &HF
Back = (ATTR AND &HF0) \ 16  'AND &HF0 to mask out forground
        'and divide to shift bits right
IF Back > 7 AND Forg < 16 THEN Forg = Forg + 16
COLOR Forg, Back
END SUB

'>>> Page 4 of WINDOW.BAS ends here. Last page.

... [] <- Please write your complaint legibly in that box.
___ Blue Wave/QWK v2.12

$$38
--- WM v3.01/93-0966
 * Origin: 1:114/289 POWER SURGE - Phoenix, Arizona 602/548-
9020  (1:114/289.0)