program

$regfile = "m16adef.dat"
$crystal = 12000000

   Config Porta = Output
   Config Lcdpin = Pin , Rs = Pina.5 , E = Pina.4 , Db4 = Pina.3 , Db5 = Pina.2 , Db6 = Pina.1 , Db7 = Pina.0
   Config Lcd = 16 * 2

   Config Portb = Input
   Portb = &B11111111

   Config Portc = Output
   Portc = &B11111111

   Dim Ulang As Word
   Dim Uang As Byte
   Dim Koin As Integer

   Dim Total As Integer

   Dim Waktu As Integer
   Dim Waktu0 As Integer
   Dim Waktu1 As Integer
   Dim Waktu2 As Integer
   Dim Jam As Integer

   Dim Menit As Integer

   Dim Detik As Integer



   Config Portd = Input
   Portd = &B11111111
Cursor Off Noblink
Cls
Lcd "masukan koin"
   Main:
   Do
      If Pind.0 = 1 Then
      For Ulang = 1 To 600000
         Uang = Uang Or Pind
         Next
         Cls
         If Uang = &B11000011 Then
         Lcd "Koin Rp. 100"
         Koin = 100
         Elseif Uang = &B11000111 Then
         Lcd "Koin Rp. 1000"
         Koin = 1000
         Elseif Uang = &B11011111 Then
         Lcd "Koin Rp. 200"
         Koin = 200
         Elseif Uang = &B11111111 Then
         Lcd "Koin Rp. 500"
         Koin = 500
         End If

                   Total = Total + Koin
                   Waktu = Total
                   Jam = Waktu / 3600
                   Waktu0 = Jam * 3600
                   Waktu1 = Waktu - Waktu0
                   Menit = Waktu1 / 60
                   Waktu2 = Menit * 60
                   Detik = Waktu1 - Waktu2
         Wait 1
         Cls
         Lcd "Total Rp." ; Total
         Lowerline
         Lcd "Waktu: " ; Jam ; ":" ; Menit ; ":" ; Detik

         If Pinb.0 = 0 Then
          do
          portc.1=0
          Waktu = Waktu - 1
          Gosub Tampil
          If Waktu = 0 Then
          portc.1=1
          gosub main
          end if
          Loop
          End If

      End If
      Uang = 0

 Loop
End
Tampil:
Lcd "Waktu: " ; Jam ; ":" ; Menit ; ":" ; Detik