10 CLS:INPUT"χΧΕΔΙΤΕ ς (ΟΤ 0 ΔΟ  4) 14.4)";P
20 COLOR 15,1,15:SCREEN3:E=0
30 FOR Y=1 TO 191 STEP4:FOR X=1 TO 255 STEP4:D=INT(E):PSET(X,Y),D:E=E+P
40 IF E>14 THEN E=0
50 NEXT X,Y
60 GOTO 60