summaryrefslogtreecommitdiff
path: root/bf.prn
diff options
context:
space:
mode:
Diffstat (limited to 'bf.prn')
-rw-r--r--bf.prn6
1 files changed, 3 insertions, 3 deletions
diff --git a/bf.prn b/bf.prn
index 11f0e69..8d17979 100644
--- a/bf.prn
+++ b/bf.prn
@@ -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