Mandelbrot in 1 line of QBASIC code

SCREEN 13: FOR a = 0 TO 319: FOR b = 0 TO 199: c = (a - 200) / 75: d = (b - 100) / 75: i = 31: e = c: f = d: DO: g = e * e: h = f * f: f = 2 * e * f + d: e = g - h + c: i = i + 1: LOOP WHILE i < 127 AND g + h < 4: PSET (a, b), i: NEXT: NEXT


'Mandelbrot in 1 line of QBASIC code
'by sorceress, 2013