10 REM p32

20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM 38.6. Составить алгоритм рисования спирали
50 DIM A, B, C, D, E, F, G
60 PRINT "Введите число звеньев спирали:"
70 INPUT A
80 SCREEN 9
90 B = 300: C = 150
100 FOR D = 1 TO A
110 E = D MOD 4
120 IF E = 0 THEN F = B: G = C + 10 * D
130 IF E = 1 THEN F = B + 10 * D: G = C
140 IF E = 2 THEN F = B: G = C - 10 * D
150 IF E = 3 THEN F = B - 10 * D: G = C
160 LINE (B, C)-(F, G), 2
170 B = F: C = G
180 NEXT
900 INPUT A
910 SCREEN 0
920 END