§ Реализация на 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