Prgm#:QUADRAD
ClrHome
Disp "   WELCOME TO"
Disp "    QUADRAD"
Disp ""
Disp ""
Disp ""
Disp "VERSION 1.00"
Pause 
Disp "BY PAUL RINI"
Pause 
Lbl 1
ClrHome
Disp "WHAT IS"
Disp "A,B,C"
Input A
Input B
Input C
Ã(Bø-4*A*C)D        Ã is the square root button   ø is the squared button     is the STO button
(ÐB+D)/2*AX         Ð is the negative sign
(ÐB-D)/2*AY
Disp X
Disp Y
Pause 
Disp "DO YOU WISH TO"
Disp "CONTINUE?"
Disp "1)YES"
Disp "2)NO"
Input D
If D=1
Goto 1
If D=2
Goto 2
Lbl 2
ClrHome
Stop