RosettaCodeData/Task/Include-a-file/Applesoft-BASIC/include-a-file-1.basic

6 lines
84 B
Plaintext

10 REMPROGRAM TWO
20 DEF FN A(X) = X * Y
30 PRINT FN A(2)
SAVE PROGRAM TWO