COBOL？極めてやんよ シュッシュ!!

[118 デフォルトの名無しさん 2013/02/14(木) 00:42:01.53]

THEN MOVE "T" TO DAYKBN
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF.
MAESHORI-EXIT.
EXIT.
*****
FILE-OPEN SECTION.
*****
OPEN CHANNEL1.
OPEN CHANNEL2.
OPEN PR3.
FILE-OPEN-EXIT.
EXIT.