fork download
copy 
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. PROG1.
  3. DATA DIVISION.
  4. WORKING-STORAGE SECTION.
  5. 01 A PIC x(7).
  6. 01 B PIC x(10).
  7. PROCEDURE DIVISION.
  8.         MOVE HIGH-VALUES TO A.
  9.         DISPLAY A.
  10.         MOVE HIGH-VALUES TO B.
  11.         DISPLAY B.
  12.         STOP RUN.
  13.  
  14.  
  15.  
  16.  
Success #stdin #stdout 0.01s 3992KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
�������
����������
https://ideone.com/Us128
language:
COBOL 85 (tinycobol-0.65.9)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!