Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0118/skim.rel
There is 1 other file named skim.rel in the archive. Click here to see a list.
 (R0(R@	"D"A    B    C    D    E    F    	G    	H    
I    "
J    K    L    	 !K"_|^,!y"2`(	 *!t"<y`"R`P "9d-~`v
tX
'2A20"5p(yrX"X0#"Up$+CK T@GU	/LL IOTA(1)'//)(T20,'CALL IOTA(0)',//1X,'RETURNS THE NUMBER 	 OF TICKS THAT HAVE OCCURRED:'//)(1X,T25,I5/)(//1X,'NEXT WE''LL SCALE THE SCREEN	 & WITH,'//T20,'CALL SCALE(0.,1023.,0.,1023.)'//)(//1X,'AND LAYOUT OUR BOOK'/)(1X,'	 /USING,',//T20,'CALL LAYOUT(15,72,20,30',',2,20,1,100,5,10,0)'//)(1X,'THIS CREATES A 	 7BOOK CONSISTING OF:'//T20,'15 LINES OF SCROLLING 72 CHARACTERS LONG',/T20,'20 PICTURE	 @S, 30 LINES LONG',/T20,'2 FIGURES, 20 LINES LONG',/T20,'1 GRAPH, 100 LINES LONG',/T20	 H,'5 TABLES, 10 LINES LONG, WITH ENGLISH CHARACTERS'//)(1X,'AN 8K GT40 HAS ROOM FOR A	 Q BOOK 6000 INCHES LONG',/1X,'EACH LINE OF SCROLLING REQUIRES 44 INCHES',/1X,'EACH PIC	 YTURE LINE TAKES 3 INCHES',/1X,'ALL OTHER LINES TAKE 1 INCH EACH',/1X,'THE MARGIN BETW	 bEEN EACH PAGE TAKES 3 INCHES',/1X,'AND EACH INDEX ENTRY (1 FOR EACH PAGE), TAKES 2 IN	 jCHES'//)(1X,'INITIALLY PAGE 0 OF EACH PAGE TYPE IS OPEN',/1X,'AND EACH PAGE''S MARK	 sER POINTS TO LINE 0'//)(1X,'IF WE DRAW AN ABSOLUTE POINT,'//T20,'CALL DOT(100.,100.	 {)'//)(1X,'IT WILL ENTER PICTURE 0, LINE 0'//)(1X,'THE MARKER FOR THAT PAGE WILL AUTOM	 ATICALLY POINT',/' TO LINE 1'/)(/1X,'TO RESET THE MARKER TO THE START OF THE PAGE	 
,'//T20,'CALL MARKP(0)'//)(1X,'IF WE THEN,',//T20,'CALL BITS(1,3,3,0)',//1X,'WHIC	 H SETS THE MODE OF THE PICTURE ENTRY TO:',//T20,'BLINK',/T20,'INTENSITY 3',/T20,'DOTD	 ASH',/T20,'NON-LIGHT PEN SENSISTIVE,',///)(1X,'WE CAN REPLACE THE DOT'' WITH A VEC	 &TOR OF THESE MODES USING,',//T20,'CALL VECTOR(200.,200.)'//)(1X,'TO CHANGE THE MODE O	 .F FUTURE GRAPHICS TO'/,1X,'NON-BLINK, INTENSITY 5, SOLID, ','LIGHT PEN SENSITIVE,'//T	 720,'CALL BITS(0,5,0,1)'//)(1X,'IF WE ISSUE A,'//T20,'CALL VECFIG(0,0)'//)(1X,'	 ?THIS SUB-PAGE CALL TO FIGURE 0 STARTING AT LINE 0',/1X,'WILL TAKE ON THESE MODES'//)	 H(1X,'THEREFORE, ANYTHING WE DRAW IN FIGURE 0',/1X,'WILL RESPOND TO LIGHT PEN HITS'//)	 P(T20,'CALL NOJOT(-40.,0.)',//1X,'DRAWS AN INVISIBLE JOT IN FIGURE 0'//)(T20,'CALL	 Y ARC(80.,20,6.28,0.,.75)',//1X,'DRAWS AN ELLIPSE OF DIAMETER 80., WITH 20 SIDES,'1X,'	 aA FULL 360 DEGREE ARC,',/1X,'TILTED 0 DEGREES FROM THE HORIZONTAL,'/1X,'WITH ITS Y DI	 jAMETER 75 PERCENT OF ITS X DIAMETER'///)(1X,'THE COORDINATES OF A LIGHT PEN HIT ON TH	 rIS ELLIPSE',/1X,'WILL AUTOMATICALLY ENTER THE VECTOR IN PICTURE 0, LINE 0',/1X,'MOVIN	 {G IT AND, WITH IT, ALL THE NON-ABSOLUTE GRAPHICS',' THAT FOLLOW IT',//1X,'TRY HITTING	  IT WITH THE LIGHT PEN'//)(T20,'CALL LINEX(0,0)',//1X,'WILL RETURN THE X COORDINA	 
TE OF PICTURE 0, LINE 0',//1X,'AS THE ELLIPSE MOVES, WE CAN LIST ''THE X COORDINATE O	 F ITS CENTER:',//)(///T20,'CALL SET(400.,350.)'//1X,'WILL DRAW AN INVISIBLE ABSOLUT	 E POINT',/1X,'WHICH NEVER MOVES'//)(1X,'NOW WE CAN,'//T20,'CALL TEXT (10,IARRAY)'//1X	 %,'WHICH WRITES 10 CHARACTERS FROM IARRAY INTO THE OPEN',' TABLE'//)(T20,'CALL TABL	 .E (0,0)',//1X,'DISPLAYS THEM, ALWAYS AS ITALICS'//)(1X,'USING THE CALL SET AND CA	 6LL TABLE,'/1X,'WE CAN DISPLAY THIS TABLE FROM MANY PLACES ON THE SCREEN,'/1X,'STARTIN	 ?G FROM ANY LINE IN THE TABLE'//)(T20,'CALL MARKT(8)',//1X,'WILL POINT TABLE 0''S M	 GARKER TO CHARACTER 8',/)(1X,'AND,'//T20,'CALL TEXT(1,''+'')',//1X,'WILL CHANGE THAT 	 PCHARACTER TO "+"',/)(1X,'WE CAN EXTEND THE TABLE BY CONTINUING TO',' WRITE IN IT'//)	 X(1X,'TO DRAW A GRAPH, WE''LL FIRST SET THE INCREMENT'/,' TO 20 USING,'//T20,'CALL PLO	 aT(-20)',//)(1X,'THEN PLOT A FEW POINTS WITH,',//T20,'CALL PLOT(N)',//)(1X,'AND D	 iISPLAY IT ALONG THE X AXIS WITH,',//T20,'CALL XGRAPH(0,0)',//)(1X,'CHANGING THE IN	 rCREMENT,'/)(1X,'AFFECTS ALL THE POINTS'//)(1X,'SINCE WE NEVER CHANGED MODES,'	 z,/1X,'THE TABLE AND THE GRAPH WILL RESPOND TO THE LIGHT PEN'//1X,'TRY TOUCHING THE LI	 GHT PEN TO THE CHARACTERS'/)(1X,'THE COORDINATES IN PICTURE 0, LINE 0 WILL CHANGE'/	 /1X,'PICTURE BOOK WILL ALSO SAVE THE PICTURE NUMBER AND LINE',/1X,'OF THE LAST LIGHT 	 PEN HIT'//)(T20,'CALL HIT(N,M)',//1X,'RETURNS THESE VALUES:'//)(//1X,'NOW LET'	 'S DISABLE THE LIGHT PEN FOR FUTURE',' GRAPHICS WITH,'//T20,'CALL BITS(0,4,0,1)',//)	 %(1X,'AND ISSUE A CALL TO PICTURE 5, LINE 3 USING,'//T20,'CALL PICTURE (5,3)',//)(1X,'	 -NOW IF WE OPEN THIS PAGE:',//T20,'CALL OPENP(5)',//)(1X,'AND SET ITS MARKER TO 3 W	 6ITH,',//T20,'CALL MARKP(3)',//)(1X,'A VECTOR WE DRAW USING,'//T20,'CALL VECTOR(10	 >0.,0.)',//)(1X,'WILL DISPLAY',///1X,'IF WE CONTINUALLY RESET THE MARKER TO LINE 3	 G,'/1X,'AND REDRAW THE VECTOR,'//)(1X,'WE CAN ALTER ITS LENGTH AND DIRECTION',//)	 O(1X,'WE CAN ERASE PICTURE 5 BY SETTING THE MARKER TO 3',' AND ISSUING,'//T20,'CALL ER	 XASEP'//)(1X,'SIMILARLY WE CAN ERASE THE TABLE,'/)(1X,'THE GRAPH,'/)(1X,'AND T	 `HE FIGURE',/)(1X,'TO ERASE PICTURE 0, WE OPEN IT WITH,',//T20,'CALL OPENP(0)',//)	 i(1X,'MARK IT WITH,',//T20,'CALL MARKP(0)',//)(1X,'THEN,'//T20,'CALL ERASEP',//)(1X,'	 qNOW LET''S STOP THE CLOCK:',//T20,'CALL IOTA(-1)'//)(1X,'TO RESET THE BOOK TO ITS 	 zORIGINAL CONFIGURATION,'//T20,'CALL THEEND',//)(1X,'THE BOOK NOW SCROLLS 30 LINES,	 '/1X,'HAS 1 FIGURE, 1 GRAPH, AND 1 TABLE EACH 1 LINE LONG',/1X,'AND ENOUGH 100 LINE P	 ICTURES',/1X,'TO FILL THE REMAINING INCHES'//)(1X,'THE PICTURE BOOK MANUAL DESCRI	 BES THE SUBROUTINES',' WE HAVE USED',/1X,'AS WELL AS THE OTHERS AVAILABLE'//)(1X,' NOW WE''LL START AGAIN FROM,'///)	 
@
+ -< <, <, 3_DZD
 <, <,:
; +	 U  <,, 0_DZD
 <,:
; + 5_DZD
 <,:
*; + <,	D"e5$J`sJegR'GbP_"bP_"`20J	` R	bP_"
bP_"	  <, <,, <, <, <,, <, 5 <,	D"`&.}`$3_`20J` R`&.}`$3_`20J` R`$3_	( @ <, <,*d <, <,, <, <,, < $,	D"`&.}`20Jc_<F
`$3`20J ` R `$3!`20J"` R# $ <, <,, <, <,, <, <,,	D"`$3$d .%`20J&` R&`$3'`20J(` R)`$3*`20J+ , <, <,, <, <,, <, <, <,	D"` R+`$3,`20J-` R.`$3/`20J0` R0`[C1`$32 4, <, <,, <, <,, <, <,	D"`20J3` R4`$35`20J6` R6`$37`20J8` R9``1: ; <,, <, <, <,, <, <, <,	D"`$3;`20J<` R<`3F=`$3>`20J?` R@fNaBA`$3B C, <, <, <,, <, <, <,,	D"`20JC` RC`3FD`$3E`20JF` RGfN	H`$3I`20JJ K <, <,, <, <,, <, <, <,	D"` RJ`$3K`20JL` RM`$3N`20JO` RO`kP`$3Q S, <, <, <, <,, <, <,,	D"`20JR` RS`$3T`IU`$3V`20JW` RW`$3X`20JY	 AZ <, 2 <, @ <, <,*d\ <, <,, < c, <,	D"` RZ`$3[`
_`$3_``20Ja` Rb`7[c d <,, <, <, <,, <, <, <,	D"`$3_d`20Je` Re`;/f`$3_g`20Jh` Ri`=l?j`$3_k	 l, <, <, <, <, <, <, <, <,	D"`20Jl` Rl`$3_m`7[n`=l?o`$3_p`7[q`=l?r`$3_s u <, <, <,, <, <, <,, <,	D"`7[t`=l?u`$3_v`20Jw` Rx``3y`$3_z`20J{` R{	 (} <, <, <,, <,"& $ F D
 $ D <,*@:
; + <, <,,	D"`$3_|`;/}`$3_~`20J` R`$3_`;/`$3_`20J	 P
	 <, <, <,,"& $ F D
 <, $.d
; +  <, <,, <,	D"` R	`3qC
`$3_`20J
` R
`3qC`$3_`20J` R	 
P* <, <,,"&Z $
 F D
"
 F <,:
; + < ,, <, <,,	D"fHq0q`$3_`20J` R`3qC`20J` R`$3_`20J  ! <, <,, <, <,, <, <, <,	D"` R!`$3_"`20J#` R#`$3_$`20J%` R&`sK'`20J( ) <, <,, <, <, <,, <, <,	D"c_<F
)`$3_*`20J+` R+`3F,`$3_-`20J.` R/eI":0 1 <,, <, <, <,, <, <, <,	D"`$3_1`20J2` R2`TUM3`$3_4`20J5` R6``17`$3_8	 P(9, <, <, <,, +_D
ZD
 <,d
 D  <,"DB / @d
$  D! <, H @  <,	D"`20J9` R9fNaB:`$3_;`20J<` R=``1?bfA`9LRE	*@G:
; 
+? <,, <, <,, <, <, <, P <,	D"fNaBG`20JI` RJ`$3_K`20JL` RL`$3_M``1Nb=5YO Q <,, <, <, <O, <,, <, <,	D"`$3_P`20JQ` RR`$3_S``3Tb=5[U`20JV` RV`$3_W(@Y <T, <,, <, <, <Y, <, <,,	D"``,Xb=5TY`20JZ` R[`$3_\``,]b=5T^`$3__`20J` a <, <, <,, <, <, <,, <,	D"` R``TUMa`$3_b`20Jc` Rd``1e`$3_f`20Jg` Rg @i <, <], <, <,, <, <,, <,	D"`TUMh`$3_ib=5Yj`$3_k`20Jl` Rm`$3_n`20Jo` Ro(q <j, <, <, <,, <, <,, <,	D"`$3_pegR'Gq`&.}r`$3_s`20Jt` Ru`$3_v`20Jw` Rw	 ""y <,, <,+ <q, <|,x3x)x	(D"#x&x#x3x-x&x1x!x1"D 
x!x&x!x&x!x1x!@	@T~@,@@\@4@$@@\@4@@@\	@L
@$@
@l@<	"D"x1x!x1x1x%x3x-x!x	(QQ p x%x6p&"x6x%x6""x(x-@	@@t@<@,@@d@T@,@L@@l@t@4@$@|@l @D!@4"	"D*D($p(%x6`!'!#x)px3	"Q,x4x6xx0p!!x)x
x6""5x1x3p#x&@	@
#@|$@T&@D'@)@l*@D,@-@t.@4/@\0@L1@$2@t3@,4@5@t6@L7	""
9x3p#9x0x-x)x0p!(p	*"D(B*'x-p!'p8'x-p!$p7(D(@J,x-x-p!!x)@	@
9@d:@T;@D<@=@
>@d?@T@@DB@4C@$D@F@G@0p.5x)p!!x0x)	"(D(Xx-X*16".x&x-p%"x-""`x-x3p!!x4`!@	@
tO@
dP@
<Q@
,R@
T@DU@,V@W@
\X@
LY@
<\@
]@
^@	\`@	4a@	
b@|c@Td	*D(E(f(!#x4p**x+`#%%!x4	"Qnx!x3x)x&p&&x)x/x#	"*U"wx&(/816$1#4(,!x&x(@-x&@	@De@h@
i@dj@Tk@,n@o@tp@Lq@$r@s@lt@Du@v@tw@Lx@<~@	"D(x!x&x-x#x7x#p#!p"	(Q"T	!p"#p!#`"$"$X
@T
@
@D@|@D@T@|	 @!+X.X5X	 @)NXk
Xu	 2X|XX	 :XX"
X	( C,X:X?	X	" KHXPXXX @TnX@	@$ @\#@&@,)@T,@|/@42@\5@8@<;@t>@,A@dD@	G@	DJ@	lM@
$P@
lS	 @WX!$X	( _
X 
X,X	" h3XBXJX	 @pRXX
XbX	 @yhXpXs	 XwXX 
X@	@V@\Y@l\@
^@
La@tj@,m@tp@s@<v@4y@l|@\@@,@T	 A !$$X
X	" %X-X3X	 @9X@
XJX	 @%O	XYX]	 -X_XbXi	 6XmXqX(>wX@	@|@
@,@d@@T@
@D@"@<%@(@\+@$.@|1@44@l7@D:@l= @@XX	D"`$3_x`20Jy` Rz`$3_{`<:|`	WJ}

	D"P8P7P7P6P6P5P5P4W8m	D"PH
	
	qGC'y9#P n
s	D"%3C29a Ko
_	{u
	D"3/@k?38{Q 78Sq{a3	D"W>8gR #p?]lC53C	D"8S^ 5+{9GIw2s/kv	D"8?T{q
5s{%2_=W43S\	D"g2
!p{-sC53?YSr	D"o5hz}#-:s/s3+U?s[	D"!b-K[63\S/G{	7{s92GS)= ,g
	D"##{_p23Xov),S4${K:2Y	D"[&,?{{7;-3\Gwn'S
	D"g&{#<-P3#"-]x
)mP'+^3~	D"
iS)zg>,cM`%u
u&	D"'c' Mq
a|!3&D	D"9bUu!(	D"?J&CAF8 ((H: $30$3@  @H	" DQ>d@ \ p @ <, @ <, @"&t$/& $.$8& ((P"3d+ &.F ($".3&+ ,~xx	D"$3`&.}`&.}


0KP4		D"	qG+
o[G
@<@$((