Creare una spirale in QBasic

Ecco come creare una spirale in QBasic:

Screen 12

x = 320
y = 240
r = 1
theta = 0
dtheta = 0.1

Do
    x = x + r * Cos(theta)
    y = y + r * Sin(theta)
    r = r + 0.1
    theta = theta + dtheta
    PSet (x, y), 15
Loop Until r > 300

Questo codice disegna una spirale che si allarga dal centro dello schermo fino a raggiungere un raggio di 300 pixel. La variabile x e y tengono traccia della posizione corrente della spirale, mentre r è il raggio della spirale. La variabile theta rappresenta l’angolo corrente della spirale e dtheta è la quantità di cui l’angolo deve aumentare ad ogni iterazione per fare un giro completo.

Il comando PSET viene utilizzato per impostare un singolo pixel con un determinato colore. La costante 15 rappresenta il colore bianco.