Dieser code ist nur eine Übung und löst die Quiz-Frage zumindest teilweise. Keine Garantien. Lief ok mit gForth im Terminal des Mac OSX. Viel Vergnügen. Michael
\ LCD Numbers
\ Simulates an LCD display with 4 digits on terminal, no-scale.
[IFDEF] mycode mycode [ENDIF] marker mycode \ Forget mycode and try again
vocabulary test test definitions decimal
\ As there is no way to find out cursor position at terminal,
\ I have to keep track of the displayed digits.
variable pos-x
variable pos-y
: pos! ( x y -- )
pos-y ! pos-x ! ;
: pos@ ( -- x y )
pos-x @ pos-y @ ;
: pos+ ( -- ) \ set position to next line in same row
1 pos-y +! pos@ at-xy ;
: .bl ( -- )
pos+ ." "
pos+ ." "
pos+ ." " ;
: .0 ( -- )
pos+ ." _ "
pos+ ." | | "
pos+ ." |_| " ;
: .1 ( -- )
pos+ ." "
pos+ ." | "
pos+ ." | " ;
: .2 ( -- )
pos+ ." _ "
pos+ ." _| "
pos+ ." |_ " ;
: .3 ( -- )
pos+ ." _ "
pos+ ." _| "
pos+ ." _| " ;
: .4 ( -- )
pos+ ." "
pos+ ." |_| "
pos+ ." | " ;
: .5 ( -- )
pos+ ." _ "
pos+ ." |_ "
pos+ ." _| " ;
: .6 ( -- )
pos+ ." _ "
pos+ ." |_ "
pos+ ." |_| " ;
: .7 ( -- )
pos+ ." _ "
pos+ ." | "
pos+ ." | " ;
: .8 ( -- )
pos+ ." _ "
pos+ ." |_| "
pos+ ." |_| " ;
: .9 ( -- )
pos+ ." _ "
pos+ ." |_| "
pos+ ." | " ;
\ "LCD" Display with 4 digits
: pos0 ( -- ) \ 0. position in display
12 0 pos! ;
: pos1 ( -- ) \ 1. position in display
8 0 pos! ;
: pos2 ( -- ) \ 2. position in display
4 0 pos! ;
: pos3 ( -- ) \ 3. position in display
0 0 pos! ;
: display-digit ( i -- ) \ i is a digit
CASE
0 OF .0 ENDOF
1 OF .1 ENDOF
2 OF .2 ENDOF
3 OF .3 ENDOF
4 OF .4 ENDOF
5 OF .5 ENDOF
6 OF .6 ENDOF
7 OF .7 ENDOF
8 OF .8 ENDOF
9 OF .9 ENDOF
.bl
ENDCASE ;
: display ( i3 i2 i1 i0 -- ) \ display 4 digits
pos0 display-digit
pos1 display-digit
pos2 display-digit
pos3 display-digit ;
: n>i ( n - i3 i2 i1 i0 ) \ convert number to 4 digits, drop upper digits.
>r
r@ 1000 / 10 mod
r@ 100 / 10 mod
r@ 10 / 10 mod
r@ 10 mod
r> drop ;
: .lcd ( n -- ) \ display number to "LCD"
page 0 0 pos!
n>i display
cr cr ;