01.1.1_Blinker.fs

#! /usr/bin/env gforth

\ Forget and reload definitions if this file is re-included.
[ifdef] -blinker
    -blinker
[endif]
marker -blinker

include wiringPi.fs
wiringPiSetup drop

0 constant ledPin
ledPin OUTPUT pinMode



: startMge    ." Program is starting ..." CR ;
: pinUsedMge  ." Using pin " ledPin . CR ;
: onMge       ." led turned on >>>" CR ;
: offMge      ." led turned off >>>" CR ;

: ledOn       ledPin HIGH digitalWrite ;
: ledOff      ledPin LOW digitalWrite ;

: blinker     startMge 
			pinUsedMge 
			begin 
				ledOn 
				onMge 
				1000 delay 
				ledOff 
				offMge 
				1000 delay 
			key? until
  ledOff 
;