Page 33 - 4352

n#=n#+NSTEP# ' Збільшуємо лічильник кадрів

' Вивід функції напрямку обертання шпинделя залежно від
' значення параметра sm# :
if sm# = SPIN_CLW# ' Вивід функції MO3 :
write id1# using "MO3"
elseif sm# = SPIN_CCLW# ' Вивід функції МО 4 :
write id1# using "МО 4"
elseif sm# = SPIN_OFF# ' Вивід функції МО 5 :
write id1# using "МО 5"
endif
write id1# using "%s", NL$ ' Завершення кадру - символ LF
endif
' Якщо режим охолодження змінився, тобто значення параметра
' cool# відрізняється від значення аналогічного параметра
' попередньої команди cool_ :
if cool#<>cool_# then
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+NSTEP# ' Збільшуємо лічильник кадрів

' Вивід функції охолодження залежно від значення параметра
' cool#
if cool#=ON# then
write id1# using "МО 8"
elseif cool#=OFF# then
write id1# using "МО 9"
endif
write id1# using "%s", NL$ ' Завершення кадру - символ LF
endif
' Залежно від виду аналізованої команди, тобто значення
' параметра command# описуємо дії постпроцесора з формування
' керуючої програми :
if command# = HEADER# then ' Інформація на початку програми.
write id1# using "@%s%s", partno_text$, NL$
' Вивід рядка PARTNO (текст на стрічці), з символом "@" на
початку
n#=NSTART# 'Установка початкового значення лічильника кадрів
write id1# using "%%" ' Вивід знака відсотка
write id1# using "%s", NL$ ' Вивід знака LF
elseif command# = END# then ' Інформація наприкінці програми
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+NSTEP# ' Збільшуємо лічильник кадрів
write id1# using "МО 2" ' Вивід функції МО 2
write id1# using "%s", NL$ 'Завершення кадру - символ LF
' Вивід інформації, зв'язаної зі зміною інструмента.
elseif command# = LOAD_TOOL# then
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+NSTEP# ' Збільшуємо лічильник кадрів
' Вивід виходу в 0 програми

32