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.
(R 0 (R @ "D" A B C D E F G H
I "
J K L ! K "_| ^, !y "2` ( *!t " <y` "R` P "9 d -~` v
tX
' 2 A 20 "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_D ZD
< , < , :
; + U < , , 0_D ZD
< , :
; + 5_D ZD
< , :
* ; + < , D"e5$J `sJ egR'G bP_" bP_" ` 20J ` R bP_"
bP_" < , < , , < , < , < , , < , 5 < , D"` &.} ` $3_ ` 20J ` R ` &.} ` $3_ ` 20J ` R ` $3_ ( @ < , < , *d < , < , , < , < , , < $, D"` &.} ` 20J c_<F
` $3 ` 20J ` R ` $3 !` 20J "` R # $ < , < , , < , < , , < , < , , D"` $3 $d . %` 20J &` R &` $3 '` 20J (` R )` $3 *` 20J + , < , < , , < , < , , < , < , < , D"` R +` $3 ,` 20J -` R .` $3 /` 20J 0` R 0` [C 1` $3 2 4, < , < , , < , < , , < , < , D"` 20J 3` R 4` $3 5` 20J 6` R 6` $3 7` 20J 8` R 9``1 : ; < , , < , < , < , , < , < , < , D"` $3 ;` 20J <` R <` 3F =` $3 >` 20J ?` R @fNaB A` $3 B C, < , < , < , , < , < , < , , D"` 20J C` R C` 3F D` $3 E` 20J F` R GfN H` $3 I` 20J J K < , < , , < , < , , < , < , < , D"` R J` $3 K` 20J L` R M` $3 N` 20J O` R O`k P` $3 Q S, < , < , < , < , , < , < , , D"` 20J R` R S` $3 T` I U` $3 V` 20J W` R W` $3 X` 20J Y A Z < , 2 < , @ < , < , *d \ < , < , , < c, < , D"` R Z` $3 [`
_` $3_ `` 20J a` R b` 7[ c d < , , < , < , < , , < , < , < , D"` $3_ d` 20J e` R e` ;/ f` $3_ g` 20J h` R i`=l? j` $3_ k l, < , < , < , < , < , < , < , < , D"` 20J l` R l` $3_ m` 7[ n`=l? o` $3_ p` 7[ q`=l? r` $3_ s u < , < , < , , < , < , < , , < , D"` 7[ t`=l? u` $3_ v` 20J w` R x``3 y` $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` 20J 2` R 2`TUM 3` $3_ 4` 20J 5` R 6``1 7` $3_ 8 P( 9, < , < , < , , +_D
ZD
< , d
D < , "D B / @ d
$ D ! < , H @ < , D"` 20J 9` R 9fNaB :` $3_ ;` 20J <` R =``1 ?b f A` 9LR E *@ G:
;
+ ? < , , < , < , , < , < , < , P < , D"fNaB G` 20J I` R J` $3_ K` 20J L` R L` $3_ M``1 Nb=5Y O Q < , , < , < , <O, < , , < , < , D"` $3_ P` 20J Q` R R` $3_ S``3 Tb=5[ U` 20J V` R V` $3_ W ( @ Y <T, < , , < , < , <Y, < , < , , D"``, Xb=5T Y` 20J Z` R [` $3_ \``, ]b=5T ^` $3_ _` 20J ` a < , < , < , , < , < , < , , < , D"` R ``TUM a` $3_ b` 20J c` R d``1 e` $3_ f` 20J g` R g @ i < , <], < , < , , < , < , , < , D"`TUM h` $3_ ib=5Y j` $3_ k` 20J l` R m` $3_ n` 20J o` R o ( q <j, < , < , < , , < , < , , < , D"` $3_ pegR'G q` &.} r` $3_ s` 20J t` R u` $3_ v` 20J w` R w " " y < , , < , + <q, <|, x 3x )x (D" #x &x #x 3x -x &x 1x !x 1 "D
x !x &x !x &x !x 1x ! @ @ T~@ ,@ @ \@ 4@ $@ @ \@ 4@ @ @ \ @ L
@ $ @
@l@< "D" x 1x !x 1x 1x %x 3x -x !x (QQ p x %x 6p & "x 6x %x 6 " "x (x - @ @@t@<@,@@d@T@,@L@@l@t @4 @$ @| @l @D!@4" "D*D( $p ( %x 6` ! ' ! #x )p x 3 "Q ,x 4x 6x x 0p ! !x )x
x 6 "" 5x 1x 3p # x & @ @
#@|$@T&@D'@ )@l*@D,@ -@t.@4/@\0@L1@$2@t3@,4@ 5@t6@L7 ""
9x 3p # 9x 0x -x )x 0p ! (p *"D( B * 'x -p ! 'p 8 'x -p ! $p 7 (D(@ J ,x -x -p ! !x ) @ @
9@d:@T;@D<@ =@
>@d?@T@@DB@4C@$D@F@G@ 0p . 5x )p ! !x 0x ) "(D( Xx -X * 1 6 " .x &x -p % "x - "" `x -x 3p ! !x 4` ! @ @
tO@
dP@
<Q@
,R@
T@ DU@ ,V@ W@
\X@
LY@
<\@
]@
^@ \`@ 4a@
b@|c@Td *D(E( f ( ! #x 4p * *x +` # % % !x 4 "Q nx !x 3x )x &p & &x )x /x # "*U" wx &( / 8 1 6 $ 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 #x 7x #p # !p " (Q"T !p " #p ! #` " $ " $X
@ T
@
@D@|@D@T @| @ ! + X . X 5 X @ ) N X k
X u 2X | X X : X X "
X ( C , X : X ? X " K H X P X X X @ T n X @ @$ @\#@&@,)@T,@|/@42@\5@8@<;@t>@,A@dD@ G@ DJ@ lM@
$P@
lS @ W X ! $ X ( _
X
X , X " h 3 X B X J X @ p R X X
X b X @ y h X p X s X w X X
X @ @ V@ \Y@ l\@
^@
La@tj@,m@tp@s@<v@4y@l|@\@@,@T A ! $ $ X
X " % X - X 3 X @ 9 X @
X J X @ % O X Y X ] -X _ X b X i 6 X m X q X ( > w X @ @| @
@,@d@ @T@
@D @"@<%@(@\+@$.@|1@ 44@ l7@ D:@ l= @ @ X X D"` $3_ x` 20J y` R z` $3_ {`<: |` W J }
D"P8 P7 P7 P6 P6 P5 P5 P4 W8m D"PH
qG C ' y 9# P n
s D" % 3C 2 9 a K o
_ {u
D" 3/ @ k ? 3 8{ Q 7 8 S q {a 3 D" W > 8g R # p ? ] lC5 3 C D" 8S ^ 5 + {9 G I w 2s / k v D" 8? T { q
5 s {% 2_ = W 4 3S \ D" g 2
! p { -s C 5 3? Y S r D" o 5 h z} # - : s / s 3+ U ? s [ D" ! b -K [ 6 3 \ S / G { 7 {s 9 2G S ) = ,g
D" # # {_ p 23 X o v ) ,S 4 $ {K : 2 Y D" [ & ,? { {7 ; -3 \ G w n 'S
D" g & {# < - P 3 # " - ] x
) m P '+ ^ 3 ~ D"
i S ) zg > ,c M ` %u
u & D" ' c ' M q
a | !3 & D D" 9 b U u ! ( D" ? J &C A F 8 ( ( H : $3 0 $3 @ @ H " D Q>d@ \ p @ < , @ < , @ "& t$ /& $ .$ 8& ((P" 3d + & .F ( $ " . 3& + ,~ x x D" $3 ` &.} ` &.}
0K P4 D" qG +
o [ G
@ < @ $ ( (