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)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET