Sprite 1984 - 1993/Sprite 1984 - 1993.iso/lib/perl/sys/ttydev.ph

Text File | 1991-08-12 | 482 b | 21 lines

if (!defined &_TTYDEV) {
    eval 'sub _TTYDEV {1;}';
    eval 'sub B0 {0;}';
    eval 'sub B50 {1;}';
    eval 'sub B75 {2;}';
    eval 'sub B110 {3;}';
    eval 'sub B134 {4;}';
    eval 'sub B150 {5;}';
    eval 'sub B200 {6;}';
    eval 'sub B300 {7;}';
    eval 'sub B600 {8;}';
    eval 'sub B1200 {9;}';
    eval 'sub B1800 {10;}';
    eval 'sub B2400 {11;}';
    eval 'sub B4800 {12;}';
    eval 'sub B9600 {13;}';
    eval 'sub EXTA {14;}';
    eval 'sub EXTB {15;}';
}
1;