Numbers 147
260 IF Y$="C" THEN C(X)=100
270 IF Y$="L" THEN C(X)=50
280 IF Y$="X" THEN C(X)=10
290 IF Y$="V" THEN C(X)=5
300 IF Y$="1" OR Y$="1" THEN C(X)=1
310 IF C(X)<1 THEN LOCATE 1,15:PRINT ST$ :LOCATE 1,15:PRINT Y$;" IS NOT A ROMAN NUMBER !!";:FOR X=I TO 1500:NEXT:LOCATE 1,15:PRINT STS:GOTO 160
320 NEXT X
330 T=0
340 FOR X=1 TO LEN (T$)
350 IF C(X+1)>C(X) THEN C(X)=-C(X) =60 T=T+C(X)
:70 C(X)=0
:80 NEXT X
390 X=0: IF LEN(T$)>9 THEN X=1
400 LOCATE 26,6:PRINT "=";T
410 GOTO 170
420 REM ** VARIBASE CALCULATOR **
430 INK 1,16
440 CLS:PRINT"	VARIBASE CALCULATOR
M.BEWS
450 LOCATE 1,5:PRINT"Choose any base between [2 and 24].
We shall use Let ters [A to N] for symbols required a+ ter 9 up to one less than the chosen Bas e value."
460 LOCATE 1,17:PRINT"ENTER CHOSEN BASE (2 TO 24)";:INPUT X$
470 IF X$="" OR LEN(X$)>2 THEN LOCATE 27 ,17:PRINT SPACE$(11): GOTO 460
480 IF ASC(X$)<48 THEN LOCATE 27,17:PRIN T SPACE$(11): GOTO 460
490 B=VAL(X$):IF B<2 OR B>24 THEN LOCATE 27,17:PRINT SPACE$(11): GOTO 460
500 CLS:PRINT"	VARIBASE CALCULATOR @1
984 M.BEWS"
510 PRINT"BASE:";B;:LOCATE 34,2:PRINT"De cimal":LOCATE 34,3:PRINT"Equivt."
520 X$=" " :IF B<10 THEN X$=" "
530 B$=MID$(STR$(B),2)