blob: ce11d4ea0f3d80fc634aaca15043e5896bfbaece (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
task slio = t_slio
procedure t_slio()
pointer gp
char lbuf[SZ_LINE]
real x[5], y[5]
pointer gopen()
int getline()
begin
x[1] = .25; y[1] = .25
x[2] = .75; y[2] = .25
x[3] = .75; y[3] = .75
x[4] = .25; y[4] = .75
x[5] = .25; y[5] = .25
gp = gopen ("stdgraph", NEW_FILE, STDGRAPH)
call gpline (gp, x, y, 5)
call gflush (gp)
call putline (STDOUT, "enter text: ")
call flush (STDOUT)
if (getline (STDIN, lbuf) != EOF) {
call zwmsec (3000)
call printf ("text = %s")
call pargstr (lbuf)
call flush (STDOUT)
}
call zwmsec (3000)
call gclose (gp)
end
|
