Ega Windows 3 of 4

 BBS: Inland Empire Archive
Date: 06-13-93 (00:56)             Number: 367
From: STEVE DEMO                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Ega Windows 3 of 4             Conf: (2) Quik_Bas

'>>> Start of page 3.

ELSE
 LINE (x, y)-(xx, yy), Clour, BF
 LINE (x + 2, y + 2)-(xx - 2, yy - 2), Clour2, B
 LINE (x + 2, y + 2)-(x + 2, yy - 2), Clour1
 LINE (x + 2, y + 2)-(xx - 2, y + 2), Clour1
END IF
END SUB

SUB ClacArray9 (num!, x, y, xx, yy)
num! = 4 + INT(((xx - x + 1) * (1) + 7) / 8) * 4 * ((yy - y) + 1)
IF num! > 32000 THEN : PRINT "You need 2 arrays for this"+_
" window": PRINT "press any key to end": a$ = INPUT$(1): END
END SUB

SUB Clocks
 GetTime$ = MID$(TIME$, 1, LEN(TIME$) - 3)
 Hour$ = MID$(GetTime$, 1, 2)
 Min$ = MID$(GetTime$, LEN(GetTime$) - 1, LEN(GetTime$))
 Hour = VAL(Hour$)
 IF Hour > 12 THEN
      AmPm$ = "PM"
      Hour = Hour - 12
      Hour$ = STR$(Hour)
 ELSE
 AmPm$ = "AM"
 END IF
 IF Hour = 0 THEN Hour$ = "12"
 NewTime$ = Hour$ + ":" + Min$ + " " + AmPm$
 ColorPrint NewTime$, 4, 65, 10, 7

 'You May Wish to leave this routine out It could scare someone
' ;-)
 chime$ = Hour$ + Min$
 IF LTRIM$(RTRIM$(chime$)) = "1200" THEN
  PLAY "l30t60<aaaBBBCCCBBBAAA<<aaaBBBCCCBBBAAA>>aaaBBBCCCBBBAAA"
 END IF
END SUB

SUB ColorPrint (TEXT$, ROW%, COL%, FC%, BC%)
  'Thanks to who ever posted this code I can't remember your name
  'but it works great so insert your name here _____________
  DIM inreg AS RegTypeX, outreg AS RegTypeX
  c$ = STRING$(LEN(TEXT$), 219)       ' String of solid chars
' for backgrnd
  inreg.ax = &H1300             ' Video service 13h, subfunction
' 0
  inreg.bx = BC%                ' Background colour
  inreg.cx = LEN(TEXT$)         ' String length
  inreg.dx = 256 * (ROW% - 1) + (COL% - 1)      ' Text pos. in
' "origin 0"
  inreg.es = VARSEG(c$)           ' String's segment
  inreg.bp = SADD(c$)           ' String's address
  CALL INTERRUPTX(&H10, inreg, outreg)     ' Output the
' background
  inreg.bx = (FC% XOR BC%) + &H80   ' BL=ForeColor; BH=&H80 uses
' XOR to draw
  inreg.es = VARSEG(TEXT$)
  inreg.bp = SADD(TEXT$)
  CALL INTERRUPTX(&H10, inreg, outreg) ' Output the text, XORing
' w/backgrnd

END SUB

SUB GetColor (Clour, Clour1, Clour2)
SELECT CASE Clour
  CASE 0: Clour1 = 7: Clour2 = 8
  CASE 1: Clour1 = 9: Clour2 = 8
  CASE 2: Clour1 = 10: Clour2 = 8
  CASE 3: Clour1 = 11: Clour2 = 8
  CASE 4: Clour1 = 12: Clour2 = 8
  CASE 5: Clour1 = 13: Clour2 = 8
  CASE 6: Clour1 = 7: Clour2 = 8
  CASE 7: Clour1 = 15: Clour2 = 8
  CASE 8: Clour1 = 15: Clour2 = 0
  CASE 9: Clour1 = 15: Clour2 = 1
  CASE 10: Clour1 = 15: Clour2 = 2
  CASE 11: Clour1 = 15: Clour2 = 3
  CASE 12: Clour1 = 15: Clour2 = 4
  CASE 13: Clour1 = 15: Clour2 = 5
  CASE 14: Clour1 = 15: Clour2 = 8
  CASE 15: Clour1 = 7: Clour2 = 8

'>>> Continued on page 4

___ Blue Wave/QWK v2.11

--- Maximus 2.01wb
 * Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)