DR>   How do I use POKE to draw pixels in screen 12?  Or is
DR>   there something faster?
   You can use the PSET command.
'_|_|_|   12HPSET.BAS   PUBLIC DOMAIN   Kurt Kuzba   3/28/1998
DECLARE SUB testpattern ()
SCREEN 12
testpattern
WHILE INKEY$ = "": WEND
SCREEN 0: WIDTH 80, 25
SUB testpattern
   DIM x(220 TO 420) AS LONG, y(140 TO 340) AS LONG
   FOR t% = 140 TO 340: y(t%) = t%: NEXT
   FOR t% = 220 TO 420: x(t%) = t%: NEXT
   FOR t% = 0 TO 3000
      SWAP x((t% MOD 201) + 220), x(RND * 200 + 220)
      SWAP y((t% MOD 201) + 140), y(RND * 200 + 140)
   NEXT
   FOR v% = 140 TO 340
      FOR h% = 220 TO 420
         PSET (x(h%), y(v%)), ((x(h%) * y(v%) \ 3) AND 15)
         IF INKEY$ > "" THEN EXIT SUB
      NEXT
   NEXT
END SUB
> ] I'm not materialistic. I'm just Object Oriented.............
---
---------------