Don't take advil!

 BBS: Inland Empire Archive
Date: 05-17-92 (13:03)             Number: 193
From: SCOTT DRYSDALE               Refer#: NONE
  To: MATT PRITCHARD @ 930/21       Recvd: NO  
Subj: Don't take advil!              Conf: (2) Quik_Bas

Uh,
  I know that this is getting REALLY off-topic, but:

 MP@9> work until I drop stage.. spring break) and she did a
 MP@9> number on her knee; broke a couple bones, shredded
 MP@9> three ligaments... The total bill on the
 MP@9> reconstruction stood around $42,000 last time I

  Thats why I'm really glad of Canada's (OHIP) Health plan.  Not that I've
ever needed anything serious, but it's nice just in case.
Uh, I guess I better through something in that has
SOMETHING to do with programming, so here's a hint to ALL,
from me:

DIM SHARED palet(0 TO 255)  AS LONG

a = 1: b = 1

SCREEN 13

PALETTEDRAW:
        FOR repeat = 1 TO 256
        LINE (a, b)-(a + 10, b + 10), c, BF
        a = a + 12: c = c + 1
        IF a > 310 THEN a = 1: b = b + 12
        NEXT

SLEEP

         i = 1: REM i = # of attribute to be changed
         REM          BLUE      GREEN  RED
         pal& = 65536 * 0 + 256 * 0 + 0
         palet(i) = pal&
         LOCATE 1, 1: PRINT palet(i)
PALETTE 1, palet(i)
SLEEP

  This allows you to manipulate the palette in screen 13 mode.  Work with it!





--- Maximus 2.01wb
 * Origin: The BULLpen BBS * Intel 14.4EX (613)549-5168 (1:249/140)