RosettaCodeData/Task/Function-definition/Applesoft-BASIC/function-definition-1.basic
2023-07-01 13:44:08 -04:00

2 lines
92 B
Text

10 DEF FN MULTIPLY(P) = P(P) * P(P+1)
20 P(1) = 611 : P(2) = 78 : PRINT FN MULTIPLY(1)