INFORMATION !PTERM to UniVerse TPARM
Author Message
INFORMATION !PTERM to UniVerse TPARM

I'm moving from Prime Information (PI) to UniVerse 9.4.1.2H on Win NT 4.0
(INFORMATION flavour).

My question is:
How do I convert the following PI code to UniVerse BASIC?

CALL !PTERM('-ECHO NODELAY')
CALL !PTERM('-HALF NOLF')
XX =       '-ERASE ':CHAR(252)
CALL !PTERM(XX)
OLD.BS = STATUS()
**
XX =       '-ERASE ':CHAR(OLD.BS)
CALL !PTERM(XX)
CALL !PTERM('-ECHO DELAY')
CALL !PTERM('-FULL')

Morten Haugen, Norway

Sat, 14 Apr 2001 03:00:00 GMT
INFORMATION !PTERM to UniVerse TPARM

On Tue, 27 Oct 1998 08:48:33 +0100, "Morten Haugen"

Quote:

>I'm moving from Prime Information (PI) to UniVerse 9.4.1.2H on Win NT 4.0
>(INFORMATION flavour).

>My question is:
>How do I convert the following PI code to UniVerse BASIC?

>       CALL !PTERM('-ECHO NODELAY')
>       CALL !PTERM('-HALF NOLF')
>       XX =       '-ERASE ':CHAR(252)
>       CALL !PTERM(XX)
>       OLD.BS = STATUS()
>       **
>       XX =       '-ERASE ':CHAR(OLD.BS)
>       CALL !PTERM(XX)
>       CALL !PTERM('-ECHO DELAY')
>       CALL !PTERM('-FULL')

>Morten Haugen, Norway

I believe this would work...
EXECUTE "PTERM -ECHO NODELAY -HALF NOLF -ERASE ":CHAR(252)
OLD.BS = STATUS()
EXECUTE "PTERM -ERASE ":CHAR(OLD.BS):" -ECHO DELAY -FULL"

Joe Walter

http://jaw1.home.mindspring.com

- Show quoted text -

Sat, 14 Apr 2001 03:00:00 GMT
INFORMATION !PTERM to UniVerse TPARM

Quote:

>On Tue, 27 Oct 1998 08:48:33 +0100, "Morten Haugen"

>>I'm moving from Prime Information (PI) to UniVerse 9.4.1.2H on Win NT 4.0
>>(INFORMATION flavour).

>>My question is:
>>How do I convert the following PI code to UniVerse BASIC?

>>       CALL !PTERM('-ECHO NODELAY')
>>       CALL !PTERM('-HALF NOLF')
>>       XX =       '-ERASE ':CHAR(252)
>>       CALL !PTERM(XX)
>>       OLD.BS = STATUS()
>>       **
>>       XX =       '-ERASE ':CHAR(OLD.BS)
>>       CALL !PTERM(XX)
>>       CALL !PTERM('-ECHO DELAY')
>>       CALL !PTERM('-FULL')

Pretty easy, actually...

UniVerse has full support for the PI !PTERM subroutine...

Just run this code unchanged...
--
David T. Meeks                     || "But here I am in limbo, dark and deep
Principal Software Engineer        ||  and thick with clouds o'erspread
Ardent Software, Inc.              ||  the eons tick like seconds in

Sat, 14 Apr 2001 03:00:00 GMT

 Page 1 of 1 [ 3 post ]

Relevant Pages