Program Linklist

program linklist;
uses crt;
  type pointer=^typedata;
  TYPEDATA = RECORD
   NILAI : INTEGER;
   BERIKUTNYA : POINTER;
   end;
var list :pointer;
procedure mas_dep(var L : pointer; x : Integer);
  var baru : pointer;
begin
  new(baru);
  baru^.Nilai:=x;
  baru^.Berikutnya:= nil;
  if L= nil then L:=baru
  else
   begin
   baru^.berikutnya :=L;
   L:= baru;
  end;
 end;

 procedure cetak (L:pointer);
 var bantu : pointer;
 begin
  bantu:= L;
  while bantu <> nil do
  begin
  write (bantu^.Nilai:3);
  Bantu:=bantu^.Berikutnya;
   end;
  end;

  var bil, bil2 : integer;
  JB : char;

  begin
  clrscr;
  new(list);
  list:=nil;
  jb:='Y';
  writeln;
  writeln ('+-----------------------------------+');
  writeln ('|         Program linklist          |');
  writeln ('|-----------------------------------|');
  writeln ('|            MASUK DEPAN            |');
  writeln ('+-----------------------------------|');
  readkey;
  clrscr;
  while upcase(Jb)='Y' do
  begin
   clrscr;
   writeln ('+--------------------------+');
   writeln ('| Input bilangan :         |');
   writeln ('+--------------------------+');
   gotoxy(23,2);readln(bil);
   mas_dep(list,bil);
   writeln;
   writeln ('| Lagi [Y/T]  :            |');
   writeln ('+--------------------------+');
   gotoxy(17,4);readln(jb);
   end;
   writeln ('|--------------------------|');
   writeln ('|                          |');
   writeln ('+--------------------------+');
   gotoxy(3,6);cetak(list);
   writeln;
   readln;
   end.