blob: 4959deff66315ef56a96b0f5d45fca93d11f4de2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# PRPSINIT -- Load the gio.cursor graphics driver for pseudofile i/o to the
# graphics streams.
procedure prpsinit()
extern giotr()
extern gtr_control(), gtr_gflush(), gtr_writep()
extern stg_readtty(), stg_writetty()
begin
call prpsload (giotr, gtr_control, gtr_gflush, gtr_writep,
stg_readtty, stg_writetty)
end
|
