На 31.10.09 г. загружено 102 описания операторов Proton (из 188), последнее загруженное описание оператора PulsOut.

<<<<<<<<<<<<<<< UnPlot Пример2 >>>>>>>>>>>>>>>

For XPOS = 0 To 239 Организовать внутренний цикл на 240 проходов
UnPlot 60 , XPOS ' Отображать пикселы линии в цикле
DelayMS 10 ' Задержка 10 мсек чтобы замедлить процесс
Next
'------------------------------------------Стирание линии --------------------------------------
For XPOS = 0 To 239 Организовать внутренний цикл на 240 проходов
UnPlot 60 , XPOS ' Стирать пикселы линии в цикле
DelayMS 10 ' Задержка 10 мсек чтобы замедлить процесс
Next
DelayMS 500 ' Пауза 0,5 сек
GoTo main ' Повторить главную программу

Вторая строка "Unplot", должно быть "Plot"

<<<<<<<<<<<<<<<< Print Пример2 >>>>>>>>>>>>>>>

Print At 2, 1, "VAR1=" , Dec WRD ' Вывести во второй строке ЖКИ десятичное значение VAR1
Print At 3, 1, "VAR1=" , HEX WRD ' Вывести в третьей строке ЖКИ шестнадцатеричное значение VAR1
Print At 4, 1, "VAR1=" , BIN WRD ' Вывести в четвертой строке ЖКИ двоичное значение WRD

Информация на экране не верна: "WRD=...", а должно быть "VAR1="

Поздравляю Всех форумчан с наступающим Рождеством Христовым!

Надеюсь у вас всё наладится.
Хотел бы попросить - при появлении чего либо нового в вашей книге, сразу
написать весточку сюда, а там, гляди, мы все навалимся да и в чем то поможем.

Надеюсь ваш соавтор Владимир имеет в Питере и знакомых и родствеников и
быстренко "встанет на ноги", а если не так, то у меня там есть хороший друг,
который, надеюсь, сможет хоть чем то помоч освоиться на новом месте. У меня
был в жизни случай, когда я в незнакомом городе ( кажысь Николаеве) помог незнакомому
человеку из Москвы, приехавшему по командировке в какое то учреждение, адрес
которого у него был в виде номера почтового ящика и фамилии директора а я смог
сказать ему точный адрес. Но ненадеться же на случаи.
Извините за белетристику, но, думаю, не помешает отвлечся на минутку от дел.
Спасибо и удачи.