*:*****************************************************************************
*:
*:        Program: C:\DOS250\MISC\FOX210.PRG
*:         System: FoxPro Application
*:         Author: Wayne Lampel
*:      Copyright (c) 1992, Microsoft Corporation
*:  Last modified: 06/13/91 at 12:00:00
*:
*:
*:  Procs & Fncts: MYERROR
*:
*:          Calls: MYERROR        (procedure in FOX210.PRG)
*:
*:   Memory Files: FOX210.MEM
*:
*:		Notes:	This program is just for fun.  It's intended 
*:				for those who truly LOVE the dot-prompt and 
*:				does a fair job of emulating the old-style
*:				interface.  To exit this program cleanly,
*:				either type 'QUIT' or 'EXIT' from the "Dot Prompt".
*:				Implementation of the old-style history list
*:				and any other missing features is left as an
*:				exercise for the reader.
*:
*:      Documented 20:09:48                                FoxDoc version 3.00a
*:*****************************************************************************
IF SET('talk') == 'ON'
   SET TALK OFF
   TALK = 'ON'
ELSE
   TALK = 'OFF'
ENDIF

STAT = SET('stat')
SET STATUS ON
RESTORE FROM fox210 ADDITIVE

DEFINE WINDOW desk FROM 0,0 TO 21,79 NONE
ACTIVATE WINDOW desk

RESTORE SCREEN FROM X
SET COLO TO W+/B,W+/B
ON ESCAPE LOOP
ON ERROR DO myerror

DO WHILE .T.
   cmd = SPACE(75)
   @ 21,0 SAY '. '
   @ 21, 2 GET cmd
   READ
   SCROLL 0,0,21,79, 1
   &cmd
ENDDO

ON ERROR
SET COLOR TO
ON ESCAPE
RELEASE WINDOW desk
SET STATUS &stat
SET TALK &talk
RETURN

*!*********************************************************************
*!
*!      Procedure: MYERROR
*!
*!      Called by: FOX210.PRG                    
*!
*!*********************************************************************
PROC myerror
? MESSAGE()
?
RETURN


*: EOF: FOX210.PRG