From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/appl/arduino/blocks/led-mega.frt | 38 ---------------------------- 1 file changed, 38 deletions(-) delete mode 100644 amforth-6.5/appl/arduino/blocks/led-mega.frt (limited to 'amforth-6.5/appl/arduino/blocks/led-mega.frt') diff --git a/amforth-6.5/appl/arduino/blocks/led-mega.frt b/amforth-6.5/appl/arduino/blocks/led-mega.frt deleted file mode 100644 index ada5b36..0000000 --- a/amforth-6.5/appl/arduino/blocks/led-mega.frt +++ /dev/null @@ -1,38 +0,0 @@ -\ let the led at digital-13 aka PortB.7 blink - -\ -$25 constant PORTB -$24 constant DDRB - -\ initialize the Port: change to output mode -: led-init - $80 DDRB c! -; - -\ turn the led on -: led-on - $80 PORTB c! -; - -\ turn the led off -: led-off - 0 PORTB c! -; - -\ let led blink once -: led-blink - led-on 500 ms led-off 500 ms -; - -\ let led blink until a keystroke -: blink - ." press any key to stop " - begin - led-blink - key? - until - key drop \ we do not want to keep this key stroke -; - -\ and do it.... -led-init blink -- cgit v1.2.3