[Çü½Ä]
¨ç
|
EXIT ¸í·É¹®Àº EXIT ÇϳªÀÇ ´Ü¾î·Î ±¸¼ºµÇ¸ç,
´Ù¸¥ ´Ü¾î°¡ Ãß°¡µÉ ¼ö ¾ø½À´Ï´Ù. |
|
¹Ýµå½Ã º°µµÀÇ ÇÁ·Î½ÃÁ®¸íÀ» °®°í ÀÖ¾î¾ß ÇÕ´Ï´Ù. |
¨è |
ƯÁ¤ ½ÇÇàÀÇ ¹üÀ§¸¦ ¹þ¾î³ª¶ó´Â ¸í·ÉÀÔ´Ï´Ù. |
[¿¹¹®]
|
|
PERFORM A-RTN THRU EXIT-RTN. |
|
|
WRITE P-R FROM H-R. |
|
|
: |
|
A-RTN. |
|
|
MOVE 0 TO CNT HAP. |
|
EXIT-RTN. |
|
|
EXIT. |
|