2 GOTO 56 3 PRINT 4 INPUT A,B 5 IF A=0 THEN 40 6 IF B=0 THEN 40 12 IF A<0 THEN 27 13 IF B<0 THEN 27 15 LET Z=A^2+B^2 20 LET C=SQR(Z) 23 PRINT 24 PRINT "SIDE A="A,"SIDE B="B,"HYPOTENUSE ="C 25 PRINT 26 GOTO 3 27 PRINT 28 PRINT "FORGET IT! YOU CAN'T TRICK ME, NO TRIANGLE HAS A SIDE" 29 PRINT "OF NEGATIVE LENGTH!!!!!!!!!!!!" 32 GOTO 3 40 PRINT 42 PRINT "TOO BAD, YOU CAN'T HAVE A FLAT TRIANGLE! EVEN AN ART" 43 PRINT " MAJOR OR A MORON KNOWS THAT. -I THINK?? CAN'T YOU TRY TO" 44 PRINT "BE A LITTLE MORE UNDERSTANDING? I AM A 2116 COMPUTER, " 45 PRINT "AND I WORK VERY HARD. WHEN YOU TRY TO FOOL ME I GET VERY" 46 PRINT "UPSET." 47 GOTO 30 50 REM PROGRAM BY J. PICAZO 55 GOTO 400 56 PRINT 57 PRINT 58 PRINT 59 PRINT 60 PRINT "THIS IS A PROGRAM TO COMPUTE THE HYPOTENUSE OF A RIGHT" 64 PRINT "TRIANGLE. WHEN THE QUESTION MARK IS PRINTED, PUT IN (TYPE)" 66 PRINT "THE LENGTH OF THE SIDES. E.G.;?45,39. VERY USEFUL PROGRAM !!" 67 PRINT 68 PRINT 69 GOTO 3 400 END