{{ exp102.spin }}

CON
  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

OBJ
  Num : "E_Numbers02"
  TV : "E_TV_Terminal02"
  gr : "E_Graphics02"
  mic : "microphone_004"
  RC : "RCtime001"

VAR
  long RCValue

PUB Main | dummy, para, p1, p2
  Num.Init                      { Num.Init MUST be called before first object use. }
  para := TV.Start1(12)
  dummy := TV.Start2
  TV.out(0)                     { display home }
  TV.Str(string("TV_port_Cog ="))
  TV.Str(Num.ToStr(para, Num#DEC)) 
  TV.Str(string(", Graphic_driver_Cog ="))
  TV.Str(Num.ToStr(dummy, Num#DEC)) 
  dummy := mic.start
  TV.Str(string(", microphone_Cog ="))
  TV.Str(Num.ToStr(dummy, Num#DEC)) 
  RCValue := 0
  dummy := RC.start(15,1,@RCValue )
  TV.Str(string(", RCtime_Cog ="))
  TV.Str(Num.ToStr(dummy, Num#DEC)) 
 
  repeat
    dummy := mic.input(350)
    if(dummy <> p1)
      if(dummy > 0)
        TV.gr_test(1)
        TV.Str(Num.ToStr(dummy, Num#DEC))
      p1 := dummy 
    dummy := RCValue
    if(dummy <> p2)
      if(dummy > 2000)
        TV.gr_test(2)
        TV.Str(Num.ToStr(dummy, Num#DEC))
      p2 := dummy