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