summaryrefslogtreecommitdiff
path: root/atarist/test
diff options
context:
space:
mode:
authorLarry Wall <lwall@netlabs.com>1992-06-08 04:52:53 +0000
committerLarry Wall <lwall@netlabs.com>1992-06-08 04:52:53 +0000
commit68decaef0a08fcd5db3193f825cfdfc539b67ccb (patch)
treea16d0390e7acc0fcc16eba0be8259a2214efd9fe /atarist/test
parentbf10efe7e35fa48859e575b890018da16608a9d7 (diff)
downloadperl-68decaef0a08fcd5db3193f825cfdfc539b67ccb.tar.gz
perl 4.0 patch 22: patch #20, continued
See patch #20.
Diffstat (limited to 'atarist/test')
-rw-r--r--atarist/test/ccon5
1 files changed, 5 insertions, 0 deletions
diff --git a/atarist/test/ccon b/atarist/test/ccon
new file mode 100644
index 0000000000..47bc8e2f05
--- /dev/null
+++ b/atarist/test/ccon
@@ -0,0 +1,5 @@
+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);