[SAMPLE39] SAMPLE
10 'DEF FN ccdefine of the user function.
100 DEF FNMENSEKI(R )=3.14159*R*R
110 DEF FNENSHUU(R )=3.14159*2*R
120 INPUT gáh;HANKEI
130 PRINT gʐρFh;FNMENSEKI(HANKEI)
140 PRINT g~Fg;FNENSHUU(HANKEI)
150 END