PROCEDURE

Uses Crt;

Var Pil : Byte;

    kode : string [3];

    jumlah : byte;

    nama : string [20];

    harga : longint;

    total : longint;

    j     : byte;

    i     :byte;

Procedure Input;

Begin

     Writeln('Bagian Input');

     begin

     clrscr;

     gotoxy(30,5); write('Kode:'); readln (kode);

     gotoxy(30,6); write('Jumlah:'); readln (jumlah);

     end;

End;

Procedure Output;

Begin

     Writeln('Bagian Output');

     clrscr;

    gotoxy(10,3); write('____________________________________________________');

    gotoxy(10,4); write('No  Kode   Nama     Harga  Jumlah  Total');

    begin

         if kode ='001' then

            begin

               nama := 'TV'; harga:= 1000000;

            end

         else if kode ='002' then

            begin

                 nama := 'DVD'; harga:= 650000;

            end;

         total := harga*jumlah;

              i:=0  ;

    for i:=1 to i do;

               gotoxy(10,5); write (i:1, kode :7, nama :7, harga:12,jumlah:5, total:10);

    end;

    gotoxy(10,6); write('_________________________________________________________');

End;

Begin

     Clrscr;

     Pil := 1;

     Repeat

           Writeln('Menu');

           Writeln('1. Input Data');

           Writeln('2. Output Data');

           Writeln('3. Exit');

           Write('Pilihan :');

           Readln(Pil);

           Case Pil of

                1 : Input;

                2 : Output;

           End;

           Readln;

     Until (Pil = 3);

End.