996
|
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
|