blob: 1578af42b08ba33608f0fb017097c89bdd66b8fc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# SCANC -- Return the next character from the scanned input.
procedure scanc (cval)
char cval
include "scan.com"
begin
cval = sc_scanbuf[sc_ip]
if (cval != EOS)
sc_ip = sc_ip + 1
end
|
