home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / ACE / Prgs / ACEports / poll / reader.b next >
Text File  |  1994-10-03  |  890b  |  51 lines
  1. '..Test of ACE messaging functions: reader.
  2.  
  3. string buffer
  4. msg$="Hello from reader!"
  5.  
  6. window 1,"Reader",(0,100)-(640,200),0
  7.  
  8. font "topaz",8
  9. locate 1,1
  10.  
  11. '..create a port for this program called "reader"
  12. message open #1,"reader","r"
  13. if err=400 then 
  14.   print "can't create a message port!"
  15.   goto quit
  16. end if
  17.  
  18. '..read a message from writer by polling.
  19. repeat
  20.   print "polling..."
  21.   message read #1,buffer
  22.   sleep for .1
  23. until buffer<>""
  24.  
  25. if err<>402 then print "READER <- WRITER: ";buffer
  26.  
  27.  
  28. '..reply to writer.
  29. repeat
  30.   print "waiting for creation of port called 'writer'."
  31.   message open #2,"writer","w"
  32.   sleep for .1
  33. until err<>400
  34.  
  35. message write #2,msg$
  36.  
  37. if err<>403 then
  38.   print "READER -> WRITER: ";msg$
  39.   message wait #2    
  40.   PRINT "*** ACK received from writer."
  41. end if
  42.  
  43. quit:
  44. print
  45. print "Press a key..."
  46. while inkey$="":sleep:wend
  47. message close #1
  48. message close #2
  49. window close 1
  50. END
  51.