Buat Kasir dengan TPW

uses wincrt;
var Nb          :string [10];
      Hbr,U,Hs          :Longint;
    Jb                  :Byte;
    Dis,Hby,K   :Real;
    Tipe                :Char;
    ns                  :string[30];
    hj,lp                 :integer;
Begin Clrscr;
      writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||');
      writeln('      WARNET HACKER ONLINE AND TOSERBA HACKERS');
      writeln('  Jl. Pulo No.007, Selogiri, Wonogiri, Jawa Tengah');
      writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||');
      write('Nama user                  : ');readln (ns);
      write('Lama pakai(per jam)        : ');readln (lp);
      writeln('Harga per jam              :Rp.1000 ');
      writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
      hj:=lp*1000;
      writeln ('harus dibayar              :Rp.', hj);
      writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
      write('Nama barang                : ');readln (Nb);
      write('Jumlah beli                : ');readln (Jb);
      write('Harga satuan               :Rp.');readln (Hs);
      writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
      Hbr:=Jb*Hs;
      writeln('Harga barang               :Rp.',Hbr);
      writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
      write  ('Member Y/N                 : ');readln(Tipe);
      writeln('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
      if tipe='Y' then Dis:=(15/100)*Hbr
         Else Dis:=0;
      writeln('Discount                   :Rp.',Dis:8:1);
      writeln('<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<');
      Hby:=(Hj+Hbr)-Dis;
      writeln('Total yang haru di bayar   :Rp.',Hby:8:1);
      write('Dibayar                    :Rp.'); readln (U);
      writeln('                          ______________________');
      K:=U-Hby;
      write('Kembalian                  :Rp.',K:10:1);Readln;
      writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||');
      writeln('*********************************************************');
      writeln('Copyight by Didik Maryono ; www.sharingrpl.co.cc_________');
      writeln('*********************************************************');
      writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||');
      writeln('Thank you...!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
      writeln('Sudah berbelanja disini..........!!!!!!!!!!!!!!!!!!!!!!!!');
      if (lp)>=3 then
      writeln('Selamat anda mendapat kupon gratis internetan 1 kali login')
      else
      writeln('Selalu kunjungi tempat kami ya.....!!!!!!!!!!');
      writeln('"""""""""""""""""""""""""""""""""""""""""""""""""""""""""');
      writeln(':::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
End.

kembangkan sendiri agar sesuai keinginan anda...!!!!!!!!!