8 lines
394 B
Plaintext
8 lines
394 B
Plaintext
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$ ("1E3900500400100+90+50+40+10+09+05+04+01",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
|