{* Улитка Паскаля *}

REM basic

' Программа построения Улитки Паскаля


5 {Улитка Паскаля
}10 CLS: SCREEN 0, 0: INPUT X0, Y0: INPUT A, L
20 SCREEN 1, 0: COLOR 14, 0
30 For F = 0 To 6.28 Step 0.01
40 R = 2 * A * COS(F) + L
50 X = X0 + R * COS(F): Y = Y0 - R * SIN(F)
60 PSET (X, Y), 2
70 Next F
80 GoTo 80