Trailing-Edge
-
PDP-10 Archives
-
decuslib10-02
-
43,50261/sign.rel
There are 13 other files named sign.rel in the archive. Click here to see a list.
0 (R { 3 , + @ ??????? ,
,
+ ,
,
+ A > , r + 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 . , ? - $ * = & < > + / ! ' : # " ^ _ % ; ( ) [ ]
, J + ERASE INLIN H PRINT EXIT DEFSY INSIG WIPE } $ D , + ,
,
,
,
+ -\ `4 4 4 4
4 4 " } b } x I+ } (' TYPE "H" FOR HELP',/) { Gx 5 " } b } x ]+ } (' *',$) { [ " } B } x q+ } (A5) { o 3D + } : { Z { x 3Dh + } 1: 9 " } b } x -+ } (' ?NOT A COMMAND: ',A5) { + " } b } + x 6b } 0b } 7 { ?+ 4 4 4 4 4 4 4 4 4 x zA } 0D } g } O } 1F } g } O } A 4$ " } b } x z}+ } (' ?NO SIGN IN CORE',/) { S+ x zU " } B} } 5D
x + } (5X,I) {
_ "
} b } x
zi+ } (' WHAT LINE NUMBER? ',$){
s" } B } x {9+ } (I) {
m 4d " . 5$
x u "
} b } x
+ } (' ?LINE #',I2,' DOES NOT EXIST') {
D " x ',$) { } G$ 2$ + " } b } x } E x u+ } ('+SIGN:'I2,'LINE:',I2,' STRING:',$) {
2Dh+ x !} 0z = } $ D x ,a} $ / } 7 } .$ } ( D @@ } 7 } .$ } (} ( } 3F +
} & F{
x 5 / 5$ x I: . D
3D+ } : { ' Z { ;x za 3Dh+ } 1: 9 " } b } x zu+
} (' ?NOT A RECOGNIZED SYMBOL: 'A2,' TRY AGAIN') {
O+ x {1 D `O@ ` " X@ ` X@ `} B } : {
c Z
{w} & <} $ } ( $
. } . } (
} 1: 9
} 8 x {E+ 4d x u} : { Z { 3} : { Z { 3x a} $ <} $ } & $ . } . } (
H J} 1: 9x 3: 9x N . } & } / 4f x Y} }$ . . } { G Z { [} M: { oNZ { x } $ <} $ } & $ . } . } ( @@@B} 1: 9 } 1: 9x )} D$ 3d } g } O A 4$ @@ D 4$ 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'/) { + " } b } x
} x ni+ } (A1) { S 3D
+ " } b } 4 } x n}+ } (1X,30A2,/,1X,32A2,/) { ?+ x hA 4d x {] " !} b } x !
+ } (' ?NOTHING TO PRINT',/) { S+ x hU} $ $ } & } / } 7 } .& } ( F
X@ " !{ g} b } X@ " !{ {} b }
4d "x " hi} : { Z { #x # h} X@ " !{ 7} b } } "$ .
} 3: 9x ! i+ } (' '){ Kx " na} : { _ Z { s h5d $x $ oE X@ " %{ %_} b } : { & Z
{ &/} : { %s Z
} & } $ . } . } (
} 1: 9
} 1: 9} x % ia+ } (8(' ',7X,12(A7,3X)/)/) { &C} $ 3D + X@ " %{ &k} b } { &Wx %
i+ } (' ',/,' ') { &+ #x $
a X@ " &{ '} b } : { ,' Z
{ ,;} : { + Z
} & } $ . } . } (
} 1: 9
} 1: 9 } x &
E+ } (8(' ',11X,12(A7,3X)/)/) { ,O} $ 3D + X@! " %{! ,w} b } { ,cx #
" 3: 9-\ `4 @@ } x$ D + x bA: x & ca@@ (} b } x ( v-+ "} (' ?YOU HAVE}NOTbPRINTED SIGN',I3,'YET') #{" -3+ x ( 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)') {# 23x * A " +} b } x + %+ $} (' 1234567',/) {$ 2G} : {$ 2[ Z {% 2o " ,} b } } x , ] + %} ('+',I1,'^',$) {% 3x + ce " ,} B } (
} } 1: 9$x , ]E+ &} (A7) {& 3 " -} b } x - i!+ &} (' NEW SYMBOL DEFINED'/) {& 3+O@ + x uaL 4$ -} : {' 3? Z {' 3Sx . } $ <} $ } & $
. } . } ( }
} (
0
4 H J} 1: 9'+ x - a " .} b } x . + (} (' "@" MUST NOT APPEAR IN AN INPUT STRING UNTIL',/, ' YOU HAVE GONE THRU DEFSYM DIALOG TO DEFINE THE SYMBOL',/, ' THE LINE HAS NOT BEEN COMPILED.'/) {( 8?+ x PA 4D 'x / P}} $ D + x ' Q% 4$ / " )} b } x ) Q+ (} (' INSTRUCTIONS? (Y OR N):',$){( 8S " 0} B } x 0 Q9+ )} (A1) {) 8g " 0} b } x 0 PU+ )} (' '){) 8{ 3D + 1 " 1} b } x 1 Va+ *} (' 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.'//){* 9x 1 iAO@ x / oaO@ x pE+ *} ('+LINE ',I2,': ',$){* 9#+ x JA+ x A@@ + -\ `~ (R{+8DYw} + SIGN.LIB @ N ) ^
KwH
_
G
18F
17N |8F |^N >* YB 4~ 4| an3 `@
@[ K+ cm@ Q@ /R &&$
% u
]9 X } &?; . ^^ ! cT "
) "
# {h3 #,( r &Hg
^^]7
fuG
q k
q b