blob: 1c8a63086037f30182dd43ee2d02c2fc142e0aa0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
# ALLOCATE -- Allocate a device. The real work is done by the hidden CL
# _allocate task, but we provide a script interface as well to provide
# scope for machine dependent additions.
procedure allocate (device)
string device { prompt = "device to be allocated" }
begin
_allocate (device)
end
|
