HP3000-L Archives

November 2003, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Date:
Tue, 11 Nov 2003 17:46:28 EST
Content-Type:
text/plain
Parts/Attachments:
text/plain (39 lines)
Listers:

Can anyone help me with this? I am trying to preserve what's on the screen
when I press the F8 key to exit application.

I set bit11-12=10 but it doesn't seem to work. Maybe my logic is wrong:

THE USER TIMEOUT=>+0015<

OCTAL TABLE    =>0000000000110001<
the bit settings=>+000000049<
THE TERMOPTIONS=>+0049<


MOVE ZEROES    TO COM-TERMOPTIONS.
ADD 32         TO COM-TERMOPTIONS.
    (this enables the timeout function to happen -- works fine)
     IF WS-VPLUS-SUPPRESS-BELL = "Y" THEN
        (don't know if this is working or not)
        ADD 1 TO COM-TERMOPTIONS
     END-IF.
     IF WS-VPLUS-CLEAR-SCREEN NOT = "Y" THEN
             (apparently doesn't work but don't know why)
       ADD 16 TO COM-TERMOPTIONS
     END-IF.

   I also tried just moving the decimal value of 49 to COM-TERMOPTIONS. The
timeout function works fine, don't know about the bell suppression working as
my pc does not have sound, and the screen blanks out every time I exit the
application regardless of bit 11-12 settings.

Or am I misinterpreting what bits 11-12 are really for?


Brian Donaldson.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2