' based on ron77's FreeBasic program found at https://retrocoders.phatcode.net/index.php?topic=444.0;topicseen
' BASIC Anywhere Machine version by Charlie Veniot
Dim As Double x, y, angle
screen _newimage(800, 600, 27)
For angle = 0 To 360 Step 0.1
    x = 16 * (Sin(angle))^3
    y = 13 * Cos(angle) - 5 * Cos(2 * angle) - 2 * Cos(3 * angle) - Cos(4 * angle)
    x = 400 + 10 * x
    y = 300 - 10 * y
    PSet (x, y), _RGB32(255, 0, 0)
Next angle