\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\name=ROMANNUM
Lbl 1
0\->\A
0\->\D
ClrHome
Input "NUMBER?",B
If (B>3999)+(B<1)+(B\!=\int(B)\>=\1
Goto 1
Disp ""
B/10000\->\B
Lbl 2
A+1\->\A
If A=5
Stop
10B\->\B
iPart(B\->\C
fPart(B\->\B
If C=0
Goto 2
If C\<=\3
Goto 3
If C=4
Goto 4
If C\<=\8
Goto 5
If C=9
Goto 6
Lbl 3
If C=0
Goto 2
D+1\->\D
If A=4
Output(2,D,"I")
If A=3
Output(2,D,"X")
If A=2
Output(2,D,"C")
If A=1
Output(2,D,"M")
C-1\->\C
Goto 3
Lbl 4
D+1\->\D
If A=4
Output(2,D,"IV")
If A=3
Output(2,D,"XL")
If A=2
Output(2,D,"CD")
D+1\->\D
Goto 2
Lbl 5
D+1\->\D
If A=4
Output(2,D,"V")
If A=3
Output(2,D,"L")
If A=2
Output(2,D,"D")
C-5\->\C
Goto 3
Lbl 6
D+1\->\D
If A=4
Output(2,D,"IX")
If A=3
Output(2,D,"XC")
If A=2
Output(2,D,"CM")
D+1\->\D
Goto 2
Stop
COPYRIGHT STEPHEN OSTERMILLER 1996

\stop83P\