§ Реализация на ZX Spectrum

110 LET X=128: LET Y=96
220 FOR R=1 TO 95
330 GO SUB 160
440 NEXT R
550 STOP
6160 LET WX=0: LET WY=R
7180 LET TRS=3-R
8210 PLOT X+WX,Y+WY
9230 PLOT X+WX,Y-WY
10250 PLOT X-WX,Y+WY
11260 PLOT X-WX,Y-WY
12290 PLOT X+WY,Y+WX
13310 PLOT X+WY,Y-WX
14330 PLOT X-WY,Y+WX
15340 PLOT X-WY,Y-WX
16350 LET TRS=TRS+WX
17360 LET WX=WX+1
18380 IF TRS>=0 THEN LET TRS=TRS-WY:LET WY=WY-1
19390 IF WX<=WY THEN GO TO 210
20400 RETURN