21 lines
380 B
Text
21 lines
380 B
Text
# The nested functions are subroutines
|
|
# These don't have parameters or return values
|
|
#
|
|
func$ makelist sep$ .
|
|
counter = 1
|
|
subr makeitem
|
|
item$ = counter & sep$ & txt$ & "\n"
|
|
counter += 1
|
|
.
|
|
txt$ = "first"
|
|
makeitem
|
|
r$ &= item$
|
|
txt$ = "second"
|
|
makeitem
|
|
r$ &= item$
|
|
txt$ = "third"
|
|
makeitem
|
|
r$ &= item$
|
|
return r$
|
|
.
|
|
print makelist ". "
|