home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / scripts.cab / recur.kix < prev    next >
Text File  |  1999-11-04  |  495b  |  21 lines
  1. ;  RECUR.SCR
  2. ;
  3. ;  KiXtart demo script
  4. ;
  5. ;  24-Aug-1995
  6. ;
  7. ;  Note :  This code sample is provided for demonstration purposes only.
  8. ;          Microsoft makes no warranty, either express or implied,
  9. ;          as to its usability in any given situation.
  10. ;
  11. break ON
  12. :start
  13. $recurcount=$recurcount+1
  14. at (2,0) "Current call level : $recurcount"
  15. get $anykey
  16. if $anykey = 'Q' goto end endif
  17. Call RECUR.KIX
  18. $recurcount=$recurcount-1
  19. at (2,0) "Current call level : $recurcount "
  20. :end
  21.