5 PRINT "ENTER A,B,C,D,E,F"
10 INPUT A,B,C,D,E,F  
15 PRINT "P=";-B/A/2  
20 PRINT "Q=";-D/A/2  
25 PRINT "R=";(B/A/2)^2-C/A 
30 PRINT "S=";(B*D/2-E)/A 
35 PRINT "T=";(D/A/2)^2-F/A 
40 PRINT 
45 PRINT "MORE INPUT? (1=YES,0=NO)" 
50 INPUT A 
55 PRINT 
60 IF A=1 THEN 5 
65 END 

