It may have been present before, but I just noticed this:
start
'You have some extra energy...
*.nrg 2000 >
'...and not so much poison!
dupbool
*.poison 300 < and
25 .mkpoison store
dropbool
'...and not quite enough body!
*.body 800 < and
100 .strbody store
Works like it is supposed to work, but...
start
'You have some extra energy...
*.nrg 2000 >
'...and not so much poison!
dupbool
*.poison 300 < and
25 .mkpoison store
dropbool
'...and not quite enough body!
*.body 800 < and
100 .strbody store
...doesn't take notice of the second condition, and just produces poison until nrg is 2000 The empty spaces are made with tab (the button next to Q).