\ E60f - For noForth C&V2553 lp.0
\ Animate Egel logo on OLED screen, 428 Bytes

hex  chere

: EGEL      ( y x -- )          \ Print hedgehog at pos y x
    empty                       \ Erase custom characters
    dm 59 0 >cc  dm 52 0 >cc    \ Build four custom characters: p
    dm 58 1 >cc  dm 51 1 >cc    \ q
    dm 53 2 >cc  dm 56 2 >cc  9 2 >cc  \ r
    dm 45 3 >cc  dm 11 3 >cc    \ s
    2dup xy" 0000000000W:`8c58050"
    1+ 2dup  xy" 5700000000o8^^n]WjnXgV0"
    1+ 2dup  xy" kpigbhhhge;q]^27o6n4[ii0"
    1+ 2dup  xy" 0036grd700c0ef6hk07335of0"
    1+ 2dup  xy" 0000000366kbkVk00b3f`46s0"
    1+       xy" 00000000000000000003bf0" ;

(*
: SHOW      ( -- )
    display-setup  &page        \ Init. and show Hedgehog
    38 00 do  80 i 2 * - 1 egel  30 ms loop
    80 ms  0 6 >xy s" Egel project" &&type
    A00 ms  &page               \ Wait then show message
    s" Egel project" &&type     \ Startup message
    12 2 >xy s" Graphics" &&type  \ To line 2
    18 4 >xy s" by W.O." &&type ; \ To line 4
*)

chere swap - dm .

shield EGEL\  freeze

\ End
