[zxspectrum] Connett

From: Enrico Maria Giordano <e.m.giordano@xxxxxxxxxxxxxxx>
To: The ZX Spectrum Mailing-List <zxspectrum@xxxxxxxxxxxxx>
Date: Tue, 13 Feb 2018 16:01:16 +0100

CLS

@input

INPUT a; ", "; b; ", "; l

CLS

LET l = l / 100

FOR x = 0 TO 255
LET t1 = a + l * x
LET t2 = t1 * t1

FOR y = 0 TO 175
  LET t3 = b + l * y
  LET t4 = INT (t2 + t3 * t3)

  IF INT (t4 / 2) * 2 = t4 THEN PLOT x, y
NEXT y

IF INKEY$ = CHR$ 12 THEN GOTO @input
NEXT x

GOTO @input

EMG

--
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Other related posts:

» [zxspectrum] Connett - Enrico Maria Giordano