Listing of file='PYE.BAS;01' on disk='vmedia/utility-sector.ccvf'
5 PLOT 12 10 PRINT "SIDE A=A" 20 PRINT "BASE =B 30 PRINT "HYPOTENUSE=C" 40 INPUT "WHICH OF THESE WOULD YOU LIKE TO FIND?";AB$ 50 IF AB$= "A"THEN 80 60 IF AB$= "B"THEN 130 70 IF AB$= "C"THEN 180 80 INPUT "LENGTH B?";X 90 INPUT "LENGTH C?";Y 100 A= X^ 2+ Y^ 2 110 D= SQR (A) 120 PRINT D;"IS THE LENGTH OF SIDE A." 125 GOTO 240 130 INPUT "LENGTH A";X 140 INPUT "HYPOTENUSE";Y 150 B= Y^ 2- X^ 2 160 D= SQR (B) 170 PRINT D;"IS LENGTH OF BASE." 175 GOTO 240 180 INPUT "LENGTH A";X 190 INPUT "LENGTH BASE";Y 200 C= X^ 2+ Y^ 2 210 D= SQR (C) 220 PRINT D;" IS THE LENGTH OF THE HYPOTENUSE" 240 INPUT "AGAIN (Y OR N)";R$ 250 IF R$= "Y"THEN 40 260 END