Примеры программ на языке QBASIC

REM Перевод чисел из римской системы счисления в арабскую
DATA 1000,900,500,400,100,90,50,40,10,9,5,4,1
DIM ND(13): FOR J = 0 TO 12: READ ND(J): NEXT J
DATA M,CM,D,CD,C,XC,L,XL,X,IX,V,IV,I
DIM SD$(13): FOR J = 0 TO 12: READ SD$(J): NEXT J
INPUT "Введите число в римской системе счисления : ", R$
FOR J = 1 TO LEN(R$)
  FOR K = 0 TO 12
    N = LEN(SD$(K))
    IF MID$(R$, J, N) = SD$(K) THEN
       M = M + ND(K): J = J + 1: K = K - 1
    END IF
  NEXT K
NEXT J
PRINT "В арабской системе счисления "; R$; " = "; M
END