'GP2D120 Demo 2



   dim range,Lrange,Rrange,lastrange
   clearall

   output 2
   output 3
   output 4
   low 2
   low 3
   low 4
   

loop:
   gosub getrange
   branch range,r0,r1,r2,r3
   goto loop

r0:
   low 2
   low 3
   low 4
   goto loop

r1:
   high 2
   low 3
   low 4
   goto loop

r2:
   low 2
   low 3
   high 4
   goto loop

r3:
   low 2
   high 3
   low 4
   goto loop


'----------------------------------------
getrange:
     miniad 0,Rrange
     miniad 1,Lrange

   if Rrange > 2 then
      Rrange = 1
   else
      Rrange = 0
   endif
   if Lrange > 2 then
      Lrange = 1
   else
      Lrange = 0
   endif
   lastrange = range

   bitsetvalue Lrange,range,0
   bitsetvalue Rrange,range,1
   return