void printlist(List L)
{
   int i;
   Position P;
   for(i=1;i<=length(L)-1;i++)
   {
      P=select(i,L);
      printf("%c,",getData(P,L));
   }
   P=select(length(L),L);
   printf("%c\n",getData(P,L));
}

void main()
{
   List Daftar;
   Position P,Q;
   clrscr();
   Daftar=init();
   if(is_empty(Daftar)) printf("List masih kosong!\n");
   P=select(1,Daftar);
   insert('P',P,Daftar);
   Q=select(2,Daftar);
   insert('O',Q,Daftar);
   insert('A',Q,Daftar);
   Q=select(4,Daftar);
   insert('!',Q,Daftar);
   P=select(3,Daftar);
   insert('L',P,Daftar);
   insert('L',P,Daftar);
   P=select(2,Daftar);
   insert('X',P,Daftar);
   printlist(Daftar);
   printf("Panjang List=%d\n",length(Daftar));
   delete(P,Daftar);
   Q=select(1,Daftar);
   replace('H',Q,Daftar);
   printlist(Daftar);
   printf("Panjang List=%d\n",length(Daftar));
}