VERSION 4.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   5940
   ClientLeft      =   1140
   ClientTop       =   1515
   ClientWidth     =   7305
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   ForeColor       =   &H00FFFFFF&
   Height          =   6345
   Left            =   1080
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   396
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   487
   ShowInTaskbar   =   0   'False
   Top             =   1170
   Width           =   7425
   WindowState     =   2  'Maximized
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
' After you started you should
' try the keys on the numeric keypad...
' for example:
' 5 times 0 and 4 times +
'(keeping 0 pressed a long time gives nice effects)
Dim gkey$
Sub main()
anz% = 20
Dim x%(512)
Dim y%(512)
Dim zk%(12)
Dim rett%(12)
wert# = 3.1415926 / 180
s# = 0.703125
For ii# = 0 To 360 - s# Step s#
  x%(z%) = Sin(ii# * wert#) * (ScaleHeight / 2 * 0.8) + ScaleWidth / 2
  y%(z%) = Cos(ii# * wert#) * (ScaleHeight / 2 * 0.8) + ScaleHeight / 2
  PSet (x%(z%), y%(z%))
  z% = z% + 1
Next ii#
'
For i% = 0 To 11
  zk%(i%) = 0
Next i%
'
gkey$ = ""
Do
  Cls
  For i% = 0 To 12
    rett%(i%) = zk%(i%)
  Next i%
  For i% = 1 To anz%
    zk%(0) = zk%(0) + zk%(1) + spd%
    zk%(2) = zk%(2) + zk%(3) + spd%
    zk%(4) = zk%(4) + zk%(5) + spd%
    zk%(6) = zk%(6) + zk%(7) + spd%
    zk%(8) = zk%(8) + zk%(9) + spd%
    zk%(10) = zk%(10) + zk%(11) + spd%
    zk%(0) = zk%(0) And 511
    zk%(2) = zk%(2) And 511
    zk%(4) = zk%(4) And 511
    zk%(6) = zk%(6) And 511
    zk%(8) = zk%(8) And 511
    zk%(10) = zk%(10) And 511
    xxx = x%(zk%(0)) + x%(zk%(2)) + x%(zk%(4))
    yyy = y%(zk%(6)) + y%(zk%(8)) + y%(zk%(10))
    xxx = xxx / 3
    yyy = yyy / 3
    If i% = 1 Then
      PSet (xxx, yyy)
    Else
      Line -(xxx, yyy)
    End If
  Next i%
  For i% = 0 To 12
    zk%(i%) = rett%(i%)
  Next i%
  zk%(0) = zk%(0) + zk%(1)
  zk%(2) = zk%(2) + zk%(3)
  zk%(4) = zk%(4) + zk%(5)
  zk%(6) = zk%(6) + zk%(7)
  zk%(8) = zk%(8) + zk%(9)
  zk%(10) = zk%(10) + zk%(11)
  zk%(0) = zk%(0) And 511
  zk%(2) = zk%(2) And 511
  zk%(4) = zk%(4) And 511
  zk%(6) = zk%(6) And 511
  zk%(8) = zk%(8) And 511
  zk%(10) = zk%(10) And 511
  GoSub tast
Loop
'
tast:
  DoEvents
  a$ = gkey$
  gkey$ = ""
  Select Case a$
  Case "("
    zk%(1) = zk%(1) + 1
  Case "7"
    zk%(1) = zk%(1) - 1
  Case ")"
    zk%(3) = zk%(3) + 1
  Case "8"
    zk%(3) = zk%(3) - 1
  Case "/"
    zk%(5) = zk%(5) + 1
  Case "9"
    zk%(5) = zk%(5) - 1
  Case "4"
    zk%(7) = zk%(7) + 1
  Case "1"
    zk%(7) = zk%(7) - 1
  Case "5"
    zk%(9) = zk%(9) + 1
  Case "2"
    zk%(9) = zk%(9) - 1
  Case "6"
    zk%(11) = zk%(11) + 1
  Case "3"
    zk%(11) = zk%(11) - 1
  Case "+"
    zk%(1) = zk%(1) + 1
    zk%(3) = zk%(3) + 1
    zk%(5) = zk%(5) + 1
    zk%(7) = zk%(7) + 1
    zk%(9) = zk%(9) + 1
    zk%(11) = zk%(11) + 1
  Case "-"
    zk%(1) = zk%(1) - 1
    zk%(3) = zk%(3) - 1
    zk%(5) = zk%(5) - 1
    zk%(7) = zk%(7) - 1
    zk%(9) = zk%(9) - 1
    zk%(11) = zk%(11) - 1
  Case "*"
    For o% = 0 To 11
      zk%(o%) = 0
    Next o%
  Case "0"
    spd% = spd% + 1
  Case ","
    spd% = spd% - 1
  Case Chr$(13)
    spd% = 0
  Case Chr$(27)
    End
  End Select
Return
End Sub


Private Sub Form_Activate()
  main
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  gkey$ = Chr$(KeyAscii)
End Sub