home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Top100sh / Macro / GrounC / data1.cab / Example_Files / Sample6.gc < prev    next >
Text File  |  1998-08-20  |  288b  |  13 lines
  1. Messagebox("This macro will demonstrate the repeat command, and Goto commands...")
  2. GoTo(":SubRoutine1")
  3. :Return1
  4. GoTo(":TheExit")
  5.  
  6. :SubRoutine1
  7. Repeat(MessageBox("This is a simple Message box that will repeated 5 times...."),5)
  8. GoTo(":Return1")
  9.  
  10. :TheExit
  11. MessageBox("Done.")
  12.  
  13.