Интернет магазин китайских планшетных компьютеров

Компьютеры - Turbo Basic - Примеры кода

Нижеследующая программа представляет собой пример Алгол-подобного диалекта Бейсика, поддерживаемого Turbo Basic. В отличие от традиционного Бейсика, использующего нумерацию строк и обладающего ограниченными управляющими структурами без поддержки подпрограмма в стиле Алгола, новые диалекты Бейсика, появившиеся в этот период, были расширены для обеспечения совместимости языка с новой теорией структурного программирования путем отказа от нумерации строк и добавлением управляющих структур и подпрограммных определений, необходимых для структурного программирования.

 INPUT "Ваше имя:", A$
 PRINT "Привет "; A$
 DO
   S$ = ""
   INPUT "Сколько звезд вы хотите напечатать?"; S
   FOR I = 1 TO S
     S$ = S$ + "*"
   NEXT I
   PRINT S$
   DO 
     INPUT "Хотите ли вы напечатать еще звезд?"; Q$
   LOOP WHILE LEN = 0
   Q$ = LEFT$ 
 LOOP WHILE  OR 
 PRINT "До свидания "; A$

Как и в других продуктах Borland этого периода, код исполнялся внутри самой IDE.