This is a playback of:
http://artscene.textfiles.com/vt100/trek.vt
from
http://artscene.textfiles.com/vt100/
Played back using a perl script to slow down replay. This script simulates the slow dumb terminals or modems links of the day.
cat.pl
#!/usr/bin/perl
use warnings;use strict;
use Time::HiRes;
open my $f, "<", "trek.vt" or die($!);binmode($f);my $buf;while(my $len = read($f, $buf, 10 )){ print $buf; Time::HiRes::sleep(0.025); # usleep(1000);}close $f;
No comments:
Post a Comment