* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
Г л а в а III. Д а н н ы е DATA 10.5,1,7.5Е-2,"Водолей","22.01-22.02" 17 Если в программе используется несколько операторов D A T A , то каждый сле¬ дующий добавляет в стек данные к предыдущим. Оператор D A T A может быть записан в л ю б о м месте п р о г р а м м ы и столько раз, сколько это необходимо. Вместе с оператором D A T A нельзя использовать комментарии, которые начинаются одиночным апострофом. 3.5. О п е р а т о р R E A D Оператор READ(читать) выбирает данные из стека, организованного с помо¬ щью оператора D A T A . Формат оператора R E A D : READ [{имя переменной, имя переменной,....}] Следует учитывать позиционное соответствие констант в операторе D A T A и типов переменных в операторе R E A D , так как в операторе R E A D происходит последовательное присваивание значений констант оператора D A T A пере¬ менным оператора R E A D . Присваивание начинается с первого элемента стека и до последнего. Константы из стека выбираются последовательно в порядке появления очередного оператора R E A D . Если в операторах R E A D указать ко¬ личество переменных больше, чем констант в стеке, то выдается сообщение об ошибке: данные окончены. Пример 'Пример использования операторов DATA и READ DATA 0120,"козерог","-сатурн","земля","черный", "суббота", " 8 " , "свинец", "черный янтарь", "21.12-20.01,20.04-20.05,21.06-27.07,21.08-27.09" READ k%, z o d i a k $ , p l a n e t a $ , c o l o r $ , w e e k d a y $ , READ num, m e t a l $ READ k a m e n $ , p e r i o d $ К а ж д ы й следующий оператор R E A D выбирает данные из стека, начиная с первого неиспользованного значения, если не выполнялся оператор RESTO¬ RE. 3.6. О п е р а т о р R E S T O R E Оператор RESTORE (восстановить) изменяет последовательный порядок вы¬ бора констант из стека. Формат оператора RESTORE RESTORE [{номер строки оператора DATA, метка оператора DATA}] Если операнд отсутствует, то выборка констант из стека начнется с первого элемента, иначе с того оператора D A T A , номер строки или метка которого указаны в операторе RESTORE.