Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
lua c1word("strlen") end; :RSR 0<."> : S0<."> S> DUP strlen 2DUP TYPE + 1 + >S ; function zdotquo (...) f[[ 0<."> ]]; call(dbstuff, arg) end; :RSR LITW COL: SGOBBLE2 ; function litw (n) f("LITW"); nasm(2, format("\tdw %s\n", n)) end; :RSR BRANCH COL: SBRANCH ; :RSR 0BRANCH COL: S0BRANCH ; : YES/NO if zdotquo( "yes\n", 0); else zdotquo( "no\n", 0); then ; g: DEMO zdotquo( "Hello\n", 0); litw( 22); YES/NO litw( 0); YES/NO ;