9 lines
110 B
Text
9 lines
110 B
Text
PROC Main()
|
|
CHAR c
|
|
|
|
DO
|
|
c=GetD(7)
|
|
Put(c)
|
|
UNTIL c=27 ;repeat until Esc key is pressed
|
|
OD
|
|
RETURN
|