10
REM >IntToMoney
20
:
30
DEF
FN
IntToMoney(l%,d%,l$,d$)=
FN
IntToTxt(l%)+
" "
+l$+
LEFT$
(
"s"
,l%<>1)+
" "
+
LEFT$
(
FN
IntToTxt(d%)+
" "
+d$,d%<>0)+
LEFT$
(
"only"
,d%=0)
Download IntToMoney
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.