home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_GEN / EDSV4064.ZIP / EPP-V1_1.ZIP / SKIPNONW.E < prev    next >
Text File  |  1993-06-26  |  421b  |  19 lines
  1. PMODULE 'PMODULES:skipNonWhite'
  2. PMODULE 'PMODULES:cSkipNonWhite'
  3. PMODULE 'PMODULES:eTimer'
  4.  
  5. PROC main ()
  6.   DEF s [260] : STRING,
  7.       i
  8.   FOR i := 0 TO 10 DO StrAdd (s, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', ALL)
  9.  
  10.   et_startTimer (0, 'skipNonWhite')
  11.   FOR i := 1 TO 1000 DO VOID skipNonWhite (s, 0)
  12.   et_stopTimer ()
  13.  
  14.   et_startTimer (0, 'cSkipNonWhite')
  15.   FOR i := 1 TO 1000 DO VOID cSkipNonWhite (s)
  16.   et_stopTimer ()
  17.  
  18. ENDPROC
  19.