25 lines
277 B
Text
25 lines
277 B
Text
|
(decimal printer)
|
||
|
|
o
|
||
|
|
1
|
||
|
|
2
|
||
|
|
3
|
||
|
|
4
|
||
|
|
5
|
||
|
|
6
|
||
|
|
o
|
||
|
|
(check if 0)
|
||
|
|
v B-=-#01 <
|
||
|
|
v * D-(div/10)
|
||
|
|
v B * <
|
||
|
|
o
|
||
|
|
v> * 1 ^
|
||
|
|
F -R0* B(next digit, %10)
|
||
|
|
*| # <-A vo(+48 = ascii)
|
||
|
|
| #84 <
|
||
|
|
| *-|
|
||
|
|
F +B * B
|
||
|
|
#< \F----
|
||
|
|
|
||
|
|
*-|
|
||
|
|
P-
|
||
|
|
B
|