$regfile = "m8535.dat" 'Mengambil library dari mikrokontroller yang dipakai
$crystal = 16000000 'Menentukan berapa frekuensi kristal yang diperlukan
Config Lcdpin = Pin , Rs = Porta.4 , E = Porta.7 , Db4 = Porta.0
'Mengkonfigurasi pin yang digunakan pada LCD
Config Lcdpin = Pin , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3
'Mengkonfigurasi pin yang digunakan pada LCD
Config Lcd = 16 * 2 'Mengkonfigurasi LCD ukuran 16 * 2
Ddrd = &B1110000 'Inisialisasi PORT D sebagai input dan output
Portd = &B11111111 'Inisialisasi PORT D aktif high
Ddra = &B11111111 'Inisialisasi PORT A sebagai output
Do 'Melakukan perintah yang terdapat di dalam Do
Portd = &B1101111 'PORT D akan hidup dengan hitungan biner B00000101
Waitms 10 'Delay selama 10 milisekon
If Pind.0 = 0 Then 'Kondisi jika nilai pada Pin D 0 bernilai 0 akan menjalankan perintah
Cls 'Membersihkan LCD
Lcd "Kuliah" 'Menampilkan tulisan Kuliah
Lowerline 'Mengatur kalimat selanjutnya berada di baris ke 2
Lcd "Mikro" 'Menampilkan tulisan Mikro
Waitms 50
Elseif Pind.1 = 0 Then 'Kondisi jika nilai pada Pin D 1 bernilai 0 akan menjalankan perintah
Waitms 10 'Delay selama 10 milisekon
Cls 'Membersihkan LCD
Lcd "Kuliah Mikro" 'Menampilkan tulisan Kuliah Mikro
Lowerline 'Mengatur kalimat selanjutnya berada di baris ke 2
Lcd "Semangat" 'Menampilkan tulisan Semangat
Waitms 50 'Delay selama 50 milisekon
End If 'Mengakhiri perintah If
Loop 'Mengulang perintah yang terdapat dalam Do
End 'Mengakhiri program jika tidak diperlukan