home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / f / fpmudemo.zip / MUDEMO.TXT < prev    next >
Text File  |  1993-01-21  |  4KB  |  126 lines
  1.  
  2.       1 * Program: MUDEMO.PRG
  3.       2 *    Date: 01/18/93
  4.       3 *      By: Grover Cox
  5.       4 * Multi-user demo program
  6.       5 *
  7.       6 * Program setup
  8.       7 CLOSE ALL
  9.       8 CLEAR ALL
  10.       9 RELEASE ALL
  11.      10 CLEAR
  12.      11 SET SYSMENU OFF
  13.      12 SET TALK OFF
  14.      13 SET MESSAGE TO 24 CENTER
  15.      14 SET ESCAPE OFF
  16.      15 SET SCORE OFF
  17.      16 SET STAT OFF
  18.      17 SET HOURS TO 12
  19.      18 SET CLOCK ON
  20.      19 SET BORDER TO DOUBLE
  21.      20 SET PROCEDURE TO MUDEMO
  22.      21 * Multi-user configuration commands
  23.      22 SET EXCLUSIVE OFF
  24.      23 SET REPROCESS TO AUTOMATIC  && Set retries to indefinite time period
  25.      24 *
  26.      25 @ 0,0,24,79 BOX REPLICATE(CHR(176),9)   && Background for main screen
  27.      26 ver_no='1.00'   && Always change program version no. here
  28.      27 DIMENSION Mitems[3]     && Main Menu items
  29.      28 Mitems[1]='\<Add Name'
  30.      29 Mitems[2]='\<Edit Names'
  31.      30 Mitems[3]='E\<xit'
  32.      31 *
  33.      32 * Program starting here
  34.      33 *
  35.      34 @ 00,24 SAY 'Multi-User Demo Program '+ver_no
  36.      35 DO MainMenu
  37.      36 *
  38.      37 * Program clean-up
  39.      38 CLOSE ALL
  40.      39 RELEASE WINDOW ALL
  41.      40 SET PROCEDURE TO
  42.      41 CLEAR
  43.      42 SET SYSMENU ON
  44.      43 CLEAR ALL
  45.      44 RETURN     && End program
  46.      45 
  47.      46 PROCEDURE MainMenu
  48.      47  SELECT 0
  49.      48  USE MUFILE
  50.      49  DO WHILE .T.
  51.      50     Mchoice=0
  52.      51     @ 3,30 MENU Mitems,3,3
  53.      52     READ MENU TO Mchoice
  54.      53     DO CASE
  55.      54        CASE Mchoice=1
  56.      55           DO EditScrn WITH 'ADD'
  57.      56        CASE Mchoice=2
  58.      57           DO SelRcd
  59.      58           DO EditScrn WITH 'EDIT'
  60.      59        CASE Mchoice=3
  61.      60           EXIT
  62.      61     ENDCASE
  63.      62  ENDDO
  64.      63  SELECT MUFILE
  65.      64  USE
  66.      65  RETURN
  67.      66 
  68.      67 PROCEDURE EditScrn
  69.      68 * Record already selected before now
  70.      69  PARAMETER Smode    && Add, Edit
  71.      70  PRIVATE Smode, Rw, YelBl
  72.      71 * Screen setup code
  73.      72  DO CASE
  74.      73     CASE Smode='ADD'
  75.      74        SCATTER MEMVAR BLANK
  76.      75     CASE Smode='EDIT'
  77.      76        =RLOCK()     && Multi=user command
  78.      77        SCATTER MEMVAR
  79.      78  ENDCASE
  80.      79  DEFINE WINDOW AddEdit FROM 3,3 TO 18,76;
  81.      80    TITLE ' Multi-User Demo ' DOUBLE
  82.      81  ACTIVATE WINDOW AddEdit
  83.      82  Rw=2
  84.      83  YelBl='GR+/B'
  85.      84 * Screen Elements
  86.      85  @ Rw,5 SAY 'Mode:'
  87.      86  @ Rw,11 SAY '<'+Smode+'>' COLOR &YelBl
  88.      87  @ Rw,52 SAY 'Today:'
  89.      88  @ Rw,59 SAY DTOC(DATE()) COLOR &YelBl
  90.      89  @ Rw+2,5 SAY 'Name   :' GET m.Name
  91.      90  @ Rw+4,5 SAY 'Address:' GET m.Address
  92.      91  @ Rw+6,5 SAY 'City   :' GET m.City
  93.      92  @ Rw+6,41 SAY 'State:' GET m.State FUNCTION '!A'
  94.      93  @ Rw+6,52 SAY 'Zip:' GET m.Zip PICTURE '99999-9999'
  95.      94  SaveCanx=1
  96.      95  @ Rw+9,28 GET SaveCanx FUNCTION '*TH \!\<Save;\<Cancel' SIZE 1,6,3
  97.      96  READ
  98.      97 * Screen clean-up code
  99.      98  IF SaveCanx=1      && If Save selected
  100.      99     DO CASE
  101.     100       CASE Smode='ADD'
  102.     101         APPEND BLANK
  103.     102         GATHER MEMVAR
  104.     103       CASE Smode='EDIT'
  105.     104         GATHER MEMVAR
  106.     105     ENDCASE
  107.     106  ENDIF
  108.     107  UNLOCK     && Multi=user command
  109.     108  DEACTIVATE WINDOW AddEdit
  110.     109  RELEASE WINDOW AddEdit
  111.     110  RETURN
  112.     111 
  113.     112 PROCEDURE SelRcd
  114.     113 * Select record to edit
  115.     114  DEFINE WINDOW Select FROM 9,10 TO 16,65 DOUBLE;
  116.     115    TITLE ' Select Name to Edit ';
  117.     116    FOOTER ' Press <ENTER> to select '
  118.     117  ACTIVATE WINDOW Select
  119.     118  ON KEY LABEL Enter KEYBOARD CHR(23)
  120.     119  BROWSE FIELDS NAME,ADDRESS IN WINDOW Select NOEDIT
  121.     120  ON KEY LABEL Enter
  122.     121  DEACTIVATE WINDOW Select
  123.     122  RELEASE WINDOW Select
  124.     123  RETURN
  125.     124 
  126.