aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/uzerodotr.frt
blob: b8c73129601b2f40a5821c128e5e56de71712da2 (plain)
1
2
3
4
5
6
7
\ ( ud n -- ) 
\ Numeric IO
\ Print n digits, fill in preceeding zeros if needed

: u0.r      ( u n -- )   
  >r 0 <# r> 0 ?do # loop #> type 
;