blob: 5ac6e0430ac84f4293776392d8a4f03fab863e07 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(main
(cls)
((x1 integer) <- literal 10)
((y1 integer) <- literal 5)
(cursor (x1 integer) (y1 integer))
((s string) <- literal "Hello, ")
(print (s string))
(bold-mode)
((s string) <- literal "you")
(print (s string))
(non-bold-mode)
((s string) <- literal ".")
(print (s string))
((x2y2 integer) <- literal 1)
(cursor (x2y2 integer) (x2y2 integer))
((s string) <- literal "Press a key...")
(print (s string))
((key string) <- getc)
(cll)
((s string) <- literal "You pressed: ")
(print (s string))
(print (key string))
((s string) <- literal "\n")
(print (s string))
)
|