home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / testsrc / helloworldloop.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  391 b   |  28 lines

  1. -> eeh 0.9
  2.  
  3. MODULE 'dos/dos' -> just testing
  4. ->EXTERN dos
  5.  
  6. #define BLA
  7. ->#define BLI
  8.  
  9. PROC main()
  10.    DEF a, exp:fileinfoblock
  11.    exp := `PrintF('hello world!  \r .\d[10]. \h \c \s[2]\n', SIZEOF fileinfoblock, a, "w", 'majs')
  12.  
  13.    #ifdef BLA
  14.    a := 15
  15.    WHILE a
  16.       Eval(exp)
  17.       a--
  18.    ENDWHILE
  19.  
  20.    #ifndef BLI
  21.    FOR a := 100 TO 90 STEP -1 DO Eval(exp)
  22.    #endif
  23.    #endif
  24.  
  25. ENDPROC 
  26.  
  27.  
  28.