Il primo FOR in BASIC è sbagliato.
Quello corretto è sicuramente questo:

codice:
DEFINT x, y
FOR y = 0 TO 255
    FOR x = 0 TO y
        IF (x AND (y-x)) = 0 THEN PSET (x + 158 - .5 * y, y + 30)
    NEXT x
NEXT y
Altrimenti il NEXT y alla fine andrebbe chiaramente in errore.


Ciao.