31 lines
1.2 KiB
Plaintext
31 lines
1.2 KiB
Plaintext
|
// blink.rtb:
|
||
|
|
// Blink program in Return to Basic
|
||
|
|
//
|
||
|
|
// Copyright (c) 2012-2013 Gordon Henderson. <projects@drogon.net>
|
||
|
|
//**********************************************************************
|
||
|
|
// This file is part of wiringPi:
|
||
|
|
// https://projects.drogon.net/raspberry-pi/wiringpi/
|
||
|
|
//
|
||
|
|
// wiringPi is free software: you can redistribute it and/or modify
|
||
|
|
// it under the terms of the GNU Lesser General Public License as published by
|
||
|
|
// the Free Software Foundation, either version 3 of the License, or
|
||
|
|
// (at your option) any later version.
|
||
|
|
//
|
||
|
|
// wiringPi is distributed in the hope that it will be useful,
|
||
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
// GNU Lesser General Public License for more details.
|
||
|
|
//
|
||
|
|
// You should have received a copy of the GNU Lesser General Public License
|
||
|
|
// along with wiringPi. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
***********************************************************************
|
||
|
|
//
|
||
|
|
PinMode (0, 1) // Output
|
||
|
|
CYCLE
|
||
|
|
DigitalWrite (0, 1) // Pin 0 ON
|
||
|
|
WAIT (0.5) // 0.5 seconds
|
||
|
|
DigitalWrite (0, 0)
|
||
|
|
WAIT (0.5)
|
||
|
|
REPEAT
|
||
|
|
END
|