Serving the Web/ServingTheWeb1995.disc1of1.iso/linux/slacksrce/d/perl/perl-4.000/perl-4/perl-4.036/atarist/test/osexample.pl

Text File | 1993-02-08 | 152 b | 6 lines

require 'osbind.pl';

 &Cconws("Hello World\r\n");
 $str = "This is a string being printed by Fwrite Gemdos trap\r\n";
 &Fwrite(1, length($str), $str);