Google
 

Trailing-Edge - PDP-10 Archives - BB-K818A-BM_1981 - sources/prompt.for
There are no other files named prompt.for in the archive.
C  Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C operating-system-dependent switches
C  Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C 
C 
C   			C O P Y R I G H T
C 
C 
C   		Copyright (C) 1980 by
C   		Digital Equipment Corporation, Maynard, Mass.
C 
C 
C   	This software is furnished under a license and may be used and
C   	copied  only  in accordance with the terms of such license and
C   	with the  inclusion  of  the  above  copyright  notice.   This
C   	software  or  any  other copies thereof may not be provided or
C   	otherwise made available to any other person.  No title to and
C   	ownership of the software is hereby transferred.
C 
C   	The information in this software is subject to change  without
C   	notice  and should not be construed as a commitment by Digital
C   	Equipment Corporation.
C 
C   	DIGITAL assumes no responsibility for the use  or  reliability
C   	of its software on equipment that is not supplied by DIGITAL.
C 
C 	define char byte
C  27+128
C  w(riting) opt(ion)s come groups of 8:
C 	(1) replace(0)/erase(1)/complement(2)/overlay(3)
C 	(2) negative image 0/1
C 	(3) pattern  < 256	bit mask (e.g. 192 = P11000000)
C 		    >= 256	canned pattern * 256 (e.g. 512 = P2)
C 				if value >= 256, low 8 bits are ignored
C 	(4) pattern multiplier, different from 6(?)
C 	(5) shading flag, sim pattern+ >= 10 use char
C 	(6) if shading != 0 this is y reference val
C 	(7) pixel multiplier, 1 <= value <= 10
C 	(8) alternating 0/1
C 	(9) foreground intensity, 0 <= value <= 7
C 	(10) background intensity, 0 <= value <= 7
C 
C   offsets from gwopsp...
C   Inktypes...
C   Inkolors...
C Text options
C 	RSTSONLY	define Maxgels 1000	# due to limited RAM on RSTS
C   drawing primitive gels...
C   attribute/marker/other gels...
C   writing attribute gels : Woptbase + wopindex
C   similarly topts...
C maximum # of characters in a filespec
C maximum # of characters in a command line
C max length of prompt buffer
C max number of characters in file record
C size of record buffers (Fbufsz + 1)
C 	include logdef
C ========================================================================
C ========================================================================
      integer function prompt ( str1 , str2 )
      integer str1 ( 1 ) , str2 ( 1 )
      integer strlen
      integer l
C string op1 \np(b)
C string opn t(b,a0,i0,d0,s2,h2)'
C string cls '(e)p(e)
      integer op1 ( 6 )
      integer opn ( 21 )
      integer cls ( 9 )
      data op1 ( 1 ) , op1 ( 2 ) , op1 ( 3 ) , op1 ( 4 ) , op1 ( 5 ) / 1
     *0 , 112 , 40 , 98 , 41 /
      data op1 ( 6 ) / 0 /
      data opn ( 1 ) , opn ( 2 ) , opn ( 3 ) , opn ( 4 ) , opn ( 5 ) / 1
     *16 , 40 , 98 , 44 , 97 /
      data opn ( 6 ) , opn ( 7 ) , opn ( 8 ) , opn ( 9 ) , opn ( 10 ) / 
     *48 , 44 , 105 , 48 , 44 /
      data opn ( 11 ) , opn ( 12 ) , opn ( 13 ) , opn ( 14 ) , opn ( 15 
     *) / 100 , 48 , 44 , 115 , 50 /
      data opn ( 16 ) , opn ( 17 ) , opn ( 18 ) , opn ( 19 ) , opn ( 20 
     *) / 44 , 104 , 50 , 41 , 39 /
      data opn ( 21 ) / 0 /
      data cls ( 1 ) , cls ( 2 ) , cls ( 3 ) , cls ( 4 ) , cls ( 5 ) / 3
     *9 , 40 , 101 , 41 , 112 /
      data cls ( 6 ) , cls ( 7 ) , cls ( 8 ) , cls ( 9 ) / 40 , 101 , 41
     * , 0 /
      l = strlen ( str1 ) + strlen ( str2 ) - 1
      call defmac ( 80 )
      call putcha ( op1 )
      call abspos ( 384 - 9 * l , 10 )
      call putcha ( opn )
      call putcha ( str1 )
      call putc ( 32 )
      call putcha ( str2 )
      call putcha ( cls )
      call fedmac ( 80 )
      prompt = 0
      return
      end