projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
NTTYP/CLRSTR are Tenex-only.
[pdp10-muddle.git]
/
MUDDLE
/
testsp.4
1
<SETG ENVIRON
2
<FUNCTION ("BIND" E) .E>>
3
4
5
<SET E0 <ENVIRON>>
6
7
<PROG ((A 100) E1)
8
<SET E1 <ENVIRON>>
9
<PRINT .A>
10
<PROG ((A 10) E2)
11
<SET E2 <ENVIRON>>
12
<PRINT .A>
13
<PROG ((A 1) E3)
14
<PRINT .A>
15
<SPLICE <ENVIRON> .E1>
16
<PRINT .A>>
17
<PRINT .A>>
18
<PRINT .A>>
\f
\ 3
\f