home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / dance414.zip / dancer.fpl < prev    next >
Text File  |  1997-01-15  |  336b  |  18 lines
  1. export void report(string me)
  2. {
  3.   int pub;
  4.   pub = LabelRead("PUBLIX");
  5.   Say(sprintf("%s has said 'test' %d times", me, pub));
  6. }
  7.  
  8. export void countpublic()
  9. {
  10.   int count = LabelRead("PUBLIX");
  11.   LabelSet("PUBLIX", ++count);
  12. }
  13.  
  14. CmdAdd("REPORT", 10, "", "reports",
  15.        "public", "report(\"%u\");");
  16.  
  17. LabelDefine("PUBLIX", "save", 0);
  18.