Trailing-Edge
-
PDP-10 Archives
-
BB-K818A-BM_1981
-
sources/bdata.for
There are no other files named bdata.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 ========================================================================
block data
integer curdx , curdy , smalld , larged
integer scf , lorng , hirng
integer cname ( 75 )
common / keypad / curdx , curdy , smalld , larged , scf , lorng ,
*hirng , cname
common / glopts / wrtopt , wrtcrv , wrtlin , wrtbox , wrtcir , wrt
*txt , txtopt , gwopsp , gwop , ttytop
integer wrtopt ( 10 ) , wrtcrv ( 10 ) , wrtlin ( 10 ) , wrtbox ( 1
*0 )
integer wrtcir ( 10 ) , wrttxt ( 10 ) , txtopt ( 6 ) , ttytop ( 6
*)
integer gwop ( 36 ) , gwopsp
C ^ should be Woplen*Maxwops
integer x1 , y1 , wid , hgt , pf
common / cboxes / x1 , y1 , wid , hgt , pf
integer centx , centy , circx , circy , arc
common / ccircl / centx , centy , circx , circy , arc
integer dollar , dotgel , gel ( 3000 ) , goflo
common / cgelly / dotgel , dollar , gel , goflo
C RSTSONLY define Maxnotz 64 # due to limited RAM on RSTS
integer notx ( 300 ) , noty ( 300 ) , nnotz
integer cpx , cpy
integer cls
common / cnotz / cpx , cpy , nnotz , notx , noty , cls
integer strx , stry
integer ti
C tch allocation pointer
integer tch ( 128 )
common / ctext / strx , stry , ti , tch
integer cmprmt ( 130 )
C prompting text
integer lin ( 80 )
C tty input buffer
integer tm
C original TM value (0 VT52, 1 ANSI)
common / ctty / tm , cmprmt , lin
data dotgel , dollar , gel ( 1 ) / 1 , 1 , 0 /
data strx , stry / 384 , 243 /
data cls / 115 /
data cpx , cpy / 384 , 240 /
data centx , centy , circx , circy , arc / 384 , 240 , 434 , 190 ,
* 360 /
data x1 , y1 , wid , hgt , pf / 364 , 220 , 40 , 40 , 0 /
data txtopt ( 1 ) / 0 /
data txtopt ( 2 ) / 1 /
data txtopt ( 3 ) / 2 /
data txtopt ( 4 ) / 0 /
data txtopt ( 5 ) / 0 /
data txtopt ( 6 ) / 0 /
data ttytop ( 1 ) , ttytop ( 2 ) , ttytop ( 3 ) , ttytop ( 4 ) , t
*tytop ( 5 ) / - 1 , - 1 , - 1 , - 1 , - 1 /
data ttytop ( 6 ) / - 1 /
data gwopsp / 1 /
data gwop ( 1 ) , gwop ( 2 ) , gwop ( 3 ) , gwop ( 4 ) , gwop ( 5
*) / - 1 , - 1 , - 1 , - 1 , - 1 /
data gwop ( 6 ) , gwop ( 7 ) , gwop ( 8 ) , gwop ( 9 ) , gwop ( 10
* ) / - 1 , - 1 , - 1 , - 1 , - 1 /
data wrtopt ( 1 ) / 3 /
data wrtopt ( 2 ) / 0 /
data wrtopt ( 3 ) / 257 /
data wrtopt ( 4 ) / 2 /
data wrtopt ( 5 ) / 0 /
data wrtopt ( 6 ) / 0 /
data wrtopt ( 7 ) / 1 /
data wrtopt ( 8 ) / 0 /
data wrtopt ( 9 ) / 7 /
data wrtopt ( 10 ) / 0 /
data smalld , larged / 1 , 25 /
data cmprmt ( 1 ) / 0 /
end