blob: bff4e19ec623963dca4303404f79251d3e8f63b3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#-h- ulstal 268 local 12/01/80 15:55:09
# ulstal - install lower and upper case versions of symbol
include defs
subroutine ulstal (name, defn)
character name (ARB), defn (ARB)
include COMMON_BLOCKS
call entdef (name, defn, deftbl)
call upper (name)
call entdef (name, defn, deftbl)
return
end
|
