Mercurial > repo

view interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/syscall3.si @ 2253:2bcf4dad0ca9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> sed -i \'s/342/341/\' bin/colorize
author HackBot
date Mon, 25 Feb 2013 22:41:28 +0000
parents 859f9b4339e6
children
line wrap: on
line source

	PLEASE NOTE: EXAMPLE OF CALLING SYSTEM CALL #3, OPEN FILE

	PLEASE :5 <- #114
	PLEASE ,5 <- #14
	DO ,5 SUB #1 <- #95
	DO ,5 SUB #2 <- #91
	DO ,5 SUB #3 <- #93
	DO ,5 SUB #4 <- #95
	DO ,5 SUB #5 <- #95
	DO ,5 SUB #6 <- #80
	DO ,5 SUB #7 <- #92
	DO ,5 SUB #8 <- #86
	DO ,5 SUB #9 <- #91
	DO ,5 SUB #10 <- #93
	DO ,5 SUB #11 <- #95
	DO ,5 SUB #12 <- #95
	DO ,5 SUB #13 <- #80
	DO ,5 SUB #14 <- #77
(666)	DO .5 <- #3
	PLEASE READ OUT @5 + :5 + ,5
	PLEASE GIVE UP