/* Method Write_Back */
use arg data /* Save data to be written */
reply 0 /* Tell the sender all was OK */
self~disk_write(data) /* Now write the data */
0. The caller of method Write_Back
continues processing from this point; meanwhile, method Write_Back also
continues processing.nextline:mymsg = infile~start("READLINE") /* Gets message object to carry */
/* message to INFILE */
/* do other work */
nextline=mymsg~result /* Gets result from message object */
mymsg
message object obtains the result and holds it until the sender requests it.