Contoh Program bascom untuk menyalakan motor

$regfile = "m8535.dat"
$crystal = 8000000
$baud = 9600

Config Pina.2 = Input 'inisialisai port yang digunakan sebagai input/ masukkan
Config Pina.3 = Input
Config Pina.4 = Input
Config Porta.0 = Output
Config Porta.1 = Output

Motor_a Alias Porta.0 'inisialisasi port yang digunakan sebagai motor
Motor_b Alias Porta.1
Interrupt Alias Pina.7
Switch_open Alias Pina.2
Switch_close Alias Pina.3

Reset Motor_a
Reset Motor_b

Motor_a = 1 'motor_a berputar
Bitwait Switch_open , Set 'berputar sampai dengan limitswich tertekan
Motor_a = 0 'motor_a mati setelah limitswich ditekan
Bitwait Interrupt , Set
Cls
Locate 1 , 6
Lcd "WELCOME"
Do
Loop Until Interrupt = 0
Motor_b = 1
Bitwait Switch_close , Set
Motor_b = 0
end

initinya program diatas adalah menggerakkan motor dc dengan dua arah dimana motor_a adalah untuk searah jarum jam sedangkan motor_b sebaliknya. diamana ditambahkan pula limitswich sebagai pembatas pintu maklum aplikasi program ini untuk buka tutup pintu otomatis klo ngak ganti pake push button bisa juga kok sedangkan interrupt digunakan untuk optocoupler yang berguna untuk mendeteksi orang lewat. jadi secara keseluruhan program ini yaitu pertama motor berputar sampai limitswich tertekan lalu berhenti kemudian menunggu perintah dari optocoupler yaitu pina.7 setelah itu motor berputar sampai mendapatkan masukkan dari limitswich kedua setelah itu motor berhenti selesai deh program nya
mohon maaf klo ada yang salah /kurang jelas Terimakasih