'===========================================================================
' Subject: NICE EFFECTS WITH PSET            Date: 09-26-98 (17:29)       
' Author:  Alexander Meyer                   Code: QB, QBasic, PDS        
' Origin:  Meyer.Karl@t-online.de          Packet: GRAPHICS.ABC
'===========================================================================
'                             ////
'                           0(o o)0
'-------------------------ooO (_) Ooo---------------------
' PSET.BAS -- Written in QuickBasic 4.5
'
' Name: Nice effects with PSET
' Author: Alexander Meyer
' Date: 09-26-1998
' Description: What you can do with PSET....
'
'For questions or comments mail to: Meyer.Karl@t-online.de
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

SCREEN 13: CLS
Start = 1
Ende = 200
DO
FOR x = Start TO Ende
  FOR y = 1 TO 10
    PSET (x, x), x
  '  FOR z = 1 TO 300: NEXT z   
    PSET (x + a, x + y + 10), x + y' + a
    PSET (x + y + 10 + a, x), x + y' + a
   ' PSET (x + y + a, x + y), x' + a
    PSET (x + a, x + y), x + a
    PSET (x + y + a, x), x + a
    IF INKEY$ <> "" THEN GOTO TheNext
  NEXT y
NEXT x
a = a + 41
LOOP

TheNext:
DEFINT A-Z
SCREEN 12: CLS
RANDOMIZE TIMER
FOR a = 1 TO 640 STEP 10
  FOR z = 1 TO 480 STEP 10
    Col = INT(RND * 14 + 1)
    FOR b = 1 TO 10
      PSET (a + b, z), Col
      PSET (a, z + b), Col
      PSET (a + b, z - b), Col
      PSET (a + b, z + b), Col
      IF INKEY$ <> "" THEN END
    NEXT b
  NEXT z
NEXT a
END