Собственные процедуры

В процедурах, как и в функциях, под одним именем процедуры объединяются логически самостоятельные фрагменты программы.

Для начала рассмотрим пример: 'Программа, иллюстрирующая понятие процедуры

PRINT "A"
PRINT "В"
PRINT "B1"
PRINT "B2"
PRINT "С"
PRINT "В"
PRINT "B1"
PRINT "B2"
PRINT "erf"
PRINT "B"
PRINT "B1"
PRINT "B2"
PRINT "ugh"
'Конец программы

Программа носит чисто иллюстративный характер, однако полезна для внесения ясности в представление о процедурах. Можно заметить, что некоторые фрагменты программы часто повторяются.

Такие повторения необоснованно удлиняют программу и затрудняют работу с ней. Процедуры позволяют объединять под одним именем повторяющиеся фрагменты программы. Процедуру, как и функцию, можно вызвать из главной программы.

Задайте в программе команду "SUB beispiel" и получите пустой шаблон процедуры:
SUB beispiel
END SUB

Внесите туда операторы, которые повторяются в главной программе.
SUB beispiel
PRINT "В"
PRINT "B1"
PRINT "B2"
END SUB

Теперь достаточно из главной программы вызвать процедуру там, где это требуется. Таким образом, получаем новый вариант программы в таком виде:

beispiel
PRINT "C"
beispiel
PRINT "erf"
beispiel
PRINT "ugh"