Numbers
If you're a Roman who doesn't understand numbers to base 3, then this is the program for you. Convert between binary, hexadecimal, decimal and Roman numerals, plus any other number systems (to different bases) you care to invent. 7 — fingered aliens catered for!!
10 REM	NUMBERS
20 REM	@MICHAEL BEWS
30 MODE 1
40 BORDER 0:INK 0,0:INK 1,24:INK 2,20:IN K 3,6:CLS
50 GOSUB 1480
60 ST$=SPACE$(40)
70 REM
80 REM
90 DIM K(7):DIM A$(8):DIM C(25)
100 GOT[] 910
110 REM * ROMAN NUMBERS *
120 L=5 : CLS
130 PRINT"	ROMAN NUMBERS ";CHR$(164)
9-" MICHAEL BEWS"
140 LOCATE 1,4:PRINT"ENTER A COMPLETE RO MAN NUMBER"
150 PRINT:PRINT"EXAMPLE	MCMLXXXIV ]"
160 LOCATE 1,20:PRINT"	PRESS [ENTER]
TO RETURN TO MENU "
170 LOCATE 1,15:PRINT"ROMAN NUMBER ";:IN PUT T$
180 LOCATE 1,15:PRINT ST$;STS;
190 IF T$="" THEN 930 ELSE T$=UPPER$(T$) 200 LOCATE 1,2:PRINT ST$;ST$;ST$;ST$: 210 LOCATE 1,6:PRINT ST$;:LOCATE 1,6:PRI NT"ROMAN NUMBER ";T$;
220 FOR B=1 TO 4: SOUND 1,60,50,B :NEXT
230 FOR X=1 TO LEN (T$)
240 Y$=MID$(T$,X,1):IF Y$="M" THEN C(X)= 1000
250 IF Y$="D" THEN C(X)=500