-> RunMain.prg received.  And many thanks!
-> The other two were  WallPapr from John Thornton and MsgBox() for DOS.
Don't have WallPapr.  Stange!  Here's MsgBox.
***********************************************************************
>
 BBS: MUG Club BBS  (517) 263-2061
Date: Tue, 06-04-96 (22:56)         Number: 748        Refer: 0       
  To: David POWELL
From: Renaud MAVRE
Subj: INI functions & MSGBOX (3
Conf: Foxpro (13)                     Read: No        Status: Public
=============================================================================
* Forwarded by Renaud MAVRE (2:321/1.14)
* Area : YOUWROTE
* From : Renaud MAVRE, 2:321/1.14 (Tuesday, 12 March 1996  18:20:48)
* To   : John THORNTON
* Subj : INI functions & MSGBOX (3/3)
=============================================================================
Hi John,
Here is the last part of my message :
*!****************************************************************************
*! Function........: MSGBOX (for DOS)
*! Author..........: Renaud MAVRE
*! Project.........: FoxPro Library()
*! Created.........: 1994
*! Copyright.......: Freeware
*! Platform........: FoxPro DOS
*! Description.....: Simulate the MsgBox() of Foxpro Windows
*! Syntax..........: [Response]=MsgBox(Message, Title, Typebutton, Colscheme)
*! Parameter list..: Message    : message to be displayed
*!                   Title      : title of the message box
*!                   Typebutton : kind of buttons set :
*!                                   0 : [OK]
*!                                   1 : [OK] & [Cancel]
*!                                   3 : [Yes] & [No] & [Cancel]
*!                                   4 : [Yes] & [No]
*!                                   5 : [Repeat] & [Cancel]
*!                                   9 : [Cancel] & [OK]
*!                   Colscheme  : color scheme to use (default : 7, red)
*!                   Response   : a figure corresponding to the kind of
*!                                button chosen by the user :
*!                                   1 : [OK]
*!                                   2 : [Cancel]
*!                                   4 : [Repeat]
*!                                   5 : [Ignore]
*!                                   6 : [Yes]
*!                                   7 : [No]
*! Called by.......: Any
*! Calls...........: None
*! Examples........: =MsgBox("Time to lunch !","Information",6,6)
*!                   IF MsgBox("Start backup ?","Attention",3)=1 ...
*! Notes...........: The default button is always the leftmost one.
*!                   Any kind of other buttons sets can be added.
*!****************************************************************************
FUNCTION MsgBox
   PARAMETERS wMessage, wTitre, wTypebout, wColscheme
   PRIVATE ALL LIKE w*
   PRIVATE zChoixNum
* The color scheme is set to 7 (red background) if not supplied
   IF TYPE("wColscheme")="L"
      wColscheme = 7
   ENDIF
   wFenetre = SYS(3)
   wLigne = 10
   DIMENSION wButton(7)
   wButton[1] = "OK"
   wButton[2] = "Cancel"
   wButton[3] = ""
   wButton[4] = "Repeat"
   wButton[5] = "Ignore"
   wButton[6] = "Yes"
   wButton[7] = "No"
   DO CASE
      CASE wTypebout=0
         wLibelle = "\!\?\ * Origin: Lenawee PC Users Group BBS (1:2470/19)