#!/usr/athena/bin/perl

require '/mit/21w765j/common/conv-lib2.pl';
# Spring, 1996, Matthew Gray <mkgray@mit.edu>

$charfile = shift(@ARGV);
&readcharacter($charfile);
$charprompt = &get(character,0,charstyle);
$userprompt = &get(character,0,userstyle);
&filpr($charprompt." ".&get(character, 0, introline)."\n");
&filpr($userprompt." ");
while(<>){
    $x = &respond($_);
#    print("R: $x\n");
    &filpr($charprompt." ".$x."\n");
    &filpr($userprompt." ");
}