Loop:
HIGH 0                            'Apaga LED
PAUSE 1000                   'Pausa 1 segundo
LOW 0 'Enciende LED
PAUSE 5000                   'Pausa 5 segundos
GOTO Loop

INPUT 10                   'Declara P10 como input

Loop:
DEBUG ? IN10           'Muestra estado de P10
PAUSE 500                'Pausa
GOTO Loop

Pot VAR WORD                   'Variable

Loop:
HIGH 7                       'Descargar el condensador
PAUSE 1                   'Tiempo para descargar el condensador
RCTIME 7,1,Pot         'Leer el tiempo de carga y guardarlo en Pot DEBUG ? Pot       'Mostrar el valor de Pot
PAUSE 500                'Pausa
GOTO Loop

Loop:
FREQOUT 1, 3000, 1500'Tono de 1500Hz durante 3 segundos
PAUSE 1000                 'Pausa
GOTO Loop

ADres VAR BYTE                   ' A/D resultado (8 bits)
ADcs CON 12                         ' A/D enable (low true)
ADdat CON 15                        ' A/D data line
ADclk CON 14                        ' A/D clock

Loop:
LOW ADcs                             ' Enable ADC
SHIFTIN ADdat,ADclk,msbpost,[ADres\9] ' Shift in the data
HIGH ADcs                             ' Disable ADC
DEBUG CLS,"Dec: ", DEC ADres ' Resultado en decimal
DEBUG " Bin: ", IBIN8 ADres    ' Resultado en binario
' Display in hundredths of volts
' Current Value * New Maximum (500) / Old Maximum (255) or 50/26
DEBUG " Hundredths of Volt = ", DEC ADres * 50/26 ,CR
PAUSE 500
GOTO Loop