Halo pemirsa! DanKus kali ini akan membagikan sebuah game yang dibuat dengan pascal. Game ini adalah game tebak angka. Jadi game ini bisa menebak angka yanag dipikirkan oleh si pengguna. Gak percaya? Mari kita buktikan.
Pertama buat dulu game-nya dengan script di bawah ini :

uses wincrt;

var
        x, jumlah : byte;
        ch : char;
        hitung : longint;

procedure tampil(kartu :byte);

var
        x: byte;
begin
        for x:=1 to 20 do
        begin
        hitung := hitung +1;
                if (x and (1shl (kartu-1)) <>0 ) then
                write (x:4,' ');
                if hitung mod 2 = 0 then
                writeln;
        end;
end;

begin
        clrscr;
        writeln ('Konsentrasi, Pikirkan Sebuah Bilangan Antara 1 Sampai 20');
        writeln ('Jika Sudah, Tekan Sembarang Tombol');
        ch := readkey;

        jumlah :=0;
        for x:=1 to 5 do
        begin
                clrscr;
                tampil (x);
                writeln;
                write ('Apakah Bilangan Yang Anda Pikirkan Ada Di Atas?? (Y/T)');
                ch :=readkey;
                writeln;
                if (ch='y') or (ch='Y') then inc (jumlah, 1 shl (x-1));
        end;

clrscr;
        writeln ('Anda Memikirkan Bilangan : ', jumlah);
        readkey;
        readln;

        end.

Oke sekarang kita jalankan programnya.
Saat pertama dijalankan, program akan memiliki tampilan seperti ini

「Dani Kustiawan」