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

Компьютеры - ПЛ/1 - Пример программы

Test: procedure options;
   declare My_String char varying initialize;
   put skip list;
end Test;

То же самое можно написать гораздо короче:

Test: proc options;
  put list;
end;