home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / GOODIES / FOX210.PRG < prev    next >
Encoding:
Text File  |  1989-10-20  |  1.8 KB  |  77 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: FOX210.PRG
  4. *:
  5. *:         System: FoxPro Old-Style "Dot-Prompt" Simulator
  6. *:         Author: Fox Software, Inc.
  7. *:      Copyright (c) 1989, Fox Software, Inc.
  8. *:  Last modified: 10/10/89     17:28
  9. *:
  10. *:  Procs & Fncts: MYERROR
  11. *:
  12. *:          Calls: MYERROR        (procedure in FOX210.PRG)
  13. *:
  14. *:   Memory Files: FOX210.MEM
  15. *:
  16. *:        Notes:    This program is just for fun.  It's intended 
  17. *:                for those who truly LOVE the dot-prompt and 
  18. *:                does a fair job of emulating the old-style
  19. *:                interface.  To exit this program cleanly,
  20. *:                either type 'QUIT' or 'EXIT' from the "Dot Prompt".
  21. *:                Implementation of the old-style history list
  22. *:                and any other missing features is left as an
  23. *:                exercise for the reader.
  24. *:
  25. *:      Documented 10/20/89 at 07:04               FoxDoc  version 2.0
  26. *:*********************************************************************
  27. IF SET('talk') == 'ON'
  28.    SET TALK OFF
  29.    TALK = 'ON'
  30. ELSE
  31.    TALK = 'OFF'
  32. ENDIF
  33.  
  34. STAT = SET('stat')
  35. SET STATUS ON
  36. RESTORE FROM fox210 ADDITIVE
  37.  
  38. DEFINE WINDOW desk FROM 0,0 TO 21,79 NONE
  39. ACTIVATE WINDOW desk
  40.  
  41. RESTORE SCREEN FROM X
  42. SET COLO TO W+/B,W+/B
  43. ON ESCAPE LOOP
  44. ON ERROR DO myerror
  45.  
  46. DO WHILE .T.
  47.    cmd = SPACE(75)
  48.    @ 21,0 SAY '. '
  49.    @ 21, 2 GET cmd
  50.    READ
  51.    SCROLL 0,0,21,79, 1
  52.    &cmd
  53. ENDDO
  54.  
  55. ON ERROR
  56. SET COLOR TO
  57. ON ESCAPE
  58. RELEASE WINDOW desk
  59. SET STATUS &stat
  60. SET TALK &talk
  61. RETURN
  62.  
  63. *!*********************************************************************
  64. *!
  65. *!      Procedure: MYERROR
  66. *!
  67. *!      Called by: FOX210.PRG                    
  68. *!
  69. *!*********************************************************************
  70. PROC myerror
  71. ? MESSAGE()
  72. ?
  73. RETURN
  74.  
  75.  
  76. *: EOF: FOX210.PRG
  77.