| Example GETCH.PRT |
; GETCH
;
; Program for Proteus
;
; (C) 2003-2004 Simone Zanella Productions
;
; Display the values returned by GETCH for each key pressed, until the user
; presses ESC.
REPEAT
S = GETCH()
CONSOLELN PFORMAT("03d", S) " dec " PFORMAT("03x", S) " hex " \
PFORMAT("03o", S) " oct " CHR(S) " ascii"
UNTIL EQ(S, 27)
ABORT 0
| Samples index | Next example | Previous example | Contents | Index |