' =========================================================================
'
'   Ignignokt Gives the Finger
'
'   ------------------------------------------------------------------
'
'   File...... FINGER.BAS
'   Author.... Joe Caldwell (Joe's Make and Mode Blog filer.case.edu/jec24)
'   Updated... 10 FEB 2008
'
'
' =========================================================================

' -----[ Program Description ]---------------------------------------------
'
' LED representation of the Mooninite Ignignokt (from "Aqua Teen Hunger Force") gives the finger to the viewer
'
' -----[ Constants ]-------------------------------------------------------
DELAY		CON	750		'Define LED delay between stages

' -----[ Initializations ]-------------------------------------------------
OUTPUT 		PORTB.0			'Set PortB pin 0 as output
OUTPUT 		PORTB.1			'Set PortB pin 1 as output
OUTPUT 		PORTB.2			'Set PortB pin 2 as output
OUTPUT 		PORTB.3			'Set PortB pin 3 as output

' -----[ Program Code ]----------------------------------------------------

Main:
  LOW 0					'Set Output 0 Low
  LOW 1					'Set Output 1 Low
  LOW 2					'Set Output 2 Low
  LOW 3					'Set Output 3 Low
  PAUSE 5000				'Pause 5 seconds
  
  HIGH 0				'Set Output 0 High
  PAUSE DELAY				'Pause for amount of time set by DELAY
  HIGH 1				'Set Output 1 High
  PAUSE DELAY				'Pause for amount of time set by DELAY
  HIGH 2				'Set Output 2 High
  PAUSE DELAY				'Pause for amount of time set by DELAY
  HIGH 3				'Set Output 3 High
  PAUSE 5000				'Pause 5 seconds
  
  GOTO Main				'Loop forever
  END