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

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