examples/blink.rtb

   1 // blink.rtb:
   2 //    Blink program in Return to Basic
   3 //
   4 // Copyright (c) 2012-2013 Gordon Henderson. <projects@drogon.net>
   5 //**********************************************************************
   6 // This file is part of wiringPi:
   7 //      https://projects.drogon.net/raspberry-pi/wiringpi/
   8 //
   9 //    wiringPi is free software: you can redistribute it and/or modify
  10 //    it under the terms of the GNU Lesser General Public License as published by
  11 //    the Free Software Foundation, either version 3 of the License, or
  12 //    (at your option) any later version.
  13 //
  14 //    wiringPi is distributed in the hope that it will be useful,
  15 //    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 //    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 //    GNU Lesser General Public License for more details.
  18 //
  19 //    You should have received a copy of the GNU Lesser General Public License
  20 //    along with wiringPi.  If not, see <http://www.gnu.org/licenses/>.
  21  ***********************************************************************
  22 //
  23 PinMode (0, 1) // Output
  24 CYCLE
  25   DigitalWrite (0, 1) // Pin 0 ON
  26   WAIT (0.5) // 0.5 seconds
  27   DigitalWrite (0, 0)
  28   WAIT (0.5)
  29 REPEAT
  30 END