#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes 'usleep';
$|=1;
my $A;

sub PR1NT {
    my $msg = shift;
    my @chars = split //,$msg;

    while (defined(my $t = shift @chars)) {
        usleep 100000;
        print $t;
    }
}

sub INPUT {
    print "? ";
    my $a = <>;
    return $a;
}

L0010: PR1NT "WELCOME TO SUPER STAR TREK VERSION 4.71\n";
L0015: PR1NT "\n";
L0020: PR1NT "A SPACE ADVENTURE SURE TO THRILL THE SOUL!\n";
L0030: PR1NT "COPYRIGHT 1979 BY ANTHONY D. ENNIS\n";
L0040: PR1NT "\n";
L0050: PR1NT "WOULD YOU LIKE INSTRUCTIONS";
L0060: $A = INPUT();
L0070: PR1NT "\n";
L0080: PR1NT "WHAT IS YOUR FAVORITE NUMBER";
L0090: $A = INPUT();
L0100: PR1NT "YOU WIN!!!!\n";
L0110: PR1NT "\n";
L0120: PR1NT "WOULD YOU LIKE TO PLAY AGAIN";
L0130: $A = INPUT();
L0140: PR1NT "\n";
L0150: goto L0010;