annotate interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/syscall3.si @ 2253:2bcf4dad0ca9
<oerjan> sed -i \'s/342/341/\' bin/colorize
| author |
HackBot |
| date |
Mon, 25 Feb 2013 22:41:28 +0000 |
| parents |
859f9b4339e6 |
| children |
|
| rev |
line source |
|
996
|
1 PLEASE NOTE: EXAMPLE OF CALLING SYSTEM CALL #3, OPEN FILE
|
|
|
2
|
|
|
3 PLEASE :5 <- #114
|
|
|
4 PLEASE ,5 <- #14
|
|
|
5 DO ,5 SUB #1 <- #95
|
|
|
6 DO ,5 SUB #2 <- #91
|
|
|
7 DO ,5 SUB #3 <- #93
|
|
|
8 DO ,5 SUB #4 <- #95
|
|
|
9 DO ,5 SUB #5 <- #95
|
|
|
10 DO ,5 SUB #6 <- #80
|
|
|
11 DO ,5 SUB #7 <- #92
|
|
|
12 DO ,5 SUB #8 <- #86
|
|
|
13 DO ,5 SUB #9 <- #91
|
|
|
14 DO ,5 SUB #10 <- #93
|
|
|
15 DO ,5 SUB #11 <- #95
|
|
|
16 DO ,5 SUB #12 <- #95
|
|
|
17 DO ,5 SUB #13 <- #80
|
|
|
18 DO ,5 SUB #14 <- #77
|
|
|
19 (666) DO .5 <- #3
|
|
|
20 PLEASE READ OUT @5 + :5 + ,5
|
|
|
21 PLEASE GIVE UP
|
