Monday, June 15, 2020

Star Trek, VT100 Terminal Animation.

This is a playback of:


Played back using a perl script to slow down replay. This script simulates the slow dumb terminals or modems links of the day.

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: