10 PRINT HEX(03)
20 PRINT "ROOTS OF QUADRATIC"
25 PRINT "A1,A2,A3"
30 INPUT A1,A2,A3
40 X1=-A2/(2*A1)
50 D=X1*X1-A3/A1
60 IF D<0THEN 90
70 X2=X1-SQR(D):X1=X1+SQR(D)
80 I1=0:I2=0:GOTO 100
90 X2=X1:I1=SQR(-D):I2=-SQR(-D)
100 PRINT "X1 REAL =";X1,"X2 REAL =";X2
110 IF  I1=0 THEN 140
120 PRINT "X1 IMAG =";I1,"X2 IMAG =";I2
130 PRINT "MORE INPUT (1=YES,0=NO)"
132 INPUT A:IF A=1THEN 20
135 END 
140 IF I2=0 THEN 130
150 GOTO 120
160 END 

