10 REM *******************
20 REM * # DECROM #      *
30 REM * Niklas Notteman *
40 REM * 063/11 50 12    *
50 REM * 1981-03-19      *
60 REM * Omvandlar tal   *
70 REM * till romerska   *
80 REM * siffror.        *
90 REM *******************
100 ; CHR$(12%)'DECROM {r programmet som omvandlar'
110 ; 'decimaltal till romerska siffror.' : ; 
120 ; 'Vilket tal skall omvandlas';
130 INPUT A% : GOSUB 150 : ; A1$ : ; : GOTO 130
140 REM ROM I RAM (!)
150 A1$='' : IF A%<0% 210 ELSE RESTORE 200 : FOR I%=3% TO 1% STEP -1%
160 READ I$(1%),I$(2%),I1$ : I1%=10%^I% : I2%=(10%^(I%-1%)) : FOR I3%=1% TO 2%
170 IF A%>=I1% A%=A%-I1% : A1$=A1$+I$(I3%) : GOTO 170
180 IF A%>=I1%-I2% A%=A%-(I1%-I2%) : A1$=A1$+I1$+I$(I3%)
190 I1%=I1%/2% : NEXT I3% : NEXT I% : A1$=A1$+STRING$(A%,73%)
200 DATA M,D,C,C,L,X,X,V,I
210 RETURN