cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c									 c
c 		 Copyright (C) 1983, Silicon Graphics, Inc.		 c
c									 c
c  These coded instructions, statements, and computer programs  contain  c
c  unpublished  proprietary  information of Silicon Graphics, Inc., and  c
c  are protected by Federal copyright law.  They  may  not be disclosed  c
c  to  third  parties  or copied or duplicated in any form, in whole or  c
c  in part, without the prior written consent of Silicon Graphics, Inc.  c
c									 c
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

c
c      FORTRAN graphics library
c

      subroutine xsetsl()
      call gcmd(0)
      return
      end

      subroutine xsetfa()
      call gcmd(1)
      return
      end

      integer*2 function gversi()
      integer*2 recS
      call echoff
      call gcmd(2)
      call flushg
      gversi = recS()
      call reccr
      call echoon
      return
      end

      subroutine gdownl()
      call gcmd(3)
      return
      end

      subroutine pageco(arg1)
      integer*2 arg1
      call gcmd(4)
      call sends(arg1)
      return
      end

      subroutine textco(arg1)
      integer*2 arg1
      call gcmd(5)
      call sends(arg1)
      return
      end

      subroutine textpo(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call gcmd(6)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      return
      end

      subroutine arc(arg1,arg2,arg3,arg4,arg5)
      real arg1
      real arg2
      real arg3
      integer*2 arg4
      integer*2 arg5
      call gcmd(7)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sends(arg4)
      call sends(arg5)
      return
      end

      subroutine arcf(arg1,arg2,arg3,arg4,arg5)
      real arg1
      real arg2
      real arg3
      integer*2 arg4
      integer*2 arg5
      call gcmd(8)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sends(arg4)
      call sends(arg5)
      return
      end

      subroutine arcfi(arg1,arg2,arg3,arg4,arg5)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      integer*2 arg4
      integer*2 arg5
      call gcmd(9)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      call sends(arg4)
      call sends(arg5)
      return
      end

      subroutine arci(arg1,arg2,arg3,arg4,arg5)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      integer*2 arg4
      integer*2 arg5
      call gcmd(10)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      call sends(arg4)
      call sends(arg5)
      return
      end

      subroutine attach(arg1,arg2)
      integer*2 arg1
      integer*2 arg2
      call gcmd(11)
      call sends(arg1)
      call sends(arg2)
      return
      end

      subroutine backbu(arg1)
      logical arg1
      call gcmd(12)
      call sendo(arg1)
      return
      end

      subroutine bbox(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8)
      integer*2 arg1
      integer*2 arg2
      real arg3
      real arg4
      real arg5
      real arg6
      real arg7
      real arg8
      call gcmd(13)
      call sends(arg1)
      call sends(arg2)
      call sendf(arg3)
      call sendf(arg4)
      call sendf(arg5)
      call sendf(arg6)
      call sendf(arg7)
      call sendf(arg8)
      return
      end

      subroutine bbox2(arg1,arg2,arg3,arg4,arg5,arg6)
      integer*2 arg1
      integer*2 arg2
      real arg3
      real arg4
      real arg5
      real arg6
      call gcmd(14)
      call sends(arg1)
      call sends(arg2)
      call sendf(arg3)
      call sendf(arg4)
      call sendf(arg5)
      call sendf(arg6)
      return
      end

      subroutine bbox2i(arg1,arg2,arg3,arg4,arg5,arg6)
      integer*2 arg1
      integer*2 arg2
      integer*4 arg3
      integer*4 arg4
      integer*4 arg5
      integer*4 arg6
      call gcmd(15)
      call sends(arg1)
      call sends(arg2)
      call sendl(arg3)
      call sendl(arg4)
      call sendl(arg5)
      call sendl(arg6)
      return
      end

      subroutine bboxi(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8)
      integer*2 arg1
      integer*2 arg2
      integer*4 arg3
      integer*4 arg4
      integer*4 arg5
      integer*4 arg6
      integer*4 arg7
      integer*4 arg8
      call gcmd(16)
      call sends(arg1)
      call sends(arg2)
      call sendl(arg3)
      call sendl(arg4)
      call sendl(arg5)
      call sendl(arg6)
      call sendl(arg7)
      call sendl(arg8)
      return
      end

      subroutine blink(arg1,arg2,arg3,arg4,arg5)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      integer*2 arg5
      call gcmd(17)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      call sends(arg5)
      return
      end

      subroutine callob(arg1)
      integer*4 arg1
      call gcmd(18)
      call sendl(arg1)
      return
      end

      subroutine charst(arg1)
      character*(*) arg1
      call gcmd(19)
      call sendc(arg1)
      return
      end

      subroutine circ(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(20)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine circf(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(21)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine circfi(arg1,arg2,arg3)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      call gcmd(22)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      return
      end

      subroutine circi(arg1,arg2,arg3)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      call gcmd(23)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      return
      end

      subroutine clear()
      call gcmd(24)
      return
      end

      subroutine clearh()
      call gcmd(25)
      return
      end

      integer*4 function clipli(arg1,arg2,arg3,arg4,arg5)
      integer*4 recL
      character*(*) arg1
      integer*4 arg2
      real arg3(3*arg2)
      real arg4(8*arg2)
      logical arg5(2*arg2)
      call echoff
      call gcmd(26)
      call sendc(arg1)
      call sendl(arg2)
      call sendfs(arg3,3*arg2)
      call flushg
      clipli = recL()
      call recFs(arg4)
      call recOs(arg5)
      call reccr
      call echoon
      return
      end

      subroutine clippn(arg1,arg2,arg3,arg4,arg5)
      character*(*) arg1
      integer*4 arg2
      real arg3(3*arg2)
      real arg4(4*arg2)
      logical arg5(arg2)
      call echoff
      call gcmd(27)
      call sendc(arg1)
      call sendl(arg2)
      call sendfs(arg3,3*arg2)
      call flushg
      call recFs(arg4)
      call recOs(arg5)
      call reccr
      call echoon
      return
      end

      integer*4 function clippo(arg1,arg2,arg3,arg4)
      integer*4 recL
      character*(*) arg1
      integer*4 arg2
      real arg3(3*arg2)
      real arg4(8*arg2)
      call echoff
      call gcmd(28)
      call sendc(arg1)
      call sendl(arg2)
      call sendfs(arg3,3*arg2)
      call flushg
      clippo = recL()
      call recFs(arg4)
      call reccr
      call echoon
      return
      end

      subroutine closeo()
      call gcmd(29)
      return
      end

      subroutine cmov(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(30)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine cmov2(arg1,arg2)
      real arg1
      real arg2
      call gcmd(31)
      call sendf(arg1)
      call sendf(arg2)
      return
      end

      subroutine cmov2i(arg1,arg2)
      integer*4 arg1
      integer*4 arg2
      call gcmd(32)
      call sendl(arg1)
      call sendl(arg2)
      return
      end

      subroutine cmovi(arg1,arg2,arg3)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      call gcmd(33)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      return
      end

      subroutine color(arg1)
      integer*2 arg1
      call gcmd(34)
      call sends(arg1)
      return
      end

      subroutine cursof()
      call gcmd(35)
      return
      end

      subroutine curson()
      call gcmd(36)
      return
      end

      subroutine curve(arg1,arg2,arg3)
      integer*2 arg1
      real arg2(16)
      real arg3(4*3)
      call gcmd(37)
      call sends(arg1)
      call sendfs(arg2,16)
      call sendfs(arg3,4*3)
      return
      end

      subroutine curvei(arg1)
      integer*2 arg1
      call gcmd(38)
      call sends(arg1)
      return
      end

      subroutine defcur(arg1,arg2)
      integer*2 arg1
      integer*2 arg2(16)
      call gcmd(39)
      call sends(arg1)
      call sendss(arg2,16)
      return
      end

      subroutine deflin(arg1,arg2)
      integer*2 arg1
      integer*2 arg2
      call gcmd(40)
      call sends(arg1)
      call sends(arg2)
      return
      end

      subroutine defobj(arg1,arg2,arg3)
      integer*2 arg1
      integer*2 arg2
      integer*4 arg3(arg2)
      call gcmd(41)
      call sends(arg1)
      call sends(arg2)
      call sendls(arg3,arg2)
      return
      end

      subroutine defras(arg1,arg2,arg3,arg4,arg5,arg6)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      character*8 arg4(arg3)
      integer*2 arg5
      character*(*) arg6
      call gcmd(42)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sendqs(arg4,arg3)
      call sends(arg5)
      call sendbs(arg6,arg5)
      return
      end

      subroutine deftex(arg1,arg2)
      integer*2 arg1
      character*(*) arg2
      call gcmd(43)
      call sends(arg1)
      call sendbs(arg2,16)
      return
      end

      subroutine delete(arg1,arg2,arg3)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      call gcmd(44)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      return
      end

      subroutine delobj(arg1)
      integer*4 arg1
      call gcmd(45)
      call sendl(arg1)
      return
      end

      subroutine double()
      call gcmd(46)
      return
      end

      subroutine draw(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(47)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine draw2(arg1,arg2)
      real arg1
      real arg2
      call gcmd(48)
      call sendf(arg1)
      call sendf(arg2)
      return
      end

      subroutine draw2i(arg1,arg2)
      integer*4 arg1
      integer*4 arg2
      call gcmd(49)
      call sendl(arg1)
      call sendl(arg2)
      return
      end

      subroutine drawi(arg1,arg2,arg3)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      call gcmd(50)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      return
      end

      subroutine editob(arg1)
      integer*4 arg1
      call gcmd(51)
      call sendl(arg1)
      return
      end

      integer*4 function endpic(arg1)
      integer*4 recL
      integer*4 arg1(*)
      call echoff
      call gcmd(52)
      call flushg
      endpic = recL()
      call recLs(arg1)
      call reccr
      call echoon
      return
      end

      integer*4 function endsel(arg1)
      integer*4 recL
      integer*4 arg1(*)
      call echoff
      call gcmd(53)
      call flushg
      endsel = recL()
      call recLs(arg1)
      call reccr
      call echoon
      return
      end

      subroutine finish()
      call gcmd(54)
      return
      end

      subroutine font(arg1)
      integer*2 arg1
      call gcmd(55)
      call sends(arg1)
      return
      end

      subroutine frontb(arg1)
      logical arg1
      call gcmd(56)
      call sendo(arg1)
      return
      end

      subroutine gconfi()
      call gcmd(57)
      return
      end

      integer*4 function genobj()
      integer*4 recL
      call echoff
      call gcmd(58)
      call flushg
      genobj = recL()
      call reccr
      call echoon
      return
      end

      integer*4 function gentag()
      integer*4 recL
      call echoff
      call gcmd(59)
      call flushg
      gentag = recL()
      call reccr
      call echoon
      return
      end

      integer*2 function getbuf()
      integer*2 recS
      call echoff
      call gcmd(60)
      call flushg
      getbuf = recS()
      call reccr
      call echoon
      return
      end

      logical function getbut(arg1)
      logical recO
      integer*2 arg1
      call echoff
      call gcmd(61)
      call sends(arg1)
      call flushg
      getbut = recO()
      call reccr
      call echoon
      return
      end

      integer*2 function getcmm()
      integer*2 recS
      call echoff
      call gcmd(62)
      call flushg
      getcmm = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getcol()
      integer*2 recS
      call echoff
      call gcmd(63)
      call flushg
      getcol = recS()
      call reccr
      call echoon
      return
      end

      subroutine getcur(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 recS
      integer*2 arg2
      integer*2 arg3
      logical arg4
      logical recO
      call echoff
      call gcmd(64)
      call flushg
      arg1 = recS()
      arg2 = recS()
      arg3 = recS()
      arg4 = recO()
      call reccr
      call echoon
      return
      end

      subroutine getdep(arg1,arg2)
      integer*2 arg1
      integer*2 recS
      integer*2 arg2
      call echoff
      call gcmd(65)
      call flushg
      arg1 = recS()
      arg2 = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getdis()
      integer*2 recS
      call echoff
      call gcmd(66)
      call flushg
      getdis = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getfon()
      integer*2 recS
      call echoff
      call gcmd(67)
      call flushg
      getfon = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function gethei()
      integer*2 recS
      call echoff
      call gcmd(68)
      call flushg
      gethei = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function gethit()
      integer*2 recS
      call echoff
      call gcmd(69)
      call flushg
      gethit = recS()
      call reccr
      call echoon
      return
      end

      logical function getlsb()
      logical recO
      call echoff
      call gcmd(70)
      call flushg
      getlsb = recO()
      call reccr
      call echoon
      return
      end

      integer*2 function getlst()
      integer*2 recS
      call echoff
      call gcmd(71)
      call flushg
      getlst = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getlwi()
      integer*2 recS
      call echoff
      call gcmd(72)
      call flushg
      getlwi = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getmap()
      integer*2 recS
      call echoff
      call gcmd(73)
      call flushg
      getmap = recS()
      call reccr
      call echoon
      return
      end

      subroutine getmat(arg1)
      real arg1(16)
      call echoff
      call gcmd(74)
      call flushg
      call recFs(arg1)
      call reccr
      call echoon
      return
      end

      integer*2 function getobj()
      integer*2 recS
      call echoff
      call gcmd(75)
      call flushg
      getobj = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getpla()
      integer*2 recS
      call echoff
      call gcmd(76)
      call flushg
      getpla = recS()
      call reccr
      call echoon
      return
      end

      logical function getres()
      logical recO
      call echoff
      call gcmd(77)
      call flushg
      getres = recO()
      call reccr
      call echoon
      return
      end

      subroutine getscr(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 recS
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call echoff
      call gcmd(78)
      call flushg
      arg1 = recS()
      arg2 = recS()
      arg3 = recS()
      arg4 = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function gettex()
      integer*2 recS
      call echoff
      call gcmd(79)
      call flushg
      gettex = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getval(arg1)
      integer*2 recS
      integer*2 arg1
      call echoff
      call gcmd(80)
      call sends(arg1)
      call flushg
      getval = recS()
      call reccr
      call echoon
      return
      end

      subroutine getvie(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 recS
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call echoff
      call gcmd(81)
      call flushg
      arg1 = recS()
      arg2 = recS()
      arg3 = recS()
      arg4 = recS()
      call reccr
      call echoon
      return
      end

      integer*2 function getwri()
      integer*2 recS
      call echoff
      call gcmd(82)
      call flushg
      getwri = recS()
      call reccr
      call echoon
      return
      end

      subroutine xginit()
      call gcmd(83)
      return
      end

      subroutine xgrese()
      call gcmd(84)
      return
      end

      subroutine gRGBco(arg1,arg2,arg3)
      integer*2 arg1
      integer*2 recS
      integer*2 arg2
      integer*2 arg3
      call echoff
      call gcmd(85)
      call flushg
      arg1 = recS()
      arg2 = recS()
      arg3 = recS()
      call reccr
      call echoon
      return
      end

      subroutine gRGBcu(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8)
      integer*2 arg1
      integer*2 recS
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      integer*2 arg5
      integer*2 arg6
      integer*2 arg7
      logical arg8
      logical recO
      call echoff
      call gcmd(86)
      call flushg
      arg1 = recS()
      arg2 = recS()
      arg3 = recS()
      arg4 = recS()
      arg5 = recS()
      arg6 = recS()
      arg7 = recS()
      arg8 = recO()
      call reccr
      call echoon
      return
      end

      subroutine gRGBma(arg1,arg2,arg3)
      integer*2 arg1
      integer*2 recS
      integer*2 arg2
      integer*2 arg3
      call echoff
      call gcmd(87)
      call flushg
      arg1 = recS()
      arg2 = recS()
      arg3 = recS()
      call reccr
      call echoon
      return
      end

      subroutine insert(arg1,arg2)
      integer*4 arg1
      integer*4 arg2
      call gcmd(88)
      call sendl(arg1)
      call sendl(arg2)
      return
      end

      logical function isobj(arg1)
      logical recO
      integer*4 arg1
      call echoff
      call gcmd(89)
      call sendl(arg1)
      call flushg
      isobj = recO()
      call reccr
      call echoon
      return
      end

      logical function istag(arg1)
      logical recO
      integer*4 arg1
      call echoff
      call gcmd(90)
      call sendl(arg1)
      call flushg
      istag = recO()
      call reccr
      call echoon
      return
      end

      character*1 function keyboa()
      character*1 recB
      call echoff
      call gcmd(91)
      call flushg
      keyboa = recB()
      call reccr
      call echoon
      return
      end

      subroutine linewi(arg1)
      integer*2 arg1
      call gcmd(92)
      call sends(arg1)
      return
      end

      subroutine loadma(arg1)
      real arg1(16)
      call gcmd(93)
      call sendfs(arg1,16)
      return
      end

      subroutine lookat(arg1,arg2,arg3,arg4,arg5,arg6,arg7)
      real arg1
      real arg2
      real arg3
      real arg4
      real arg5
      real arg6
      integer*2 arg7
      call gcmd(94)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sendf(arg4)
      call sendf(arg5)
      call sendf(arg6)
      call sends(arg7)
      return
      end

      subroutine lsback(arg1)
      logical arg1
      call gcmd(95)
      call sendo(arg1)
      return
      end

      subroutine makeob(arg1)
      integer*4 arg1
      call gcmd(96)
      call sendl(arg1)
      return
      end

      subroutine maketa(arg1)
      integer*4 arg1
      call gcmd(97)
      call sendl(arg1)
      return
      end

      subroutine mapcol(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call gcmd(98)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      return
      end

      subroutine mapw(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9)
      integer*4 arg1
      integer*2 arg2
      integer*2 arg3
      real arg4
      real recF
      real arg5
      real arg6
      real arg7
      real arg8
      real arg9
      call echoff
      call gcmd(99)
      call sendl(arg1)
      call sends(arg2)
      call sends(arg3)
      call flushg
      arg4 = recF()
      arg5 = recF()
      arg6 = recF()
      arg7 = recF()
      arg8 = recF()
      arg9 = recF()
      call reccr
      call echoon
      return
      end

      subroutine mapw2(arg1,arg2,arg3,arg4,arg5)
      integer*4 arg1
      integer*2 arg2
      integer*2 arg3
      real arg4
      real recF
      real arg5
      call echoff
      call gcmd(100)
      call sendl(arg1)
      call sends(arg2)
      call sends(arg3)
      call flushg
      arg4 = recF()
      arg5 = recF()
      call reccr
      call echoon
      return
      end

      subroutine modify(arg1,arg2,arg3,arg4,arg5,arg6,arg7)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      integer*2 arg4
      real arg5
      real arg6
      integer*2 arg7
      call gcmd(101)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      call sends(arg4)
      call sendf(arg5)
      call sendf(arg6)
      call sends(arg7)
      return
      end

      subroutine move(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(102)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine move2(arg1,arg2)
      real arg1
      real arg2
      call gcmd(103)
      call sendf(arg1)
      call sendf(arg2)
      return
      end

      subroutine move2i(arg1,arg2)
      integer*4 arg1
      integer*4 arg2
      call gcmd(104)
      call sendl(arg1)
      call sendl(arg2)
      return
      end

      subroutine movei(arg1,arg2,arg3)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      call gcmd(105)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      return
      end

      subroutine multim()
      call gcmd(106)
      return
      end

      subroutine multma(arg1)
      real arg1(16)
      call gcmd(107)
      call sendfs(arg1,16)
      return
      end

      subroutine noise(arg1,arg2)
      integer*2 arg1
      integer*2 arg2
      call gcmd(108)
      call sends(arg1)
      call sends(arg2)
      return
      end

      subroutine objfon(arg1)
      integer*2 arg1
      call gcmd(109)
      call sends(arg1)
      return
      end

      subroutine objstr(arg1)
      character*(*) arg1
      call gcmd(110)
      call sendc(arg1)
      return
      end

      subroutine onemap()
      call gcmd(111)
      return
      end

      subroutine ortho(arg1,arg2,arg3,arg4,arg5,arg6)
      real arg1
      real arg2
      real arg3
      real arg4
      real arg5
      real arg6
      call gcmd(112)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sendf(arg4)
      call sendf(arg5)
      call sendf(arg6)
      return
      end

      subroutine ortho2(arg1,arg2,arg3,arg4)
      real arg1
      real arg2
      real arg3
      real arg4
      call gcmd(113)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sendf(arg4)
      return
      end

      subroutine perspe(arg1,arg2,arg3,arg4)
      integer*2 arg1
      real arg2
      real arg3
      real arg4
      call gcmd(114)
      call sends(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sendf(arg4)
      return
      end

      subroutine pick(arg1)
      integer*4 arg1
      call gcmd(115)
      call sendl(arg1)
      return
      end

      subroutine picksi(arg1,arg2)
      integer*2 arg1
      integer*2 arg2
      call gcmd(116)
      call sends(arg1)
      call sends(arg2)
      return
      end

      subroutine pnt(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(117)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine pnt2(arg1,arg2)
      real arg1
      real arg2
      call gcmd(118)
      call sendf(arg1)
      call sendf(arg2)
      return
      end

      subroutine pnt2i(arg1,arg2)
      integer*4 arg1
      integer*4 arg2
      call gcmd(119)
      call sendl(arg1)
      call sendl(arg2)
      return
      end

      subroutine pnti(arg1,arg2,arg3)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      call gcmd(120)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      return
      end

      subroutine polarv(arg1,arg2,arg3,arg4)
      real arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call gcmd(121)
      call sendf(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      return
      end

      subroutine polf(arg1,arg2)
      integer*4 arg1
      real arg2(3*arg1)
      call gcmd(122)
      call sendl(arg1)
      call sendfs(arg2,3*arg1)
      return
      end

      subroutine polf2(arg1,arg2)
      integer*4 arg1
      real arg2(2*arg1)
      call gcmd(123)
      call sendl(arg1)
      call sendfs(arg2,2*arg1)
      return
      end

      subroutine polf2i(arg1,arg2)
      integer*4 arg1
      integer*4 arg2(2*arg1)
      call gcmd(124)
      call sendl(arg1)
      call sendls(arg2,2*arg1)
      return
      end

      subroutine polfi(arg1,arg2)
      integer*4 arg1
      integer*4 arg2(3*arg1)
      call gcmd(125)
      call sendl(arg1)
      call sendls(arg2,3*arg1)
      return
      end

      subroutine poly(arg1,arg2)
      integer*4 arg1
      real arg2(3*arg1)
      call gcmd(126)
      call sendl(arg1)
      call sendfs(arg2,3*arg1)
      return
      end

      subroutine poly2(arg1,arg2)
      integer*4 arg1
      real arg2(2*arg1)
      call gcmd(127)
      call sendl(arg1)
      call sendfs(arg2,2*arg1)
      return
      end

      subroutine poly2i(arg1,arg2)
      integer*4 arg1
      integer*4 arg2(2*arg1)
      call gcmd(128)
      call sendl(arg1)
      call sendls(arg2,2*arg1)
      return
      end

      subroutine polyi(arg1,arg2)
      integer*4 arg1
      integer*4 arg2(3*arg1)
      call gcmd(129)
      call sendl(arg1)
      call sendls(arg2,3*arg1)
      return
      end

      subroutine popatt()
      call gcmd(130)
      return
      end

      subroutine popmat()
      call gcmd(131)
      return
      end

      subroutine popvie()
      call gcmd(132)
      return
      end

      subroutine pushat()
      call gcmd(133)
      return
      end

      subroutine pushma()
      call gcmd(134)
      return
      end

      subroutine pushvi()
      call gcmd(135)
      return
      end

      subroutine qbutto(arg1)
      integer*2 arg1
      call gcmd(136)
      call sends(arg1)
      return
      end

      subroutine qenter(arg1,arg2)
      integer*2 arg1
      integer*2 arg2
      call gcmd(137)
      call sends(arg1)
      call sends(arg2)
      return
      end

      subroutine qkeybo()
      call gcmd(138)
      return
      end

      integer*2 function qread(arg1)
      integer*2 recS
      integer*2 arg1
      call echoff
      call gcmd(139)
      call flushg
      qread = recS()
      arg1 = recS()
      call reccr
      call echoon
      return
      end

      subroutine qreset()
      call gcmd(140)
      return
      end

      integer*2 function qtest()
      integer*2 recS
      call echoff
      call gcmd(141)
      call flushg
      qtest = recS()
      call reccr
      call echoon
      return
      end

      subroutine qvalua(arg1)
      integer*2 arg1
      call gcmd(142)
      call sends(arg1)
      return
      end

      integer*2 function readpi(arg1,arg2)
      integer*2 recS
      integer*2 arg1
      integer*2 arg2(arg1)
      call echoff
      call gcmd(143)
      call sends(arg1)
      call flushg
      readpi = recS()
      call recSs(arg2)
      call reccr
      call echoon
      return
      end

      integer*2 function readRG(arg1,arg2,arg3,arg4)
      integer*2 recS
      integer*2 arg1
      integer*2 arg2(arg1)
      integer*2 arg3(arg1)
      integer*2 arg4(arg1)
      call echoff
      call gcmd(144)
      call sends(arg1)
      call flushg
      readRG = recS()
      call recSs(arg2)
      call recSs(arg3)
      call recSs(arg4)
      call reccr
      call echoon
      return
      end

      subroutine rect(arg1,arg2,arg3,arg4)
      real arg1
      real arg2
      real arg3
      real arg4
      call gcmd(145)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sendf(arg4)
      return
      end

      subroutine rectf(arg1,arg2,arg3,arg4)
      real arg1
      real arg2
      real arg3
      real arg4
      call gcmd(146)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sendf(arg4)
      return
      end

      subroutine rectfi(arg1,arg2,arg3,arg4)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      integer*4 arg4
      call gcmd(147)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      call sendl(arg4)
      return
      end

      subroutine recti(arg1,arg2,arg3,arg4)
      integer*4 arg1
      integer*4 arg2
      integer*4 arg3
      integer*4 arg4
      call gcmd(148)
      call sendl(arg1)
      call sendl(arg2)
      call sendl(arg3)
      call sendl(arg4)
      return
      end

      subroutine replac(arg1,arg2)
      integer*4 arg1
      integer*4 arg2
      call gcmd(149)
      call sendl(arg1)
      call sendl(arg2)
      return
      end

      subroutine resetl(arg1)
      logical arg1
      call gcmd(150)
      call sendo(arg1)
      return
      end

      subroutine RGBcol(arg1,arg2,arg3)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      call gcmd(151)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      return
      end

      subroutine RGBcur(arg1,arg2,arg3,arg4,arg5,arg6,arg7)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      integer*2 arg5
      integer*2 arg6
      integer*2 arg7
      call gcmd(152)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      call sends(arg5)
      call sends(arg6)
      call sends(arg7)
      return
      end

      subroutine RGBmod()
      call gcmd(153)
      return
      end

      subroutine RGBwri(arg1,arg2,arg3)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      call gcmd(154)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      return
      end

      subroutine rotate(arg1,arg2)
      integer*2 arg1
      character*1 arg2
      call gcmd(155)
      call sends(arg1)
      call sendb(arg2)
      return
      end

      subroutine scale(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(156)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine screen(arg1,arg2,arg3,arg4)
      integer*4 arg1
      real arg2(3*arg1)
      integer*2 arg3(3*arg1)
      logical arg4(arg1)
      call echoff
      call gcmd(157)
      call sendl(arg1)
      call sendfs(arg2,3*arg1)
      call flushg
      call recSs(arg3)
      call recOs(arg4)
      call reccr
      call echoon
      return
      end

      subroutine scrmas(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call gcmd(158)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      return
      end

      subroutine select(arg1)
      integer*4 arg1
      call gcmd(159)
      call sendl(arg1)
      return
      end

      subroutine setbut(arg1,arg2)
      integer*2 arg1
      logical arg2
      call gcmd(160)
      call sends(arg1)
      call sendo(arg2)
      return
      end

      subroutine setcur(arg1,arg2,arg3)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      call gcmd(161)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      return
      end

      subroutine setdep(arg1,arg2)
      integer*2 arg1
      integer*2 arg2
      call gcmd(162)
      call sends(arg1)
      call sends(arg2)
      return
      end

      subroutine setlin(arg1)
      integer*2 arg1
      call gcmd(163)
      call sends(arg1)
      return
      end

      subroutine setmap(arg1)
      integer*2 arg1
      call gcmd(164)
      call sends(arg1)
      return
      end

      subroutine setpla(arg1)
      integer*2 arg1
      call gcmd(165)
      call sends(arg1)
      return
      end

      subroutine settex(arg1)
      integer*2 arg1
      call gcmd(166)
      call sends(arg1)
      return
      end

      subroutine setval(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call gcmd(167)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      return
      end

      subroutine single()
      call gcmd(168)
      return
      end

      integer*4 function strwid(arg1)
      integer*4 recL
      character*(*) arg1
      call echoff
      call gcmd(169)
      call sendc(arg1)
      call flushg
      strwid = recL()
      call reccr
      call echoon
      return
      end

      subroutine swapbu()
      call gcmd(170)
      return
      end

      subroutine swapin(arg1)
      integer*2 arg1
      call gcmd(171)
      call sends(arg1)
      return
      end

      subroutine sync()
      call gcmd(172)
      return
      end

      subroutine tie(arg1,arg2,arg3)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      call gcmd(173)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      return
      end

      subroutine transf(arg1,arg2,arg3)
      integer*4 arg1
      real arg2(4*arg1)
      real arg3(4*arg1)
      call echoff
      call gcmd(174)
      call sendl(arg1)
      call sendfs(arg2,4*arg1)
      call flushg
      call recFs(arg3)
      call reccr
      call echoon
      return
      end

      subroutine transl(arg1,arg2,arg3)
      real arg1
      real arg2
      real arg3
      call gcmd(175)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      return
      end

      subroutine unqbut(arg1)
      integer*2 arg1
      call gcmd(176)
      call sends(arg1)
      return
      end

      subroutine unqkey()
      call gcmd(177)
      return
      end

      subroutine unqval(arg1)
      integer*2 arg1
      call gcmd(178)
      call sends(arg1)
      return
      end

      subroutine viewpo(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 arg2
      integer*2 arg3
      integer*2 arg4
      call gcmd(179)
      call sends(arg1)
      call sends(arg2)
      call sends(arg3)
      call sends(arg4)
      return
      end

      subroutine window(arg1,arg2,arg3,arg4,arg5,arg6)
      real arg1
      real arg2
      real arg3
      real arg4
      real arg5
      real arg6
      call gcmd(180)
      call sendf(arg1)
      call sendf(arg2)
      call sendf(arg3)
      call sendf(arg4)
      call sendf(arg5)
      call sendf(arg6)
      return
      end

      subroutine writem(arg1)
      integer*2 arg1
      call gcmd(181)
      call sends(arg1)
      return
      end

      subroutine writep(arg1,arg2)
      integer*2 arg1
      integer*2 arg2(arg1)
      call gcmd(182)
      call sends(arg1)
      call sendss(arg2,arg1)
      return
      end

      subroutine writeR(arg1,arg2,arg3,arg4)
      integer*2 arg1
      integer*2 arg2(arg1)
      integer*2 arg3(arg1)
      integer*2 arg4(arg1)
      call gcmd(183)
      call sends(arg1)
      call sendss(arg2,arg1)
      call sendss(arg3,arg1)
      call sendss(arg4,arg1)
      return
      end

      subroutine tpon()
      call gcmd(184)
      return
      end

      subroutine tpoff()
      call gcmd(185)
      return
      end

      subroutine pagewr(arg1)
      integer*2 arg1
      call gcmd(186)
      call sends(arg1)
      return
      end

      subroutine textwr(arg1)
      integer*2 arg1
      call gcmd(187)
      call sends(arg1)
      return
      end

      subroutine xgexit()
      call gcmd(188)
      return
      end

      subroutine clkon()
      call gcmd(189)
      return
      end

      subroutine clkoff()
      call gcmd(190)
      return
      end

      subroutine lampon(arg1)
      character*1 arg1
      call gcmd(191)
      call sendb(arg1)
      return
      end

      subroutine lampof(arg1)
      character*1 arg1
      call gcmd(192)
      call sendb(arg1)
      return
      end

      subroutine setbel(arg1)
      character*1 arg1
      call gcmd(193)
      call sendb(arg1)
      return
      end

      subroutine ringbe()
      call gcmd(194)
      return
      end