Today I'd like to introduce one of my favorite BASIC. That is CASIO FX-700P BASIC. Following list is a sample program for it.
10 INPUT X 20 PRINT X;"!="; 25 P=1 30 FOR I=1 TO X 40 P=P*I 50 NEXT I 60 PRINT P
And following picture shows the result of this program. I bought this product (CASIO FX-700P) in 1980's. And still working!
I made a Small Basic calculator which design is from this programmable calculator.