Anonymous user
Metaprogramming: Difference between revisions
m
→{{header|Forth}}
Line 538:
: >DIGIT ( n -- c) DUP 9 > IF 7 + THEN [CHAR] 0 + ;
: -TRAILING ( adr len -- adr len')
BEGIN
2DUP + 1- C@ BL = \ test if last char = blank
WHILE
1- \ dec. length
REPEAT ;
=={{header|FreeBASIC}}==
|