Mercurial > repo
annotate interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/syscall1.si @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
author | HackBot |
---|---|
date | Sun, 09 Dec 2012 19:30:08 +0000 |
parents | |
children |
rev | line source |
---|---|
996 | 1 PLEASE NOTE: EXAMPLE OF CALLING SYSTEM CALL #1 AND #2 |
2 | |
3 (666) DO .1 <- #2 | |
4 DO ,2 <- #3 | |
5 DO ,2 SUB #1 <- #91 | |
6 DO ,2 SUB #2 <- #95 | |
7 DO ,2 SUB #3 <- #68 | |
8 (666) DO .3 <- #1 | |
9 DO ,4 <- #3 | |
10 DO ,4 SUB #1 <- #91 | |
11 DO ,4 SUB #2 <- #95 | |
12 DO ,4 SUB #3 <- #66 | |
13 (666) DO .1 <- #7 | |
14 PLEASE READ OUT ,1 + ,2 + ,3 + ,4 | |
15 PLEASE GIVE UP |