\START82\ \COMMENT=Program file dated 04/10/96, 18:39 \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 \STOP82\