home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / ACE / Prgs / ACEports / wait / reader.b next >
Text File  |  1994-10-03  |  794b  |  47 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.
  19. message wait #1
  20. message read #1,buffer
  21.  
  22. if err<>402 then print "READER <- WRITER: ";buffer
  23.  
  24.  
  25. '..reply to writer.
  26. repeat
  27.   print "waiting for creation of port called 'writer'."
  28.   message open #2,"writer","w"
  29.   sleep for .25
  30. until err<>400
  31.  
  32. message write #2,msg$
  33.  
  34. if err<>403 then
  35.   print "READER -> WRITER: ";msg$
  36.   message wait #2    
  37. end if
  38.  
  39. quit:
  40. print
  41. print "Press a key..."
  42. while inkey$="":sleep:wend
  43. message close #1
  44. message close #2
  45. window close 1
  46. END
  47.