home *** CD-ROM | disk | FTP | other *** search
- -> eeh 0.9
-
- MODULE 'dos/dos' -> just testing
- ->EXTERN dos
-
- #define BLA
- ->#define BLI
-
- PROC main()
- DEF a, exp:fileinfoblock
- exp := `PrintF('hello world! \r .\d[10]. \h \c \s[2]\n', SIZEOF fileinfoblock, a, "w", 'majs')
-
- #ifdef BLA
- a := 15
- WHILE a
- Eval(exp)
- a--
- ENDWHILE
-
- #ifndef BLI
- FOR a := 100 TO 90 STEP -1 DO Eval(exp)
- #endif
- #endif
-
- ENDPROC
-
-
-