image of READY prompt

Wang2200.org

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