compiletoflash

: ( [char] ) parse drop immediate ;  (  Forth-Style-Comment )
: { [char] } parse drop immediate ;  { Pascal-Style-Comment }
: \        0 parse drop immediate ;  \ Comment till end of line 

: 0-foldable $40 setflags immediate ;
: 1-foldable $41 setflags immediate ;
: 2-foldable $42 setflags immediate ;
: 3-foldable $43 setflags immediate ;

32 constant bl
: cr    10 emit ;
: space bl emit ;
: spaces 0 ?do space loop ;


: move 2* cmove ;

: ['] ' immediate 0-foldable ;

: octal 8 base ! ;
: sqr ( n -- n^2 ) dup * 1-foldable ;
: star 42 emit ;

$20 constant P1IN
$21 constant P1OUT
$22 constant P1DIR
$23 constant P1IFG
$24 constant P1IES
$25 constant P1IE
$26 constant P1SEL
$27 constant P1REN
$41 constant P1SEL2

$28 constant P2IN
$29 constant P2OUT
$2A constant P2DIR
$2B constant P2IFG
$2C constant P2IES
$2D constant P2IE
$2E constant P2SEL
$2F constant P2REN
$42 constant P2SEL2

: Flamingo cr
."      _                                     " cr
."     ^-)                                    " cr
."      (.._          .._                     " cr
."       \`\\        (\`\\        (           " cr
."        |>         ) |>        |)           " cr
." ______/|________ (7 |` ______\|/_______a:f " cr
;

: init Flamingo cr ." Have a nice day !" cr ;

