home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / PLAYER / GUI / EasyPlayer.lha / EYP / Source / modsrc / listvtest.e < prev    next >
Encoding:
Text File  |  1999-03-09  |  632 b   |  42 lines
  1. MODULE '*test'
  2.  
  3. PROC main()
  4. DEF bla:PTR TO listv,s,t,u,i
  5.     NEW bla.stringnode()
  6.     s:=String(10)
  7.     StrCopy(s,'Hans')
  8.     t:=String(10)
  9.     StrCopy(t,'Maria')
  10.     u:=String(10)
  11.     StrCopy(u,'Peter')
  12.     bla.add(t)
  13.     bla.add(s)
  14.  
  15.     FOR i:=0 TO bla.numitems()-1
  16.         bla.item(i)
  17.         PrintF('\d \s\n',i,bla.obj())
  18.     ENDFOR
  19.     PrintF('------------------\n')
  20.  
  21.  
  22. bla.first()
  23. bla.insert(u)
  24.  
  25.  
  26.  
  27.     FOR i:=0 TO bla.numitems()-1
  28.         bla.item(i)
  29.         PrintF('\d \s\n',i,bla.obj())
  30.     ENDFOR
  31.     PrintF('------------------\n')
  32.     bla.sort()
  33.     FOR i:=0 TO bla.numitems()-1
  34.         bla.item(i)
  35.         PrintF('\d \s\n',i,bla.obj())
  36.     ENDFOR
  37.     DisposeLink(s)
  38.     DisposeLink(t)
  39.     DisposeLink(u)
  40.     END bla
  41. ENDPROC
  42.