5 CLS
10 PRINT
20 PRINT "DEBUT PROG NSI "
30 LET A = 1
40 LET B = 2
50 LET C = -3
60 LET D = B*B - 4*A*C
70 PRINT "D : " + D
75 GOSUB 100
80 PRINT "FIN PROG NSI "
90 END
100 IF D<0 THEN GOTO 500
110 IF D=0 THEN GOTO 700
120 IF D>0 THEN GOTO 900
500 PRINT "DISCRIMINANT NEGATIF - PAS DE SOLUTION"
510 RETURN
700 PRINT "DISCRIMINANT NUL - UNE SEULE SOLUTION"
710 LET S = -B/(2*A)
720 PRINT "S : " + S
730 RETURN
900 PRINT "DISCRIMINANT POSITIF - DEUX SOLUTIONS"
910 LET S1 = (-B-SQR(D))/(2*A)
920 PRINT "PREMIERE SOLUTION : "+S1
930 LET S2 = (-B+SQR(D))/(2*A)
920 PRINT "DEUXIEME SOLUTION : "+S2
930 RETURN