Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0055/sign.rel
There are 13 other files named sign.rel in the archive. Click here to see a list.
(R 0 (R @ "D" D????? D?? E????? E?? F????? F?? G????? G?? H????? "D" H?? I????? I?? J????? J?? K????? K?? # "D" %A %B &C &D 'E 'F (G (H )I "D" )J *K *L +M +N ,O ,P -Q -R "D" .S .T /U /V 0W 0X 1Y 1Z 2 "D" 20 31 32 43 44 55 56 67 68 "D" 79 7. 8, 8? 9- 9$ :* := ;& "D" ;< <> <+ =/ =! >' >: ?# ?" "D" @^ @_ A% A; B( B) C[ C] ERASE "D" INLIN H PRINT EXIT DEFSY INSIG WIPE " ! z N | @ 8 @ SYS SIGN.LIB RANDOM
@ /0 $ (' ?NOT A COMMAND: ',A5) (' ?NO SIGN IN CORE' ,/) (5X,I) (' WHAT LINE NUMBER? ',$)(I) (' ?LINE #',I2,' DOES NOT EXIST') ('+(N EW) ',$) (' ?TOO MANY LINES- "PRINT" THE SIGN.',/) ('+SIGN:'I2,' LINE:',I2,' STR &ING:',$) (13A1) (' ?TOO MANY CHARACTERS --LINE NOT COMPILED')(' ?NOT A RECOGNIZED / SYMBOL: 'A2,' TRY AGAIN') (8A7)(' ?CANNOT ACCESS SYMBOL DATA FILE SYS:SIGN.LIB ') 7(' SIGN MAKER V.4',/,' COMMANDS:'/,' INLINE-TYPED TO INPUT EACH LINE OF A SIGN',/,' @INSIGN- TYPED TO INPUT A WHOLE SIGN, RATHER THAN',/,' A LINE AT A TIME.',/,' PRIN HT-PRINTS ASSEMBLED SIGN AND CLOSES FILE',/,' DEFSYM-LETS USER DEFINE A CHARACTER OR S QYMBOL',/,' ERASE N- TO REPLACE THE NTH LINE OF A SIGN',/,' WIPE- ZEROES OUT THE SIGN YIN CORE AND RESETS LINE-COUNTER',/,' H-THIS TEXT',/,' EXIT -TO EXIT FROM THE PROGRAM' b,/,' PARAMETERS:',/,' 12 CHARS/LINE 10 LINES/SIGN',/,' THE USER DEFINED SYMBOL IS', j/,' INCLUDED IN A SIGN BY TYPE THE CHARACTER "@" IN ITS',/,' PLACE WHEN YOU INPUT A S sTRING TO "INLINE"',/,' OR "INSIGN" AFTER USING "DEFSYM"'/,' FURTHER INSTRUCTIONS FOR {USE OF "INSIGN " AND "DEFSYM"',/,' WILL BE OFFERED AT APPROPRIATE TIMES.',/,' ALL SIG NS ARE CENTERED AUTOMATICALLY'/) (' DO YOU WISH TO SEE CHARACTER SET?(Y OR N)',$)
(A1) (1X,30A2,/,1X,32A2,/) (' ?NOTHING TO PRINT',/) (' ')(8(' ',7X,12(A7,3X)/)/) (' ',/,' ') (8(' ',11X,12(A7,3X)/)/) ('SGN',I2)(' ?YOU HAVE NOT PRINTED SIGN',I3,' YET') (' TOTAL OF ',I3,' SIGNS CREATED') (' EACH SYMBOL IS 7 CHARACTERS ACROSS AN &D 8',/,' CHARACTERS HIGH. YOUR DEFINED SYMBOL IS CALLED BY',/,' TYPING THE CHARACTER . "@" IN ITS PLACE WHEN YOU',/,' INPUT A STRING TO THE COMMAND "INLINE". NOW TYPE IN A 7',/,' ROW OF YOUR SYMBOL AFTER EACH "^" APPEARS.',/,' (<CR> AFTER EACH ROW)') (' ?1234567',/) ('+',I1,'^',$) (A7) (' NEW SYMBOL DEFINED'/) (' "@" MUST NOT APPEAR IN H AN INPUT STRING UNTIL',/,' YOU HAVE GONE THRU DEFSYM DIALOG TO DEFINE THE SYMBOL',/, P' THE LINE HAS NOT BEEN COMPILED.'/) (' INSTRUCTIONS? (Y OR N):',$)(A1) (' ')(' FA YST FORM OF INLINE COMMAND',/,' KEEPS YOU IN INLINE MODE. TYPE IN A LINE OF THE',/,' S aIGN AFTER EACH "LINE NO.:" APPEARS. TO RETURN TO',/,' COMMAND LEVEL, TYPE A ^Z. ANY jERROR RETURNS',/,' YOU TO COMMAND MODE . THERE IS AN AUTOMATIC',/,' RETURN TO COMMAND r MODE AFTER THE',/,' TENTH LINE OF A SIGN IS INPUT.'//)('+LINE ',I2,': ',$) + -< D $ D " < , < , , < , , < , U*D < , 3D + ~ZD
3F + *d < , < , D"e5$J `TUR ` 20J ` R ` 20J ` R ` zR c_<F
` 20J < , , + 6b
0b + + 4 4 4 4 4 4 4 4 4 " @ $ 3D L+ $ 3D + < , , + < , < , 6D + < !, , < , D"c_<F
` 20J ` R ` 20J ` R ` zR c_<F
` 20J !` R " D # < , 7d + 3d L+ < , < , + L D L < , , "$ *U* ,. D LOd !+ L D L@d !+ : L1d + < , , + @d 7@ D 4+ $ D
+ 7 + < , < , D"` zR #c_<F
$` 20J 'c_<F
(` 20J *` R +` 20J 2` R 2` 20J 8 P 9+ < , < , < , < , 3D + < , , 7 !+ . "P*E B"$ .D L@d + "& $ D
U S: . D 3D |+ |ZD
3H $+ *d W < , ( [ < , + A < , D"c_<F
9` 20J :c_<F
;` zR <c_<F
=` 20J @` R @` 20J [c_<F
\ *E @* ^ ~_D ZD $ $
$ L( . $ x$ $. < , : $; + `, * g+ Q7` @ @\ @D @L @$ @< @
$@T &@d )@\ 0@ 3@L 6@t :@ <@4 A@t D@t I@
Q@ ] "
h+ " $ F D
~ (
$
L(
.
( x$( .
'J*d k *TT* p:
;D + j . 0$ + $ . . D $ $/& $ F
~ "@U( y (
$
L(
.
( x$( . @l'J@n'J*d y:
; x6 + L "U @ 1& + 0@d 7 !+ .+ < , , + < , , < , , <
, D"` zR ^c_<F
d` R f` 20J ` R ` 20J ` R ` 20J ` R T P
< , 3D {+ < , < , + 7` + < , , + "$ ( $ L.$ 7 .$ ( D < , , < , , D"` zR
c_<F
` 20J
` 20J ` R ` 20J ` R ` 20J @D 4d & / $ < , , .$ 8&" L $ 6` + < , ~_H ! *Q
!ZH $ }_H ZH (
$
(
.
( x$ $. < , : ; + # *@ * *: $; !+ ", 1D + < , , + < , ~_H ZH $ }_H (@ 2ZH (
$
(
.
( x$ $. < , D"` R ` 20J ` R ` 20J c_<F
(` R +` 20J -` R .` 20J / *U 8: ; + 3: $; + 1, 1D + < , , .$ 8& < , @d L "T " @ $ D + : #@d < , < , < , 6b
0b + + 4 64 ( I 1D + 7D L+ J < , < , D"c_<F
7` R ;` 20J =` R =e5 KJ ?` > Cc_<F
D`A* E` 20J L (
M+ < , < , < , < , , < , < , 3D {+ V < , , D"c_<F
M` 20J Nc_<F
O`<: P` 20J Q` R R` zR Sc_<F
T` 20J V W < , , "& $ < , < , < , ( < , .$ 8&Z ` < , , Od + 6 @ @
, g@< @
@\@d@@ @t/@D>@l>@L>@dB@|G@tI@4N@|Q@\W " * c+ ~ (
$
L(
.
( x$( . , (
0 C
'J*dd+ Q < k, D"` R W` 20J X` R X` 20J Zc_<F
[` zR \c_<F
^` 20J `` R a "Q( l, + A7@ + H $ D
+ B7 + < , , < , < , < P t, , 3D {+ < , , D"` 20J k` R l` 20J q` R q` zR rc_<F
s` 20J t` R u` 20J w *U xOd Od + 0+ @d L+ <P, p " x "H U h ^
^
}X X $ X ( $ X @ @
db@ 4k@m@ \o@ lx@ y@lz@
z@ <}@T~@t@ < @ L@ d@ |
@
l@| @ } ( $ X X $ %X $ X X @ - X # $ # $ L X "P 6 x $ L X A A ' @ >X ( X @ @
@D@d@t @ @,!@<$@l%@|(@$*@ -@|0@
3@$5@48@D9@T<@|? A T" B - $ P 2
0J KX 2 X 7 PX S X
$ X X X " X ( A d " X " X " " m 0'J X " X " @ @ ,B@ DE@ \F@
DJ@LK@lN@Q@ T@,W@TY@d\@
^@da@|d@4g@|j@|m@To A r 0'J X " P (D { $ # X $ # X A $ # X T X ( @
$ X " X ? X A $ X B 0 C X @ @tr@tu@Lv@4y@D}@<~@L@d@t@@,
@<@|@$@4@D@d @ C X E X T X ' W $ X X X " / X D"` R x` W J | {h3 ^^
@[ 2I72
X } D" / Q@ fuG /
&?;
) cm@
P8
D"P7 P6 &&$ P5 e,( P5 D" cT P4 `@ ^^]7 &4B PL PK PK PJ D"PJ K+ !PI !PI "
]9 L qG j
s D" oa y y 9 y K j
_
d 8{ "7 J S D" i Y t VA Q 8g v # ` ? Va X h} 8S > D" + hi {9 8? u { F } hU ,a I D" 3S 3 g E 8 r {E 2 hA 3? 2 S B Q9 W D" o 9 {1 ] z} 3+ 1 ? W Q% o [ ( a k zi D" 3 1 S W i! C Q T ca B G * u h zU 3 r D" ? Q iA x P} n {] 3 e zu - zA 2o o + E D" za W . 2[ > E PU X &} < {s + 2G m ? D" c PA m { * 23 # o < ce \ uM ( {K ' 2 # D" [ 9 u9 ? &A : {7 $ -3 " G 8 u% '
" > } 6 z{ ,w 3 0 ,c g - E zS ,O * y tA 0 D" z? ,; d w ( e . @ ,' a c % a k
E ! G ?W ' Y ' ] A ua b ?C
&k T % ? oE D" ! g
a / ni
m $ >s &/ K
> & q 9s ~ D" & y
i ia -m 3 D" A z 5 97 ~ s k
u &(R @ @ @ 4!@
$@ $'@ 4*@ D+@ t. 8 ( ( 1