Page 73 - 4352

' вивід G40 :
elseif lcomp=LCOMP_OFF# then
write id1# using "G40"
endif
endif

4.2.20 Номер підпрограми, що викликається
--------------------------------------------------------------------------------------------------------
unit_call# [unit_call_#, _unit_call#]
Тип
цілий
Умовчання
0
Опис
Дорівнює номеру підпрограми, що викликається, коли аналізована
[попередня, наступна] команда вихідної програми є команда виклику
підпрограми (тобто параметр command# приймає значення CALL#). Зберігається
незмінним до приходу нової команди з кодом CALL.
Приклад
elseif command#=CALL# then
' Вивід інформації, пов'язаної з викликом підпрограми
' Вивід кадру, що містить номер кадру n# за адресою N,
' функцію G22, номер підпрограми, що викликається,
' за адресою P, обмежник кадру LF :
write id1# using "N%d22P%d%s", n#, unit_call# , NL$
n#=n#+NSTEP#

4.2.21 Номер програми й текст на стрічці
--------------------------------------------------------------------------------------------------------
partno#
Тип
цілий
Умовчання
0
Опис
Дорівнює номеру програми, заданому у вихідній програмі. Якщо номер у
вихідній програмі не заданий, то дорівнює 0.
Приклад

' Вивід інформації на початку програми.
if command#=HEADER# then
' Вивід заголовка програми :
write id1# using "PROGRAMME %.2d %-18s RWED 4", partno#,
"CC100M"
write id1#, NL$

--------------------------------------------------------------------------------------------------------

72