dawids/lang-bootstrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

powers of 10

Browse source
This commit is contained in:
pommicket 2022-01-11 17:36:33 -05:00
parent f8f044a7a2
commit c42cf36dee
2 changed files with 133 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
05/util.b
View file

@ -267,11 +267,31 @@ function fputn
fputs(fd, s)
return
function fputn_signed
argument fd
argument n
if n < 0 goto fputn_negative
fputn(fd, n)
return
:fputn_negative
fputc(fd, '-)
n = 0 - n
fputn(fd, n)
return
function putn
argument n
fputn(1, n)
return
function putn_signed
argument n
fputn_signed(1, n)
return
function fputc
argument fd
argument c