MenuBox 3/3

 BBS: Inland Empire Archive
Date: 01-27-93 (20:45)             Number: 400
From: MARK BUTLER                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: MenuBox  3/3                   Conf: (2) Quik_Bas

 >>> continued from the previous message

 SUB Shade (Uprow, Ltcol, Lorow, Rtcol)
    DEF SEG = &H40
    equip = PEEK(&H10)
    IF (equip AND 48) = 48 THEN
        EXIT SUB
    ELSE
        DEF SEG = &HB800
    END IF
    FOR vert = Uprow + 1 TO Lorow + 1
        FOR height = Rtcol + 1 TO Rtcol + 2
            offset = (vert - 1) * 160 + (height - 1) * 2 + 1
            POKE offset, 8
        NEXT
    NEXT
    vert = Lorow + 1
    FOR height = Ltcol + 2 TO Rtcol + 2
        offset = (vert - 1) * 160 + (height - 1) * 2 + 1
        POKE offset, 8
    NEXT
    DEF SEG
 END SUB
==========================8< Cut Here 8<=============================

 That's all folks!

תש [-M-H-B-] שת

--- timEd/B7 * TSR Tagline v1.3 - press <ctrl><alt><del> to activate
 * Origin:  MotherShip Portholes, Portland OR  (1:105/319.32)