Back to the beginning

[Acetronics2]

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 06/04/2013                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
' Name : BLINKXU.pbp
' Compiler : PICBASIC PRO Compiler 3.0' Assembler : MPASM
' Target PIC : PIC12F509 or similar type
' Hardware : LAB-XUSB Experimenter Board
' Oscillator : 4MHz external
' Keywords : FOR NEXT
' Description : PICBASIC PRO program to blink an LED connected 
' to PORTD.0 about once a second.
'

' Define LOADER_USED to allow use of the boot loader.
' This will not affect normal program operation.


' RESET_ORG can be set to move the BASIC program out of the way
' of any boot loader running from location 0, such as the
' Microchip USB boot loader
'Define RESET_ORG 800h

#config
    __config _MCLRE_ON & _CP_OFF & _WDT_OFF
#endconfig


mainloop:
high GPIO.0 ' Turn on LED connected to PORTD.0
Pause 500 ' Delay for .5 seconds
Low GPIO.0 ' Turn off LED connected to PORTD.0
Pause 500 ' Delay for .5 seconds
Goto mainloop ' Go back to loop and blink LED forever

End

this one should show 83 Words ...

just "cut and paste" it ...