Roman numerals/Encode: Difference between revisions
Applesoft BASIC
(Applesoft BASIC) |
|||
Line 1,054:
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
<lang gwbasic> 1 N = 1990: GOSUB 5: PRINT N" = "V$
2 N = 2008: GOSUB 5: PRINT N" = "V$
3 N = 1666: GOSUB 5: PRINT N" = "V$;
4 END
5 V = N:V$ = "": FOR I = 0 TO 12: FOR L = 1 TO 0 STEP 0:A = VAL ( MID$ ("1E3900500400100090050040010009005004001",I * 3 + 1,3))
6 L = (V - A) > = 0:V$ = V$ + MID$ ("M.CMD.CDC.XCL.XLX.IXV.IVI",I * 2 + 1,(I - INT (I / 2) * 2 + 1) * L):V = V - A * L: NEXT L,I
7 RETURN</lang>
==={{header|ASIC}}===
{{trans|DWScript}}
| |||