* 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--