#!/usr/bin/expect

spawn cat $env(HOME)/o512
expect eof

cd $env(HOME)/replace
set font(a) ega.8
set font(0) ega0.8
set font(1) ega1.8
set font(2) ega2.8
set font(3) ega3.8
set font(4) ega4.8
set font(5) ega5.8
set font(m) $env(HOME)/C/math1.8

set timeout -1

stty raw
expect_user {
  -re {([a0-5m])} {
    exec setfont $font($expect_out(1,string))
    exp_continue
  }
  -re {[M ]} {
    # set sid $spawn_id
    # log_user 0
    exec $env(HOME)/MTA/new $env(HOME)/MTA/newtest.tcl
    exp_continue
  }
  -re (.) {
  }
}