Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0055/sign.exe
There are 2 other files named sign.exe in the archive. Click here to see a list.
?p 0 @ 0 ?h X
3 ?x "
<+ + 2 ` JPQ /H
3 | 2 /@ ( ERASEINLINH PRINT EXIT DEFSYINSIGWIPE A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 . , ? - $ * = & < > + / ! ' : # " ^ % ; ( ) [ ] ??????? ??????? ??????? ??????? ??????? ??????? ??????? ??????? (' TYPE "H" FOR HELP',/) (' *',$) (A5) (' ?NOT A COMMAND: ',A5) (' ?NO SIGN IN CORE',/) (5X,I) (' WHAT LINE NUMBER? ',$)(I) (' ?LINE #',I2,' DOES NOT EXIST') ('+(NEW) ',$) (' ?TOO MANY LINES- "PRINT" THE SIGN.',/) ('+SIGN:'I2,' LINE:',I2,' STRING:',$) (13A1) (' ?TOO MANY CHARACTERS --LINE NOT COMPILED')(' ?NOT A RECOGNIZED SYMBOL: 'A2,' TRY AGAIN') (8A7)(' ?CANNOT ACCESS SYMBOL DATA FILE SYS:SIGN.LIB ')(' 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.',/,' PRINT-PRINTS ASSEMBLED SIGN AND CLOSES FILE',/,' DEFSYM-LETS USER DEFINE A CHARACTER OR SYMBOL',/,' ERASE N- TO REPLACE THE NTH LINE OF A SIGN',/,' WIPE- ZEROES OUT THE SIGN IN CORE AND RESETS LINE-COUNTER',/,' H-THIS TEXT',/,' EXIT -TO EXIT FROM THE PROGRAM',/,' PARAMETERS:',/,' 12 CHARS/LINE 10 LINES/SIGN',/,' THE USER DEFINED SYMBOL IS',/,' INCLUDED IN A SIGN BY TYPE THE CHARACTER "@" IN ITS',/,' PLACE WHEN YOU INPUT A STRING TO "INLINE"',/,' OR "INSIGN" AFTER USING "DEFSYM"'/,' FURTHER INSTRUCTIONS FOR USE OF "INSIGN " AND "DEFSYM"',/,' WILL BE OFFERED AT APPROPRIATE TIMES.',/,' ALL SIGNS 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 AND 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',/,' ROW OF YOUR SYMBOL AFTER EACH "^" APPEARS.',/,' (<CR> AFTER EACH ROW)') (' 1234567',/) ('+',I1,'^',$) (A7) (' NEW SYMBOL DEFINED'/) (' "@" MUST NOT APPEAR IN AN INPUT STRING UNTIL',/,' YOU HAVE GONE THRU DEFSYM DIALOG TO DEFINE THE SYMBOL',/,' THE LINE HAS NOT BEEN COMPILED.'/) (' INSTRUCTIONS? (Y OR N):',$)(A1) (' ')(' FAST FORM OF INLINE COMMAND',/,' KEEPS YOU IN INLINE MODE. TYPE IN A LINE OF THE',/,' SIGN AFTER EACH "LINE NO.:" APPEARS. TO RETURN TO',/,' COMMAND LEVEL, TYPE A ^Z. ANY ERROR RETURNS',/,' YOU TO COMMAND MODE . THERE IS AN AUTOMATIC',/,' RETURN TO COMMAND MODE AFTER THE',/,' TENTH LINE OF A SIGN IS INPUT.'//)('+LINE ',I2,': ',$) N | @ 8 @ SYS SIGN.LIB RANDOM + -<
/ D 1 $ D R <
3, <
7, , <
:, , <
=, <
@,
?3D
/+
9
.ZD < < 53F ?+
E*d
> <
B, <
E,
<
F, , +
96b <0b +
L+
G4
L4
c4 94 B4
-4 |4
4
4
- $ 3D |+
O $ 3D H+
Q <
I, , +
9 <
L, <
O,
6D ?+
W <
Q, , <
T, <
W,
7d ?+
Y3d |+
\ <
X, <
[,
+
9 | D | <
], , "$ . ? D |Od Q+
c | D |@d Q+
9: |1d +
f <
`, , +
t@d 47@ H+
i $ D :+ u7 2+
m <
c, <
f,
+
o <
h, <
k,
<
l, <
o,
F3D
/+
w <
r, , 7 Q+
a"$ .D |@d 2+
9"& $ D = = @2D
/+
|> =8&
x $ D = $ / =7 .$ ( D 1 |@f H7& =.& (( 3F =+ & F H 42$ =+ : 4. 1 D N 4 @3D
,+
,ZD < < 4 @3H T+ *d
<
u, 4 <
x,
+
t <
y,
._D ?ZD T $
$ N |( . $ x$ T. <
},
: T; ?+ , + 7` 1+ %" 1 $ F > D :
. (
$ :
|(
.
( x$( .
2
'z*d : :; >+ 4. 10$ + 3 $ . 4. 1 D T T/& T F = D :
. (
$ :
|(
.
( x$( . @l'z@n'z*d ,: :; =+ +6 2+ 5 |1& +
c@d 27 Q+
a+
9 <
~, , +
9,< , <
,
G3D
++
9 <
, <
+
97` H+ E+<
9"$ $ |.$ 7& .$ (6D ;+< b <
._H QZH T
-_H PZH 3 (
$ 3
(
.
( x$ T. <
: 3;, P+ V: T; Q+ U, 1D + q <
._H PZH T
-_H OZH 3 (
$ 3
(
.
( x$ T. <
: 3;, O+ f: T; P+ d, 1D + q <
2, @d | $ D H+
9: S@d H <
<
1, "6b :0b + |+ z4
i4
" H1D +
7D |+
,< <
+
9,< <
<
0, ^,< <
?3D
++
B< , "< $ <
L< ( <
.$ 8&
Q< , Od ;+
96 ;+
. (
$ N
|(
.
( x$( . , (
0 s
'z*d
+ ,< +
t7@ H+
" $ D :+ u7 5+
,,< , <
^< , ?3D
++
+,< , Od 5Od 2+
c+
9@d |+
9 <
0,
p R 0x RH h 1^
0 ^
1
-X = X ? X @ $ ? X A $ ? X = X C X } F $ ? X G X I $ ? X J $ ? X M X O X S $ S $ | X
( $ | X
t
t W @ @ X X X ] $ @ P 7 7 b < 0z X b X g PX 7 X < $ G X = @ U X ? X R B X R B X R B X R B 0'z X R E X R F 0'z X R E P I 0 $ S X J $ S X N $ S X
X @ $ ? X R X o X q $ X r 0 s X s X u X
X
$ ? X
X
` Z (X^ . > X.~ (3~ + }
& b +
?NO CORE AVAILABLE - CAN NOT PROCEED
!* ** ,^ ,~ * x ,> `< *< ` `p Z@ ````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````` Ulr [ Z Y Y X pX. pX. pX- pX- 9g
& u^
" r:^` :l5m $A* ":
( A
8@#x H lJ e,( >S YVB Df F Da C
_
G )cl` 9
8v: < Lc J t(B 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
3 u
Y
?
> s 97
1 5
9 A
- J -m
f ia B
i E
? %_ + 9K z I = F .
t
B %s + 9_ ~ ] ? ) 3 na P A
E & , 9s 9 pE
(
F & 5 >
? nU g
G &/
~ >s
E m
W ni <
a b
O &C A n} = \a R
I &W ! oE R % o
L &k
\ N
O &
?C
] q '
Q '
?W
z
E F ;
T +
- 5 ]E r O
W ,
I
a
c
X ,'
a w
[ ,;
c y M
] ,O N zS
` ,c
h !
w 7 3
c ,w Q z{
i 7
" q
f -
bA u u S
h - T {# G
k -3 U {7
m u9
r [
l 2 V {K
o
o 23 V {
c I
r 2G
o PU
x 2[ q
+
x 2o
L zu ] 3 {] C P}
! iA
+ ? 3
Q u G ] ca u Q
i! s S
3 d zi G a [ [ Q%
" ?
3+ d z} C {1 o l Q9
S
u 3? e hA B {E b % k g
x 3S f ,a
| hU E
0 {
y 8? I hi L +
3 8S q h} N Va
?
7 V# 8g
Y ' i B S
: 7
} 8{
2
_
= K 9
,
s
@ qG 9#
]9 |% u |SMdg t &Hg U Tw04 Tan3 SPH S N &4B N^^]7 I`@ HP4 H cT GP5 G e,( @P5 @ &&$ ?P6 ?P6 >P7 > . =P7 =P8 <
<cm@ ;
) ; &?; : / : fuG 5Q@ 5 / 4X } 4
32I72 2
@[ 2 Y| 1^^0
3\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