diff options
| author | tomsmeding <hallo@tomsmeding.nl> | 2015-08-19 19:51:12 +0200 |
|---|---|---|
| committer | tomsmeding <hallo@tomsmeding.nl> | 2015-08-19 19:51:12 +0200 |
| commit | 9ff0f95e1863b299bcf22da175cf7cbcf9a1d23a (patch) | |
| tree | c7adc642bd46b6a88126a1d07501d6ec5c2fb962 | |
| parent | a8e5f14082f656e8a329969c96940cc547aa54d8 (diff) | |
aesthetic changes to bf.prn
| -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 |