blob: 3b040ef7cf0799de07435b9577cc3bde81666a88 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
procedure apdemos (demo)
int demo {prompt="Demo number"}
begin
int demonum
file demofile
if ($nargs == 0)
type ("apdemos$apdemos.men")
demonum = demo
demofile = "apdemos$apdemo" // demonum // ".cl"
if (access (demofile))
cl (< demofile)
else
error (1, "Invalid demo number " // demonum)
end
|
