'Pick Up on First Ring Version
'CHEESE1.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 pickup
        nap 4
        goto wait