'===========================================================================
' Subject: TV STATIC SIMULATION              Date: 05-28-97 (14:06)       
' Author:  Frank W. Zammetti                 Code: QB, QBasic, PDS        
' Origin:  fzammett@fpsserv.com            Packet: GRAPHICS.ABC
'===========================================================================
	SCREEN 0: CLS: PRINT
   COLOR 12: PRINT "It dosen't get any simpler than this!  It's a small example of some TV"
   PRINT "Static.  Enjoy!"
   PRINT: PRINT: PRINT "PRESS ANY KEY TO BEGIN..."
   DO WHILE INKEY$ = "": LOOP

   DIM PCols(8): SCREEN 12: CLS
   PCols(1) = 1: PCols(2) = 2: PCols(3) = 3: PCols(4) = 4: PCols(5) = 5
   PCols(6) = 6: PCols(7) = 7: PCols(8) = 8
   DRAW "bm199,109 c15 r242 d232 l242 u232"
   FOR y = 110 TO 340: FOR x = 200 TO 440: PSET (x, y), INT(RND(1) * 8) + 1
   NEXT x: NEXT y

Looper:
   z = PCols(1): FOR y=1 TO 7: PCols(y) = PCols(y+1): PALETTE y, PCols(y)
   NEXT y: PCols(8) = z: PALETTE 8, PCols(8)
   FOR z = 1 TO 20000: NEXT z
   IF INKEY$<>"" THEN GOTO LaterYou
   GOTO Looper

LaterYou:
	SCREEN 0: CLS: WIDTH 80: CLS
   PRINT "Goodbye!...": PRINT: PRINT
   PRINT "Frank W. Zammetti (fzammett@fpsserv.com)"
   PRINT: PRINT: PRINT