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

REM Программа для игры на вычитание до нуля
DEFINT A-Z
m1:
  CLS
  RANDOMIZE 32767
  N = INT(RND * 25) + 26
  PRINT "На кону - "; N; " Брать можно от 1 до 5"
m2:
  PRINT "Ваш ход. Сколько берем? - "
m4: a$ = INKEY$: IF a$ = "" THEN GOTO m4
  k = ASC(a$) - 48
  IF 1 > k OR k > 5 THEN PRINT "Так ходить нельзя!": GOTO m2
  N = N - k
  PRINT "После Вашего хода осталось "; N
  IF N = 0 THEN PRINT "Поздравляю! Вы выиграли!": GOTO ex
  IF (N MOD 6) = 0 THEN k = 1 ELSE k = N MOD 6
  N = N - k
  PRINT "Я беру "; k; " остается "; N
  IF N = 0 THEN
    PRINT "К сожалению, Вы проиграли!": GOTO ex
  ELSE
    GOTO m2
  END IF
ex:
  PRINT "Хотите еще? - (y/n) : "
m3: a$ = INKEY$: IF a$ = "" THEN GOTO m3
  IF a$ = "y" THEN GOTO m1
  END