Forwarded for Steve Almes (hey Steve, don't include the original
message's headers when quoting, Listserv get's upset...)
Jeff
-------- Original Message --------
> From: "Steve Almes" <[log in to unmask]>
> To: "'Gregg Hippich'" <[log in to unmask]>,
> <[log in to unmask]>
I used a little BASIC program to accomplish this and then I run it right
before I run the application and after the application closes. Here's the
two programs:
Return to enter:
RETENTR
10 DIM T$[5]
20 CALL ECHOOFF
30 PRINT '27"*s^"
40 ENTER 5,X,T$
50 IF X=-256 THEN PRINT LIN(1);"Unable to read terminal ID status.";&
LIN(1)
60 IF T$="70092" OR T$="70094" OR T$="70096" OR T$="70098" THEN DO
70 PRINT '27"&f1m149P<!154>"
80 DOEND
90 CALL ECHOON
100 END
Return back to return:
10 DIM T$[5]
20 CALL ECHOOFF
30 PRINT '27"*s^"
40 ENTER 5,X,T$
50 IF X=-256 THEN PRINT LIN(1);"Unable to read terminal ID status.";&
LIN(1)
60 IF T$="70092" OR T$="70094" OR T$="70096" OR T$="70098" THEN DO
70 PRINT '27"&f1m149P<!149>"
80 DOEND
90 CALL ECHOON
100 END
ECHOON and ECHOOFF are SPL routines that just turn the Echo on and off, but
you don't have to use them. Here they are if you really want them.
1 $CONTROL SUBPROGRAM,MAP
2 BEGIN
3
4
5 << INTRINSIC DECLARATIONS >>
6 INTRINSIC FCHECK,
7 FOPEN,
8 FCONTROL;
9
10
11 INTEGER FILENUM,
12 ERRORCODE,
13 STATUS;
14
15
16 PROCEDURE FILE'ERROR(FILENUM,ERRORCODE);
17 INTEGER FILENUM,ERRORCODE;
18 BEGIN
19 FCHECK(FILENUM,ERRORCODE)
20 END;
21
22
23 $PAGE
24 PROCEDURE ECHOOFF;
25 << DECLARATIONS >>
26
27 BEGIN
28 INTEGER FILENUM,
29 PARM;
30
31 << OPEN TERMINAL ($STDLIST) >>
32 FILENUM:=FOPEN( ,%14,%4);
33 IF <> THEN
34 BEGIN
35 FILE'ERROR(FILENUM,STATUS);
36 GO TO STOP;
37 END;
38
39 << LETS SET ECHO OFF >>
40 PARM:=0;
41 FCONTROL (FILENUM,13,PARM);
42 IF <> THEN
43 BEGIN
44 FILE'ERROR(FILENUM,STATUS);
45 GO TO STOP;
46 END;
47
48
49 STOP:
50 END;
51
52 $PAGE
53 PROCEDURE ECHOON;
54 << DECLARATIONS >>
55
56 BEGIN
57 INTEGER FILENUM,
58 PARM;
59
60 << OPEN TERMINAL ($STDLIST) >>
61 FILENUM:=FOPEN( ,%14,%4);
62 IF <> THEN
63 BEGIN
64 FILE'ERROR(FILENUM,STATUS);
65 GO TO STOP;
66 END;
67
68 << LETS SET ECHO ON >>
69 PARM:=0;
70 FCONTROL (FILENUM,12,PARM);
71 IF <> THEN
72 BEGIN
73 FILE'ERROR(FILENUM,STATUS);
74 GO TO STOP;
75 END;
76
77
78 STOP:
79 END;
It's all compatibility mode, but it runs pretty quick so it works for me.
Steve Almes
Practice Management Systems, Inc.
(650) 697-7176
(650) 697-5648 fax
www.practicemgt.com
-----Original Message-----
Subject: Remap the num pad ENTER key to work like RETURN
Poster: Gregg Hippich <[log in to unmask]>
Subject: Remap the num pad ENTER key to work like RETURN
----------------------------------------------------------------------------
---
I'm trying to replace a vplus screen with a script that will accomplish the
same functionality. The users are conditioned to use the num pad ENTER key,
not the RETURN key.
I have attempted to echo the escape sequence (esc)&f211P<!149> (literally,
including <, >, and ! characters) without success. It seems as though !nnn
is an abbreviated form of the DO command. I've never seen nor heard of this
before, but thats a different subject. When I echo this string, I get
an 'invalid numeric redo index' message.
Any advice is greatly appreciated.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
