Trailing-Edge
-
PDP-10 Archives
-
BB-K818A-BM_1981
-
sources/pgkeys.for
There are no other files named pgkeys.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 pgkeys ( noargs )
integer noargs
integer i
C slist psti
C string pc \34\34\34\r
C string + \34\34\r
C string + \34\35\r
C string + \34\36\r
C string + \34\37\r
C string + \35\34\r
C string + \35\35\r
C string + \35\36\r
C string + \35\37\r
C string + \36\34\r
C string + \37\37\37\r
C string + \36\35\r
C string + \36\36\r
C string + \36\37\r
C string + \37\34\r
C string + \37\35\r
C string + \37\36\r
C string + \37\37\r
C string + \34\r
C string + \35\r
C string + \36\r
C string + \37\r
C elist psti
integer psti ( 22 )
integer pc ( 86 )
data pc ( 1 ) , pc ( 2 ) , pc ( 3 ) , pc ( 4 ) , pc ( 5 ) / 28 , 2
*8 , 28 , 13 , 0 /
data pc ( 6 ) , pc ( 7 ) , pc ( 8 ) , pc ( 9 ) , pc ( 10 ) / 28 ,
*28 , 13 , 0 , 28 /
data pc ( 11 ) , pc ( 12 ) , pc ( 13 ) , pc ( 14 ) , pc ( 15 ) / 2
*9 , 13 , 0 , 28 , 30 /
data pc ( 16 ) , pc ( 17 ) , pc ( 18 ) , pc ( 19 ) , pc ( 20 ) / 1
*3 , 0 , 28 , 31 , 13 /
data pc ( 21 ) , pc ( 22 ) , pc ( 23 ) , pc ( 24 ) , pc ( 25 ) / 0
* , 29 , 28 , 13 , 0 /
data pc ( 26 ) , pc ( 27 ) , pc ( 28 ) , pc ( 29 ) , pc ( 30 ) / 2
*9 , 29 , 13 , 0 , 29 /
data pc ( 31 ) , pc ( 32 ) , pc ( 33 ) , pc ( 34 ) , pc ( 35 ) / 3
*0 , 13 , 0 , 29 , 31 /
data pc ( 36 ) , pc ( 37 ) , pc ( 38 ) , pc ( 39 ) , pc ( 40 ) / 1
*3 , 0 , 30 , 28 , 13 /
data pc ( 41 ) , pc ( 42 ) , pc ( 43 ) , pc ( 44 ) , pc ( 45 ) / 0
* , 31 , 31 , 31 , 13 /
data pc ( 46 ) , pc ( 47 ) , pc ( 48 ) , pc ( 49 ) , pc ( 50 ) / 0
* , 30 , 29 , 13 , 0 /
data pc ( 51 ) , pc ( 52 ) , pc ( 53 ) , pc ( 54 ) , pc ( 55 ) / 3
*0 , 30 , 13 , 0 , 30 /
data pc ( 56 ) , pc ( 57 ) , pc ( 58 ) , pc ( 59 ) , pc ( 60 ) / 3
*1 , 13 , 0 , 31 , 28 /
data pc ( 61 ) , pc ( 62 ) , pc ( 63 ) , pc ( 64 ) , pc ( 65 ) / 1
*3 , 0 , 31 , 29 , 13 /
data pc ( 66 ) , pc ( 67 ) , pc ( 68 ) , pc ( 69 ) , pc ( 70 ) / 0
* , 31 , 30 , 13 , 0 /
data pc ( 71 ) , pc ( 72 ) , pc ( 73 ) , pc ( 74 ) , pc ( 75 ) / 3
*1 , 31 , 13 , 0 , 28 /
data pc ( 76 ) , pc ( 77 ) , pc ( 78 ) , pc ( 79 ) , pc ( 80 ) / 1
*3 , 0 , 29 , 13 , 0 /
data pc ( 81 ) , pc ( 82 ) , pc ( 83 ) , pc ( 84 ) , pc ( 85 ) / 3
*0 , 13 , 0 , 31 , 13 /
data pc ( 86 ) / 0 /
data psti ( 1 ) , psti ( 2 ) , psti ( 3 ) , psti ( 4 ) , psti ( 5
*) / 1 , 6 , 10 , 14 , 18 /
data psti ( 6 ) , psti ( 7 ) , psti ( 8 ) , psti ( 9 ) , psti ( 10
* ) / 22 , 26 , 30 , 34 , 38 /
data psti ( 11 ) , psti ( 12 ) , psti ( 13 ) , psti ( 14 ) , psti
*( 15 ) / 42 , 47 , 51 , 55 , 59 /
data psti ( 16 ) , psti ( 17 ) , psti ( 18 ) , psti ( 19 ) , psti
*( 20 ) / 63 , 67 , 71 , 75 , 78 /
data psti ( 21 ) , psti ( 22 ) / 81 , 84 /
continue
i = 1
23000 if(.not.(i.le.22))goto 23002
call prokey ( i - 1 , pc ( psti ( i ) ) )
23001 i=i+1
goto 23000
23002 continue
pgkeys = 0
return
end