home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / testsrc / uni.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  567 b   |  24 lines
  1.  
  2. ENUM BLA
  3.  
  4. PROC main()
  5.    DEF a, b, c, d, e, s, s2[100]:STRING
  6.  
  7.    ['hejhej', 76, 20, [10, 20, 5], 40, 70, 80]  <=> ['hejhej', 76, *, [b, c, 5], e, 70]:LONG
  8.  
  9.    PrintF('a=\d, b=\d, c=\d, d=\d, e=\d\n', a, b, c, d, e)
  10.  
  11.    s := 'hej på dig åkebåke'
  12.  
  13.           /* obsolete, does not work */
  14.    IF s <=> {'hej', *, 'dig', 3, s2} THEN PrintF('hejhej \s\n', s2)
  15.  
  16. ENDPROC
  17.  
  18. ->  StrCmp(s, 'blah')  : s <=> {'blah'}
  19. ->  StrCopy(s2, s)     : s <=> {s2}
  20. ->  MidStr(s2, s, 5)   : s <=> {5, s2}
  21. ->  IF StrCmp(s, 'blah', STRLEN) THEN MidStr(s2, s, STRLEN) :
  22. ->  s <=> {'blah', s2}
  23.  
  24.