perl 4.0 patch 25: patch #20, continued

[p5sagit/p5-mst-13.2.git] / atarist / test / ccon

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);