VERSION 2.00
Begin Form ManyThings 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   4605
   ClientLeft      =   900
   ClientTop       =   1605
   ClientWidth     =   5805
   ControlBox      =   0   'False
   Height          =   5010
   Icon            =   MANYTHNG.FRX:0000
   Left            =   840
   LinkTopic       =   "Form1"
   ScaleHeight     =   307
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   387
   Top             =   1260
   Width           =   5925
   Begin Timer Tick 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   10
      Top             =   10
   End
End
' BackGround -- this form expands to fill the whole
'   screen and is used as the back drop for all the
'   drawing

Option Explicit

' variables declared here
Dim MouseX, MouseY ' Last position of the mouse moves
Dim LastX As Integer, LastY As Integer
Dim conv2x As Single, conv2y As Single
Dim LastTime As Long
Dim CurrentTime As Long
Dim LinkTime As Long
Dim PlotType As Integer
Dim PlotInit As Integer
Dim PlotEnd As Integer
Dim RepeatIndex As Integer
Dim Pointer As Integer
Dim Mirror As Integer
Dim RunMode As Integer
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
Dim vx1 As Single, vy1 As Single, vx2 As Single, vy2 As Single
Dim ax1 As Single, ax2 As Single, ay1 As Single, ay2 As Single
Dim l As Long
Dim m As Long
Dim MaxSpeedX As Integer, MaxSpeedY As Integer
Dim TimeInterval As Long
Dim MaxTime As Long
Dim Repeats As Integer
Dim i As Integer
Dim BoxHeight As Integer, Boxwidth As Integer
Dim DC As Integer
Dim Pattern As Long, Locked As Integer
Dim Direction As Integer
Dim Number As Integer
Dim PicWidth As Integer, PicHeight As Integer
Dim PlotPriority As Integer
Dim Priority As Single
Dim TotalPriority As Single
Dim PriorityBreakPoints() As Single
Const MinColor = 20000
	
'Allocate Memory
Dim x1a() As Integer
Dim x2a() As Integer
Dim y1a() As Integer
Dim y2a() As Integer
Dim x1da() As Integer
Dim x2da() As Integer
Dim y1da() As Integer
Dim y2da() As Integer
Dim x1sa() As Single
Dim x2sa() As Single
Dim y1sa() As Single
Dim y2sa() As Single
Dim vx1sa() As Single
Dim vx2sa() As Single
Dim vy1sa() As Single
Dim vy2sa() As Single
Dim ax1sa() As Single
Dim ax2sa() As Single
Dim ay1sa() As Single
Dim ay2sa() As Single
Dim Colors() As Long
Dim DataPts() As Integer

'for filled polygons
Dim Points() As POINTAPI

Dim MaxPlotType As Integer

Function CheckIfValidMode (SaverMode As Integer) As Integer
  'when in low memory mode the saver only runs the modules
  'that draw on the screen, not those that manipulate
  'bitmaps
  If LowMemoryFlag = 0 Then 'if not low memory mode then done
    CheckIfValidMode = 1
  Else
    If SaverMode <> 0 Then
      NextSelection
      CheckIfValidMode = 0
      LogFile ("Saver not valid in low memory: " + Str$(PlotType))
    Else
      CheckIfValidMode = 1
    End If

  End If

End Function

Sub Circles ()
  
  ' have a single elipse trace across the
  ' screen with multiple previous copies following
  ' it

  Dim i As Integer, j As Integer, k As Integer, n As Integer
  Dim il As Long, jl As Long, kl As Long
  Dim xRadius As Integer, yRadius As Integer
  Dim HighMirror As Integer

  ' if first time then initialize
  If PlotInit = False Then

    'see if we need to reset changes made from previous init
    If PlotEnd = False Then

      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If

    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    Cls
    ForeColor = QBColor(15)

    'Set array size and clear the elements
    ReDim x1a(MaxLines) As Integer
    ReDim x2a(MaxLines) As Integer
    ReDim y1a(MaxLines) As Integer
    ReDim y2a(MaxLines) As Integer

    Pointer = 1     ' start with array element 1
    
    ' set index to count number of times to repeat color
    '   to past maxvalue so that it will be recalculated
    RepeatIndex = MaxLines + 1

    'determine initial position of line
    x1 = Rnd * ScaleWidth
    x2 = Rnd * ScaleWidth
    y1 = Rnd * ScaleHeight
    y2 = Rnd * ScaleHeight

    'set initial velocity
    vx1 = 0
    vx2 = 0
    vy1 = 0
    vy2 = 0

    'set initial acceleration
    ax1 = 0
    ax2 = 0
    ay1 = 0
    ay2 = 0
    
    'find background color
    m = QBColor(0)

    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

    'select mirroring method
    HighMirror = 5
    Mirror = Rnd * HighMirror + 1: If Mirror > HighMirror Then Mirror = 1

  Else 'reset changes done by previous init

    'zero array sizes
    ReDim x1a(0) As Integer
    ReDim x2a(0) As Integer
    ReDim y1a(0) As Integer
    ReDim y2a(0) As Integer

  End If

  Else  ' put run code here

    Tick.Enabled = False' disable timer until circles completed

    ' check if time to get a new color
    If RepeatIndex > RepeatCount Then
    
	' use rgb function
	Do
	  il = Rnd * 255: If il > 255 Then il = 255
	  jl = Rnd * 255: If jl > 255 Then jl = 255
	  kl = Rnd * 255: If kl > 255 Then kl = 255
	Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	l = RGB(il, jl, kl)

	RepeatIndex = 1
    Else
	RepeatIndex = RepeatIndex + 1
    End If

	'Delete original circle
	xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	If xRadius <> 0 Then
	    Circle ((x1a(Pointer) + x2a(Pointer)) / 2, (y1a(Pointer) + y2a(Pointer)) / 2), xRadius, m, , , yRadius / xRadius
	End If

	DoEvents

	Select Case Mirror
	Case 1: 'mirror on x and y axis
	    
	    'Delete original circle mirrored on Y axis
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (y1a(Pointer) + y2a(Pointer)) / 2), xRadius, m, , , yRadius / xRadius
	    End If

	    DoEvents

	    'Delete original circle mirrored on X axis
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((x1a(Pointer) + x2a(Pointer)) / 2, (ScaleHeight - y1a(Pointer) + ScaleHeight - y2a(Pointer)) / 2), xRadius, m, , , yRadius / xRadius
	    End If

	    DoEvents

	    'Delete original circle mirrored on origin
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (ScaleHeight - y1a(Pointer) + ScaleHeight - y2a(Pointer)) / 2), xRadius, m, , , yRadius / xRadius
	    End If

	    DoEvents

	Case 2: 'mirror on Y axis
	    
	    'Delete original circle mirrored on Y axis
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (y1a(Pointer) + y2a(Pointer)) / 2), xRadius, m, , , yRadius / xRadius
	    End If

	    DoEvents

	Case 3: 'mirror around center point
	
	    'Delete original circle mirrored on origin
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (ScaleHeight - y1a(Pointer) + ScaleHeight - y2a(Pointer)) / 2), xRadius, m, , , yRadius / xRadius
	    End If

	    DoEvents

	Case Else: ' otherwise ignore (i.e. no mirror)
	
	End Select

	'Save New Circle
	x1a(Pointer) = x1
	x2a(Pointer) = x2
	y1a(Pointer) = y1
	y2a(Pointer) = y2

	Select Case Mirror
	Case 1: 'mirror on x and y axis
	    
	    'Delete original circle mirrored on Y axis
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (y1a(Pointer) + y2a(Pointer)) / 2), xRadius, l, , , yRadius / xRadius
	    End If

	    DoEvents

	    'Delete original circle mirrored on X axis
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((x1a(Pointer) + x2a(Pointer)) / 2, (ScaleHeight - y1a(Pointer) + ScaleHeight - y2a(Pointer)) / 2), xRadius, l, , , yRadius / xRadius
	    End If

	    DoEvents

	    'Delete original circle mirrored on origin
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (ScaleHeight - y1a(Pointer) + ScaleHeight - y2a(Pointer)) / 2), xRadius, l, , , yRadius / xRadius
	    End If

	Case 2: 'mirror on Y axis
	    
	    'Delete original circle mirrored on y axis
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (y1a(Pointer) + y2a(Pointer)) / 2), xRadius, l, , , yRadius / xRadius
	    End If

	Case 3: 'mirror around center point
	
	    'Delete original circle mirrored on origin
	    xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	    yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	    If xRadius <> 0 Then
		Circle ((ScaleWidth - x1a(Pointer) + ScaleWidth - x2a(Pointer)) / 2, (ScaleHeight - y1a(Pointer) + ScaleHeight - y2a(Pointer)) / 2), xRadius, l, , , yRadius / xRadius
	    End If

	Case Else: ' otherwise ignore (i.e. no mirror)
	
	End Select

	DoEvents

	Tick.Enabled = True' re-enable timer

	'Draw new Circle
	xRadius = Abs(x1a(Pointer) - x2a(Pointer)) / 2
	yRadius = Abs(y1a(Pointer) - y2a(Pointer)) / 2
	If xRadius <> 0 Then
	    Circle ((x1a(Pointer) + x2a(Pointer)) / 2, (y1a(Pointer) + y2a(Pointer)) / 2), xRadius, l, , , yRadius / xRadius
	End If

	'Move pointer to next item
	Pointer = Pointer + 1
	If Pointer > MaxLines Then
	    Pointer = 1
	End If

	'determine new acceleration
	ax1 = Rnd - .5
	ax2 = Rnd - .5
	ay1 = Rnd - .5
	ay2 = Rnd - .5

	'calculate new position
	x1 = x1 + vx1
	x2 = x2 + vx2
	y1 = y1 + vy1
	y2 = y2 + vy2

	'calculate new velocity
	vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = 0: ax1 = 0
	vx2 = (vx2 + ax2): If Abs(vx2) > MaxSpeedX Then vx2 = 0: ax2 = 0
	vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = 0: ay1 = 0
	vy2 = (vy2 + ay2): If Abs(vy2) > MaxSpeedY Then vy2 = 0: ay2 = 0

	'check if off screen
	If (x1 > ScaleWidth) Then
	    'change direction
	    vx1 = -Abs(vx1)
	ElseIf (x1 < 0) Then
	    'change direction
	    vx1 = Abs(vx1)
	End If

	If (y1 > ScaleHeight) Then
	    'change direction
	    vy1 = -Abs(vy1)
	ElseIf (y1 < 0) Then
	    'change direction
	    vy1 = Abs(vy1)
	End If

	If (x2 > ScaleWidth) Then
	    'change direction
	    vx2 = -Abs(vx2)
	ElseIf (x2 < 0) Then
	    'change direction
	    vx2 = Abs(vx2)
	End If

	If (y2 > ScaleHeight) Then
	    'change direction
	    vy2 = -Abs(vy2)
	ElseIf (y2 < 0) Then
	    'change direction
	    vy2 = Abs(vy2)
	End If


  End If

End Sub

Sub Dribble ()

  'dribbling paint on screen

  Dim i As Integer, j As Integer, k As Integer
  Static MaxHole As Integer

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(1) = 0 Then
      Exit Sub
    End If
    
    ' start with original screen
    Picture = Original.Image
    
    PlotInit = True

    'determine initial position of shot
    x1 = Rnd * ScaleWidth
    y1 = Rnd * ScaleHeight
    
    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 20! / 800
    MaxSpeedY = ScaleWidth * 20! / 600

    ' zero initial velocity
    vx1 = 0: vy1 = 0

    'set maximum size of holes
    MaxHole = 4

    ForeColor = RGB(0, 0, 0)' use black box
    FillColor = RGB(0, 0, 0) 'set black fill
    FillStyle = 0 'solid fill

    RunMode = Int(Rnd * 2#)'choose black or color

    'Debug.Print RunMode

    If RunMode > 0 Then ' if random color then use larger spots
	MaxHole = 8
	i = Rnd * 255: If i > 255 Then i = 255
	j = Rnd * 255: If j > 255 Then j = 255
	k = Rnd * 255: If k > 255 Then k = 255
	ForeColor = GetNearestColor(hDC, RGB(i, j, k))
	FillColor = ForeColor
    End If

  Else 'reset changes done by previous init

    Picture = LoadPicture() ' clear screen
    FillStyle = 1 'transparent fill

  End If

  Else  ' put run code here

	If RunMode > 0 Then ' see if need to change to random color

	    If Rnd < .05 Then
		i = Rnd * 255: If i > 255 Then i = 255
		j = Rnd * 255: If j > 255 Then j = 255
		k = Rnd * 255: If k > 255 Then k = 255
		ForeColor = GetNearestColor(hDC, RGB(i, j, k))
		FillColor = ForeColor
	    End If

	End If
	
	' put random hole here
	Circle (x1 + Rnd * 20, y1 + Rnd * 20), MaxHole * Rnd + 2, , , , 1

	'determine new acceleration
	ax1 = 2 * Rnd - 1
	ay1 = 2 * Rnd - 1
	    
	'calculate new position
	x1 = x1 + vx1
	y1 = y1 + vy1
	    
	'calculate new velocity
	vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = -vx1 * .9: vy1 = -vy1 * .9: ax1 = 0
	vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vx1 = -vx1 * .9: vy1 = -vy1 * .9: ay1 = 0
	    
	'check if off screen
	If (x1 > ScaleWidth) Then
	    'change direction
	    vx1 = -Abs(vx1)
	ElseIf (x1 < 0) Then
	    'change direction
	    vx1 = Abs(vx1)
	End If

	If (y1 > ScaleHeight) Then
	    'change direction
	    vy1 = -Abs(vy1)
	ElseIf (y1 < 0) Then
	    'change direction
	    vy1 = Abs(vy1)
	End If

  End If

End Sub

Sub Drop ()

  ' bitblt's with various patterns, dragging them
  ' across the screen randomly

  Dim j As Integer
  Static OldY As Integer

  ' if first time then initialize
  If PlotInit = False Then

    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(1) = 0 Then
      Exit Sub
    End If
    
    'store whether column has dropped
    ReDim x1a(ScaleWidth)

    ' start with original screen
    Picture = Original.Image

    PlotInit = True

    'flag that no column has been chosen
    x1 = -1

    'Calculate velocity limits
    MaxSpeedY = ScaleWidth * 10! / 600
    MaxSpeedX = ScaleWidth * 10! / 800

    ' zero initial velocity
    vy1 = 0

    'width of column to drop
    Boxwidth = 10 + Rnd * 100

    i = Int(Rnd * 2#)'if i=0 then do jagged drop

    x2 = 0 'used for width change

  Else 'reset changes done by previous init

    'store whether column has dropped
    ReDim x1a(0)
    Picture = LoadPicture() ' clear screen

  End If

Else  ' put run code here

    If x1 < 0 Then 'see if found valid column

    x1 = Rnd * ScaleWidth / Boxwidth 'choose a column
    
    If x1a(x1) = 0 Then 'check if not yet dropped
	y1 = 0 'start position
	x1a(x1) = 1 'flag that column has already been used
	x2 = 0: vx2 = 0: OldY = 0' initialize variables

    Else
	x1 = -1 'flag that no column chosen
    End If

    Else 'if column already found, then drop it

    If i = 0 Then 'check if jagged drop

	'make sure effective width does not get too small
	If x2 >= Boxwidth - 5 Then
	x2 = Boxwidth - 5
	vx2 = -vx2 'reverse direction
	End If

	j = x2 / 2 'get half of change

	'shift column
	DC = Original.hDC
	BitBlt hDC, x1 * Boxwidth + j, y1, Boxwidth - x2, ScaleHeight - y1, DC, x1 * Boxwidth + j, 0, &HCC0020'source copy
    
	'blank top of column
	BitBlt hDC, x1 * Boxwidth + j, OldY, Boxwidth - x2, y1 - OldY + 1, DC, x1 * Boxwidth + j, 0, &H42'blackout
    
    Else ' not jagged drop

	'shift column
	DC = Original.hDC
	BitBlt hDC, x1 * Boxwidth, y1, Boxwidth, ScaleHeight - y1, DC, x1 * Boxwidth, 0, &HCC0020  'source copy
    
	'blank top of column
	BitBlt hDC, x1 * Boxwidth, OldY, Boxwidth, y1 - OldY + 1, DC, x1 * Boxwidth, 0, &H42'blackout
    
    End If

    'save current position
    OldY = y1

    'check if off screen
    If (y1 > ScaleHeight) Then
	x1 = -1 'flag done
	vy1 = 0'zero velocity again
    End If

    'determine new acceleration
    ay1 = Rnd * .25
    ax2 = Rnd * .25 - .125
    
    'calculate new positions
    y1 = y1 + vy1
    x2 = x2 + vx2
    
    'calculate new velocity
    vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = vy1 / 2: ay1 = 0
    vx2 = (vx2 + ax2): If Abs(vx2) > MaxSpeedX Then vx2 = vx2 / 2: ax2 = 0
    
    End If

  End If

End Sub

Sub FilledCircles ()
  
  ' have a single filled elipse trace across the screen

  Dim i As Integer, j As Integer, k As Integer, n As Integer
  Dim xRadius As Integer, yRadius As Integer

  ' if first time then initialize
  If PlotInit = False Then

    'see if we need to reset changes made from previous init
    If PlotEnd = False Then

      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    Cls
    ForeColor = QBColor(15)
    FillColor = ForeColor
    BackColor = QBColor(0)
    FillStyle = 0' use solid fill

    ' set index to count number of times to repeat color
    '   to past maxvalue so that it will be recalculated
    RepeatIndex = MaxLines + 1

    'determine initial position of line
    x1 = Rnd * ScaleWidth
    x2 = Rnd * ScaleWidth
    y1 = Rnd * ScaleHeight
    y2 = Rnd * ScaleHeight

    'set initial velocity
    vx1 = 0
    vx2 = 0
    vy1 = 0
    vy2 = 0

    'set initial acceleration
    ax1 = 0
    ax2 = 0
    ay1 = 0
    ay2 = 0
    
    'find background color
    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

  Else 'reset changes done by previous init

    FillStyle = 1 'transparent fill

  End If

  Else  ' put run code here

    ' check if time to get a new color
    If RepeatIndex > RepeatCount Then
    
	' get random fore ground color
	i = Rnd * 255: If i > 255 Then i = 255
	j = Rnd * 255: If j > 255 Then j = 255
	k = Rnd * 255: If k > 255 Then k = 255
	ForeColor = RGB(i, j, k)

	' get random fill color
	i = Rnd * 255: If i > 255 Then i = 255
	j = Rnd * 255: If j > 255 Then j = 255
	k = Rnd * 255: If k > 255 Then k = 255
	FillColor = GetNearestColor(hDC, RGB(i, j, k))

	RepeatIndex = 1
    Else
	RepeatIndex = RepeatIndex + 1
    End If

	'Draw new Circle
	xRadius = Abs(x1 - x2) / 2
	yRadius = Abs(y1 - y2) / 2
	If xRadius <> 0 Then
	    Circle ((x1 + x2) / 2, (y1 + y2) / 2), xRadius, , , , yRadius / xRadius
	End If

	'Move pointer to next item
	Pointer = Pointer + 1
	If Pointer > MaxLines Then
	    Pointer = 1
	End If

	'determine new acceleration
	ax1 = Rnd - .5
	ax2 = Rnd - .5
	ay1 = Rnd - .5
	ay2 = Rnd - .5

	'calculate new position
	x1 = x1 + vx1
	x2 = x2 + vx2
	y1 = y1 + vy1
	y2 = y2 + vy2

	'calculate new velocity
	vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = 0: ax1 = 0
	vx2 = (vx2 + ax2): If Abs(vx2) > MaxSpeedX Then vx2 = 0: ax2 = 0
	vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = 0: ay1 = 0
	vy2 = (vy2 + ay2): If Abs(vy2) > MaxSpeedY Then vy2 = 0: ay2 = 0

	'check if off screen
	If (x1 > ScaleWidth) Then
	    'change direction
	    vx1 = -Abs(vx1)
	ElseIf (x1 < 0) Then
	    'change direction
	    vx1 = Abs(vx1)
	End If

	If (y1 > ScaleHeight) Then
	    'change direction
	    vy1 = -Abs(vy1)
	ElseIf (y1 < 0) Then
	    'change direction
	    vy1 = Abs(vy1)
	End If

	If (x2 > ScaleWidth) Then
	    'change direction
	    vx2 = -Abs(vx2)
	ElseIf (x2 < 0) Then
	    'change direction
	    vx2 = Abs(vx2)
	End If

	If (y2 > ScaleHeight) Then
	    'change direction
	    vy2 = -Abs(vy2)
	ElseIf (y2 < 0) Then
	    'change direction
	    vy2 = Abs(vy2)
	End If


  End If


End Sub

Sub FilledPolygons ()

  ' draw a randomly moving polygon on the screen
  ' slightly offset from previous polygon

  Dim i As Integer, j As Integer, k As Integer, ii As Integer, n As Integer
  Static Sets As Integer
  
  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    ForeColor = RGB(255, 255, 255)
    BackColor = RGB(0, 0, 0)
    FillStyle = 0' use solid fill
    DrawWidth = 1' use narrow line
    j = SetPolyFillMode(hDC, 2)' use winding fill mode
    Cls

    'set number of corners between 3 and 5
    Sets = Rnd * 4 + 3

    'Set array size and clear the elements
    ReDim Points(Sets) As POINTAPI
    ReDim vx1sa(Sets) As Single
    ReDim vy1sa(Sets) As Single
    ReDim ax1sa(Sets) As Single
    ReDim ay1sa(Sets) As Single
    
    'counter for changing colors, set to overflow
    RepeatIndex = RepeatCount + 1
    
    For j = 1 To Sets

	'determine initial position of line
	Points(j).x = Rnd * ScaleWidth
	Points(j).y = Rnd * ScaleHeight

    Next j
    
    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

  Else 'reset changes done by previous init

    ReDim Points(0) As POINTAPI
    ReDim vx1sa(0) As Single
    ReDim vy1sa(0) As Single
    ReDim ax1sa(0) As Single
    ReDim ay1sa(0) As Single

    FillStyle = 1 'transparent fill
    j = SetPolyFillMode(hDC, 1)' reset to alternate fill mode
    
  End If

  Else  ' put run code here


    ' check if time to get a new color
    If RepeatIndex > RepeatCount Then
    
	'set fill color
	i = Rnd * 255: If i > 255 Then i = 255
	j = Rnd * 255: If j > 255 Then j = 255
	k = Rnd * 255: If k > 255 Then k = 255
	FillColor = GetNearestColor(hDC, RGB(i, j, k))
	
	'set foreground color
	i = Rnd * 255: If i > 255 Then i = 255
	j = Rnd * 255: If j > 255 Then j = 255
	k = Rnd * 255: If k > 255 Then k = 255
	ForeColor = RGB(i, j, k)
	
	RepeatIndex = 1
    Else
	RepeatIndex = RepeatIndex + 1
    End If


	'Draw polygon
	j = Polygon(hDC, Points(0), Sets)

	For j = 1 To Sets

	    'determine new acceleration
	    ax1sa(j) = Rnd - .5
	    ay1sa(j) = Rnd - .5
	    
	    'calculate new position
	    Points(j).x = Points(j).x + vx1sa(j)
	    Points(j).y = Points(j).y + vy1sa(j)

	    'calculate new velocity
	    vx1sa(j) = (vx1sa(j) + ax1sa(j)): If Abs(vx1sa(j)) > MaxSpeedX Then vx1sa(j) = 0: ax1sa(j) = 0
	    vy1sa(j) = (vy1sa(j) + ay1sa(j)): If Abs(vy1sa(j)) > MaxSpeedY Then vy1sa(j) = 0: ay1sa(j) = 0

	    'check if off screen
	    If (Points(j).x > ScaleWidth) Then
		'change direction
		vx1sa(j) = -Abs(vx1sa(j))
	    ElseIf (Points(j).x < 0) Then
		'change direction
		vx1sa(j) = Abs(vx1sa(j))
	    End If

	    If (Points(j).y > ScaleHeight) Then
		'change direction
		vy1sa(j) = -Abs(vy1sa(j))
	    ElseIf (Points(j).y < 0) Then
		'change direction
		vy1sa(j) = Abs(vy1sa(j))
	    End If

	Next j
    
    End If


End Sub

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
    LogFile ("KeyPress, Terminating")
    EndScrnsave                 ' End screen blanking
End Sub

Sub Form_Load ()

    ' stretch to full screen
    Move 0, 0, Screen.Width, Screen.Height
    
    'set system modal
    If TestMode = 0 Then
      i = SetSysModalWindow(hWND)
    End If

    'make mouse invisible
    If TestMode = 0 Then
      HideMouse
    End If

    'tell windows to disable screen savers
    i = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, False, 0, 0)
    
    DrawWidth = 1

    Randomize

    ' Initialize variables now
    MaxPlotType = 18
    ReadPriorities ' call each Plot type to get its priority

    'set plot type
    If StartSaver = 0 Then
      PlotType = MaxPlotType * Rnd
    Else
      PlotType = StartSaver
    End If

    If PlotType > MaxPlotType Then PlotType = 1

    LogFile ("First Saver is " + Str$(PlotType))

    PlotPriority = False
    PlotInit = False
    PlotEnd = False

    TimeInterval = 0
    MaxTime = MaxChangeMinutes * 60 + Timer ' calculate time in seconds

    'set tick rate
    Tick.Interval = 50

    Repeats = 1 ' number of drawings to make before returning

    Tick.Enabled = True

End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
    If IsEmpty(MouseX) Or IsEmpty(MouseY) Then
	MouseX = x
	MouseY = y
	LogFile ("First Mouse Movement (" + Str$(x) + "," + Str$(y) + ")")
    End If

    '
    ' Only unblank the screen if the mouse moves quickly
    ' enough (more than 2 pixels at one time.
    '
    If Abs(MouseX - x) > 2 Or Abs(MouseY - y) > 2 Then
       LogFile ("Mouse Movement (" + Str$(x) + "," + Str$(y) + "), Terminating")
       LogFile ("Old Pos (" + Str$(MouseX) + "," + Str$(MouseY) + "), Terminating")
       EndScrnsave             ' End screen blanking
    End If
    LogFile ("Mouse Movement (" + Str$(x) + "," + Str$(y) + "), Continuing")
    MouseX = x                   ' Remember last position
    MouseY = y
End Sub

Sub Form_Paint ()
    
    ' stretch to full screen
    Move 0, 0, Screen.Width, Screen.Height

End Sub

Function GetSize (FileName$) As Integer
    
    Dim InLine$
    Dim Loaded As Integer

    Open FileName$ For Binary As #1

    '*****************************************************
    'read header
    InLine$ = Input$(26, 1)
    
    If Asc(Mid$(InLine$, 1, 1)) <> &H42 Then GoTo errorexit
    If Asc(Mid$(InLine$, 2, 1)) <> &H4D Then GoTo errorexit

    PicWidth = Asc(Mid$(InLine$, 19, 1)) + Asc(Mid$(InLine$, 20, 1)) * 256
    PicHeight = Asc(Mid$(InLine$, 23, 1)) + Asc(Mid$(InLine$, 24, 1)) * 256

    'Debug.Print SWidth, SHeight

    Close #1

    Loaded = 1 'flag good read

    GoTo regexit

errorexit: Loaded = 0
regexit: ' no error exit
    GetSize = Loaded'return read state
End Function

Sub Kalied ()
  
  ' have a line and its mirror images trace across the
  ' screen with multiple previous copies following
  ' it

  Dim i As Integer, j As Integer, k As Integer, n As Integer
  Dim il As Long, jl As Long, kl As Long
  Dim xRadius As Integer, yRadius As Integer
  Dim HighMirror As Integer
  Dim xx1 As Integer, yy1 As Integer, xx2 As Integer, yy2 As Integer
  Dim xm1 As Integer, ym1 As Integer, xm2 As Integer, ym2 As Integer

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    Cls
    ForeColor = QBColor(15)

    'select mirroring method
    HighMirror = 4
    Mirror = Rnd * HighMirror + 1: If Mirror > HighMirror Then Mirror = 1

    'Set array size and clear the elements
    ReDim x1a(MaxLines) As Integer
    ReDim x2a(MaxLines) As Integer
    ReDim y1a(MaxLines) As Integer
    ReDim y2a(MaxLines) As Integer

    Pointer = 1     ' start with array element 1
    
    ' set index to count number of times to repeat color
    '   to past maxvalue so that it will be recalculated
    RepeatIndex = MaxLines + 1

    'determine initial position of line
    x1 = Rnd * ScaleWidth
    x2 = Rnd * ScaleWidth
    y1 = Rnd * ScaleHeight
    y2 = Rnd * ScaleHeight

    'set initial velocity
    vx1 = 0
    vx2 = 0
    vy1 = 0
    vy2 = 0

    'set initial acceleration
    ax1 = 0
    ax2 = 0
    ay1 = 0
    ay2 = 0
    
    'find background color
    m = QBColor(0)

    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

    'get conversion factors
    conv2x = 1# * ScaleWidth / ScaleHeight
    conv2y = 1# / conv2x

    'set tick rate
    Tick.Interval = 50


  Else 'reset changes done by previous init

    'reset tick rate
    Tick.Interval = 50

    'zero array sizes
    ReDim x1a(0) As Integer
    ReDim x2a(0) As Integer
    ReDim y1a(0) As Integer
    ReDim y2a(0) As Integer

  End If

  Else  ' put run code here


    ' check if time to get a new color
    If RepeatIndex > RepeatCount Then
    
	' use rgb function
	Do
	  il = Rnd * 255: If il > 255 Then il = 255
	  jl = Rnd * 255: If jl > 255 Then jl = 255
	  kl = Rnd * 255: If kl > 255 Then kl = 255
	Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	l = RGB(il, jl, kl)

	RepeatIndex = 1
    Else
	RepeatIndex = RepeatIndex + 1
    End If

	'Delete original Lines
	xx1 = x1a(Pointer): yy1 = y1a(Pointer)
	xx2 = x2a(Pointer): yy2 = y2a(Pointer)
	Select Case Mirror
	Case 1: 'mirror on x and y axis
	    Line (xx1, yy1)-(xx2, yy2), m
	    Line (ScaleWidth - xx1, yy1)-(ScaleWidth - xx2, yy2), m
	    Line (xx1, ScaleHeight - yy1)-(xx2, ScaleHeight - yy2), m
	    Line (ScaleWidth - xx1, ScaleHeight - yy1)-(ScaleWidth - xx2, ScaleHeight - yy2), m

	Case 2: 'mirror on Y axis
	    Line (xx1, yy1)-(xx2, yy2), m
	    Line (ScaleWidth - xx1, yy1)-(ScaleWidth - xx2, yy2), m

	Case 3: 'mirror around center point
	    Line (xx1, yy1)-(xx2, yy2), m
	    Line (ScaleWidth - xx1, ScaleHeight - yy1)-(ScaleWidth - xx2, ScaleHeight - yy2), m

	Case 4: 'mirror on x and y axis and diagonally
	    Line (xx1, yy1)-(xx2, yy2), m
	    Line (ScaleWidth - xx1, yy1)-(ScaleWidth - xx2, yy2), m
	    Line (xx1, ScaleHeight - yy1)-(xx2, ScaleHeight - yy2), m
	    Line (ScaleWidth - xx1, ScaleHeight - yy1)-(ScaleWidth - xx2, ScaleHeight - yy2), m

	    'mirror diagonally
	    xm1 = yy1 * conv2x
	    ym1 = xx1 * conv2y
	    xm2 = yy2 * conv2x
	    ym2 = xx2 * conv2y
	    Line (xm1, ym1)-(xm2, ym2), m
	    Line (ScaleWidth - xm1, ym1)-(ScaleWidth - xm2, ym2), m
	    Line (xm1, ScaleHeight - ym1)-(xm2, ScaleHeight - ym2), m
	    Line (ScaleWidth - xm1, ScaleHeight - ym1)-(ScaleWidth - xm2, ScaleHeight - ym2), m


	Case Else: Mirror = 1' if invalid value set, then change
	
	End Select

	'Save New Lines
	x1a(Pointer) = x1
	x2a(Pointer) = x2
	y1a(Pointer) = y1
	y2a(Pointer) = y2

	'Draw New Lines
	Select Case Mirror
	Case 1: 'mirror on x and y axis
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, y1)-(ScaleWidth - x2, y2), l
	    Line (x1, ScaleHeight - y1)-(x2, ScaleHeight - y2), l
	    Line (ScaleWidth - x1, ScaleHeight - y1)-(ScaleWidth - x2, ScaleHeight - y2), l

	Case 2: 'mirror on Y axis
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, y1)-(ScaleWidth - x2, y2), l

	Case 3: 'mirror around center point
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, ScaleHeight - y1)-(ScaleWidth - x2, ScaleHeight - y2), l

	Case 4: 'mirror on x and y axis and diagonally
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, y1)-(ScaleWidth - x2, y2), l
	    Line (x1, ScaleHeight - y1)-(x2, ScaleHeight - y2), l
	    Line (ScaleWidth - x1, ScaleHeight - y1)-(ScaleWidth - x2, ScaleHeight - y2), l

	    'mirror diagonally
	    xm1 = y1 * conv2x
	    ym1 = x1 * conv2y
	    xm2 = y2 * conv2x
	    ym2 = x2 * conv2y
	    Line (xm1, ym1)-(xm2, ym2), l
	    Line (ScaleWidth - xm1, ym1)-(ScaleWidth - xm2, ym2), l
	    Line (xm1, ScaleHeight - ym1)-(xm2, ScaleHeight - ym2), l
	    Line (ScaleWidth - xm1, ScaleHeight - ym1)-(ScaleWidth - xm2, ScaleHeight - ym2), l

	Case Else: Mirror = 1' if invalid value set, then change
	
	End Select

	'Move pointer to next item
	Pointer = Pointer + 1
	If Pointer > MaxLines Then
	    Pointer = 1
	End If

	'determine new acceleration
	ax1 = Rnd - .5
	ax2 = Rnd - .5
	ay1 = Rnd - .5
	ay2 = Rnd - .5

	'calculate new position
	x1 = x1 + vx1
	x2 = x2 + vx2
	y1 = y1 + vy1
	y2 = y2 + vy2

	'calculate new velocity
	vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = 0: ax1 = 0
	vx2 = (vx2 + ax2): If Abs(vx2) > MaxSpeedX Then vx2 = 0: ax2 = 0
	vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = 0: ay1 = 0
	vy2 = (vy2 + ay2): If Abs(vy2) > MaxSpeedY Then vy2 = 0: ay2 = 0

	'check if off screen
	If (x1 > ScaleWidth) Then
	    'change direction
	    vx1 = -Abs(vx1)
	ElseIf (x1 < 0) Then
	    'change direction
	    vx1 = Abs(vx1)
	End If

	If (y1 > ScaleHeight) Then
	    'change direction
	    vy1 = -Abs(vy1)
	ElseIf (y1 < 0) Then
	    'change direction
	    vy1 = Abs(vy1)
	End If

	If (x2 > ScaleWidth) Then
	    'change direction
	    vx2 = -Abs(vx2)
	ElseIf (x2 < 0) Then
	    'change direction
	    vx2 = Abs(vx2)
	End If

	If (y2 > ScaleHeight) Then
	    'change direction
	    vy2 = -Abs(vy2)
	ElseIf (y2 < 0) Then
	    'change direction
	    vy2 = Abs(vy2)
	End If

    
    End If

End Sub

Sub Kalied2 ()
  
  ' have a line and its mirror images trace across the
  ' screen with all the previous copies left on the screen
  ' until the maximum is reached and the screen cleared

  Dim i As Integer, j As Integer, k As Integer, n As Integer
  Dim il As Long, jl As Long, kl As Long
  Dim xRadius As Integer, yRadius As Integer
  Dim HighMirror As Integer
  Dim xm1 As Integer, ym1 As Integer, xm2 As Integer, ym2 As Integer

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = True Then
      Exit Sub
    End If
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    Cls
    ForeColor = QBColor(15)

    'select mirroring method
    HighMirror = 4
    Mirror = Rnd * HighMirror + 1: If Mirror > HighMirror Then Mirror = 1

    Pointer = 1     ' set lines on screen to one
    
    ' set index to count number of times to repeat color
    '   to past maxvalue so that it will be recalculated
    RepeatIndex = MaxLines + 1

    'determine initial position of line
    x1 = Rnd * ScaleWidth
    x2 = Rnd * ScaleWidth
    y1 = Rnd * ScaleHeight
    y2 = Rnd * ScaleHeight

    'set initial velocity
    vx1 = 0
    vx2 = 0
    vy1 = 0
    vy2 = 0

    'set initial acceleration
    ax1 = 0
    ax2 = 0
    ay1 = 0
    ay2 = 0
    
    'find background color
    m = QBColor(0)

    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

    'get conversion factors
    conv2x = 1# * ScaleWidth / ScaleHeight
    conv2y = 1# / conv2x

  Else  ' put run code here


    ' check if time to get a new color
    If RepeatIndex > RepeatCount Then
    
	' use rgb function
	Do
	  il = Rnd * 255: If il > 255 Then il = 255
	  jl = Rnd * 255: If jl > 255 Then jl = 255
	  kl = Rnd * 255: If kl > 255 Then kl = 255
	Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	l = RGB(il, jl, kl)

	RepeatIndex = 1
    Else
	RepeatIndex = RepeatIndex + 1
    End If

	'Draw New Lines
	Select Case Mirror
	Case 1: 'mirror on x and y axis
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, y1)-(ScaleWidth - x2, y2), l
	    Line (x1, ScaleHeight - y1)-(x2, ScaleHeight - y2), l
	    Line (ScaleWidth - x1, ScaleHeight - y1)-(ScaleWidth - x2, ScaleHeight - y2), l

	Case 2: 'mirror on Y axis
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, y1)-(ScaleWidth - x2, y2), l

	Case 3: 'mirror around center point
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, ScaleHeight - y1)-(ScaleWidth - x2, ScaleHeight - y2), l
	
	Case 4: 'mirror on x and y axis and diagonally
	    Line (x1, y1)-(x2, y2), l
	    Line (ScaleWidth - x1, y1)-(ScaleWidth - x2, y2), l
	    Line (x1, ScaleHeight - y1)-(x2, ScaleHeight - y2), l
	    Line (ScaleWidth - x1, ScaleHeight - y1)-(ScaleWidth - x2, ScaleHeight - y2), l

	    'mirror diagonally
	    xm1 = y1 * conv2x
	    ym1 = x1 * conv2y
	    xm2 = y2 * conv2x
	    ym2 = x2 * conv2y
	    Line (xm1, ym1)-(xm2, ym2), l
	    Line (ScaleWidth - xm1, ym1)-(ScaleWidth - xm2, ym2), l
	    Line (xm1, ScaleHeight - ym1)-(xm2, ScaleHeight - ym2), l
	    Line (ScaleWidth - xm1, ScaleHeight - ym1)-(ScaleWidth - xm2, ScaleHeight - ym2), l

	Case Else: Mirror = 1' if invalid value set, then change
	
	End Select

	' count total lines on screen
	Pointer = Pointer + 1
	If Pointer > MaxCums Then
	    'when maximum reached then clear
	    Cls
	    Pointer = 1
	End If

	'determine new acceleration
	ax1 = Rnd - .5
	ax2 = Rnd - .5
	ay1 = Rnd - .5
	ay2 = Rnd - .5

	'calculate new position
	x1 = x1 + vx1
	x2 = x2 + vx2
	y1 = y1 + vy1
	y2 = y2 + vy2

	'calculate new velocity
	vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = 0: ax1 = 0
	vx2 = (vx2 + ax2): If Abs(vx2) > MaxSpeedX Then vx2 = 0: ax2 = 0
	vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = 0: ay1 = 0
	vy2 = (vy2 + ay2): If Abs(vy2) > MaxSpeedY Then vy2 = 0: ay2 = 0

	'check if off screen
	If (x1 > ScaleWidth) Then
	    'change direction
	    vx1 = -Abs(vx1)
	ElseIf (x1 < 0) Then
	    'change direction
	    vx1 = Abs(vx1)
	End If

	If (y1 > ScaleHeight) Then
	    'change direction
	    vy1 = -Abs(vy1)
	ElseIf (y1 < 0) Then
	    'change direction
	    vy1 = Abs(vy1)
	End If

	If (x2 > ScaleWidth) Then
	    'change direction
	    vx2 = -Abs(vx2)
	ElseIf (x2 < 0) Then
	    'change direction
	    vx2 = Abs(vx2)
	End If

	If (y2 > ScaleHeight) Then
	    'change direction
	    vy2 = -Abs(vy2)
	ElseIf (y2 < 0) Then
	    'change direction
	    vy2 = Abs(vy2)
	End If

    
    End If


End Sub

Sub Lines ()

  ' have a random number of lines trace across the
  ' screen with multiple previous copies following
  ' them

  Dim i As Integer, j As Integer, k As Integer, ii As Integer, n As Integer
  Dim il As Long, jl As Long, kl As Long
  Static Sets As Integer
  
  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    Cls
    ForeColor = QBColor(15)

    'set number of sets between 1 and 4
    Sets = Rnd * 3 + 1

    'Set array size and clear the elements
    ReDim x1da(MaxLines, Sets) As Integer
    ReDim x2da(MaxLines, Sets) As Integer
    ReDim y1da(MaxLines, Sets) As Integer
    ReDim y2da(MaxLines, Sets) As Integer
    ReDim x1sa(Sets) As Single
    ReDim x2sa(Sets) As Single
    ReDim y1sa(Sets) As Single
    ReDim y2sa(Sets) As Single
    ReDim vx1sa(Sets) As Single
    ReDim vx2sa(Sets) As Single
    ReDim vy1sa(Sets) As Single
    ReDim vy2sa(Sets) As Single
    ReDim ax1sa(Sets) As Single
    ReDim ax2sa(Sets) As Single
    ReDim ay1sa(Sets) As Single
    ReDim ay2sa(Sets) As Single
    ReDim Colors(Sets) As Long
    
    Pointer = 1     ' start with array element 1
    
    ' set index to count number of times to repeat color
    '   to past maxvalue so that it will be recalculated
    RepeatIndex = MaxLines + 1

    For j = 1 To Sets

	'determine initial position of line
	x1sa(j) = Rnd * ScaleWidth
	x2sa(j) = Rnd * ScaleWidth
	y1sa(j) = Rnd * ScaleHeight
	y2sa(j) = Rnd * ScaleHeight

    Next j
    
    'find background color
    m = QBColor(0)

    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600


  Else 'reset changes done by previous init

    'Set array size and clear the elements
    ReDim x1da(0, 0) As Integer
    ReDim x2da(0, 0) As Integer
    ReDim y1da(0, 0) As Integer
    ReDim y2da(0, 0) As Integer
    ReDim x1sa(0) As Single
    ReDim x2sa(0) As Single
    ReDim y1sa(0) As Single
    ReDim y2sa(0) As Single
    ReDim vx1sa(0) As Single
    ReDim vx2sa(0) As Single
    ReDim vy1sa(0) As Single
    ReDim vy2sa(0) As Single
    ReDim ax1sa(0) As Single
    ReDim ax2sa(0) As Single
    ReDim ay1sa(0) As Single
    ReDim ay2sa(0) As Single
    ReDim Colors(0) As Long
    
  End If

  Else  ' put run code here


    ' check if time to get a new color
    If RepeatIndex > RepeatCount Then
    
	' use rgb function
	For ii = 1 To Sets
	  Do
	    il = Rnd * 255: If il > 255 Then il = 255
	    jl = Rnd * 255: If jl > 255 Then jl = 255
	    kl = Rnd * 255: If kl > 255 Then kl = 255
	  Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	  Colors(ii) = RGB(il, jl, kl)
	Next ii

	RepeatIndex = 1
    Else
	RepeatIndex = RepeatIndex + 1
    End If

	'Delete original Lines
	For j = 1 To Sets
	    Line (x1da(Pointer, j), y1da(Pointer, j))-(x2da(Pointer, j), y2da(Pointer, j)), m
	Next j

	For j = 1 To Sets

	    'Save New Lines
	    x1da(Pointer, j) = x1sa(j)
	    x2da(Pointer, j) = x2sa(j)
	    y1da(Pointer, j) = y1sa(j)
	    y2da(Pointer, j) = y2sa(j)

	    'Draw new Line
	    Line (x1da(Pointer, j), y1da(Pointer, j))-(x2da(Pointer, j), y2da(Pointer, j)), Colors(j)

	Next j

	'Move pointer to next item
	Pointer = Pointer + 1
	If Pointer > MaxLines Then
	    Pointer = 1
	End If

	For j = 1 To Sets

	    'determine new acceleration
	    ax1sa(j) = Rnd - .5
	    ax2sa(j) = Rnd - .5
	    ay1sa(j) = Rnd - .5
	    ay2sa(j) = Rnd - .5

	    'calculate new position
	    x1sa(j) = x1sa(j) + vx1sa(j)
	    x2sa(j) = x2sa(j) + vx2sa(j)
	    y1sa(j) = y1sa(j) + vy1sa(j)
	    y2sa(j) = y2sa(j) + vy2sa(j)

	    'calculate new velocity
	    vx1sa(j) = (vx1sa(j) + ax1sa(j)): If Abs(vx1sa(j)) > MaxSpeedX Then vx1sa(j) = 0: ax1sa(j) = 0
	    vx2sa(j) = (vx2sa(j) + ax2sa(j)): If Abs(vx2sa(j)) > MaxSpeedX Then vx2sa(j) = 0: ax2sa(j) = 0
	    vy1sa(j) = (vy1sa(j) + ay1sa(j)): If Abs(vy1sa(j)) > MaxSpeedY Then vy1sa(j) = 0: ay1sa(j) = 0
	    vy2sa(j) = (vy2sa(j) + ay2sa(j)): If Abs(vy2sa(j)) > MaxSpeedY Then vy2sa(j) = 0: ay2sa(j) = 0

	    'check if off screen
	    If (x1sa(j) > ScaleWidth) Then
		'change direction
		vx1sa(j) = -Abs(vx1sa(j))
	    ElseIf (x1sa(j) < 0) Then
		'change direction
		vx1sa(j) = Abs(vx1sa(j))
	    End If

	    If (y1sa(j) > ScaleHeight) Then
		'change direction
		vy1sa(j) = -Abs(vy1sa(j))
	    ElseIf (y1sa(j) < 0) Then
		'change direction
		vy1sa(j) = Abs(vy1sa(j))
	    End If

	    If (x2sa(j) > ScaleWidth) Then
		'change direction
		vx2sa(j) = -Abs(vx2sa(j))
	    ElseIf (x2sa(j) < 0) Then
		'change direction
		vx2sa(j) = Abs(vx2sa(j))
	    End If

	    If (y2sa(j) > ScaleHeight) Then
		'change direction
		vy2sa(j) = -Abs(vy2sa(j))
	    ElseIf (y2sa(j) < 0) Then
		'change direction
		vy2sa(j) = Abs(vy2sa(j))
	    End If

	Next j
    
    
  End If

End Sub

Sub MultiSpiros ()

  'Do spirograph like figures

  'reserve memory
  Const Deg2Pi = PI / 180
  Static MaxRad As Integer'maximum radius for circles
  Const MaxNodes = 35'maximum number of nodes on spiro
  Dim Nodes As Integer
  Const MaxRpts = 7'max times to go around circle
  Dim Rpts As Integer
  Const PlotPoints = 4'number of points to plot each time
  Const ClearCount = 3'number on screen before clearing
  Static PlotAngleIncr As Single
  Static PlotEndAngle As Single
  Static PlotAngle As Single
  Static SinIncr As Single
  Static SinAngle As Single
  Static Xcenter As Integer
  Static Ycenter As Integer
  Static Xincr As Integer
  Static Yincr As Integer
  Const MaxSpiro = 8' maximum number of simultaneous spiros
  Static SpiroCnt As Integer
  Static Rad1 As Integer
  Static Rad2 As Integer
  Dim R As Single
  Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
  Dim il As Long, jl As Long, kl As Long

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
      PlotInit = True
      ForeColor = RGB(255, 255, 255)
      BackColor = RGB(0, 0, 0)
      Cls

     'initialize variables used
     PlotEndAngle = 0
     PlotAngle = 10
     MaxRad = ScaleHeight / 3'maximum radius for circles
     Pointer = 0

    Else 'reset changes done by previous init

      DrawWidth = 1' use narrow line
    
    End If

  Else  ' put run code here


    ' check if time to do new spiro
    If PlotAngle > PlotEndAngle Then
    
	'set foreground color
	Do
	  il = Rnd * 255: If il > 255 Then il = 255
	  jl = Rnd * 255: If jl > 255 Then jl = 255
	  kl = Rnd * 255: If kl > 255 Then kl = 255
	Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	ForeColor = RGB(il, jl, kl)

	PlotAngle = Rnd * 180 * Deg2Pi'initial offset
	Rpts = Rnd * MaxRpts + .5
	PlotAngleIncr = .125 * Rpts * Deg2Pi
	PlotEndAngle = 360 * Rpts * Deg2Pi + PlotAngle + PlotAngleIncr
	Nodes = Rnd * MaxNodes + .5
	SinIncr = PlotAngleIncr * Nodes / Rpts
	SinAngle = 0
	Rad1 = MaxRad * Rnd
	Rad2 = MaxRad * Rnd

	'get location of first
	Xcenter = Rnd * ScaleWidth * 3 / 4 + ScaleWidth / 8
	Ycenter = Rnd * ScaleHeight * 3 / 4 + ScaleHeight / 8

	'get location of last
	i = Rnd * ScaleWidth * 3 / 4 + ScaleWidth / 8
	j = Rnd * ScaleHeight * 3 / 4 + ScaleHeight / 8

	'get number
	SpiroCnt = (MaxSpiro - 2) * Rnd + 2' maximum number of simultaneous spiros

	'calculate increment
	Xincr = (i - Xcenter) / (SpiroCnt - 1)
	Yincr = (j - Ycenter) / (SpiroCnt - 1)

	DrawWidth = 1 + 2 * Rnd ' set line width

	GoSub 3000 'calculate x1 and y1

	Cls
	
    End If

    For i = 1 To PlotPoints

      GoSub 3000 'calculate x1 and y1

      k = x1: l = y1: m = LastX: n = LastY

      'plot each spiro
      For j = 1 To SpiroCnt

	'draw line
	Line (m, n)-(k, l)

	'get location for next
	k = k + Xincr: l = l + Yincr
	m = m + Xincr: n = n + Yincr

      Next j

    Next i
    
  End If

  Exit Sub

3000 'calculate new point on screen
  LastX = x1: LastY = y1
  R = Rad1 + Rad2 * Sin(SinAngle)
  x1 = R * Cos(PlotAngle) + Xcenter
  y1 = R * Sin(PlotAngle) + Ycenter
  SinAngle = SinAngle + SinIncr
  PlotAngle = PlotAngle + PlotAngleIncr

  Return


End Sub

Sub NextSelection ()

Dim i As Integer
Dim Level As Single

If RandomFlag <> 0 Then
  ' pick a new selection but not the same as the last
  Do
    'i = Int(Rnd * MaxPlotType) + 1'choose next one at random
    Level = Rnd * TotalPriority' get random proportion of TP

    'now search array to see which saver this prop. falls into
    i = 1
    While (PriorityBreakPoints(i) <= Level)
      i = i + 1
    Wend
    'Debug.Print i, Level, TotalPriority

    If (i > MaxPlotType) Or (i < 1) Then i = PlotType'flag to try again
  Loop While (i = PlotType)
  PlotType = i
	
Else
  PlotType = PlotType + 1
End If

LogFile ("Next Saver is " + Str$(PlotType))

End Sub

Function NumberOfColors () As Single

  Dim i As Integer, j As Integer, k As Integer

  ' get bits per pixel per plane
  i = GetDeviceCaps(hDC, BITSPIXEL)
  ' get number of planes
  j = GetDeviceCaps(hDC, PLANES)
  ' get total bits per pixel
  k = i * j
  NumberOfColors = 2# ^ k
End Function

Sub Patch ()

  ' copy blocks of original screen to random spots

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(1) = 0 Then
      Exit Sub
    End If
    
    ' set tick rate down
    Tick.Interval = 250

    ' start with original screen
    Picture = Original.Image
    
    PlotInit = True

    i = Int(Rnd * 2#) 'if i=0 then alternate reverse copy

  Else 'reset changes done by previous init

    Picture = LoadPicture() ' clear screen
	
    'reset tick rate
    Tick.Interval = 50

  End If

  Else  ' put run code here

    BoxHeight = Rnd * ScaleHeight / 2.5
    Boxwidth = Rnd * ScaleWidth / 2.5 * (8# / 6#)

    ' get random locations
    x1 = Rnd * ScaleWidth
    y1 = Rnd * ScaleHeight
    x2 = Rnd * ScaleWidth
    y2 = Rnd * ScaleHeight

    'make sure room in destination and source blocks
    If x1 + Boxwidth > ScaleWidth Then Boxwidth = ScaleWidth - x1
    If x2 + Boxwidth > ScaleWidth Then Boxwidth = ScaleWidth - x2
    If y1 + BoxHeight > ScaleHeight Then BoxHeight = ScaleHeight - y1
    If y2 + BoxHeight > ScaleHeight Then BoxHeight = ScaleHeight - y2

    'BitBlt Box from x2,y2 to x1,y1
    DC = Original.hDC
    If i = 0 And Rnd < .5 Then
	BitBlt hDC, x1, y1, Boxwidth, BoxHeight, DC, x2, y2, &H330008 'not source copy
    Else
	BitBlt hDC, x1, y1, Boxwidth, BoxHeight, DC, x2, y2, &HCC0020 'source copy
    End If
	
  End If

End Sub

Sub Polygons ()

  ' draw a randomly moving polygon on the screen
  ' with multiple previous copies following it

  Dim i As Integer, j As Integer, k As Integer, ii As Integer, n As Integer
  Dim il As Long, jl As Long, kl As Long
  Static Sets As Integer
  
  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    Cls
    ForeColor = QBColor(15)

    'set number of sets between 3 and 5
    Sets = Rnd * 2 + 3

    'Set array size and clear the elements
    ReDim x1da(MaxLines, Sets) As Integer
    ReDim y1da(MaxLines, Sets) As Integer
    ReDim x1sa(Sets) As Single
    ReDim y1sa(Sets) As Single
    ReDim vx1sa(Sets) As Single
    ReDim vy1sa(Sets) As Single
    ReDim ax1sa(Sets) As Single
    ReDim ay1sa(Sets) As Single
    
    Pointer = 1     ' start with array element 1
    
    ' set index to count number of times to repeat color
    '   to past maxvalue so that it will be recalculated
    RepeatIndex = MaxLines + 1

    For j = 1 To Sets

	'determine initial position of line
	x1sa(j) = Rnd * ScaleWidth
	y1sa(j) = Rnd * ScaleHeight

    Next j
    
    'find background color
    m = QBColor(0)

    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600


  Else 'reset changes done by previous init

    'Set array size and clear the elements
    ReDim x1da(0, 0) As Integer
    ReDim y1da(0, 0) As Integer
    ReDim x1sa(0) As Single
    ReDim y1sa(0) As Single
    ReDim vx1sa(0) As Single
    ReDim vy1sa(0) As Single
    ReDim ax1sa(0) As Single
    ReDim ay1sa(0) As Single
    
  End If

  Else  ' put run code here


    ' check if time to get a new color
    If RepeatIndex > RepeatCount Then
    
	Do
	  il = Rnd * 255: If il > 255 Then il = 255
	  jl = Rnd * 255: If jl > 255 Then jl = 255
	  kl = Rnd * 255: If kl > 255 Then kl = 255
	Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	l = RGB(il, jl, kl)
	
	RepeatIndex = 1
    Else
	RepeatIndex = RepeatIndex + 1
    End If

	'Delete original Lines
	Line (x1da(Pointer, 1), y1da(Pointer, 1))-(x1da(Pointer, 2), y1da(Pointer, 2)), m
	For j = 3 To Sets
	    Line -(x1da(Pointer, j), y1da(Pointer, j)), m
	Next j
	Line -(x1da(Pointer, 1), y1da(Pointer, 1)), m

	For j = 1 To Sets

	    'Save New Lines
	    x1da(Pointer, j) = x1sa(j)
	    y1da(Pointer, j) = y1sa(j)

	Next j

	'Draw New Lines
	Line (x1da(Pointer, 1), y1da(Pointer, 1))-(x1da(Pointer, 2), y1da(Pointer, 2)), l
	For j = 3 To Sets
	    Line -(x1da(Pointer, j), y1da(Pointer, j)), l
	Next j
	Line -(x1da(Pointer, 1), y1da(Pointer, 1)), l


	'Move pointer to next item
	Pointer = Pointer + 1
	If Pointer > MaxLines Then
	    Pointer = 1
	End If

	For j = 1 To Sets

	    'determine new acceleration
	    ax1sa(j) = Rnd - .5
	    ay1sa(j) = Rnd - .5
	    
	    'calculate new position
	    x1sa(j) = x1sa(j) + vx1sa(j)
	    y1sa(j) = y1sa(j) + vy1sa(j)

	    'calculate new velocity
	    vx1sa(j) = (vx1sa(j) + ax1sa(j)): If Abs(vx1sa(j)) > MaxSpeedX Then vx1sa(j) = 0: ax1sa(j) = 0
	    vy1sa(j) = (vy1sa(j) + ay1sa(j)): If Abs(vy1sa(j)) > MaxSpeedY Then vy1sa(j) = 0: ay1sa(j) = 0

	    'check if off screen
	    If (x1sa(j) > ScaleWidth) Then
		'change direction
		vx1sa(j) = -Abs(vx1sa(j))
	    ElseIf (x1sa(j) < 0) Then
		'change direction
		vx1sa(j) = Abs(vx1sa(j))
	    End If

	    If (y1sa(j) > ScaleHeight) Then
		'change direction
		vy1sa(j) = -Abs(vy1sa(j))
	    ElseIf (y1sa(j) < 0) Then
		'change direction
		vy1sa(j) = Abs(vy1sa(j))
	    End If

	Next j
    
    End If

End Sub

Sub Puzzle ()

  'scramble screen by shifting one column or row at a time
  
  Dim tempx As Integer, tempy As Integer
  Dim x As Integer, y As Integer

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(1) = 0 Then
      Exit Sub
    End If
    
    ' set tick rate down
    Tick.Interval = 1000

    ' start with original screen
    Picture = Original.Image
    
    'find background color
    m = QBColor(0)

    PlotInit = True

    Number = Rnd * 16 + 4
    'Number = 20

    BoxHeight = ScaleHeight / Number
    Boxwidth = ScaleWidth / Number

    'initialize blocks
    ReDim x1da(Number, Number) As Integer
    ReDim y1da(Number, Number) As Integer
    For x1 = 1 To Number
	For y1 = 1 To Number
	    x1da(x1, y1) = (x1 - 1) * Boxwidth
	    y1da(x1, y1) = (y1 - 1) * BoxHeight
	Next y1
    Next x1

  Else 'reset changes done by previous init

    ReDim x1da(0, 0) As Integer
    ReDim y1da(0, 0) As Integer

    'reset tick rate
    Tick.Interval = 50

    Picture = LoadPicture() ' clear screen

  End If

  Else  ' put run code here

    If Int(Rnd * 2) = 1 Then 'shift column
	x1 = Rnd * Number + 1: If x1 > Number Then x1 = 1
	If Int(Rnd * 2) = 1 Then 'shift down
	    tempx = x1da(x1, Number)
	    tempy = y1da(x1, Number)
	    For y1 = Number To 2 Step -1
		x1da(x1, y1) = x1da(x1, y1 - 1)
		y1da(x1, y1) = y1da(x1, y1 - 1)

		'BitBlt Box to x1,y1
		DC = Original.hDC
		x = (x1 - 1) * Boxwidth
		y = (y1 - 1) * BoxHeight
		BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
		Line (x, y)-Step(Boxwidth, BoxHeight), m, B
	    Next y1
	    y1 = 1
	    x1da(x1, y1) = tempx
	    y1da(x1, y1) = tempy

	    'BitBlt Box to x1,y1
	    DC = Original.hDC
	    x = (x1 - 1) * Boxwidth
	    y = (y1 - 1) * BoxHeight
	    BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
	    Line (x, y)-Step(Boxwidth, BoxHeight), m, B

	Else ' shift up

	    tempx = x1da(x1, 1)
	    tempy = y1da(x1, 1)
	    For y1 = 1 To (Number - 1)
		x1da(x1, y1) = x1da(x1, y1 + 1)
		y1da(x1, y1) = y1da(x1, y1 + 1)

		'BitBlt Box to x1,y1
		DC = Original.hDC
		x = (x1 - 1) * Boxwidth
		y = (y1 - 1) * BoxHeight
		BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
		Line (x, y)-Step(Boxwidth, BoxHeight), m, B
	    
	    Next y1
	    y1 = Number
	    x1da(x1, y1) = tempx
	    y1da(x1, y1) = tempy

	    'BitBlt Box to x1,y1
	    DC = Original.hDC
	    x = (x1 - 1) * Boxwidth
	    y = (y1 - 1) * BoxHeight
	    BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
	    Line (x, y)-Step(Boxwidth, BoxHeight), m, B

	End If

    Else ' shift row
	
	y1 = Rnd * Number + 1: If y1 > Number Then y1 = 1
	If Int(Rnd * 2) = 1 Then 'shift right
	    tempx = x1da(Number, y1)
	    tempy = y1da(Number, y1)
	    For x1 = Number To 2 Step -1
		x1da(x1, y1) = x1da(x1 - 1, y1)
		y1da(x1, y1) = y1da(x1 - 1, y1)

		'BitBlt Box to x1,y1
		DC = Original.hDC
		x = (x1 - 1) * Boxwidth
		y = (y1 - 1) * BoxHeight
		BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
		Line (x, y)-Step(Boxwidth, BoxHeight), m, B

	    Next x1
	    x1 = 1
	    x1da(x1, y1) = tempx
	    y1da(x1, y1) = tempy
		
	    'BitBlt Box to x1,y1
	    DC = Original.hDC
	    x = (x1 - 1) * Boxwidth
	    y = (y1 - 1) * BoxHeight
	    BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
	    Line (x, y)-Step(Boxwidth, BoxHeight), m, B

	Else 'shift left

	    tempx = x1da(1, y1)
	    tempy = y1da(1, y1)
	    For x1 = 1 To (Number - 1)
		x1da(x1, y1) = x1da(x1 + 1, y1)
		y1da(x1, y1) = y1da(x1 + 1, y1)

		'BitBlt Box to x1,y1
		DC = Original.hDC
		x = (x1 - 1) * Boxwidth
		y = (y1 - 1) * BoxHeight
		BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
		Line (x, y)-Step(Boxwidth, BoxHeight), m, B

	    Next x1
	    x1 = Number
	    x1da(x1, y1) = tempx
	    y1da(x1, y1) = tempy
		
	    'BitBlt Box to x1,y1
	    DC = Original.hDC
	    x = (x1 - 1) * Boxwidth
	    y = (y1 - 1) * BoxHeight
	    BitBlt hDC, x, y, Boxwidth, BoxHeight, DC, x1da(x1, y1), y1da(x1, y1), &HCC0020
	    Line (x, y)-Step(Boxwidth, BoxHeight), m, B

	End If

    End If

  End If


End Sub

Sub ReadPriorities ()
    
    Dim i As Integer
    ReDim PriorityBreakPoints(MaxPlotType + 1) As Single
    TotalPriority = 0

    'flad that we want to read priorities
    PlotPriority = True: PlotInit = False: PlotEnd = False

    For i = 1 To MaxPlotType
      Priority = 1#'default priority level
      PlotType = i: RunSelection' get priority for saver
      If Priority < 0# Then Priority = 0#
      TotalPriority = TotalPriority + Priority
      PriorityBreakPoints(i) = TotalPriority
    Next

    PriorityBreakPoints(MaxPlotType + 1) = TotalPriority + 3.402E+38

End Sub

Sub Replicate (FileName$)

  Dim x As Integer, y As Integer, x1 As Integer, y1 As Integer

  DoEvents
  DoEvents

  If GetSize(FileName$) = 0 Then Exit Sub

  DC = CreateDC("DISPLAY", 0&, 0&, 0&)

  'limit sizes
  If PicWidth > ScrnWidth Then PicWidth = ScrnWidth
  If PicHeight > ScrnHeight Then PicHeight = ScrnHeight

  If (PicWidth < ScrnWidth) Or (PicHeight < ScrnHeight) Then

    'need to center picture

    'first backup picture
    BitBlt Original.hDC, 0, 0, PicWidth, PicHeight, DC, 0, 0, &HCC0020

    'clear original
    Picture = LoadPicture()

    ' now copy back centered
    x = ScrnWidth / 2 - PicWidth / 2
    y = ScrnHeight / 2 - PicHeight / 2
    BitBlt DC, x, y, PicWidth, PicHeight, Original.hDC, 0, 0, &HCC0020


  End If

  If (PicWidth < ScrnWidth) Then 'fill row

    '1st copy left
    x1 = x
    While x1 > 0
      BitBlt DC, x1 - PicWidth, 0, PicWidth, ScrnHeight, DC, x, 0, &HCC0020
      x1 = x1 - PicWidth
    Wend
  
    'next copy right
    x1 = x
    While x1 < ScrnWidth
      BitBlt DC, x1 + PicWidth, 0, PicWidth, ScrnHeight, DC, x, 0, &HCC0020
      x1 = x1 + PicWidth
    Wend

  End If
  
  If (PicHeight < ScrnHeight) Then

    '1st copy up
    y1 = y
    While y1 > 0
      BitBlt DC, 0, y1 - PicHeight, ScrnWidth, PicHeight, DC, 0, y, &HCC0020
      y1 = y1 - PicHeight
    Wend
  
    'next copy down
    y1 = y
    While y1 < ScrnHeight
      BitBlt DC, 0, y1 + PicHeight, ScrnWidth, PicHeight, DC, 0, y, &HCC0020
      y1 = y1 + PicHeight
    Wend

  End If

  DeleteDC DC

End Sub

Sub Roll ()

  ' the display rolls both horizontally and vertically

  Dim v As Integer

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(1) = 0 Then
      Exit Sub
    End If
    
    ' start with original screen
    Picture = Original.Image

    PlotInit = True

    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

    ' initial velocities
    vy1 = 0: vx1 = 0

    ' initial offset
    x1 = 0: y1 = 0

    Direction = Rnd * 2: If Direction > 1 Then Direction = 0

  Else 'reset changes done by previous init

    Picture = LoadPicture() ' clear screen

  End If

  Else  ' put run code here

    DC = Original.hDC

    If Direction Then
	' do vertical scroll
	BitBlt hDC, 0, y1, ScaleWidth, ScaleHeight - y1, DC, 0, 0, &HCC0020
	BitBlt hDC, 0, 0, ScaleWidth, y1, DC, 0, ScaleHeight - y1, &HCC0020
    Else
	' do horizontal scroll
	BitBlt hDC, x1, 0, ScaleWidth - x1, ScaleHeight, DC, 0, 0, &HCC0020
	BitBlt hDC, 0, 0, x1, ScaleHeight, DC, ScaleWidth - x1, 0, &HCC0020
    End If

    'determine new acceleration
    ax1 = Rnd - .5
    ay1 = Rnd - .5
	    
    'calculate new velocity
    vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = 0: ax1 = 0
    vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = 0: ay1 = 0

    'find new roll amount
    x1 = x1 + vx1
    If x1 > ScaleWidth Then
	x1 = x1 - ScaleWidth
    Else
	If x1 < 0 Then
	    x1 = x1 + ScaleWidth
	End If
    End If
	    
    y1 = y1 + vy1
    If y1 > ScaleHeight Then
	y1 = y1 - ScaleHeight
    Else
	If y1 < 0 Then
	    y1 = y1 + ScaleHeight
	End If
    End If
	    
  End If

End Sub

Sub RunSelection ()

    ' execute the appropriate selection

    Select Case PlotType

	Case 1: Squiggles
	Case 2: Kalied2
	Case 3: Polygons
	Case 4: Circles
	Case 5: Kalied
	Case 6: Lines
	Case 7: Roll
	Case 8: FilledCircles
	Case 9: Patch
	Case 10: Spiro
	Case 11: Scrape
	Case 12: Stretch
	Case 13: Dribble
	Case 14: Drop
	Case 15: Slides
	Case 16: FilledPolygons
	Case 17: MultiSpiros
	Case 18: Puzzle
	Case Else: PlotType = 1
		   RunSelection ' try again

    End Select

End Sub

Sub Scrape ()

  ' bitblt's with various patterns, dragging them
  ' across the screen randomly

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(1) = 0 Then
      Exit Sub
    End If
    
    ' start with original screen
    Picture = Original.Image
    
    PlotInit = True

    'determine initial position of line
    x1 = Rnd * ScaleWidth
    y1 = Rnd * ScaleHeight
    
    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

    BoxHeight = 400 * Rnd ^ 3 + 20
    Boxwidth = (400 * Rnd ^ 3 + 20) * (8# / 6#)

    ' zero initial velocity
    vx1 = 0: vy1 = 0

    ' choose scrape type at random
    i = Rnd * 11
    Select Case i

	Case 0: Pattern = &H42 'Black Out
		Locked = True
	Case 1: Pattern = &HFF0062 'White Out
		Locked = True
	Case 2: Pattern = &HBB0226 'MergePaint
		Locked = False
	Case 3: Pattern = &H330008 'Not source copy
		Locked = True
	Case 4: Pattern = &H330008 'Not source copy
		Locked = False
	Case 5: Pattern = &H660046 'source invert
		Locked = True
	Case 6: Pattern = &H8800C6 'source and
		Locked = False
	Case 7: Pattern = &HEE0086 'source paint (or)
		Locked = False
	Case 8: Pattern = &H550009 'Invert Destination
		Locked = True
	Case 9: Pattern = &HCC0020 'Source Copy
		Locked = False
	Case Else: Pattern = &HCC0020 'Source Copy
		Locked = True
		Picture = LoadPicture() ' start with blank screen

    End Select
    
  Else 'reset changes done by previous init

    Picture = LoadPicture() ' start with blank screen

  End If

  Else  ' put run code here

	' do locking if necessary
	If Locked Then
	    x2 = x1: y2 = y1
	Else 'do offset
	    x2 = x1 + Boxwidth: If x2 + Boxwidth > ScaleWidth Then x2 = 0
	    y2 = y1 + BoxHeight: If y2 + BoxHeight > ScaleHeight Then y2 = 0
	End If

	'BitBlt Box at x1,y1
	DC = Original.hDC
	BitBlt hDC, x1, y1, Boxwidth, BoxHeight, DC, x2, y2, Pattern
	
	'determine new acceleration
	ax1 = Rnd - .5
	ay1 = Rnd - .5
	    
	'calculate new position
	x1 = x1 + vx1
	y1 = y1 + vy1
	    
	'calculate new velocity
	vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = 0: ax1 = 0
	vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = 0: ay1 = 0
	    
	'check if off screen
	If (x1 > ScaleWidth - Boxwidth) Then
	    'change direction
	    vx1 = -Abs(vx1)
	ElseIf (x1 < 0) Then
	    'change direction
	    vx1 = Abs(vx1)
	End If

	If (y1 > ScaleHeight - BoxHeight) Then
	    'change direction
	    vy1 = -Abs(vy1)
	ElseIf (y1 < 0) Then
	    'change direction
	    vy1 = Abs(vy1)
	End If

    
    
  End If


End Sub

Sub Slides ()

  'cycle between different bitmaps

  Dim j As Integer
  Static file As String
  Static OldTime As Long
  Static running As Integer
  Dim CurTime As Long
  Dim FileName As String

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(1) = 0 Then
      Exit Sub
    End If
    
    j = Rnd * 50

    FileName = BitmapsDir
    FileName = RTrim$(FileName)
    FileName = FileName + "\*.bmp"
    On Error GoTo 115
    file = Dir$(FileName)' get first file in directory
    On Error GoTo 0

    If file = "" Then
      NextSelection 'jump to next since there are no bitmap files in directory
      Exit Sub
    End If

    For i = 1 To j

      file = Dir$ ' get next file

      If file = "" Then

	FileName = BitmapsDir + "\*.bmp"
	file = Dir$(FileName)' get first file in directory

      End If

    Next i

    OldTime = Timer

    running = False

    On Error GoTo 116
    Picture = LoadPicture(BitmapsDir + "\" + file)
    On Error GoTo 0


    Replicate (BitmapsDir + "\" + file)

    PlotInit = True


  Else 'reset changes done by previous init

	  ' save screen in place of original for latter use
	  ' we do this because on palette based systems
	  ' the slide procedure messes up the color
	  ' palette and the Clipboard.setData 9 and
	  ' Clipboard.GetData(9) sequence does not restore
	  ' it, so we just use the new picture with the
	  ' new palette from now on
	  DC = CreateDC("DISPLAY", 0&, 0&, 0&)
	  BitBlt Original.hDC, 0, 0, ScrnWidth, ScrnHeight, DC, 0, 0, &HCC0020
	  DeleteDC DC

	Picture = LoadPicture() ' clear screen

  End If

Else  ' put run code here

    If running Then Exit Sub ' no recursive calls

    If file = "" Then Exit Sub

    CurTime = Timer
    If (CurTime >= OldTime) And ((OldTime + BmpSeconds) > CurTime) Then Exit Sub

    OldTime = Timer

    running = True

    j = Rnd * 20

    For i = 1 To j

      file = Dir$ ' get next file

      If file = "" Then

	FileName = BitmapsDir + "\*.bmp"
	file = Dir$(FileName)' get first file in directory

      End If

    Next i

    Picture = LoadPicture(BitmapsDir + "\" + file)

    Replicate (BitmapsDir + "\" + file)

  End If

  running = False

  Exit Sub

115 'directory path does not exist
  On Error GoTo 0
  LogFile ("Could not find file " + FileName)
  Resume 117

116 'directory path does not exist
  On Error GoTo 0
  LogFile ("Out of Memory.  Could not load file " + BitmapsDir + "\" + file)
  Resume 117

117 NextSelection 'jump to next since there are no bitmap files in directory
  Exit Sub

End Sub

Sub Spiro ()

  'Do spirograph like figures

  'reserve memory
  Const Deg2Pi = PI / 180
  Static MaxRad As Integer'maximum radius for circles
  Const MaxNodes = 35'maximum number of nodes on spiro
  Dim Nodes As Integer
  Const MaxRpts = 7'max times to go around circle
  Dim Rpts As Integer
  Const PlotPoints = 4'number of points to plot each time
  Const ClearCount = 3'number on screen before clearing
  Static PlotAngleIncr As Single
  Static PlotEndAngle As Single
  Static PlotAngle As Single
  Static SinIncr As Single
  Static SinAngle As Single
  Static Xcenter As Integer
  Static Ycenter As Integer
  Static Rad1 As Integer
  Static Rad2 As Integer
  Dim R As Single
  Dim i As Long, j As Long, k As Long, l As Integer

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
      PlotInit = True
      ForeColor = RGB(255, 255, 255)
      BackColor = RGB(0, 0, 0)
      Cls

     'initialize variables used
     PlotEndAngle = 0
     PlotAngle = 10
     MaxRad = ScaleHeight / 3'maximum radius for circles
     Pointer = 0

    Else 'reset changes done by previous init

      DrawWidth = 1' use narrow line
    
    End If

  Else  ' put run code here


    ' check if time to do new spiro
    If PlotAngle > PlotEndAngle Then
    
	'set foreground color
	Do
	  i = Rnd * 255: If i > 255 Then i = 255
	  j = Rnd * 255: If j > 255 Then j = 255
	  k = Rnd * 255: If k > 255 Then k = 255
	Loop Until (i * i + j * j + k * k) > MinColor'make sure color if sufficiently bright
	ForeColor = RGB(i, j, k)

	PlotAngle = Rnd * 180 * Deg2Pi'initial offset
	Rpts = Rnd * MaxRpts + .5
	PlotAngleIncr = .125 * Rpts * Deg2Pi
	PlotEndAngle = 360 * Rpts * Deg2Pi + PlotAngle + PlotAngleIncr
	Nodes = Rnd * MaxNodes + .5
	SinIncr = PlotAngleIncr * Nodes / Rpts
	SinAngle = 0
	Rad1 = MaxRad * Rnd
	Rad2 = MaxRad * Rnd
	Xcenter = Rnd * ScaleWidth * 3 / 4 + ScaleWidth / 8
	Ycenter = Rnd * ScaleHeight * 3 / 4 + ScaleHeight / 8

	DrawWidth = 1 + 2 * Rnd' use narrow line

	GoSub 2000 'calculate x1 and y1

	Pointer = Pointer + 1
	If Pointer >= ClearCount Then
	  Cls
	  Pointer = 0
	End If
	
    End If

    For l = 1 To PlotPoints

      GoSub 2000 'calculate x1 and y1
    
      'draw line
      Line (LastX, LastY)-(x1, y1)

    Next l
    
  End If

  Exit Sub

2000 'calculate new point on screen
  LastX = x1: LastY = y1
  R = Rad1 + Rad2 * Sin(SinAngle)
  x1 = R * Cos(PlotAngle) + Xcenter
  y1 = R * Sin(PlotAngle) + Ycenter
  SinAngle = SinAngle + SinIncr
  PlotAngle = PlotAngle + PlotAngleIncr

  Return

End Sub

Sub Squiggles ()

  ' draw multiple squiggles on the screen.
  ' each squiggle is assign a random color at the
  ' start, then the head travels randomly and the
  ' tail is erased

  Dim i As Integer, j As Integer, k As Integer, ii As Integer, n As Integer
  Dim il As Long, jl As Long, kl As Long
  Static SquigNumb As Integer
  Static SquigLen As Integer
  Static EndPointer As Integer, StartPointer As Integer

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If
    
    'check if runing low memory mode
    If CheckIfValidMode(0) = 0 Then
      Exit Sub
    End If
    
    PlotInit = True
    Cls
    ForeColor = QBColor(15)

    SquigNumb = Rnd * 10 + 10
    SquigLen = Rnd * 100 + 50

    'Allocate Memory
    ReDim x1da(SquigLen, SquigNumb)  As Integer
    ReDim y1da(SquigLen, SquigNumb)  As Integer
    ReDim x1sa(SquigNumb) As Single
    ReDim y1sa(SquigNumb) As Single
    ReDim vx1sa(SquigNumb) As Single
    ReDim vy1sa(SquigNumb) As Single
    ReDim ax1sa(SquigNumb) As Single
    ReDim ay1sa(SquigNumb) As Single
    ReDim Colors(SquigNumb) As Long
    
    Pointer = 1

    'Print "Clearing Array"
    For j = 1 To SquigNumb
	'determine initial position of line
	x1sa(j) = Rnd * ScaleWidth
	y1sa(j) = Rnd * ScaleHeight

	For i = 1 To SquigLen
	    x1da(i, j) = x1sa(j)
	    y1da(i, j) = y1sa(j)
	Next i

    Next j
    
    'find background color
    m = QBColor(0)

    ' use rgb function to get colors
    For ii = 1 To SquigNumb
	Do
	  il = Rnd * 255: If il > 255 Then il = 255
	  jl = Rnd * 255: If jl > 255 Then jl = 255
	  kl = Rnd * 255: If kl > 255 Then kl = 255
	Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	Colors(ii) = RGB(il, jl, kl)
    Next ii

    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

  Else 'reset changes done by previous init

    ReDim x1da(0, 0)  As Integer
    ReDim y1da(0, 0)  As Integer
    ReDim x1sa(0) As Single
    ReDim y1sa(0) As Single
    ReDim vx1sa(0) As Single
    ReDim vy1sa(0) As Single
    ReDim ax1sa(0) As Single
    ReDim ay1sa(0) As Single
    ReDim Colors(0) As Long
    
  End If

  Else  ' put run code here
  

	'find where tail line went to
	If Pointer < SquigLen Then
	    EndPointer = Pointer + 1
	Else
	    EndPointer = 1
	End If

	'find where new line goes
	If Pointer > 1 Then
	    StartPointer = Pointer - 1
	Else
	    StartPointer = SquigLen
	End If

	If Rnd < .1 Then 'change a color 10% of the time
    
	  ii = Int(Rnd * SquigNumb + 1)' get random squiggle to change
	  If ii > SquigNumb Then ii = 1
	  Do
	    il = Rnd * 255: If il > 255 Then il = 255
	    jl = Rnd * 255: If jl > 255 Then jl = 255
	    kl = Rnd * 255: If kl > 255 Then kl = 255
	  Loop Until (il * il + jl * jl + kl * kl) > MinColor'make sure color if sufficiently bright
	  Colors(ii) = RGB(il, jl, kl)

	End If

	For j = 1 To SquigNumb
	
	    'Erase tails of squigles
	    Line (x1da(Pointer, j), y1da(Pointer, j))-(x1da(EndPointer, j), y1da(EndPointer, j)), m

	    'Save new points
	    x1da(Pointer, j) = x1sa(j)
	    y1da(Pointer, j) = y1sa(j)

	    'Draw front of Squigles
	    Line (x1da(StartPointer, j), y1da(StartPointer, j))-(x1da(Pointer, j), y1da(Pointer, j)), Colors(j)

	Next j

	'Move pointer to next item
	Pointer = Pointer + 1
	If Pointer > SquigLen Then
	    Pointer = 1
	End If

	For j = 1 To SquigNumb

	    'determine new acceleration
	    ax1sa(j) = Rnd * 4 - 2
	    ay1sa(j) = Rnd * 4 - 2

	    'calculate new position
	    x1sa(j) = x1sa(j) + vx1sa(j)
	    y1sa(j) = y1sa(j) + vy1sa(j)

	    'calculate new velocity
	    vx1sa(j) = (vx1sa(j) + ax1sa(j)): If Abs(vx1sa(j)) > 20 Then vx1sa(j) = 0: ax1sa(j) = 0
	    vy1sa(j) = (vy1sa(j) + ay1sa(j)): If Abs(vy1sa(j)) > 20 Then vy1sa(j) = 0: ay1sa(j) = 0

	    'check if off screen
	    If (x1sa(j) > ScaleWidth) Then
		x1sa(j) = ScaleWidth
		'change direction
		vx1sa(j) = -Abs(vx1sa(j))
	    ElseIf (x1sa(j) < 0) Then
		x1sa(j) = 0
		'change direction
		vx1sa(j) = Abs(vx1sa(j))
	    End If

	    If (y1sa(j) > ScaleHeight) Then
		y1sa(j) = ScaleHeight
		'change direction
		vy1sa(j) = -Abs(vy1sa(j))
	    ElseIf (y1sa(j) < 0) Then
		y1sa(j) = 0
		'change direction
		vy1sa(j) = Abs(vy1sa(j))
	    End If

	Next j
    
  End If

End Sub

Sub Stretch ()

    Dim x As Integer, y As Integer
    Dim NumColors As Single

  ' does a StretchBlt from a random box within the Original
  ' image and then displays it on the screen

  ' if first time then initialize
  If PlotInit = False Then
    
    'see if we need to reset changes made from previous init
    If PlotEnd = False Then
    
      'see if we just want the priority for this saver
      If PlotPriority = True Then
	'1 is normal priority, adjust up to show more often, or down ...
	Priority = 1#
	Exit Sub
      End If

    'check if runing low memory mode
    If CheckIfValidMode(2) = 0 Then
      Exit Sub
    End If
    
    'see how many colors display can handle
    NumColors = NumberOfColors()
    If NumColors <= 256 Then 'see if palette based
      LogFile ("Saver does not work in palette display mode: " + Str$(PlotType))
      NextSelection 'jump to next since this does not work
		    'well with palettes
      Exit Sub
    End If
    
    ' set tick rate down
    Tick.Interval = 300

    ' start with original screen
    Picture = Original.Image

    ' start temp form same as original
    DC = Original.hDC
    BitBlt hDC, 0, 0, ScaleWidth, ScaleHeight, DC, 0, 0, &HCC0020
    BitBlt Temp.hDC, 0, 0, ScaleWidth, ScaleHeight, hDC, 0, 0, &HCC0020

    PlotInit = True

    'initial position is 1:1 copy
    x1 = 0
    y1 = 0
    x2 = ScaleWidth
    y2 = ScaleHeight
    
    'Calculate velocity limits
    MaxSpeedX = ScaleWidth * 15! / 800
    MaxSpeedY = ScaleWidth * 15! / 600

    ' zero initial velocity
    vx1 = MaxSpeedX * Rnd
    vy1 = MaxSpeedY * Rnd
    vx2 = -MaxSpeedX * Rnd
    vy2 = -MaxSpeedY * Rnd

    Pattern = &HCC0020 'Source Copy
  
  Else 'reset changes done by previous init

    Picture = LoadPicture() ' clear screen

    'reset tick rate
    Tick.Interval = 50

  End If

  Else  ' put run code here

	'make sure x1,y1 less than x2,y2 or swap
	If x1 > x2 Then x = x1: x1 = x2: x2 = x
	If y1 > y2 Then y = y1: y1 = y2: y2 = y

	'make sure that source box size does not
	'go below a minimum
	If x2 - x1 < 40 Then x2 = x1 + 40
	If y2 - y1 < 40 Then y2 = y1 + 40

	'Stretch Box from x1,y1 to x2,y2 onto display
	DC = Original.hDC
	x = x2 - x1: y = y2 - y1
	i = StretchBlt(Temp.hDC, ByVal 0, ByVal 0, ScaleWidth, ScaleHeight, DC, x1, y1, x, y, &HCC0020)
	'i = StretchBlt(hDC, ByVal 0, ByVal 0, ScaleWidth, ScaleHeight, DC, x1, y1, x, y, &HCC0020)

	' now that it has been stretched, write to display
	DC = Temp.hDC
	BitBlt hDC, 0, 0, ScaleWidth, ScaleHeight, DC, 0, 0, &HCC0020
	
	'determine new acceleration
	ax1 = Rnd - .5
	ay1 = Rnd - .5
	ax2 = Rnd - .5
	ay2 = Rnd - .5
	    
	'calculate new position
	x1 = x1 + vx1
	y1 = y1 + vy1
	x2 = x2 + vx2
	y2 = y2 + vy2

	'calculate new velocity
	vx1 = (vx1 + ax1): If Abs(vx1) > MaxSpeedX Then vx1 = 0: ax1 = 0
	vy1 = (vy1 + ay1): If Abs(vy1) > MaxSpeedY Then vy1 = 0: ay1 = 0
	vx2 = (vx2 + ax2): If Abs(vx2) > MaxSpeedX Then vx2 = 0: ax2 = 0
	vy2 = (vy2 + ay2): If Abs(vy2) > MaxSpeedY Then vy2 = 0: ay2 = 0

	'check if off screen
	If (x1 >= ScaleWidth) Then
	    'change direction
	    vx1 = -Abs(vx1)
	    x1 = ScaleWidth - 1
	ElseIf (x1 < 0) Then
	    'change direction
	    vx1 = Abs(vx1)
	    x1 = 0
	End If

	If (y1 >= ScaleHeight) Then
	    'change direction
	    vy1 = -Abs(vy1)
	    y1 = ScaleHeight - 1
	ElseIf (y1 < 0) Then
	    'change direction
	    vy1 = Abs(vy1)
	    y1 = 0
	End If

	'check if off screen
	If (x2 >= ScaleWidth) Then
	    'change direction
	    vx2 = -Abs(vx2)
	    x2 = ScaleWidth - 1
	ElseIf (x2 < 0) Then
	    'change direction
	    vx2 = Abs(vx2)
	    x2 = 0
	End If

	If (y2 >= ScaleHeight) Then
	    'change direction
	    vy2 = -Abs(vy2)
	    y2 = ScaleHeight - 1
	ElseIf (y2 < 0) Then
	    'change direction
	    vy2 = Abs(vy2)
	    y2 = 0
	End If

    
  End If

End Sub

Sub Tick_Timer ()

    ' check elapsed time to see if need to change type of plot
    ' also check if past midnight
    CurrentTime = Timer
    If (CurrentTime > MaxTime) Or (LastTime > CurrentTime) Then
	MaxTime = MaxChangeMinutes * 60 + CurrentTime ' calculate time in seconds

	' make sure form is still on top
	ZOrder 0

	'clear old saver
	PlotInit = False: PlotEnd = True
	PlotPriority = False
	LogFile ("Cleanup after " + Str$(PlotType))
	RunSelection 'just clean up after running

	'see if we want random selection
	NextSelection 'get new PlotType

	PlotInit = False: PlotEnd = False

    End If
    
    LastTime = CurrentTime

    RunSelection

End Sub