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

10 LET X=128: LET Y=96
20 FOR R=1 TO 95
30 GO SUB 160
40 NEXT R
50 STOP
160 LET WX=0: LET WY=R
180 LET TRS=3-R
210 PLOT X+WX,Y+WY
230 PLOT X+WX,Y-WY
250 PLOT X-WX,Y+WY
260 PLOT X-WX,Y-WY
290 PLOT X+WY,Y+WX
310 PLOT X+WY,Y-WX
330 PLOT X-WY,Y+WX
340 PLOT X-WY,Y-WX
350 LET TRS=TRS+WX
360 LET WX=WX+1
380 IF TRS>=0 THEN LET TRS=TRS-WY:LET WY=WY-1
390 IF WX<=WY THEN GO TO 210
400 RETURN
19 авг, 2021
© 2007-2022 Все коты классно запакованы