program rental;
uses crt;
const A='--------------------------------------------------------------------------------';
        kode='admin';

var
        np : string[9];
        NPM, Nama, teks, kata, kalimat, kata1, kata2 : string;
        total, hg : real;
        nk, i, j, lm, jm, jk, pil : integer;
        kode_masuk : string[5];
        ulang, cek : char;
        u, x, r : byte;
begin
        clrscr;
        writeln('********************************************************************************');
        GoToXY(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
        GoToXY(20,3); writeln('======ANONYM CYBER COMPUTER ( A C C )=======');
        writeln('********************************************************************************');
        writeln('--------------------------------------------------------------------------------');
        GoToXY(26,6); writeln('S1E TEKNIK INFORMATIKA UNINDRA');
        repeat
        write('User ID  : ');readln(kode_masuk);
        write('Password : ');readln(kode_masuk);
        write(A);
        if(kode_masuk = 'admin') then
                begin
                        cek := 'y';
                end
        else
                begin
                        writeln('User ID dan Password yang Anda Gunakan Salah');
                end;
                u := u + 1;
        until(u>=3) or (cek='y');
        if(u>=3) then
                begin
                        writeln('Anda Sudah 3 kali Melakukan Kesalahan, Program Akan Keluar');readln;
                       exit;
                end
        else
        begin
        ulang :='Y';
        while(ulang='y') or (ulang='Y') do begin
        clrscr;
        write(A);
        gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
        gotoxy(20,3); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
        write(A);
        teks := '###--- MENU UTAMA ---###';
        x := round((80-length(teks))/2);
        gotoxy(x,6); write(teks);
        gotoxy(x,7); write('|   1. Masuk Program   |');
        gotoxy(x,8); write('|   2. Tentang Program |');
        gotoxy(x,9); write('|   3. Keluar Program  |');
        gotoxy(x,10); write('========================');
        gotoxy(26,13); write('Silahkan Masukkan Pilihan Anda : ');readln(pil);
        case pil of
        1 : begin
            Clrscr;
            TextColor(12); write(A);
            gotoxy(20,2); writeln('=========PROGRAM RENTAL KOMPUTER==========');
            gotoxy(20,3); writeln('======S1E TEKNIK INFORMATIKA UNINDRA======');
            write(A);
            write('No. Komputer         : ');readln(nk);
            write('Nama User            : ');readln(np);
            write('Harga Per Jam        : ');readln(hg);
            write('Jam Masuk            : ');readln(jm);
            write('Jam Keluar           : ');readln(jk);
            clrscr;
            lm := (jk-jm);
            gotoxy(30,6); writeln('ANONYM CYBER COMPUTER');
            gotoxy(3,7); writeln('---------------------------------------------------------------------------');
            gotoxy(3,8); writeln('| No. Komputer |'); gotoxy(3,9); writeln('---------------------------------------------------------------------------');
            gotoxy(3,10); writeln('|     ',nk);
            gotoxy(23,8); writeln('Nama User    |'); gotoxy(15,10); writeln('   | ',np);
            gotoxy(37,8); writeln(' Harga Per Jam |'); gotoxy(35,10); writeln(' | Rp. ',hg:2:2,'   ','|');
            gotoxy(53,8); writeln(' Jam Masuk |'); gotoxy(53,10); writeln(' Pukul ',jm,'  ','|');
            gotoxy(65,8); writeln(' Jam Keluar |'); gotoxy(65,10); writeln(' Pukul ',jk,'   ','|');
            gotoxy(3,11); writeln('---------------------------------------------------------------------------');
            gotoxy(3,15); writeln('|-------------------------------|');
            gotoxy(3,16); writeln('| Lama Main   : ',lm,' jam','           ','|'); total:=lm*hg;
            gotoxy(3,17); writeln('|-------------------------------|');
            gotoxy(3,18); writeln('| TOTAL BAYAR : Rp. ',total:2:2,'     ','|');
            gotoxy(3,19); writeln('|===============================|');
            gotoxy(3,20); writeln('|******** TERIMA KASIH *********|');
            gotoxy(3,21); writeln('|===============================|');
            readln;
            end;
        2 : begin
            clrscr;
            j := i-1;
            write(A);
            gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
            gotoxy(20,3); writeln('===============DATA KELOMPOK================');
            gotoxy(20,4); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
            write(A);
            gotoxy(20,8); Textcolor(9); writeln('--------------------------------------------');
            gotoxy(20,9); writeln('|        NPM        |     NAMA MAHASISWA   |');
            gotoxy(20,10); writeln('--------------------------------------------');
            gotoxy(20,11); Textcolor(14); writeln('|   201343500534    |  NANO SETIANA        |');
            gotoxy(20,12); writeln('|   201343500493    |  DESRYAN IQBAL       |');
            gotoxy(20,13); writeln('|   201343500476    |  FAISAL ILHAM MALIK  |');
            gotoxy(20,14); writeln('|   201343500509    |  HERLINA WIDYASTY    |');
            gotoxy(20,15); writeln('|   201343500441    |  RIZKA APRILIA       |');
            gotoxy(20,16); writeln('--------------------------------------------');
            readln;
            end;
        3 : begin
        clrscr;
        TextColor(14);
        gotoxy(35,1); write(#1, #0, #1, #0, #2, #0, #2); TextColor(10);
        kalimat:='Terima Kasih Sudah Menggunakan Program Kami. Press ENTER for EXIT      ';
          repeat
                kata1 := copy(kalimat,2,length(kalimat));
                kata2 := copy(kalimat,1,1);
                kalimat := concat(kata1,kata2);

                gotoxy(1,10); write(kalimat); delay(150);
          until keypressed;
          readln;
        exit;
        end;
        end;
        gotoxy(x,29); write('Ulang Lagi (Y/T) ? ');readln(ulang);
        end;
        end;
        readln;
        end.