New and looking for help

[grounded]

this is something I did for the grand kids one day (just grab the file had not recheck
to make sure it still works)
thought it mite help you it uses a A/D to drive a servo
remember I'm not a pro. just a hobbyist

'****************************************************************
'*  Name    : LIGHT BOX.BAS                                      *
'*  Author  : grounded                                   *
'*  Notice  : Copyright (c)   *
'*          : All Rights Reserved                               *
'*  Date    : 3/12/2007                                         *
'*  Version : 1.0                                               *
'*  Notes   : IF YOU SHINE A LIGHT ON THE PHOTO CELL THE BOX OPENS                                               
'*          : AND STAYS OPEN UNTIL THE LIGHT IS REMOVED                                              
'****************************************************************
  pic16f676   'fuses set in inc file
'INTRC_OSC_NOCLKOUT, WDT_ON, MCLR_OFF,
'CPD_OFF, BOD_OFF, PWRT_ON,PROTECT_OFF
DEFINE OSC 4
DEFINE ADC_BITS 10 
DEFINE ADC_CLOCK 3 
DEFINE ADC_SAMPLEUS 50						
Pause 7000                 'DELAY TO LET STABILIZE AFTER POWER UP & MODE 
CMCON = 7                   'COMPARATOR OFF
VRCON = 0                   'VOLTAGE REF. DISABLE	
TRISA = %00001101           'MAKE A.2 & A.3 INPUTS
TRISC = %00000011		    'MAKE .C.0,C.1 PORTC INPUTS
ANSEL = %00000001           'PORTA.0 A/D IN,RST DIGITAL
ADCON0.7 = 1                'RIGHT JUSTIFY FOR 10 BIT 
OPTION_REG=%01000000        'RAISING EDGE/WEAK PULL UP  
WPUA = %00000000            'NO WEAK PULLUPS  

SYMBOL ADC  =PORTA.0         'ADCIN
SYMBOL LDR  =PORTA.1         'PHOTO POWER
SYMBOL PIR  =PORTA.2         'PIR TRIPS HIGH
SYMBOL MODE =PORTA.3         'MODE BUTTON
SYMBOL smA   =PORTA.4        'SERVO CONTROL OUTPUT
SYMBOL LED  =PORTA.5         'WALKTEST AND POWER LED

SYMBOL DIPB =PORTC.0         'DIP SWITCH 2 N/A
SYMBOL DIPA =PORTC.1         'DIP SWITCH 1 N/A
SYMBOL DPO  =PORTC.2         'DIP SWITCH POWER N/A
SYMBOL RL   =PORTC.3         'N/A REMOTE LIGHT  N/A
SYMBOL CPO  =PORTC.4         'CAM POWER BUTTON  N/A
SYMBOL RC   =PORTC.5         'RECORD BUTTON     N/A
'****************************SET UP VARIBLES***************************
 
NIGHT VAR WORD:NIGHT=0        'LDR/ADCIN VAR FOR LIGHT SENSOR
'********************************TURN EVERYTHING OFF*********************
ADC=0:LDR=0:PIR=0:MODE=0:smA=0:LED=0:DIPA=0:DIPB=0:DPO=0:RL=0:CPO=0:RC=0 

 '************************************ CAL MODE*******************
 led=1 :pause 3000 :led=0
IF MODE=0 Then GoTo  CAL  'IF MODE BUTTON =0 THEN GOTO LRD CAL MODE
GoTo MAIN                  'SKIP CAL MODE  GO MAIN
CAL:
LDR=1:Pause 250           'TURN LDR/ADCIN POWER ON

LED=1:Pause 250:LED=0:Pause 250
LED=1:Pause 250:LED=0:Pause 1000  ' FLASH YOUR IN CAL MODE
TEST:
NIGHT=0
LED=0
ADCIN 0,NIGHT          'CHECK AN# READ AN1 & STORE IN NIGHT VAR
 
 IF NIGHT=<200  Then LED=1   'IF LED IS ON THEN IT'S LIGHT ENOUGHT TO OPEN BOX
 Pause 250
 
 IF MODE =0 Then GoTo main    'LEAVE CAL MODE 
 
 GoTo TEST                   'LOOP AND CHECK FOR LIGHT AGAIN
 
 
main:

asc var word : asc=70
ldr=1
NIGHT=0
LED=0
ADCIN 0,NIGHT          'CHECK AN# READ AN1 & STORE IN NIGHT VAR
 
pause 250 
if night =< 200 then goto open
 goto main


open

PULSOUT SMA,asc
PAUSE 18 

ASC=ASC+1

 if ASC=>240 THEN PAUSE 2000: GOTO shut
GOTO open 
 shut:
 NIGHT=0
 pause 20
ADCIN 0,NIGHT          'CHECK AN# READ AN1 & STORE IN NIGHT VAR
 pause 20
if night => 200 then goto close
goto shut
close
 led=0
PULSOUT SMA,asc
PAUSE 18 

ASC=ASC-1
'
 if ASC=<65 THEN PAUSE 2000: GOTO main
GOTO close