Ещё одна простенькая программа рисования. Рисует простой график.

SCREEN 12
k = 640 / 14
FOR x = -7 TO 7 STEP 1 / k

IF ABS(x) > 2 THEN y = 6 — ABS(x) ELSE y = x * x
PSET (320 + k * x, 240 + k * y)
NEXT x