I wrote a routine which was to trap function keys & ASCII characters. I
followed the example laid down in the jbase 4.0 manual (the code in the manual
is shown below:
$INCLUDE JBC.h
$INCLUDE jCmdKeys.h
EQU Timeout TO 300; * 30 Seconds
CALL CommandInit
LOOP
ECHO OFF
CALL CommandNext(RtnNo, KeyData, Timeout)
ECHO ON
UNTIL RtnNo = cmd_escape DO
BEGIN CASE
CASE RtnNo = cmd_alpha_numeric ;* Simple alpha-numeric
Line := KeyData
GOSUB CursorRight
CASE RtnNo = cmd_clear_end_line ;* Clear to end of line
CRT @(-4):
CASE RtnNo = cmd_insert_value ;* Insert a char(253)
Line := @VM
GOSUB CursorRight
CASE RtnNo = cmd_cursor_up ;* Move cursor up a line
GOSUB CursorUp
CASE RtnNo = cmd_cursor_down ;* Move cursor down a line
GOSUB CursorDown
CASE RtnNo = cmd_cursor_right ;* Move cursor to the right
GOSUB CursorRight
CASE RtnNo = cmd_cursor_left ;* Move cursor to the left
GOSUB CursorLeft
CASE RtnNo = cmd_error ;* Unknown command string
GOSUB InputError
CASE RtnNo = cmd_timeout ;* The input timed out
GOSUB CheckStatus
CASE RtnNo = cmd_winsize ;* Size of the X window changed.
GOSUB RefreshScreen
CASE 1
GOSUB InputError
END CASE
REPEAT
After compiling and cataloging this routine, CommandInit & CommandNext(RtnNo,
KeyData, Timeout) routines were not found. These routines were supposed to be
part of jbase (so I though anyway). Where can I find them, or can anybody help
me please?
Williams
--~--~---------~--~----~------------~-------~--~----~
Please read the posting guidelines at:
http://groups.google.com/group/jBASE/web/Posting%20Guidelines
IMPORTANT: Type T24: at the start of the subject line for questions specific to
Globus/T24
To post, send email to [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
-~----------~----~----~----~------~----~------~--~---
