PDP-10 Archive: decus/20-0118/skim.exe from decuslib20-04

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0118/skim.exe

There is 1 other file named skim.exe in the archive. Click here to see a list.

?p0@?hXj?x "

<++2	`~9@QPPj2PH(A    B    C    D    E    F    G    H    I    J    K    L    ('+','"SKIMMING"',//T21,'A LOOK AT PICTURE BOOK')(1X,'FIRST LET''S START THE CLOCK TICKING USING,'//,T20,'CALL 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 BOOK CONSISTING OF:'//T20,'15 LINES OF SCROLLING 72 CHARACTERS LONG',/T20,'20 PICTURES, 30 LINES LONG',/T20,'2 FIGURES, 20 LINES LONG',/T20,'1 GRAPH, 100 LINES LONG',/T20,'5 TABLES, 10 LINES LONG, WITH ENGLISH CHARACTERS'//)(1X,'AN 8K GT40 HAS ROOM FOR A BOOK 6000 INCHES LONG',/1X,'EACH LINE OF SCROLLING REQUIRES 44 INCHES',/1X,'EACH PICTURE LINE TAKES 3 INCHES',/1X,'ALL OTHER LINES TAKE 1 INCH EACH',/1X,'THE MARGIN BETWEEN EACH PAGE TAKES 3 INCHES',/1X,'AND EACH INDEX ENTRY (1 FOR EACH PAGE), TAKES 2 INCHES'//)(1X,'INITIALLY PAGE 0 OF EACH PAGE TYPE IS OPEN',/1X,'AND EACH PAGE''S MARKER 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 AUTOMATICALLY 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,'WHICH SETS THE MODE OF THE PICTURE ENTRY TO:',//T20,'BLINK',/T20,'INTENSITY 3',/T20,'DOTDASH',/T20,'NON-LIGHT PEN SENSISTIVE,',///)(1X,'WE CAN REPLACE THE DOT'' WITH A VECTOR OF THESE MODES USING,',//T20,'CALL VECTOR(200.,200.)'//)(1X,'TO CHANGE THE MODE OF FUTURE GRAPHICS TO'/,1X,'NON-BLINK, INTENSITY 5, SOLID, ','LIGHT PEN SENSITIVE,'//T20,'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'//)(1X,'THEREFORE, ANYTHING WE DRAW IN FIGURE 0',/1X,'WILL RESPOND TO LIGHT PEN HITS'//)(T20,'CALL NOJOT(-40.,0.)',//1X,'DRAWS AN INVISIBLE JOT IN FIGURE 0'//)(T20,'CALL ARC(80.,20,6.28,0.,.75)',//1X,'DRAWS AN ELLIPSE OF DIAMETER 80., WITH 20 SIDES,'1X,'A FULL 360 DEGREE ARC,',/1X,'TILTED 0 DEGREES FROM THE HORIZONTAL,'/1X,'WITH ITS Y DIAMETER 75 PERCENT OF ITS X DIAMETER'///)(1X,'THE COORDINATES OF A LIGHT PEN HIT ON THIS ELLIPSE',/1X,'WILL AUTOMATICALLY ENTER THE VECTOR IN PICTURE 0, LINE 0',/1X,'MOVING 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 COORDINATE OF PICTURE 0, LINE 0',//1X,'AS THE ELLIPSE MOVES, WE CAN LIST ''THE X COORDINATE OF ITS CENTER:',//)(///T20,'CALL SET(400.,350.)'//1X,'WILL DRAW AN INVISIBLE ABSOLUTE 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 TABLE (0,0)',//1X,'DISPLAYS THEM, ALWAYS AS ITALICS'//)(1X,'USING THE CALL SET AND CALL TABLE,'/1X,'WE CAN DISPLAY THIS TABLE FROM MANY PLACES ON THE SCREEN,'/1X,'STARTING FROM ANY LINE IN THE TABLE'//)(T20,'CALL MARKT(8)',//1X,'WILL POINT TABLE 0''S MARKER TO CHARACTER 8',/)(1X,'AND,'//T20,'CALL TEXT(1,''+'')',//1X,'WILL CHANGE THAT CHARACTER TO "+"',/)(1X,'WE CAN EXTEND THE TABLE BY CONTINUING TO',' WRITE IN IT'//)(1X,'TO DRAW A GRAPH, WE''LL FIRST SET THE INCREMENT'/,' TO 20 USING,'//T20,'CALL PLOT(-20)',//)(1X,'THEN PLOT A FEW POINTS WITH,',//T20,'CALL PLOT(N)',//)(1X,'AND DISPLAY IT ALONG THE X AXIS WITH,',//T20,'CALL XGRAPH(0,0)',//)(1X,'CHANGING THE INCREMENT,'/)(1X,'AFFECTS ALL THE POINTS'//)(1X,'SINCE WE NEVER CHANGED MODES,',/1X,'THE TABLE AND THE GRAPH WILL RESPOND TO THE LIGHT PEN'//1X,'TRY TOUCHING THE LIGHT 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 WITH,',//T20,'CALL MARKP(3)',//)(1X,'A VECTOR WE DRAW USING,'//T20,'CALL VECTOR(100.,0.)',//)(1X,'WILL DISPLAY',///1X,'IF WE CONTINUALLY RESET THE MARKER TO LINE 3,'/1X,'AND REDRAW THE VECTOR,'//)(1X,'WE CAN ALTER ITS LENGTH AND DIRECTION',//)(1X,'WE CAN ERASE PICTURE 5 BY SETTING THE MARKER TO 3',' AND ISSUING,'//T20,'CALL ERASEP'//)(1X,'SIMILARLY WE CAN ERASE THE TABLE,'/)(1X,'THE GRAPH,'/)(1X,'AND THE FIGURE',/)(1X,'TO ERASE PICTURE 0, WE OPEN IT WITH,',//T20,'CALL OPENP(0)',//)(1X,'MARK IT WITH,',//T20,'CALL MARKP(0)',//)(1X,'THEN,'//T20,'CALL ERASEP',//)(1X,'NOW LET''S STOP THE CLOCK:',//T20,'CALL IOTA(-1)'//)(1X,'TO RESET THE BOOK TO ITS ORIGINAL 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 PICTURES',/1X,'TO FILL THE REMAINING INCHES'//)(1X,'THE PICTURE BOOK MANUAL DESCRIBES THE SUBROUTINES',' WE HAVE USED',/1X,'AS WELL AS THE OTHERS AVAILABLE'//)(1X,'NOW WE''LL START AGAIN FROM,'///)K"|^,!y"2`(!t"<y`"R`P "9d-~`v
tX
<20"5pbyrX"X0#"Up$+ +Z-<-b<w,	W5<h,eD4ZD< <q,	b:<; 4+y <p,
*d <j,	7 <,, <i,	7 <
,, <h,	7 <b,
T<, <a,	7 <,, <`,	7 <,, <,	7 <,, <^,	7 <,, <],

 <\,	7 <,, <[,	7 <,, <Z,	7 <",, <Y, <X,	7 <%,, <U,L <T,	7 <(,, <S,

 <R,	7 <+,, <O,L <N,	7 <.,, <M,e <L,	7 <1,, <K,	7 <4,, <J,	7 <7,, <H,

J <G,	7 <:,, <F,	7 <C,
 <B,	7,<=,, <A,	7 <@,, <@,	7 b <?,
*dF <>,	7 <H,, <<,

* <;,	7 <K,, <:,

f <9,	7 <N,, <7,} <6,	7 <Q,, <5,	7 <4,

* <2,} <1,	7 <0,

* <.,} <-,	7 <,,

* <*,} <),	7 <T,, <(," <',	7 <W,, <&,	7 <%,

f <$,	7 <Z,, <#,	7"& $ F3 D< $5 DO <!,

f:<; 3+m < ,	7 <],, <,

X <,	7 <`,,"& $ F2 D< <,

X $.d<; 2+y <,	7 <c,, <,q <,	7 <f,,"&Z $
 F2 D<"< FO <,

X:<;2+,<i,, <,	7 <l,, <,	7 <o,, <,	7 <r,, <,
,<,	7,<z,, <,L <,	7 <},, <,Y <

,
{ <,	7 <	,, <
, <	,	7 <	,, <,

 <,	7 <		,, [_D<ZD< <,d< DP <,] / @Od<$  DQ <, H @P <,

:<; <+) <

,, <,	7 <	,, <,	7 <, <h,, <~,	7 <	,, <},	7 <|," <h,B <	,, <{,	7 <z, <h,; <	,, <y,	7 <x, <h,3 <w,	7 <	,, <v,
{ <u,	7 <	,, <t, <s,	7 <	!,, <r,
{ <q,	7 <h,,,<p,	7,<	$,,,<o,	7,<	',,,<n,	7,<h,l <h,G <h,

xcxYxSxVxSxcx]xVxaxQxaxQxVxQxVxQxaxQxaxQxaxaxUxcx]xQxPpOPxUxfpVRxfxUxfxXx]pXUxf`QWQSxYp01xcxdxfxOx`pQQxYx<xfxaxcpSOxVxcpSix`x]xYx`pQXpZWx]pQWphWx]pQTpg\x]x]pQQxYp\6x`p^exYpQQx`xYx]XZafR^xVx]pURx]x]xcpQQxd`QXQSxdpZZx[`SUUQxdxQxcxYxVpVVxYx_xSxV(_hafTaSdX\QxVx]xVxQxVx]xSxgxSpSQpRQpRSpQS`RTRTX=XBXIXQ$1XSX[X^XeX~X
X%X,X0X7X?XR
X\XjXo	XxXXXX6XQ$1XF
XP

X\XcXrXzXX
XXX X#X'X6XEXQ$0$1XK
XUX]XcXiXp
XzX	X	XX!X'X/X@XKQ>d@ \	5 p @	3 <	G,

 D	`+	u $

 D	` <	w,	G 	a,~x	`x	`_&oCJ \
 p @	 p B
 p D	y p F	| 	p H	~ @	{ B
 D	z F
 	{F F	{4B
94D
9j
 D
 <
E, F
 <
D, 	{ F	~@f
 F	{"

 F	#
" $ F
 D
 <
C,	{ @
 <
B,	{	~	R	S @	| 	| 
 D
 <
A,J @
 <
@, @
 

 D
 <
?, 

 D	} 

 F
 <
>, 
	~ F	z
 D	}	{ F
 <
<,

: 	} D
 	z D	{"
D	:
; 
+
 
 
 Ap 	~ Ap,~p	}
x
x
p	|
x
x	x	x
x
YM}: \
O Z
O X
N V
N T
M R
M P
L N
R L
R J
Q H
Q F
P D
P p @
I p B
G p D
L p F
K 	p H
J p J
I L
H p N
F p P
K p R
G p T
J 6' V	L @	M76
G.6( V	M D	N F	N H	O J	O L	P N	P P	Q R	Q T	R <
x,
w,
O 
P 
P 
Q 

Q


R 
R 
L 
M 
M 
N 
N 
O 
H,~x
Hx
S_B-l \
z p @
y $( D	L @	M <,
z,~x
z[< \ p @ $& D	L @	M <

,DD@,~x[9@\@p$@LD	L%@	ML<,),J p FI (!,H	L,@	M B	M D	N F	N <V,

, |,~x|"|mKy \

p @

p B

 $+ D	L

	RD D	M

	SD D	M <

,~x

	"_|I?  \

p @

p B

 $" D	L

	RD D	M

	SD D	M <

&,

,~x

"_|g  \

( p @

' p B

' $) D	L

'	S

(	RD D	M

'	T

(	SD D	M <

6,

(,~x

)"_|U?  \

8 p @

8 p B

7 $% D	L

9	RD D	M

9	SD D	M <

F,

8,~x

9"_|]>U} \

H p @

G p B

G $' D	L

H	RD D	M

H	SD D	M <

U,

H,~x

Ia2~@ \

W p @

V $- D	L @	M <

W,

V:

W,~x

W('+',100A1)(iF@ \

c p @

` !p @

a <

x,	G <

w,	G <

v,	G <

y,"

` $ F

` D

a.

a <

|,
:

a;

`+

n,

`.D

` Ap,~x

`x

ex

dX

b$Y&t^ \

N @

~ p B

~,$, D	L @	M B	M <

},~x

}x$Q'\S?$ \

,xi",[R\]Vm}:\W%m6 \

 V T R
 P
 N L"J7H.F(Dy(.d	5$ &@.f	7$	.$?(| D"(.	 D <-,	G <,,	G

,~xx	`Z(X^. >X.~(3~+2	~+=Z. \x <x*<x .ez+9!"	b+  ":	b+Z`.Z. h+ggM?}
&?	b+-,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>.O@+HgR~@1,>.@@,>,>@6 w+U"0B+P!"A`X#p5@M/#p!"X#p+U\p+Ua.9'1,>.,>,>O@+U,>
6+ _4`]"`Q@,> <,,^,> <,
,^*bZ+h,> <,,^7@+c,> <,
,^+e,> <

,
,^Z5"h,> <,
,^,7@,

,> <,,^,,> <,,^,> <,
,^(@qd1@,,

1@#+v0@*+h,><,,^+h,^,^,^,~(',Type6Gto,Continue,Xto,Exit,TTo~trace.'/2H*,$)(A1)(1H14A5/)(1H`A5,1X,O6)PAUSESTOP.pX~pXppjp.XxX~~pxCR4BW+P?0

X#p+L  ,~>attempt to take SQRT of negative argC2|t(1,>. p4@y @c,> <,d,^b,~{e^bC2|p1,>. p5`h4@y+P?0#p3@|+{2 +m3`+m@@ ||+s)r. ! @(|h"} } B ~~,~+D?0
z,~,~0i/X36P'Ms!hhyI^*VhP`@6P'MP'M]oxxcAttempt totakelog*ofnegativesargG?@1,>.p+,++g&t@1,>.p,++G?1,>.p,+g&p1,>.pB+#`3b*+'D-,3b-+%"(D?d$"@($)B616`1S	YVBG90G90
GJ.GK/K.U+9**9)*v*(J-5u'5b&EEc0J/8hKd
f]K|\G
WaeLTvFTaZPaYOajJP3?K~IBHHGDA0DR/I;BI:@]C]CDR|p.%9z&;-9-pX2,pX1,
4N4N}PkoYUlrBKYX<:G

Y]@

Y?H

\!Z{-^U{-XP{-Oc{-Nv{-Nh{-Me{-M]VBSo&BTE)|D\6.AwBP@VKV4PbXlVkBI

YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"?
&*

 R	WJ

>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz-)	G#[o-,	qG
	OA	Rw		R}	L&Wg		OA	S}	M0H
0I
	P0I0Jw		Q0J

0K

0KS~	M	Pu^Vw	05B	T~	Nw	QyQz$	N

u^Vwu^Vwz`5	R		M	Pw		Q

{@	S~	M	PB	T~	Nw	Q+z
	N|:w	Rw		R		MP4	L~	Nw	Q

	N
t{|	OA	Rw		R		MP4	L~	Nw	Q

]{p	OA	Rw		R}	L	OA	S}	M	Pw		Q0K

	OA	Rw		R}	L	OA	S}	M0H

0I

	P0I	M	P05

~~	Nw	Q

~	N

}=

b3

p[

so

w+

v?

yS

|	qG

bY	OA	Rw		R

a}	LW8m

a	OTA	S}	MP4

`	Pw		QT0K

cB	S~	M	PB	T~	Nw	Q[

`	N;/

f;/{

eG

][

Zo

]	qG

WY	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K

WB	S~	M	PB	T

V~	Nw	Q[	N3qC

X3qC|0

XG

T[

Lo

U	qG

HY	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K

HU

GB	S~	M	PU

GB	T~	Nw	Q[	Nk

Jk|0

IG

D[

=o

F	qG

8Y	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K

8U

8B	S~	M	PU

7B	T~	Nw	Q[	N

:|0

:G

5[

,o

6	qG

(Y	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K

(U

'B	S~	M	PU

'B	T~	Nw	Q[	N7[

*7[|0

)G

$[

&	qG

Y	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K

B	S~	M	PU

B	T~	Nw	Q[	N[C

[C|0

qG

Y	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K

B	S~	M	PU

B	T~	Nw	Q[	NNaB

NaB|0

	qG|Y{	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K|B	S~	M	PB	T~	Nw	Q[{	N=l?}=l?|0}Gx[toz	qGpYo	OA	Rw		R}	L	OTA	S}	M	Pw		QT0KpB	S~	M	PB	T~	Nw	Q[o	NHq0qqHq0q|0qGl[hon	qGdYc	OA	Rw		R}	L	OTA	S}	M	Pw		QT0KdB	S~	M	PB	T~	Nw	Q[c	NN	eN	|0eG`[\ob	qGXYW	OA	Rw		R}	L	OTA	S}	M	Pw		QT0KXB	S~	M	PB	T~	Nw	Q[W	N
=5[B=5[}BG>[;o@	qG9	OA	Rw		R}	L	OA	S}	M	Pw		Q0K9B	S~	M	PB	T~	Nw	Q	N
=5T;=5T}:G7[4o8	qG2	OA	Rw		R}	L	OA	S}	M	Pw		Q0K2B	S~	M	PB	T~	Nw	Q	N
=5T3=5T}3G/[,o1	qG*	OA	Rw		R}	L	OA	S}	M	Pw		Q0K*B	S~	M	PB	T~	Nw	Q	N
=5Y,=5Y}+G([$o)	qG!Y	OA	Rw		R}	L	OTA	S}	M	Pw		QT0K!B	S~	M	PB	T ~	Nw	Q[	N`3"`3|@"G[o	qG	O9A	Rw		R}	L	OTA	S}	M	Pw		QT0KB	S~	M	PB	T~	Nw	Q[	N`,`,|@G[o	qGY	OA	Rw		R}	L	OTA	S}	M	Pw		QT0KB	S~	M	PB	T

	qGY	OA	Rw		R}	L	OTA	S}	M	Pw		QT0KB	S~	M	PB	T~	Nw	Q[	N`1`2H`2 `1| G
[
}o	qG
z	OA	Rw		R}	L	OA	S}	M	Pw		Q0K
zB	S~	M	PB	T
y~	Nw	Q	NTUM
{TUM}
{G
o[
eo
x
w	qG
L
L}(
K	OA	Rw		R}	L
K	OA	S}	M0H
L
J0I
M	P0I
M0J
Nw		Q0J
N0K
O0K
O})
JB	S~	M
I	P05
P06
P06
Q07
Q07
R08
RB	T
I .
H~	Nw	Q
H})
G
G	N
F

 .
T .z
Sh04

A
@
?u
3
>	
4
<E
7G
9[
o


E+
D?
S

_
C

s
B	qG
	OF
7z
(
A	Rw		R}	L

%1
	O1
91s

)
A	S%/
}	MP4
V_		Pw		Q	2I	~<	~0K
)	}B	S~	M1	}	P	|	|=	{B	T~	Nw	Q!	{=	zKV=	z	Na	yI
Ix
5	jI	m]	kq	l	r-	vA	tU	uG	v[	eo	m	g	x+	v?	pS	w	qG	a	OA	Rw		R}	L	OA	S}	M	Pw		Q0K	aB	S~	M	PB	T	a~	Nw	Q	`

	`	N
P"	bP"{	bG	Y[	[	qG	WV	V	OA	Rw		R}	L	OA	S}	M	Pw		QU	VB	S~	M	PU	UB	T~	Nw	QV	U	NsJ	WX	LHX	LsJ|P	WOOqh &&
	4
	3

	3$3%	7$39}p	7(Rjh06Qh05Ph05Ph04Ou7-]

4iiI]QAp}Sq[Uz

a,&M!'k'M?W.

u0&a';+L?k-r&G{
,c7zg(S'x
3h,wHz{'?z'+w
)b-G{WS'?	{7%{},?u6[2C{K$,S	)Fo`23B{Z#

-	!er+2o@sm-#rzAqyz3h?^3@!s	-7qzU
-Kp![n?]3+?/]s	-_	$z}I5ooS\3?CC	-so{z! vg3SFW2_	'{%5#t{[8?>k`/2snI'{91+z 8SHxC		3mlC5o]6?u #Z8g<yW(3l{azqESu 7"8{;k)3/	*{uvK

_s KY9K3CkU

sy _X9#:'c3W	-	qG=	<PH<W8m6P45P55P54P64P63P73P72P82
11

0(R\j\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0