CLS
TOP:
PRINT "ax^2+bx+c=0"
PRINT
PRINT
PRINT "Please enter a ";
INPUT A
PRINT "Please enter b ";
INPUT B
PRINT "Please enter c ";
INPUT C

IF A = 0 AND B = 0 AND C = 0 THEN END

IF A <> 1 THEN GOTO ANOTONE
PRINT "x^2";

GOTO GETB

ANOTONE:
IF A <> -1 THEN GOTO ANOTMINUS1
PRINT "-x^2";
GOTO GETB
ANOTMINUS1:
IF A = 0 THEN GOTO GETB

PRINT USING "###"; A;
PRINT " x^2";

GETB:
IF B <> 1 THEN GOTO BNOT1
PRINT " +x";
GOTO GETC


BNOT1:
IF B <> -1 THEN GOTO BNOTMINUS1
PRINT " -x";
GOTO GETC

BNOTMINUS1:
IF B = 0 THEN GOTO GETC


PRINT USING "+###"; B;
PRINT " x";


GETC:
IF C = 0 THEN GOTO FINISH


IF A = 0 AND B = 0 THEN GOTO OOPS
GOTO SHOWC

OOPS:
BEEP
PRINT "How can you tell me that"; C; "=0 is a legitimate statement?"
BEEP
GOTO TOP

SHOWC:
PRINT USING "+###"; C;

FINISH:
PRINT "=0"

GOTO TOP