Mercurial > repo
comparison interps/c-intercal/pit/lib/1910.doc @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
author | HackBot |
---|---|
date | Sun, 09 Dec 2012 19:30:08 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
995:6883f5911eb7 | 996:859f9b4339e6 |
---|---|
1 From ucbvax!bloom-beacon!eru!luth!sunic!lth.se!newsuser Thu May 17 19:51:02 PDT 1990 | |
2 | |
3 Sorry, but I couldn't find the (1910)-routine so I wrote one, which | |
4 will do it's job, IF the (1900)-routine is as the manual says ( you know | |
5 it isn't ). At least I hope it works because the manual is not very clear | |
6 about this routine. | |
7 | |
8 | |
9 (1910) PLEASE STASH .3 + :3 + :1 + :2 | |
10 DO :1 <- #32768 | |
11 PLEASE .2 <- #1 | |
12 PLEASE (1911) NEXT | |
13 (1911) DO FORGET #1 | |
14 DO STASH .1 | |
15 DO (1900) NEXT | |
16 PLEASE :2 <- .1 | |
17 DO RETRIEVE .1 | |
18 DO (1500) NEXT | |
19 PLEASE DO :1 <- :3 | |
20 DO (1010) NEXT | |
21 PLEASE .1 <- .3 | |
22 DO (1912) NEXT | |
23 DO (1911) NEXT | |
24 (1912) PLEASE (1913) NEXT | |
25 DO .2 <- :1~'#65280$#65280' | |
26 PLEASE RETRIEVE :2 + .3 + :1 + :3 | |
27 DO RESUME #2 | |
28 (1914) PLEASE RESUME #1$"'.1~.1'~#1" | |
29 (1913) PLEASE (1914) NEXT | |
30 -- | |
31 ---------- | |
32 Hans Olsson Email: f88ho@efd.lth.se | |
33 Snail: K[MN[RSV[GEN 8:118 | |
34 222 45 Lund Sweden |