/* plot.tc - lrb - 12/3/2007
/* modeled after Mouse macros  

plot int row,col,onoff [
  MC '\'-1-'@',1 /* left bracket = backslash - 1
  MC '\'-1,1
  pos row
  MC ';',1 /* semicolon = colon + 1 (but can use real semicolon)
  pos col
  MC 'H',1
  if (onoff) MC '*',1;else MC ' ',1
]

pos int rc [
  if (rc>9) [
    MC rc/10+48,1;rc=rc%10
    ]
  MC rc+48,1
]

test [
  cls
  int r,c,onoff
  plot 23,0,0;ps "on (1) / off (0) ? enter -1 to quit ";onoff=gn
  if (onoff<0) return
  plot 24,0,0;ps "row (1..24) enter 0 to quit ";r=gn
  if (r>0) [plot 24,35,0;ps "col (1..80) enter 0 to quit ";c=gn]
  while(r*c) [
    plot(r,c,onoff)
    plot 23,0,0;ps "on (1) / off (0) ? enter -1 to quit ";onoff=gn
    if (onoff<0) break
    plot 24,0,0;ceol;plot 24,0,0;ps "row (1..24) enter 0 to quit ";r=gn
    if (r==0) break
    plot 24,35,0;ps "col (1..80) enter 0 to quit ";c=gn
    ]
    cls
]

/* cls.tc - lrb - 11/30/2007 - 12/1,2/2007
/* clear screen - note need to code ESC character and left bracket
/* as 1 more than they really are and then subtract the character
/* 1 - cannot use the left bracket itself because it confuses the 
/* interpreter
cls [
  MC '\'-1-'@',1
  MC '\'-1,1
  MC '2',1
  MC 'J',1
]

ceol [ /* clear to end of line
  MC '\'-1-'@',1
  MC '\'-1,1
  MC 'K',1
]