"Учебник QBasic"

    topofprogram: CLS 
   PRINT "Это бесконечный цикл"  
   GOTO topofprogram  
    
     Или, так:
  
    1 CLS 
   PRINT "Привет мир!"  
   GOTO 1  
  GOTO - очень простой, но все же мощный оператор. Но использование оператора не обязательно в вашей программе, его можно заменить другим. GOTO становится очень полезным, когда используется вместе с операторами IF...THEN. Вы можете использовать GOTO, чтобы создать некоторый тип меню, подобно этому:
  
    PRINT "Мое Меню" 
   PRINT "Нажмите 1, чтобы очистить экран, и 2, чтобы вывести "Привет"!"  
   INPUT "Что вы выбираете"; choice  
   IF choice = 1 THEN GOTO clrscr  
   IF choice = 2 THEN GOTO hello  
   clrscr: CLS  
   PRINT "Готово."  
   hello: PRINT "Привет, Привет, Привет!"  
   END  
  Вы можете использовать GOTO после THEN, чтобы перейти к другой части программы программы. Или, Вы можете заменять "=" любым математическим символом (подобно знаку больше ">" или меньше "<"). Есть пара примеров в одной программе:
  
    PRINT "Пример Программы #1" 
   PRINT "Номер, о котором я думаю стоит в промежутке от 1 и 10."  
   PRINT "Вы получаете 3 возможности."  
   INPUT "Первый выбор"; number  
   IF number = 3 THEN GOTO gotit  
   PRINT "Простите!"  
      INPUT "   Второй выбор   "; number 
   IF number = 3 THEN GOTO gotit  
   PRINT "   Нет   !"  
   INPUT "   Последний выбор   "; number  
   IF number = 3 THEN GOTO gotit  
   PRINT "   Простите   ! The number was 3!"  
   END  
   gotit: PRINT "   Вы выиграли   !    Хорошая работа   !" 
  Основной элемент в этой программе - IF...THEN.
  
  Последняя вещь в этой главе – изучение изменения цвета текста и других элементов. Цвет текста на экране позволяет менять команда COLOR (Включая Цвет фона). Вот пример использования этого оператора: 
  
    COLOR 13 
   PRINT "Сиреневый!"  
   COLOR 7  
   PRINT "Серый!"  
  Число, после оператора COLOR - один из этих номеров цвета:
  
   00 - Сажа
  08 - Тёмно - серый
  01 – Темно - синий 
  09 – Светло - синий
  02 – Тёмно – зеленый 
  10 - Светло - зеленый
  03 – Тёмно - голубой 
  11 – Светло - голубой
  04 – Темно - красный 
  12 - Светло - красный
  05 – Темно - пурпурный 
  13 - Сиреневый 
  06 - Цитрус 
  14 - Жёлтый
  07 - Серый 
  15 – Ярко - белый
  Это заканчивает наше обсуждение оператора COLOR и нашей главы. В этой главе узнали много нового.
  
  УДАЧИ!!! И Хорошего вам дня!!! 
 Учебники: /  QBasic -  №01  -  Глава  4  /
 Глава Четвёртая. Привет! В этой главе, мы изучим следующие команды: 
  
    DO...LOOP, OPEN, INT, CLOSE, RANDOMIZE TIMER RND, PRINT#,    SELECT...END, SELECT, INPUT # INKEY$ 
  В предыдущей главе, мы говорили относительно циклов DO...LOOP, которые позволяют повторять действие некоторое количество раз. Окончание цикла при уловии:
   Все, что вы должны сделать - написать, DO WHILE... или UNTIL..[какое-либо условие]. В переводе с английского это бы звучало так: ДЕЛАЙТЕ какое - либо ДЕЙТСТИЕ ДО ТОГО КАК ПРОИЗОЙДЁТ [какое-либо условие]
 Обязательна команда LOOP, чтобы закончить цикл. Есть очень простой пример 
 из того, как использовать этот цикл: 
  
    DO UNTIL a = 10 
      try = try + 1 
      PRINT "Попробуйте номер"; try 
      PRINT 
      PRINT "Наберите секретный номер!" 
      INPUT "Введите"; a