   1 .ROMAN NUMERALS 1 to 32767
   2 .BY RICHARD C DEGLER, 2010
   3 clear ;goto 20
   4 gosub 7;TV=V;return 
   5 TV=I
   6 TV=I
   7 TV=I
   8 return 
   9 if Z<5goto 12
  10 if Z=9V=X;goto 4
  11 TV=V;Z=Z-5
  12 goto 8-Z
  20 CY=-28;input "INPVT NVMBER 1-3999"J
  21 if J<0print "NO NEGATIVES!";goto 20
  30 print ;F=20046;G=F+8;H=G+30
  31 K=73;L=86;M=88;N=76;O=67;P=68
  32 Q=77;R=94;S=96;T=95;U=97
  40 .MODIFIED for color BASIC
  50 A=55;B=119;C=183;for I=1to 8
  51 color I,7,A+I,B+I,C+I;next I
  60 for I=1to 7;cline I,9-I;next I
  70 for J=Jto 32767;FC=1;print #5,J,
  71 FC=2;print " = ",;FC=3
  80 Z=J;for Y=Fto Gstep 2
  81 Z=Zdiv 10;%(Y)=RM;next Y
  90 W=H;I=U;for Y=Gto Fstep -2;Z=%(Y)
  91 X=I;V=%(W);I=%(W-2);W=W-4;gosub 9
  92 next Y;print ;next J
