10 SCREEN 1
15 PRINT "Proof of Pythagorean Theorem"
20 LINE (10, 10)-(90, 75), , B
30 LINE (27, 10)-(90, 25)
40 LINE (90, 25)-(72, 75)
50 LINE (72, 75)-(10, 60)
60 LINE (10, 60)-(27, 10)
70 LOCATE 10, 11
80 PRINT "b"
90 LOCATE 7, 12
100 PRINT "a"
110 LOCATE 7, 10
120 PRINT "c"
130 LOCATE 12, 1
140 PRINT "Area of larger square = (a+b)^2"
150 PRINT "=(a^2)+2a*b+(b^2)"
160 PRINT "Area of each triangle = a*b/2"
170 PRINT "Area of small square = c^2"
180 PRINT "c^2 = ((a^2)+2a*b+(b^2))-4*a*b/2=a^2+b^2"
190 PRINT "So c = square root of (a^2)+(b^2)"