RosettaCodeData/Task/Function-definition/Applesoft-BASIC/function-definition-1.applesoft
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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)