Change default BF-CODE OF BF-I-O

2015-10-24 21:25:34 -06:00 · 2015-10-24 21:25:34 -06:00 · 3286267db9
parent 4efb60facd
commit 3286267db9
1 changed files with 2 additions and 1 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -89,7 +89,8 @@
           03 BF-INPUT PIC X(999)
               VALUE "$NUL$".
           03 BF-CODE PIC X(999)
-               VALUE ",(.,).$$".
+               VALUE "++++++++++(>++++++(>++++<-)<-)>>.<<+++++(>++++(>--"
+      -              "--<-)<-)>>-.<+++(>---<-)>.-.$$".
           03 BF-OUTPUT PIC X(999)
               VALUE SPACES.
           03 CYCLE-LIMIT PIC 9(5)