rem simple program to toggle a pin while outputting characters
#define CLKFREQ 160000000
#define CLKMODE 0x10c3f04
#define BAUD 115200
    clkset(CLKMODE, CLKFREQ)
    _setbaud(BAUD)

'Going to toggle pin #1 every second
const pin = 56'16  
direction(pin) = output

'Will show count of how many times toggle
var c = 0

'First, wait for keypress
pausems 2000
print "Press any key to begin" 
var i$ = input$(1)

'Then, loop forever
do
'  output(pin) = not output(pin)
  output(pin) = 1
  print a "Toggled pin#";pin;" ";c;" times."
  c = c + 1
  pausems 1000
  output(pin) = 0
  pausems 1000
loop