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

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