PROGRAM fuzzilog     !1993 April from pascal to True Basic 2004 march
!(© W.van Duyn 2004)
SET MODE "color"
SET WINDOW 0,1199,0,903     !tuned to a resolution of 1280x1024
PRINT "input TVAL,(For TXVAL & TYVAL (try 1.008)"
INPUT TVAL
PRINT "Input Size X, Size Y (try 0.2,0.7 (under 1.0))"
INPUT X,Y
PRINT "Input Scale (try 400 at tval = 1.2, 200 at 2.4)"
INPUT C
CLEAR
LET TXVAL=TVAL
LET TYVAL=TVAL
FOR I = 1 to 500000
LET XX=TXVAL-abs(x-y)
LET YY=TYVAL-abs(y-(TYVAL-x))
LET X=XX
LET Y=YY
LET mm=INT(MOD(I,8))
LET XI=INT(X*C) + 10
LET YJ=INT(Y*C) + 10
CALL colpatA(mm)
PLOT XI,YJ
NEXT I
END

SUB colpatA(mm)
IF mm=0 THEN SET COLOR 16 !"black"
IF mm=1 THEN SET COLOR 11 !"cyan"
IF mm=2 THEN SET COLOR 8  !"gray"
IF mm=3 THEN SET COLOR 14 !"yellow"
IF mm=4 THEN SET COLOR 16 !"black"
IF mm=5 THEN SET COLOR 11 !"cyan"
IF mm=6 THEN SET COLOR 8  !"gray"
IF mm=7 THEN SET COLOR 14 !"yellow"
END SUB