blob: cce4987e24fb75ed5e78de7ac976f457e0004f4e (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "../lib/ids.h"
# TELL -- Tell user about display state
procedure tell()
short f[IDS_MAXIMPL+2] # Ultimately, want an array terminated
# with IDS_EOD as usual
include "cv.com"
begin
# We don't know much, do we?
call cvwhich(f)
if ( f[1] > 0) {
call eprintf ("Frame %d, at least, is on.\n")
call pargs (f[1])
} else
call eprintf ("No frames are on.\n")
end
|
