#!/usr/local/bin/perl
# init_transcript_file v0.1
# copyright (c) 1995 Internet Roundtable Society

$talkfile = "/mojodocs/insiders/talk.insiders";

open (TRANSCRIPT, ">$talkfile") || die "can't open TALK\n"; 
print TRANSCRIPT "0      \1\0", "1      \1";