# beer.sq in OISC (SUBLEQ) version.
# Visit http://www.mozaika.com.au/oleg/subleq/
# for SUBLEQ assembler and emulator.
# To run, type "sqasm < beer.sq 2>nul | sqrun -stdin".
Z Z L2
L1:p1 d0
d0 dx ?+6
p1 d1; n10 d0
d1 OUT; d0 OUT;
?+11; sb ?+7; len; lb len; 0 OUT; m1 ?-5; m1 len ?-9; dot OUT; nl OUT; nl OUT
L2:d1 OUT; d0 OUT;
?+11; sb ?+7; len; lb len; 0 OUT; m1 ?-5; m1 len ?-9; com OUT; spc OUT
d1 OUT; d0 OUT
?+11; sb ?+7; len; ln len; 0 OUT; m1 ?-5; m1 len ?-9; dot OUT; nl OUT
?+11; st ?+7; len; lt len; 0 OUT; m1 ?-5; m1 len ?-9
dx; nz dx
m1 C1 L1
n10 d0