remove space 01 -> 1

This commit is contained in:
Travis Shears 2024-07-12 17:52:31 +02:00
parent 555114bdb0
commit 90f5cf9783

View file

@ -13,6 +13,7 @@
NL
;take-one-down print
NL
NL
beer-count #01 SUB #ff STZ
beer-count #00 EQU ?{ l }
;end print
@ -39,6 +40,7 @@
#0a MUL ( 02 25 20 )
SUB ( 02 05 )
#30 ADD SWP #30 ADD
DUP LIT "0 NEQ ?{ POP }
EMIT EMIT
#20 EMIT ( print space )
JMP2r