'Ring Once and Then Call Again Version
'CHEESE2.BAS

start:  goto wait
pickup: high 1
        pause 1000
        low 1
        goto start
wait:   pot 0,xxx,b0    'xxx=The scale number received during calibration
        if b0>0 then window
        nap 4
        goto wait
window: sleep 30
secheck: pot 0,xxx,b0   'See earlier pot command. Same number goes here too.
         if b0>0 then pickup
         nap 4
         goto secheck