First sample for Sofa on QB64

rocket1.bas

Screen 12

Let StepX = 100
Let StepY = 100
Let ScreenWidth = _Width
Let ScreenHeight = _Height - 20

For X = 0 To ScreenWidth Step StepX
    Line (X, 0)-(X, ScreenHeight), 7
Next
For Y = 0 To ScreenHeight Step StepY
    Line (0, Y)-(ScreenWidth, Y), 7
Next

Let X = ScreenWidth / 2
Let StartY = ScreenHeight
Let StartSpeed = 10
Let Speed = 0
Let Steps = 10
Let Distance = 0
Let Gravity = 10

For N = 0 To Steps
    Distance = StartSpeed * N + Gravity * N * N / 2
    Y = StartY - Distance
    Print "Step = "; N; ", X = "; X; ", Y = "; Y
    Circle (X, Y), 3
    Sleep 1
Next