Da un messaggio di comp.sys.sinclair di gennaio 2017 un paio di
simpatici sorgentini in Basic da provare usando il mio ZXBas. E' grazie
ad essi che ho scoperto i due bug appena sistemati.
--- PRIMO SORGENTE ---
CLS : PRINT TAB 5;"BASIC RECURSIVE FILL"
CIRCLE 128,88,40: CIRCLE 128,88,30
LET x=100: LET y=100
GO SUB @loop: STOP
@loop
PLOT x,y
IF NOT POINT (x+1,y) THEN LET x=x+1: GO SUB @loop: LET x=x-1
IF NOT POINT (x-1,y) THEN LET x=x-1: GO SUB @loop: LET x=x+1
IF NOT POINT (x,y+1) THEN LET y=y+1: GO SUB @loop: LET y=y-1
IF NOT POINT (x,y-1) THEN LET y=y-1: GO SUB @loop: LET y=y+1
RETURN
--- SECONDO SORGENTE ---
PLOT 180,60: LET a=12: LET x=2: LET y=2: GO SUB @loop: STOP
@loop
IF a=0 THEN DRAW x,0: RETURN
LET a=a-1: GO SUB @loop: GO SUB @loop2: LET a=a+1: RETURN
@loop2
IF a=0 THEN DRAW 0,y: RETURN
LET a=a-1: LET y=-y: LET x=-x: GO SUB @loop: LET y=-y: LET x=-x: GO SUB
@loop2:LET a=a+1: RETURN
Buon divertimento! :-)
EMG
--
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
