ROMANIS NUMEROS

Convert Arabic to Roman Numerals

FORTRAN 77

    * ROMNUM - CONVERT ARABIC TO ROMAN NUMERAL
    
          PROGRAM ROMNUM
          
          NUM = -1
    100   IF (NUM.EQ.0) GO TO 500
            WRITE *, 'ENTER ARABIC NUMBER (1-3999) OR 0 TO QUIT: '
    500   CONTINUE
    *2345C7--1----+----2----+----3----+----4----+----5----+----6----+----7--