'****************************************************************
'*  Name    : eng_samy.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 01/10/2010                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
DEFINE OSC 8
I VAR  BYTE

TRISB=$00    ' PORTB CONFIGURED AS OUTPUT
TRISA=$0F    ' RA0 TO RA3 AS INPUT RA4 AS OUTPUT
PORTB=0      ' INITILIZATION VALUE
SYMBOL LEDS=PORTB        ' LEDS
SYMBOL DIR_SW=PORTA.0    ' DIRECTION SWITCH
SYMBOL SPEED_SW=PORTA.1    ' SPEED SWITCH
SYMBOL PAUSE_SW=PORTA.2    ' PAUASE/ CONTINUE SWITCH
SYMBOL STOP_SW=PORTA.3    ' STOP/ RUN SWITCH


 MAIN:
IF STOP_SW= 0 THEN    ' STOP/ RUN SWITCH IS ON

IF DIR_SW=0 THEN
FOR I=0 TO 7
PAUSE1 : 
IF STOP_SW= 1 THEN  GOTO OFF1
IF PAUSE_SW=0 THEN GOTO PAUSE1 ' PAUSE SWITCH IS ON   

LEDS= DCD I
IF SPEED_SW=0 THEN PAUSE 200
IF SPEED_SW=1 THEN PAUSE 1000

NEXT I
ENDIF

IF DIR_SW=1 THEN
FOR I=7 TO 0 STEP -1 
PAUSE2 : 
IF STOP_SW= 1 THEN GOTO OFF1 
IF PAUSE_SW=0 THEN GOTO PAUSE2 ' PAUSE SWITCH IS ON                      
LEDS= DCD I
IF SPEED_SW=0 THEN PAUSE 200
IF SPEED_SW=1 THEN PAUSE 1000
NEXT I
ENDIF

ENDIF

OFF1:
LEDS=0
GOTO MAIN
END

PAUSE1 : 
IF STOP_SW= 1 THEN  GOTO OFF1
IF PAUSE_SW=0 THEN GOTO PAUSE1 ' PAUSE SWITCH IS ON