$! Procedure name :     PCWP.COM
$! Date :               1APR90
$! Author :             Bob Martin
$! Address :            513 Ellis Ct.
$!                      Richmond, KY 40475
$! Bitnet:              GRAPHICS@EKU  or   ACSMARTIN@EKU
$!
$! FOR USE ONLY WITH MS-DOS KERMIT 3.12 AND EARLIER!
$! USE NEW MSIWP3.COM FOR VERSION 3.13 AND LATER.
$!
$!#######################################################################
$!
$! This file is intended to provide a means for people to use
$! WordPerfect 5.0 on a VAX(VMS), just as if they were using it on their
$! IBM PC. When used with the file 'WP30.INI' provided by WordPerfect
$! Corp. (I believe the file is called MSIWP3.INI at Columbia); you
$! will need to make minor corrections to the original INI file if
$! you are using VMS, since it was written for UNIX. As a matter of
$! fact, the MSIWP3.INI file is very well commented and tells you the
$! same thing.
$!
$! You can either use this command procedure locally (in your account)
$! or it can be made available to the entire system. I have made it
$! available to the entire system by putting it in a directory called
$! PUBLIC: -- then adding the line '$ PCWP :== @PUBLIC:PCWP.COM' to
$! SYLOGIN.COM.
$!
$! You may want to add 'SET KEY CLEAR' at the top of your MSKERMIT.INI
$! file to ensure you get ALL your key definitions back. You will also
$! need to add to lines to the bottom of your MSKERMIT.INI file; they are:
$!
$!              DEFINE TerminalS TAKE MSIWP3.INI, CONNECT
$!              SET KEY \2344 \KterminalS  ;assigns ALT-' (apostrophe)
$!
$! The above lines allow this procedure to work automatically, but ONLY if
$! you add them to your MSKERMIT.INI file.
$!
$! Hope it helps some of you folks out, a bit!
$!#######################################################################
$!
$!Set up the terminal...........
$!
$ set term/inq/noeight/hostsync/ttsync
$ create/name_table wpcorp_terminal_table
$ esc=""
$ esc[0,8]=27
$!
$! Defines TerminalS in order to provide hands off key redefinition
$! for WordPerfect products
$!
$ define/table=wpcorp_terminal_table begin_control "''esc'[?34h"
$!
$! Define TerminalR -- which will reset your key definitions to
$! whatever you had them before, automatically.
$!
$ define/table=wpcorp_terminal_table end_control "''esc'[?34l"
$!
$!
$ Begin:
$ if P1 .eqs. "" then inquire/Nopunc P1 -
    "What type of Graphics adapter do you have? (cga, ega or vga)  "
$ if P1 .eqs. "" then goto begin
$ If ("''P1'" .eqs. "ega") .or. ("''P1'" .eqs. "EGA") then goto ega
$ If ("''P1'" .eqs. "vga") .or. ("''P1'" .eqs. "VGA") then goto vga
$ If ("''P1'" .eqs. "cga") .or. ("''P1'" .eqs. "CGA") then goto cga
$ goto outtahere   !Kicks them out if they misspell their adapter
$!                  Add error trapping -- if you'd like it....
$!
$ CGA:
$ define/table=wpcorp_terminal_table graphics_size 320,200
$define/user_mode sys$input sys$command
$ wp50
$ goto outtahere
$!
$ EGA:
$ define/table=wpcorp_terminal_table graphics_size 640,350
$define/user_mode sys$input sys$command
$ wp50
$ goto outtahere
$!
$ VGA:
$ define/table=wpcorp_terminal_table graphics_size 640,480
$define/user_mode sys$input sys$command
$ wp50
$ goto outtahere
$!
$ outtahere:
$ Exit