#include <config.h>
#include <binary.h>
#include <stdio.h>

#include "disktbl.c"


main() {
  int dly,ch,i,dir,pos,stop;
  float d;

  d = 1000.;
  pos = 0;
  stop = 0;
  while(1) {
    if (char_ready(iochana)) {
      ch = getc(iochana);
      if (ch == 'z') d /= 1.03;
      if (ch == 'x') d *= 1.03;
      if (ch == 'f') dir = 1;
      if (ch == 'r') dir = 0;
      if (ch == 's') stop= !stop;
      printf("%f\n",d);
    }
    if (char_ready(iochanb)) {
      ch = getc(iochanb);
      if (ch == 'z') d /= 1.03;
      if (ch == 'x') d *= 1.03;
      if (ch == 'f') dir = 1;
      if (ch == 'r') dir = 0;
      if (ch == 's') stop = !stop;
      fprintf(iochanb,"%f\n",d);
    }
    if (stop) table_stop();
    if (!stop) table_start();
    dly = d;
    table_advance(dir);
    delay(dly);
    printf("%d ",pos);
    fprintf(iochanb,"%d ",pos);
  }
  
}