Bascom Print out label
$regfile = "89c55wd.dat" $crystal = 11059200 $baud = 9600 $large 'config LCD Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = P1 .5 , Db5 = P1 .4 , Db6 = P1 .3 , Db7 = P1 .2 , E = P1 .6 , Rs = P1 .7 'config EEprom Config Scl = P2 .5 Config Sda = P2 .4 Config Timer0 = Counter0 , Gate = Internal , Mode = 1 Dim F1 As Integer Dim X(24) As Byte Dim A1 As Byte Dim B1 As Byte Dim C1 As Byte Dim D1 As Byte Dim Add_w As Byte Dim Add_r As Byte Dim Alamat As Byte 'Dim T3 As Integer 'Dim T3s As Integer Declare Sub Ambil Declare Sub Baca Declare Sub Tulis Declare Sub Berhenti Declare Sub Cetak Declare Sub Waktu Declare Sub Simpan_waktu P2 .6 = 1 Cursor Off Enable Int0 Enable Interrupts On Int0 Menunya 'Cls 'Lcd "ready.." Do A1 = Waitkey () ...