캐럿보이넷 :: RM-COBOL

RM/COBOL-85 Compiler - Version 5.01.06 for DOS 2.00+
윈도에서 마땅한 코볼 컴파일러도 없고, 도스용이라 컴파일이 느림


사용법
D:\>type gugudan.cbl
      IDENTIFICATION      DIVISION.
      PROGRAM-ID.         GUGUDAN.
     *----------------------------------------------------------------
      ENVIRONMENT         DIVISION.
      CONFIGURATION       SECTION.
      SOURCE-COMPUTER.    IBM-PC.
      OBJECT-COMPUTER.    IBM-PC.
      INPUT-OUTPUT        SECTION.
      FILE-CONTROL.
          SELECT PRINT-F ASSIGN TO OUTPUT "GUGU.PRN"
          ORGANIZATION IS LINE SEQUENTIAL.
     *----------------------------------------------------------------
      DATA                DIVISION.
      FILE                SECTION.
      FD  PRINT-F LABEL RECORD IS STANDARD.
      01  PRINT-R PIC X(80).
      WORKING-STORAGE     SECTION.
      77 I PIC 99.
      77 J PIC 99.
      77 K PIC 99.
      01 TITLE.
          02 FIL PIC X(3)  VALUE SPACE.
          02 FIL PIC X(20) VALUE ">>> 구 구 단 <<<".
      01 GUGUDAN.
          02 FIL PIC X(8) VALUE SPACE.
          02 GI  PIC 9.
          02 FIL PIC X(3) VALUE " * ".
          02 GJ  PIC 9.
          02 FIL PIC X(3) VALUE " = ".
          02 GK  PIC Z9.
     *----------------------------------------------------------------
      PROCEDURE           DIVISION.
      SIJAK.
          OPEN OUTPUT PRINT-F.
          MOVE SPACE TO PRINT-R.
          WRITE PRINT-R FROM TITLE.
          PERFORM GUGUDAN
              VARYING I FROM 2 BY 1 UNTIL I > 9
              AFTER   J FROM 1 BY 1 UNTIL J > 9.
          CLOSE PRINT-F.
          STOP RUN.
      GUGUDAN.
          COMPUTE K = I * J.
          MOVE I TO GI.
          MOVE J TO GJ.
          MOVE K TO GK.
          WRITE PRINT-R FROM GUGUDAN.

D:\>rmcobol gugudan.cbl
RM/COBOL-85 Compiler - Version 5.01.06 for DOS 2.00+.
Copyright (c) 1985, 1990 by Ryan McFarland Corp.  All rights reserved.
Registration number: GK-0390-00000-99
Total generated object size:        748 (X"000002EC") bytes
Errors: 0, Warnings: 0, Lines: 47 for program GUGUDAN.
Compilation complete -- Programs: 1, Errors: 0, Warnings: 0.

D:\>run gugudan.cob
RM/COBOL-85 Runtime - Version 5.01.06 for DOS 2.00+.
Configured for 001 user.
Copyright (c) 1985, 1990 by Ryan McFarland Corp.  All rights reserved.
Registration Number: GL-0315-00034-01
COBOL STOP RUN  at line 41 in GUGUDAN.COB (D:\GUGUDAN.COB).

D:\>type gugu.prn
  >>> 구 구 단 <<<
       2 * 1 =  2
       2 * 2 =  4
       2 * 3 =  6
       2 * 4 =  8
       2 * 5 = 10
       2 * 6 = 12
       2 * 7 = 14
       2 * 8 = 16
       2 * 9 = 18
       3 * 1 =  3
       3 * 2 =  6
       3 * 3 =  9
       3 * 4 = 12
       3 * 5 = 15
       3 * 6 = 18
       3 * 7 = 21
       3 * 8 = 24
       3 * 9 = 27
       4 * 1 =  4
       4 * 2 =  8
       4 * 3 = 12
       4 * 4 = 16
       4 * 5 = 20
       4 * 6 = 24
       4 * 7 = 28
       4 * 8 = 32
       4 * 9 = 36
       5 * 1 =  5
       5 * 2 = 10
       5 * 3 = 15
       5 * 4 = 20
       5 * 5 = 25
       5 * 6 = 30
       5 * 7 = 35
       5 * 8 = 40
       5 * 9 = 45
       6 * 1 =  6
       6 * 2 = 12
       6 * 3 = 18
       6 * 4 = 24
       6 * 5 = 30
       6 * 6 = 36
       6 * 7 = 42
       6 * 8 = 48
       6 * 9 = 54
       7 * 1 =  7
       7 * 2 = 14
       7 * 3 = 21
       7 * 4 = 28
       7 * 5 = 35
       7 * 6 = 42
       7 * 7 = 49
       7 * 8 = 56
       7 * 9 = 63
       8 * 1 =  8
       8 * 2 = 16
       8 * 3 = 24
       8 * 4 = 32
       8 * 5 = 40
       8 * 6 = 48
       8 * 7 = 56
       8 * 8 = 64
       8 * 9 = 72
       9 * 1 =  9
       9 * 2 = 18
       9 * 3 = 27
       9 * 4 = 36
       9 * 5 = 45
       9 * 6 = 54
       9 * 7 = 63
       9 * 8 = 72
       9 * 9 = 81

D:\>

invalid-file

---

http://blog.naver.com/myunggyu/60020413949