'{$STAMP BS2}
''''''''''''''''''''''''''''''''''''''''''''''
'           MAWSE source code                '
'           Vincent Leclerc                  '
'           10-04-2003                       '
'           v@munaute.com                    '
''''''''''''''''''''''''''''''''''''''''''''''

''''''''VARIABLES''''''''

XIN	CON	0
xRaw	VAR	Word              
xMIDI	VAR	Word                 

YIN	CON	1
yRaw	VAR	Word
yMIDI	VAR	Word


'''''''MAIN PROG''''''''

main:
  'IF IN13 = 1 THEN light
  'IF IN13 = 0 THEN dark
  GOSUB Read_G_Force
  SEROUT 15, $8000+12, [176, 1, xMIDI]
  SEROUT 15, $8000+12, [177, 1, yMIDI]
  SEROUT 15, $8000+12, [178, 1, IN13]
  PAUSE 100

goto main



''''''FUNCTIONS''''''''

Read_G_Force:
  PULSIN XIN, 1, xRaw              
  xMIDI = xRaw / 18 -80           
  PULSIN YIN, 1, yRaw
  yMIDI = yRaw / 18 -80
RETURN