From 9ff0f95e1863b299bcf22da175cf7cbcf9a1d23a Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Wed, 19 Aug 2015 19:51:12 +0200 Subject: aesthetic changes to bf.prn --- bf.prn | 6 +++--- 1 file 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 -- cgit v1.2.3-54-g00ecf