diff options
| -rw-r--r-- | bf.prn | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,4 +1,4 @@ -20 "TAPELEN" store +10000 "TAPELEN" store ##First, read in the source @@ -46,7 +46,7 @@ dup 0 > while "code" depth + dup swapoutvar i stridx "c" store swap store #uses the dupped name before the matching swapoutvar - #"c = " c + print stackdump + #"c = " c + print lf c "+" = if 1 + 256 % end c "-" = if 255 + 256 % end @@ -62,7 +62,7 @@ dup 0 > while i "loopstart" depth + store #"loopstart" print depth print " = " print "loopstart" depth + get print lf dup while - "code" depth + get i 1 + len substr swap "code" depth + store execute + "code" depth + swapoutvar i 1 + len substr swap "code" depth + store execute #stackdump "i = " print i print lf "loopstart" depth + get "i" store dup end |