IF NOT EXISTS plot.font
  ECHO "Plot.font nicht gefunden!"
  QUIT
ENDIF

ASSIGN FONTS: "" ADD

ECHO "RETURN drücken, um das Demo zu beginnen!"
ECHO "(Nochmal RETURN am Ende des Demos schaltet zurück auf topaz 8)"
ASK "<RETURN>"

SETFONT plot 1
ECHO ""
Mandel600x400

WHICH say >NIL:
IF NOT WARN
  SAY Finished. Press, re turn, to continue.
ENDIF

ASK "" >NIL:

SETFONT topaz 8
ECHO ""
ASSIGN FONTS: "" REMOVE