home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Top100sh / Macro / GrounC / data1.cab / Example_Files / Sample7.gc < prev    next >
Text File  |  1998-08-20  |  530b  |  10 lines
  1. ////Tests the Label jumps inside a macro..
  2. Messagebox("This macro demonstrates the Label, MessageBoxOkCancel,  If, and Goto commands.")
  3. :TopOfLoop
  4. MessageBoxOkCancel("Press 'OK' to test the label... Cancel to quit.")
  5. If(ResponseCancel(),GoTo(":ExitLoop"))
  6. //If(ResponseOk(),GoTo(":TopOfLoop"),Goto(":ExitLoop"))     <------ we could have used this extended version but we chose to use a simple Goto(":TopOfLoop") instead..
  7. GoTo(":TopOfLoop")
  8. :ExitLoop
  9. MessageBox("Congratulations... you found your way out of the loop!")
  10.