File:  [gforth] / gforth / arch / r8c / lauflicht.fs
Revision 1.3: download - view: text, annotated - select for diffs
Wed Dec 10 15:44:12 2008 UTC (13 years, 11 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Cleared distribution conditions

    1: \ lauflicht
    2: \ this file is in the public domain
    3: 
    4: rom
    5: : licht!  led!  &100 0 DO  pause 1 ms  LOOP ;
    6: : lauf  1 licht! 2 licht! 4 licht! 8 licht!
    7:   4 licht! 2 licht! ;
    8: : dauerlauf
    9:   task  BEGIN  lauf  AGAIN ;
   10: 
   11: ram

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>