ClrHome
Disp "Gegevens?"
Prompt A,B,C
ClrHome
Disp "D is"
Disp (B^^2-4AC)
If (B^^2-4AC)<0
Then
	Disp "Geen oplossing"
Else
	If (B^^2-4AC)=0
	Then
		Disp "1 oplossing:",(~B+sqrt((B^^2-4AC)))/2A
	Else
		If D>0
		Then
			Disp "2 oplossingen:",(~B+sqrt((B^^2-4AC)))/2A,(~B-sqrt((B^^2-4AC)))/2A