Null-terminate default BF-CODE.
This commit is contained in:
parent
93303a4b6e
commit
c73e9af127
2
WOPO.COB
2
WOPO.COB
|
@ -117,7 +117,7 @@
|
||||||
VALUE "$NUL$".
|
VALUE "$NUL$".
|
||||||
03 BF-CODE PIC X(999)
|
03 BF-CODE PIC X(999)
|
||||||
VALUE "++++++++++(>++++++(>++++<-)<-)>>.<<+++++(>++++(>--
|
VALUE "++++++++++(>++++++(>++++<-)<-)>>.<<+++++(>++++(>--
|
||||||
- "--<-)<-)>>-.<+++(>---<-)>.-.$$".
|
- "--<-)<-)>>-.<+++(>---<-)>.-.$NUL$".
|
||||||
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 New Issue