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