Listing of file='36' on disk='vmedia/glbr_22.wvd.zip'
# Sector 606, program filename = '36' 0005 PRINT 0010 PRINT "ENTER P,Q,R,S,T" 0015 INPUT P,Q,R,S,T 0020 A=P^2-R 0025 D=2*P*Q-S 0030 PRINT "P1=";P/A 0035 PRINT "Q1=";-D/2/A 0040 PRINT "R1=";(P/A)^2-1/A 0045 PRINT "S1=";-D*P/(A^2)+2*Q/A 0050 PRINT "T1=";(D/2/A)^2-(Q^2-T)/A 0055 PRINT 0060 PRINT "MORE INPUT? (1=YES,0=NO)" 0065 INPUT P 0070 IF P=1 THEN 5 0075 END