[SOURCE CODE] Game Tebak Kata

Assalamualaikum wr. wb.

Selamat malam semuanya ? masih melek ? -____-" emm jujur saja saya ngantuk haha #iklan.
Yipp, nih postingan kedua buat hari sekarang dan bakalan ngebahas tentang Pemrograman Pascal ! :D
Kalo tadi pagi saya bahas tahapan akhir dari tugas mata kuliah Sistem Multimedia, sekarang saya mau share Game yang saya buat pake Bahasa Pascal. Wot ? Pascal ? Are You kidding me hahh ? Iya pascal beneran.

Saya bikin pake Turbo Pascal 7.0, tapi di akhirnya saya pake Free Pascal IDE (sama aja sih). Saya sudah posting penjelasan Algoritma dan Pemrograman di halaman berikut (disertai download file materi dan software).

Namanya juga pascal, support nya di 16-bit kan, jadi yaa game-nya juga gak aneh-aneh amat.
Idenya sih dari game flash 'Hangman', game yang menyuruh pemain buat melengkapi puzzle untuk menyusun sebuah kata (bisa nama benda, tempat, dll) dan jika setiap input karakter tidak valid, maka ada gambar orang yang ngebentuk siap-siap gantung diri (iya bener emang gitu).
 
Ah yaudah bikin aja nyoba pake pascal dan oke berhasil ! :D
Dalam game ini ada struktur pengulangan, pemilihan, procedure, array 1 dimensi (100 indeks), timer, graphic animasi (sederhana) dan pastinya user input keyboard.

Total baris code-nya 150, terlalu panjang buat diposting. Silakan download source filenya disini (cuma 65KB).

Semoga bermanfaat dan Wassalamualaikum wr. wb. #selamatTidur -______-"

Gambar 1. Antarmuka Menu Utama (Teks Banget) -____-"

Gambar 2. Pilihan Menu Nomor 1.

Gambar 3. Antarmuka Pas Jawaban Bener hahah.

Gambar 4. Kalo Ini Pas Jawabannya Salah.

Gambar 5. Pilihan Menu Nomor 2 Nih.