Monday, June 15, 2020

Star Trek, VT100 Terminal Animation.





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: