i var byte

FOR i = 1 TO 10
LED = 1
PAUSE 100
LED = 0
PAUSE 100
NEXT

'****************************************************************
'* Name : onoff10.BAS
'* Author : terrarus
'* Notice : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS]
'* : All Rights Reserved
'* Date : 16.07.2009
'* Version : 1.0
'* Notes : для Contra
'****************************************************************

' ---------------------[Описание программы]-------------------------------------------
' Простая программа, заставляющая мигать 10 раз светодиод, включая его
' на одну секунду, а затем отключая на одну секунду.
' Светодиод должен быть подключен к выводу 0 порта PORTB
' катодом на землю и анодом на вывод порта.
' Для ограничения тока через светодиод подключите его через 150-омный резистор.
' ---------------------[Программа в формате PBPro]-------------------------------------

Symbol    LED = 0  ' Переобозначить вывод 0 порта PORTB как LED

TRISB = %11111110  ' Сконфигурировать выводы RB7…RB1 порта PORTB как входы, а вывод
' RB0 — как выход
x var byte ' Определить вспомогательную переменную размером в byte

init: ' Инициализация

x = 0
portb.0 = 0

main:   ' Метка начала основной программы

if x < 9 then gosub onoff ' Если х менее 9 выполнить подпрограмму onoff
x = x + 1 ' инкрементировать х
if x = 9 then END ' Если произошло 10 морганий остановить программу
goto main ' Перейти к метке начала программы, чтобы все началось сначала

END   ' Эту строку вставлять не обязательно, но лучше пусть она тут будет
' на случай, если программа засбоит и начнет делать что-то не то

onoff: ' Подпрограмма моргания светодиода
High    LED  ' Установить ВЫСОКИЙ уровень (+5 В) на выводе 0, чтобы зажечь
' светодиод
Pause    100  ' Ждать 100 миллисекунд (0,1 секунду)

Low    LED  ' Установить НИЗКИЙ уровень (0 В) на выводе 0, чтобы погасить
' светодиод
Pause    100  ' Ждать 100 миллисекунд (0,1 секунду)

return ' Выход из подпрограммы в то место откуда она была вызвана