home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / Programowanie / AmigaE / yaec.lha / testsrc / test000906.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  256 b   |  27 lines
  1. CONST ABBA=9
  2.  
  3. OBJECT hej
  4.    xxx:INT
  5.    yyy:CHAR
  6.    zzz:PTR TO hej
  7. ENDOBJECT
  8.  
  9. DEF hupp:hej
  10.  
  11. PROC main()
  12.    DEF bengt:PTR TO INT
  13.    DEF a:PTR TO LONG
  14.    DEF b:PTR TO LONG
  15.  
  16.    a := FastNew(10)
  17.  
  18.    a[]++ := bengt[ABBA]--
  19.  
  20.    a--
  21.    a++
  22.  
  23.  
  24.  
  25. ENDPROC a, b, bengt
  26.  
  27.