Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0118/skim.exe
There is 1 other file named skim.exe in the archive. Click here to see a list.
?p 0 @ ?h X j ?x "
<+ + 2 ` ~9@Q PPj 2 PH ( 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 "9 d -~` v
tX
< 20 "5p byrX "X0 #"Up $+ +Z -< - b< w, W5< h, eD 4ZD < < 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 < ?,
*d F < >, 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"& $ F 3 D < $ 5 D O < !,
f: <; 3+ m < , 7 < ], , < ,
X < , 7 < `, , "& $ F 2 D < < ,
X $ .d <; 2+ y < , 7 < c, , < , q < , 7 < f, , "& Z $
F 2 D <" < F O < ,
X: <; 2+ ,< i, , < , 7 < l, , < , 7 < o, , < , 7 < r, , < ,
,< , 7,< z, , < , L < , 7 < }, , < , Y <
,
{ < , 7 < , , <
, < , 7 < , , < ,
< , 7 < , , [_D <ZD < < , d < D P < , ] / @ Od < $ D Q < , 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,
x cx Yx Sx Vx Sx cx ]x Vx ax Qx ax Qx Vx Qx Vx Qx ax Qx ax Qx ax ax Ux cx ]x Qx Pp O Px Ux fp V Rx fx Ux fx Xx ]p X Ux f` Q W Q Sx Yp 0 1x cx dx fx Ox `p Q Qx Yx <x fx ax cp S Ox Vx cp S ix `x ]x Yx `p Q Xp Z Wx ]p Q Wp h Wx ]p Q Tp g \x ]x ]p Q Qx Yp \ 6x `p ^ ex Yp Q Qx `x Yx ]X Z a f R ^x Vx ]p U Rx ]x ]x cp Q Qx d` Q X Q Sx dp Z Zx [` S U U Qx dx Qx cx Yx Vp V Vx Yx _x Sx V( _ h a f T a S d X \ Qx Vx ]x Vx Qx Vx ]x Sx gx Sp S Qp R Qp R Sp Q S` R T R TX = X B X I X Q $ 1 X S X [ X ^ X e X ~ X
X % X , X 0 X 7 X ? X R
X \ X j X o X x X X X X 6 X Q $ 1 X F
X P
X \ X c X r X z X X
X X X X # X ' X 6 X E X Q $ 0 $ 1 X K
X U X ] X c X i X p
X z X X X X ! X ' X / X @ X K Q>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 F I ( !,H L,@ M B M D N F N < V,
, |,~ x | "| m Ky \
p @
p B
$ + D L
RD D M
SD D M <
,
,~ x
"_| I? \
p @
p B
$ " D L
S
RD D M
T
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
8
9 RD D M
7
9 SD D M <
F,
8,~ x
9 "_| ]>U} \
H p @
G p B
G $ ' D L
G
H RD D M
G
H SD D M <
U,
H,~ x
I a2~@ \
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 <
|,
:
a;
`+
n,
`.D
c
` Ap ,~ x
`x
ex
dX
b $ Y&t^ \
P
N @
~ p B
~,$ , D L @ M B M <
},~ x
}x $Q' \ S?$ \
, x i",[R \ ]Vm}: \ W%m6 \
X
V T R
P
N L "J 7H .F (D y( .d 5$ & @ .f 7$ .$ ?(| D " ( . D < -, G < ,, G
,~ x x ` Z (X^ . > X.~ (3~ + 2 ~ + =Z . \x <x *<x .ez+ 9!" b + " : b + Z` .Z . h + gg M?}
& ? b + -,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> .O@ + HgR~@1 ,> .@@ ,> ,> @ 6 w+ U" 0B + P!"A`X#p 5@ M/#p !" X#p + U\p + Ua.9'1 ,> .,> ,> O@ + U,>
6 + _ 4` ]"` Q@ ,> < , ,^ ,> < ,
,^ *b Z+ h,> < , ,^ 7@ + c,> < ,
,^ + e,> <
,
,^ Z 5" h,> < ,
,^ , 7@ ,
,> < , ,^ , ,> < , ,^ ,> < ,
,^ (@qd 1@ ,,
1@ #+ v0@ *+ h,> < , ,^ + h,^ ,^ ,^ ,~ (',Type6G to,Continue,X to,Exit, TTo~trace.'/2H *,$) (A1) (1H 14A5/)(1H`A5,1X,O6) PAUSESTOP .p X ~ p X p p j p . X x X ~ ~ p x CR4B W+P ?0
X#p + L ,~ > attempt to take SQRT of negative arg C2|t(1 ,> . p 4@ y @ c,> < , d,^ b,~ {e^b C2|p 1 ,> . p 5` h4@ y+P ?0#p 3@ |+ {2 + m3` + m@@ | |+ s) r. ! @ (|h" } } B ~ ~ ,~ +D ?0
z ,~ ,~ 0 i/X3 6P'M s!hh yI^*Vh P `@ 6P'M P'M]ox x cAttempt totake log*of negativesarg G? @ 1 ,> . p + ,+ + g&t@ 1 ,> .p ,+ + G? 1 ,> . p ,+ g&p 1 ,> . p B +#` 3b *+ ' D - ,3b -+ %" (D?d$ " @($ )B 6 1 6`1 S YVBG 9 0G 9 0
G J .GK/K . U + 9* * 9) *v* ( J - 5u ' 5b & E E c 0J /8 hK d
f ] K| \ G
Wae LTvF TaZ PaY Oaj JP 3?K ~I B H H G DA 0DR / I; B I: @ ] C ] C DR|p.%9z & ;-9 -pX2 ,pX1 ,
4N 4N}Pko YUlrBK Y X <: G
Y]@
Y? H
\! Z{-^ U{-X P{-O c{-N v{-N h{-M e{-M ]VBSo&BTE ) |D\6 . AwB P @ VK V4 PbXl VkBI
YPb K YY Yh[|gg MA
J TUR /}F
/|N @\: T(q5v X _<F
zR (TsT ` u6
(J" ?
&*
R W J
>
_Bb
_2 v ^,6 RW `
K^
2b
2 RYmt L (bIz- ) G # [ o - , qG
O A R w R } L &Wg O A S } M0H
0I
P0I 0J w Q0J
0K
0K S ~ M Pu^Vw 05 B T ~ N w Q yQ z$ N
u^Vw u^Vwz` 5 R M P w Q
{@ S ~ M P B T ~ N w Q+z
N |:w R w R MP4 L ~ N w Q
N
t{ | O A R w R MP4 L ~ N w Q
N
] {p O A R w R } L O A S } M P w Q0K
O A R w R } L O A S } M0H
0I
P0I M P05
~ ~ N w Q
~ N
}=
b 3
p [
s o
h
x
w +
v ?
y S
n
_
n
s
| qG
b Y O A R w R
a } LW8m
a O T A S } MP4
` P w Q T 0K
c B S ~ M P B T ~ N w Q [
` N ;/
f ;/{
e G
] [
Z o
_
] qG
W Y O A R w R } L O T A S } M P w Q T 0K
W B S ~ M P B T
V ~ N w Q [ N 3qC
X 3qC|0
X G
T [
L o
U qG
H Y O A R w R } L O T A S } M P w Q T 0K
H U
G B S ~ M P U
G B T ~ N w Q [ Nk
J k|0
I G
D [
= o
F qG
8 Y O A R w R } L O T A S } M P w Q T 0K
8 U
8 B S ~ M P U
7 B T ~ N w Q [ N
: |0
: G
5 [
, o
6 qG
( Y O A R w R } L O T A S } M P w Q T 0K
( U
' B S ~ M P U
' B T ~ N w Q [ N 7[
* 7[|0
) G
$ [
o
& qG
Y O A R w R } L O T A S } M P w Q T 0K
U
B S ~ M P U
B T ~ N w Q [ N [C
[C|0
G
[
o
qG
Y O A R w R } L O T A S } M P w Q T 0K
U
B S ~ M P U
B T ~ N w Q [ NNaB
NaB|0
G
[
o
qG | Y { O A R w R } L O T A S } M P w Q T 0K | B S ~ M P B T ~ N w Q [ { N=l? } =l?|0 } G x [ t o z qG p Y o O A R w R } L O T A S } M P w Q T 0K p B S ~ M P B T ~ N w Q [ o NHq0q qHq0q|0 q G l [ h o n qG d Y c O A R w R } L O T A S } M P w Q T 0K d B S ~ M P B T ~ N w Q [ c NN eN |0 e G ` [ \ o b qG X Y W O A R w R } L O T A S } M P w Q T 0K X B S ~ M P B T ~ N w Q [ W N
=5[ B=5[} B G > [ ; o @ qG 9 O A R w R } L O A S } M P w Q0K 9 B S ~ M P B T ~ N w Q N
=5T ;=5T} : G 7 [ 4 o 8 qG 2 O A R w R } L O A S } M P w Q0K 2 B S ~ M P B T ~ N w Q N
=5T 3=5T} 3 G / [ , o 1 qG * O A R w R } L O A S } M P w Q0K * B S ~ M P B T ~ N w Q N
=5Y ,=5Y} + G ( [ $ o ) qG ! Y O A R w R } L O T A S } M P w Q T 0K ! B S ~ M P B T ~ N w Q [ N`3 " `3|@ " G [ o qG O 9 A R w R } L O T A S } M P w Q T 0K B S ~ M P B T ~ N w Q [ N`, `,|@ G [ o qG Y O A R w R } L O T A S } M P w Q T 0K B S ~ M P B T
qG Y O A R w R } L O T A S } M P w Q T 0K B S ~ M P B T ~ N w Q [ N`1 `2 H`2 `1| G
[
} o qG
z O A R w R } L O A S } M P w Q0K
z B S ~ M P B T
y ~ N w Q NTUM
{ TUM}
{ G
o [
e o
x
w qG
L
L }(
K O A R w R } L
K O A S } M0H
L
J0I
M P0I
M0J
N w Q0J
N0K
O0K
O })
J B S ~ M
I P05
P06
P06
Q07
Q07
R08
R B T
I .
H ~ N w Q
H })
G
G N
F
.
T .z
Sh04
A
@
? u
3
>
4
< E
7 G
9 [
o
E +
D ?
S
_
C
s
B qG
O F
7z
(
A R w R } L
%1
O 1
91s
)
A S %/
} MP4
V_ P w Q 2I ~ < ~0K
) } B S ~ M 1 } P | | = { B T ~ N w Q ! { = zKV= z N a y I
Ix
5 j I m ] k q l r - v A t U u G v [ e o m g x + v ? p S w qG a O A R w R } L O A S } M P w Q0K a B S ~ M P B T a ~ N w Q `
` N
P " bP "{ b G Y [ [ qG W V V O A R w R } L O A S } M P w Q U V B S ~ M P U U B T ~ N w Q V U NsJ W X LH X L sJ |P WOOqh &&
4
3
3 $3% 7 $39}p 7(R jh06 Qh05 Ph05 Ph04 O u 7 - ]
4 i i I ] Q A p } S q [ U z
a , &M ! ' k ' M ?W .
u 0 &a ' ; + L ?k - r &G {
,c 7 zg ( S ' x
3 h ,w H z{ ' ? z '+ w
) b - G { W S '? {7 % { } ,? u 6 [ 2 C {K $ ,S ) F o ` 23 B { Z #
- ! e r + 2o @ s m -# r zA q y z 3 h ? ^ 3 @ ! s -7 q zU
-K p ! [ n ? ] 3+ ? / ] s -_ $ z} I 5 o o S \ 3? C C -s o { z ! v g 3S F W 2_ ' {% 5 # t { [ 8? > k ` / 2s n I ' {9 1 + z 8S H x C 3 mlC5 o ] 6 ? u # Z 8g < y W ( 3 l {a z q E S u 7 " 8{ ; k ) 3/ * {u v K
_ s K Y 9 K 3C k U
s y _ X 9# : ' c 3W - qG = <PH <W8m 6P4 5P5 5P5 4P6 4P6 3P7 3P7 2P8 2
1 1
0 (R\ j\B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0