Listing of file='37' on disk='vmedia/glbr_22.wvd.zip'
# Sector 501, program filename = '37' 0005 PRINT "ENTER A,B,C,D,E,F" 0010 INPUT A,B,C,D,E,F 0015 PRINT "P=";-B/A/2 0020 PRINT "Q=";-D/A/2 0025 PRINT "R=";(B/A/2)^2-C/A 0030 PRINT "S=";(B*D/2-E)/A 0035 PRINT "T=";(D/A/2)^2-F/A 0040 PRINT 0045 PRINT "MORE INPUT? (1=YES,0=NO)" 0050 INPUT A 0055 PRINT 0060 IF A=1 THEN 5 0065 END