14 lines
264 B
Text
14 lines
264 B
Text
|
(load "@lib/term.l")
|
||
|
|
|
||
|
|
(fkey *XtF1
|
||
|
|
(prinl "Initialized value to " (setq *Number 1)) )
|
||
|
|
|
||
|
|
(fkey *XtUp
|
||
|
|
(prinl "Incremented to " (inc '*Number)) )
|
||
|
|
|
||
|
|
(fkey *XtDown
|
||
|
|
(prinl "Decremented to " (dec '*Number)) )
|
||
|
|
|
||
|
|
(fkey *XtHome
|
||
|
|
(prinl "Current value is " *Number) )
|