Stars of Shareware: DFÜ und Kommunikation/SOS-DFUE.ISO/programm/best_66/topdrw10/manythng.frm

Visual Basic Form | 1994-02-18 | 81.9 KB | 2,525 lines

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
' 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
      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
      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
      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
      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
    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
    '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
  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
      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
      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
      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