remove space 01 -> 1
This commit is contained in:
parent
555114bdb0
commit
90f5cf9783
1 changed files with 2 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue