Change default BF-CODE OF BF-I-O
This commit is contained in:
parent
4efb60facd
commit
3286267db9
1 changed files with 2 additions and 1 deletions
3
WOPO.COB
3
WOPO.COB
|
@ -89,7 +89,8 @@
|
||||||
03 BF-INPUT PIC X(999)
|
03 BF-INPUT PIC X(999)
|
||||||
VALUE "$NUL$".
|
VALUE "$NUL$".
|
||||||
03 BF-CODE PIC X(999)
|
03 BF-CODE PIC X(999)
|
||||||
VALUE ",(.,).$$".
|
VALUE "++++++++++(>++++++(>++++<-)<-)>>.<<+++++(>++++(>--"
|
||||||
|
- "--<-)<-)>>-.<+++(>---<-)>.-.$$".
|
||||||
03 BF-OUTPUT PIC X(999)
|
03 BF-OUTPUT PIC X(999)
|
||||||
VALUE SPACES.
|
VALUE SPACES.
|
||||||
03 CYCLE-LIMIT PIC 9(5)
|
03 CYCLE-LIMIT PIC 9(5)
|
||||||
|
|
Loading…
Reference in a new issue