===========================================================================

MSG.PPE - a PPE designed to give your callers a menu to choose from when
they enter a (C)omment to Sysop.  This will let you have messages addressed
to the person on your system that takes care of a particular area of the
board.

============================================================================

INSTALLATION:

  To install this PPE, create a new directory under your existing \PCB\PPE
  directory called MSG.  The resulting path will be \PCB\PPE\MSG.  Copy all
  the files from this archive into it.  Then go into PCBSetup:File
  Locations:Configuration Files, to the CMD.LST file.  Hit F2 to edit the
  file and you'll see something similar to this:

                             CMD.LST Editor

                         Charges Per     PPE/MNU File Specification -or-
        Command    Sec  Minute    Use    Keystroke Substitution
    ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
 1) CLS              0        0        0 C:\PCB\PPE\CLS.PPE
 2) BR               0        0        0 H:\PCB\PPE\BROADCST\BR.PPE
 3) RESTRICT         0        0        0 H:\PCB\PPE\UPLOAD\RESTRICT.PPE
 4) V                0        0        0 C:\PCB\GEN\V.PPE
 5) U                0        0        0 H:\PCB\PPE\UPLOAD\U.PPE
 6) READ             0        0        0 R;O;A;Y;S^M

  Hit Alt+I to insert a new line and enter:

 2) C                0        0        0 C:\PCB\PPE\MSG\MSG.PPE

  Once this is done, you'll need to set up the configuration file.  It is
  layed out like this:

  Menu item
  Name

  with each line following the other.  The Menu item can be up to 75
  characters in length, and the name can be any name that has a valid user
  record on the system.  At this point you can bring your system back up
  and run it.  When your callers enter a "C" command for comment to Sysop
  they'll be presented with this menu to re-direct the message to whoever
  it should be addressed to.

============================================================================

EXPLAINATION OF CODE:

-Declare the variables used in the PPE
String Prompt(10),Response(10),Input
Integer Line,Key,Last


-Declare the procedure to make the arrow keys work for moving the menu
-highlight bar up and down the menu options.
Declare Procedure Down ()
Declare Procedure Up ()

-Open the configuration file and read through it to the end.  Assign each
-line to a seperate variable so they can be used to build the menu and
-respond appropriately when the caller selects an option.  Close the file.
FOpen 1,PPEPath()+"MSG.CFG",O_RD,S_DN
While (!Ferr(1)) do
  FGet 1,Prompt(Line)
  FGet 1,Response(Line)
EndWhile
FClose 1

-Build the menu and print the instructions at the bottom of the screen,
-then go back to the top and highlight the top entry, so it's the default
-selection.
Line = 1
Cls
While (Prompt(Line) <> "") do
  PrintLn "       @X0E",String(Line)," - @X0F",Left(Prompt(Line),50),"@X07"
  Inc Line
EndWhile
Last = (GetY()-1)
PrintLn Chr(13)
PrintLn "@X0A   Use the arrow keys to highlight the subject, then press `Enter' @X0A(@X0EQ@X0A) = Quit@X07"
AnsiPos 1,1
PrintLn "       @X3E",String(Line)," - @X3F",Left(Prompt(Line),50),"@X07"

-This is the section that actually does the work.  It waits for the caller
-to press a key, then takes action based on what keystroke the caller has
-pressed.  It takes whatever action is appropriate (moves the highlight bar
-up or down, quits, or selects the option based on the key pressed.
:Loop
Input = ""
While (Input = "") do
  Delay 2
  Input = Inkey()
EndWhile
Select Case Input
  Case Chr(13)
    Key = GetY()
    KbdStuff Response(Key)
    End
  Case "Q","q"
    Cls
    End
  Case "UP"
    Up()
    Goto Loop
  Case "DOWN"
    Down()
    Goto Loop
End Select
Goto Loop

End
===========================================================================

-This is the procedure that moves the highlight bar up if the up arrow key
-is pressed.  It re-draws the menu option in the default (white and yellow
-on black) colors, then moves up one position and re-draws that line in the
-highlight (white and yellow on cyan) colors.  If the highlight bar is
-already at the top of the screen, it moves it down to the bottom of the
-screen and redraws that line.
Procedure Up()
IF ((GETY()-1) < 1) THEN
  ANSIPOS 1,GETY()
  PRINT "     @X0F",GETY(),". - @X0E",Left(Prompt(GetY()),50),"@X07"
  ANSIPOS 1,LAST
  PRINT "     @X3F",GETY(),". - @X3E",Left(Prompt(GetY()),50),"@X07"
  Input = ""
  Return
ENDIF
ANSIPOS 1,GETY()
PRINT "     @X0F",GETY(),". - @X0E",Left(Prompt(GetY()),50),"@X07"
ANSIPOS 1,(GETY()-1)
PRINT "     @X3F",GETY(),". - @X3E",Left(Prompt(GetY()),50),"@X07"
Input = ""
EndProc

-This is the procedure that moves the highlight bar down if the down arrow key
-is pressed.  It re-draws the menu option in the default (white and yellow
-on black) colors, then moves down one position and re-draws that line in the
-highlight (white and yellow on cyan) colors.  If the highlight bar is
-already at the bottom of the screen, it moves it up to the top of the
-screen and redraws that line.
Procedure Down()
IF ((GETY()+1) > LAST) THEN
  ANSIPOS 1,GETY()
  PRINT "     @X0F",GETY(),". - @X0E",Left(Prompt(GetY()),50),"@X07"
  ANSIPOS 1,1
  PRINT "     @X3F",GETY(),". - @X3E",Left(Prompt(GetY()),50),"@X07"
  Input = ""
  Return
ENDIF
ANSIPOS 1,GETY()
PRINT "     @X0F",GETY(),". - @X0E",Left(Prompt(GetY()),50),"@X07"
ANSIPOS 1,(GETY()+1)
PRINT "     @X3F",GETY(),". - @X3E",Left(Prompt(GetY()),50),"@X07"
EndProc