syntax PaScaL

{sebenarnya ini program yang dibuat untuk memenuhi tugas mata kuliah pemograman dasar bukan program yang sebenarnya,kalau kalian tahu sesuatu tentang program ini,silahkan menghubungi "komentar"}

Program Billing_Mentari;
uses dos,crt;
Const tarifgprs=5;
var
pilih:char;
detik,menit,waktu:word;
biaya:longint;


Procedure loading;
const N=42;
var i:byte;

begin
clrscr;
textbackground(white);textcolor(red);
gotoxy(30,11); writeln('SILAHKAN MENUNGGU');
Textcolor(black);
gotoxy(17,12); writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(17,13); writeln('³ ³');
gotoxy(17,14); writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
textcolor(yellow);
gotoxy(19,13); writeln('²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²');
i:=0;
repeat
inc(i);
textcolor(red);
gotoxy(18+i,13); sound(800); delay(100); nosound;
writeln('²');
until i=n;
end;


procedure ambil_jam;
var
j,m,d,d100 : word;
Begin
clrscr;

gotoxy(64,1); writeln('ÉÍÍÍÍÍÍÍÍ»');
gotoxy(64,2); writeln('º º');
gotoxy(64,3); writeln('ÈÍÍÍÍÍÍÍͼ');
repeat
gettime(j,m,d,d100);
gotoxy(65,2);
write(j:2,':',m:2,':',d:2);
until keypressed;
End;


Procedure telepon;
const
tlp_sesama=2; {tarif telepon per datik}
tlp_lintas=5;

var
tujuan :char;
j1,m1,d1,md1,j2,m2,d2,md2:word;

Begin
clrscr;
textbackground(white); textcolor(black);
gotoxy(7,3); writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(7,4); writeln('º º');
gotoxy(7,5); writeln('º MENTARI TELEPON º');
gotoxy(7,6); writeln('º º');
gotoxy(7,7); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,8); writeln('º º');
gotoxy(7,9); writeln('º  Tujuan : º');
gotoxy(7,10); writeln('º ( 1.Sesama operator 2.Lintas operator ) º');
gotoxy(7,11); writeln('º º');
gotoxy(7,12); writeln('º  Jam Mulai : º');
gotoxy(7,13); writeln('º º');
gotoxy(7,14); writeln('º  Jam Selesai : º');
gotoxy(7,15); writeln('º º');
gotoxy(7,16); writeln('º  Waktu : º');
gotoxy(7,17); writeln('º º');
gotoxy(7,18); writeln('º  Biaya : Rp. º');
gotoxy(7,19); writeln('º º');
gotoxy(7,20); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,21); writeln('º º');
gotoxy(7,22); writeln('º powered by INDOSAT º');
gotoxy(7,23); writeln('º º');
gotoxy(7,24); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');

gotoxy(37,9); readln(tujuan);
readln;
Begin
gettime(j1,m1,d1,md1);
gotoxy(37,12); writeln(j1:2,':',m1:2,':',d1:2);
readkey;
end;

Begin
gettime(j2,m2,d2,md2);
gotoxy(37,14); writeln(j2:2,':',m2:2,':',d2:2);
readkey;
end;

begin
if d1>d2 then
begin
detik := d2+(60-d1); {jumlah detik}
end
else
detik := d2-d1;
end;


begin
if m1>m2 then
begin
menit := m2 + (60-d1);
end
else menit := m2-m1;
end;


waktu := (menit * 60) + detik;

Begin
case tujuan of

'1' : Begin
biaya := waktu * tlp_sesama;
End; {100 : nilai harga sementara}
'2' : Begin
biaya := waktu * tlp_lintas;
End;
End;

gotoxy(37,16); writeln(waktu,' detik');
gotoxy(40,18); writeln(biaya);
readln; loading;
end;

end;

procedure sms;
const
sms_sesama=100;
sms_lintas=350;
var
jml_sms:word;
pen_sms:char;
x :word;

Begin
clrscr;
textbackground(white); textcolor(black);
gotoxy(7,3); writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(7,4); writeln('º º');
gotoxy(7,5); writeln('º MENTARI SMS º');
gotoxy(7,6); writeln('º º');
gotoxy(7,7); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,8); writeln('º º');
gotoxy(7,9); writeln('º Jumlah SMS = º');
gotoxy(7,10); writeln('º º');
gotoxy(7,11); writeln('º Penerima = º');
gotoxy(7,12); writeln('º 1. Sesama Operator º');
gotoxy(7,13); writeln('º 2. Operator Lain º');
gotoxy(7,14); writeln('º º');
gotoxy(7,15); writeln('º Biaya = Rp. º');
gotoxy(7,16); writeln('º º');
gotoxy(7,17); writeln('º Bonus = º');
gotoxy(7,18); writeln('º º');
gotoxy(7,19); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,20); writeln('º º');
gotoxy(7,21); writeln('º powered by INDOSAT º');
gotoxy(7,22); writeln('º º');
gotoxy(7,23); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');

gotoxy(42,9); readln(jml_sms);
gotoxy(42,11); readln(pen_sms); {clreol; }

{ ambil_jam; }
begin
case pen_sms of
'1':begin
x:= jml_sms * sms_sesama;
end;
'2':begin
x:= jml_sms * sms_lintas;
end;
end; {
writeln; }
gotoxy(45,15); write(x);
gotoxy(42,17); {menampilkan biaya}

if jml_sms >= 10 then
begin
write('10 SMS (sesama operator)');
end
else write ('Anda tidak mempunyai bonus');
readln;

end; loading;

end;

Procedure GPRS;
const
gprs1 = 1;
gprs40 = 0.5;
gprs100 = 2;
var

jmlkb:real;
waktu:word;
biaya:real;
detik,menit:word;
j1,m1,d1,md1,j2,m2,d2,md2:word;



begin
clrscr;
textbackground(white); textcolor(black);
gotoxy(7,3); writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(7,4); writeln('º º');
gotoxy(7,5); writeln('º MENTARI GPRS º');
gotoxy(7,6); writeln('º º');
gotoxy(7,7); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,8); writeln('º º');
gotoxy(7,9); writeln('º (untuk mulai mengakses GPRS, tekan ENTER) º');
gotoxy(7,10); writeln('º º');
gotoxy(7,11); writeln('º Jam Mulai = º');
gotoxy(7,12); writeln('º º');
gotoxy(7,13); writeln('º Jam Selesai = º');
gotoxy(7,14); writeln('º º');
gotoxy(7,15); writeln('º Jumlah = º');
gotoxy(7,16); writeln('º º');
gotoxy(7,17); writeln('º Biaya = Rp. º');
gotoxy(7,18); writeln('º º');
gotoxy(7,19); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,20); writeln('º º');
gotoxy(7,21); writeln('º powered by INDOSAT º');
gotoxy(7,22); writeln('º º');
gotoxy(7,23); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
readln;
Begin
gettime(j1,m1,d1,md1);
gotoxy(42,11); writeln(j1:2,':',m1:2,':',d1:2);
readkey;
end;

Begin
gettime(j2,m2,d2,md2);
gotoxy(42,13); writeln(j2:2,':',m2:2,':',d2:2);
readkey;
end;

begin
if d2 > d1 then
begin
detik := d2+(60-d1);
end
else
detik:=d2-d1;
end;

begin
if m2>m1 then
begin
menit:=m2+(60-m1);
end
else
menit:=m2-m1;
end;

waktu:=(menit*60)+detik; { untuk mencari waktu }
{ pengaksesan GPRS }
begin
if waktu <= 40 then
begin
jmlkb := waktu*gprs1;
end
else if waktu >=100 then
begin
jmlkb := 70+((waktu-99) * gprs100);
end
else if waktu >40 then
begin
jmlkb := 40+((waktu-40) * gprs40);
end
else write('0');
end;

gotoxy(42,15); write(jmlkb:5:2,' kb');

biaya:=jmlkb*tarifgprs;
gotoxy(45,17);write(biaya:10:2);

readln;
loading;
end;





Procedure info_tarif;
Begin
clrscr;
textbackground(white); textcolor(black);

gotoxy(7,3); writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(7,4); writeln('º º');
gotoxy(7,5); writeln('º INFO TARIF MENTARI º');
gotoxy(7,6); writeln('º º');
gotoxy(7,7); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,8); writeln('º º');
gotoxy(7,9); writeln('º  Pulsa Lokal Rp. 5,-/ detik º');
gotoxy(7,10); writeln('º  5 jam "FREE TALK" & Tarif Ringan Malam º');
gotoxy(7,11); writeln('º  Tarif GPRS/MMS Rp. 5,-/ kB º');
gotoxy(7,12); writeln('º  Poin Plus-Plus Indosat º');
gotoxy(7,13); writeln('º  i-Ring 808 & i-Menu *123# º');
gotoxy(7,14); writeln('º  Indosat Flat Call 01016 Rp. 48,-/ 6 detik º');
gotoxy(7,15); writeln('º  Mentari 3G º');
gotoxy(7,16); writeln('º º');
gotoxy(7,17); writeln('º for more information please visit º');
gotoxy(7,18); writeln('º º');
gotoxy(7,19); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,20); writeln('º º');
gotoxy(7,21); writeln('º powered by INDOSAT º');
gotoxy(7,22); writeln('º º');
gotoxy(7,23); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(46,17); textcolor(blue);
writeln('WWW.INDOSAT.COM/MENTARI');

readln; loading;
end;

{ LAYAR UTAMA }
Procedure layar_utama;
var
pilih : char;
Begin
repeat
clrscr;
textbackground(white); textcolor(black);
gotoxy(7,3); writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(7,4); writeln('º º');
gotoxy(7,5); writeln('º M E N T A R I º');
gotoxy(7,6); writeln('º º');
gotoxy(7,7); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,8); writeln('º ³ º');
gotoxy(7,9); writeln('º 1. Telepon ³ PIlih Salah Satu º');
gotoxy(7,10); writeln('º ³ º');
gotoxy(7,11); writeln('º 2. Pesan Pendek (SMS) ³ (1-5) º');
gotoxy(7,12); writeln('º ³ º');
gotoxy(7,13); writeln('º 3. Akses GPRS ³ Pilihan Anda : º');
gotoxy(7,14); writeln('º ³ ÚÄÄÄ¿ º');
gotoxy(7,15); writeln('º 4. Info Tarif ³ ³ ³ º');
gotoxy(7,16); writeln('º ³ ÀÄÄÄÙ º');
gotoxy(7,17); writeln('º 5. Exit ³ º');
gotoxy(7,18); writeln('º ³ º');
gotoxy(7,19); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,20); writeln('º º');
gotoxy(7,21); writeln('º powered by INDOSAT º');
gotoxy(7,22); writeln('º º');
gotoxy(7,23); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');

gotoxy(59,15); readln(pilih); loading;

case pilih of
'1' :telepon;
'2' :sms;
'3' :gprs;
'4' :info_tarif;
end;
until pilih = '5';
end;

procedure pertama;
var warna:byte;
begin
clrscr;
textbackground(yellow);textcolor(black);


gotoxy(7,3); writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(7,4); writeln('º SELAMAT DATANG DI PLANET INDOSAT º');
gotoxy(7,5); writeln('º º');
gotoxy(7,6); writeln('º Layanan Ini Bebas Biaya 100% GRATIS º');
gotoxy(7,7); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(7,8); writeln('º º');
gotoxy(7,9); writeln('º Layanan Ini Dikhususkan Bagi Pelanggan MENTARI º');
gotoxy(7,10); writeln('º º');
gotoxy(7,11); writeln('º Dan Bagi Anda Yang Ingin Tahu Tentang MENTARI º');
gotoxy(7,12); writeln('º º');
gotoxy(7,13); writeln('º Untuk Dapat Menampilkan Layar Utama º');
gotoxy(7,14); writeln('º º');
gotoxy(7,15); writeln('º Silakan Tekan "ENTER" º');
gotoxy(7,16); writeln('º º');
gotoxy(7,17); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
readln;
layar_utama;


end;

begin
pertama;

end.