-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathATOL.html
90 lines (90 loc) · 3.87 KB
/
ATOL.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
<!DOCTYPE html>
<html><head>
<meta http-equiv="content-type"
content="text/html; charset=UTF-8">
<meta name="description"
content="sweave generated">
</head><body><font face="Sorts Mill Goudy">
<p align="justify"><font face="Sorts Mill Goudy">
<h1>ATOL - Array to List</h1>
</font></p>
<p align="justify"><font face="Sorts Mill Goudy">
<font face="Source Code Pro">ATOL(A)</font> returns a list of the elements of array <font face="Source Code Pro">A</font>.
</font></p>
<p align="justify"><font face="Sorts Mill Goudy">
<h2>Uses</h2>
<a href="LINK.html">LINK</a><br>
<a href="REVL.html">REVL</a><br>
<a href="SEQ.html">SEQ</a><br>
</font></p>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«INCLUDES»≡</b>
-INCLUDE 'LINK.INC'
-INCLUDE 'SEQ.INC'
-INCLUDE 'REVL.INC'
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«ATOL»≡</b>
-PUBLIC ATOL()
<font color="#818181"><i>*</i></font>
DEFINE('ATOL(A)I') <b>:(END_ATOL)</b>
<font color="#818181"><i>*</i></font>
ATOL SEQ(' ATOL = LINK(A<I>, ATOL)', .I)
ATOL = REVL(ATOL) <b>:(RETURN)</b>
<font color="#818181"><i>*</i></font>
END_ATOL
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«unit_test»≡</b>
<font color="#818181"><i>#!/usr/bin/bash</i></font>
exec "snobol4" "-b" "$0" "$@"
-INCLUDE 'ATOL.INC'
&CODE = 1
&CODE = 0
END
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«»≡</b>
-MODULE ATOL
-USES LINK()
<b>«INCLUDES»</b>
-IN72
-STITL ATOL
-EJECT
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>************************************************************************</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* # ####### ####### # *</i></font>
<font color="#818181"><i>* # # # # # # *</i></font>
<font color="#818181"><i>* # # # # # # *</i></font>
<font color="#818181"><i>* # # # # # # *</i></font>
<font color="#818181"><i>* ####### # # # # *</i></font>
<font color="#818181"><i>* # # # # # # *</i></font>
<font color="#818181"><i>* # # # ####### ####### *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* ATOL ARRAY TO LIST *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>************************************************************************</i></font>
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>* ATOL.lss</i></font>
<font color="#818181"><i>*</i></font>
<b>«ATOL»</b>
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>* CE: .MSNOBOL4;</i></font>
<b>@</b>
</font></pre></div>
<footer><hr><table width="100%" border="0">
<tr><td><p align=left>
Produced by <code>sweave</code>
</p></td><td><p align=center>
Sun Aug 31 15:20:10 EDT 2014</p></td><td><p align=right>
Return to <a href="index.html">index</a>
</p></td></table></footer>
</font></body></html>