home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a042 / 2.ddi / DEMO / SERVER.PRG < prev    next >
Encoding:
Text File  |  1991-01-22  |  775 b   |  43 lines
  1. set procedure to server
  2. wrun server.exe
  3. select window "CONSOLE"
  4. use stkinfo
  5. talk to Server about StockInfo
  6. enable autotalk on GM do servapp before
  7. if contact()
  8. *   erase
  9.    @ 2,20 say 'Stock Quotations'
  10.    @ 5,28 say 'IBM'
  11.    @ 6,10 get ibm
  12.    @ 8,21 say 'General Motors'
  13.    @ 9,10 get gm
  14.    ?
  15.    STORE autodata("IBM") TO ISIBM  &&Note the calls are is upper case
  16.    STORE autodata("GM") TO ISGM    &&as required by server
  17.    IF ISGM
  18.      @ 18,0 SAY 'GM IS ACTIVE'
  19.    ENDIF
  20.    IF ISIBM
  21.      @ 18,30 SAY 'IBM IS ACTIVE'
  22.    ENDIF
  23.    READ
  24.     stopdata("IBM")
  25.     stopdata("GM")
  26. else
  27.    ? 'No Contact'
  28. endif
  29. wait
  30. terminate
  31. quit
  32.  
  33.  
  34. procedure servapp
  35. @ 20,0 say 'Appending Record '+ ltrim(str(recno(),4)) + '    '
  36. append blank
  37. return
  38.  
  39.  
  40.  
  41.  
  42.  
  43.