CV-AR-RO.BAS

0  CLS:COLOR 13
1000 INPUT " Votre nombre en Decimal (SANS VIRGULE) :",DE
1002 IF DE<>INT(DE) THEN COLOR 30:PRINT "S A N S  V I R G U L E .. ":COLOR 13:GOTO 1000
1003 IF DE<=0 OR DE >=4999 THEN COLOR 30:PRINT DE;"??";:IF DE<=0 THEN PRINT " est < ou = … 0 !!!" ELSE IF DE >=4999  THEN PRINT " est > ou = … 4999" ELSE ELSE 1010
1004 COLOR 13:GOTO 1000
1010 REM
1020 IF DE >=1000 AND M<=2 THEN M=M+1:R$=R$+"M":DE=DE-1000:GOTO 1020
1021 IF DE >=999 AND M<=2 THEN R$=R$+"IM":DE=DE-999:M=M+1
1022 IF DE >=995 AND M<=2 THEN R$=R$+"VM":DE=DE-995:M=M+1
1023 IF DE >=990 AND M<=2 THEN R$=R$+"XM":DE=DE-990:M=M+1
1024 IF DE >=950 AND M<=2 THEN R$=R$+"LM":DE=DE-950:M=M+1
1025 IF DE >=900 AND M<=2 THEN R$=R$+"CM":DE=DE-900:M=M+1
1026 IF DE >=500 AND D<=2 THEN R$=R$+"D":DE=DE-500:D=D+1:GOTO 1025
1027 IF DE >=499 AND D<=2 THEN R$=R$+"ID":DE=DE-499:D=D+1
1028 IF DE >=495 AND D<=2 THEN R$=R$+"VD":DE=DE-495:D=D+1
1029 IF DE >=490 AND D<=2 THEN R$=R$+"XD":DE=DE-490:D=D+1
1030 IF DE >=100 AND C<=2 THEN R$=R$+"C":DE=DE-100:C=C+1:GOTO 1030
1031 IF DE >=99  AND C<=2 THEN R$=R$+"IC":DE=DE-99:C=C+1
1032 IF DE >=95  AND C<=2 THEN R$=R$+"VC":DE=DE-95:C=C+1
1033 IF DE >=90  AND C<=2 THEN R$=R$+"XC":DE=DE-90:C=C+1
1035 IF DE >=50  AND L<=2 THEN R$=R$+"L":DE=DE-50: L=L+1:GOTO 1035
1036 IF DE >=49  AND L<=2 THEN R$=R$+"IL":DE=DE-49:L=L+1
1037 IF DE >=45  AND L<=2 THEN R$=R$+"VL":DE=DE-45:L=L+1
1038 IF DE >=40  AND L<=2 THEN R$=R$+"XL":DE=DE-40:L=L+1
1040 IF DE >=10  AND X<=2 THEN R$=R$+"X":DE=DE-10: X=X+1:GOTO 1040
1041 IF DE >=9   AND X<=2 THEN R$=R$+"IX":DE=DE-9:X=X+1
1045 IF DE >=5   AND V<=2 THEN R$=R$+"V":DE=DE-5:  V=V+1:GOTO 1045
1046 IF DE >=4   AND V<=2 THEN R$=R$+"IV":DE=DE-4:V=V+1
1050 IF DE >=1 THEN R$=R$+"I":DE=DE-1:GOTO 1050
1060 COLOR 14:L=LEN(R$):LO=(80-(L*2))/2:A$="É":B$="»":C$="È":D$="¼":E$="Í"
1061 LOCATE 12,LO:PRINT A$;:FOR I=1 TO L*2+1:PRINT E$;:NEXT :PRINT B$
1062 LOCATE 13,LO:PRINT "º ";:COLOR 28:FOR I=1 TO L:PRINT MID$(R$,I,1)+" ";:NEXT :COLOR 14:PRINT "º
1063 LOCATE 14,LO:PRINT C$;:FOR I=1 TO L*2+1:PRINT E$;:NEXT :PRINT D$
1064 COLOR 2