LED is my new Hello World - Forth Time

Just as you expected...it's time again for my LED Numbers application...this time...using Forth -:)

The code is a little bit longer that I would have expected...but I guess it's either because I'm still a Forth newbie...or because Forth being a stack based programming language has it's own way of dealing with this kind of application...

Here's the source code...enjoy! -;)

LED_Numbers.fth
VARIABLE picky : COLLECT_PICKY DUP 1- picky ! ; : NPICK COLLECT_PICKY 2 * 0 ?DO picky @ PICK LOOP ; : SPLIT BEGIN DUP WHILE 10 /MOD REPEAT DROP DEPTH ; : First_Line CASE 0 OF SPACE ." _ " ENDOF 1 OF SPACE SPACE ENDOF 2 OF SPACE ." _ " ENDOF 3 OF ." _ " ENDOF 4 OF SPACE SPACE SPACE SPACE ENDOF 5 OF SPACE ." _ " ENDOF 6 OF SPACE ." _ "ENDOF 7 OF ." _ " ENDOF 8 OF SPACE ." _ " ENDOF 9 OF SPACE ." _ " ENDOF ENDCASE ; : Second_Line CASE 0 OF ." | | " ENDOF 1 OF ." | " ENDOF 2 OF SPACE ." _| " ENDOF 3 OF ." _| " ENDOF 4 OF ." |_| " ENDOF 5 OF ." |_ " ENDOF 6 OF ." |_ "ENDOF 7 OF SPACE ." | " ENDOF 8 OF ." |_| " ENDOF 9 OF ." |_| " ENDOF ENDCASE ; : Third_Line CASE 0 OF ." |_| " ENDOF 1 OF ." | " ENDOF 2 OF ." |_ " ENDOF 3 OF ." _| " ENDOF 4 OF SPACE SPACE ." | " ENDOF 5 OF SPACE ." _| " ENDOF 6 OF ." |_| "ENDOF 7 OF SPACE ." | " ENDOF 8 OF ." |_| " ENDOF 9 OF SPACE ." _| " ENDOF ENDCASE ; : LED SPLIT NPICK DEPTH 3 / 0 ?DO First_Line LOOP CR DEPTH 2 / 0 ?DO Second_Line LOOP CR DEPTH 0 ?DO Third_Line LOOP ;

And of course...you want to see an image...so here it goes -;)

Hope you like it... -:D

Greetings,

Blag.
Development Culture.