Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

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 +ERASEINLINH    PRINT     EXIT DEFSYINSIGWIPE } $
 D

,+
          
,
,
,
,
+ -\`
4
4

44


44
 "}b} xI+
}(' TYPE "H" FOR HELP',/) {
Gx
5 "
}b} x
]+
}
(' *',$)  {
[ "}B} xq+}(A5) {o 
3D+
} :{
 Z{
x
 3Dh+}1:9 "}b} x
-+}(' ?NOT A COMMAND: ',A5) {
+ "}b} +
x
6b}0b}7{
?+
444444444xzA }0D}g
}O }1F}g
}O}A
4$ "	}b} x	z}+}(' ?NO SIGN IN CORE',/)  {
S+
xzU "	}B}}  5D
x	
+}
(5X,I)    {

_ "
}b} x
zi+}(' WHAT LINE NUMBER? ',$){

s"}B} x{9+}(I)  {

m 4d".5$

xu "

}b} x


	+}(' ?LINE #',I2,' DOES NOT EXIST')  {


D"x',$){}G$2$+"}b}x
}Exu+}('+SIGN:'I2,'LINE:',I2,' STRING:',$)  {
 
2Dh
+x !}0z=	} $ D	x,a} $/	}7 
}.$}( D	 @@ 	}7 
}.$}(}( 	}3F
+
 } & F{
x 5 /	5$x I: .	 D
 
 3D
+} :{' Z{;xza  
3Dh+}1:9 "}b 
} xzu+

}(' ?NOT A RECOGNIZED SYMBOL: 'A2,'  TRY AGAIN')   {

O+x{1  D`O@` "  X@`  X@`}B} :{

c Z
{w} &<}$} ($
.}.}(

}1:9

}8x{E+	4dxu} :{ Z{3} :{ Z{3xa} $<}$} &$.}.
}(  
HJ}1:9x3:	9x	N.	}&}/
4fxY}}$..	}
{G Z{[}M:{oNZ{x
} $<}$} &$.}.
}(@@@B}1:9 }1:9x)}D$3d}g
}OA4$@@D4$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

} xni+}(A1) {S 
3D

+
 "}b  }4} xn}+}(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+
xbA:
x&ca@@(}b
}x(v-+"}('?YOUHAVE}NOTbPRINTEDSIGN',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@+
xuaL4$-} :{'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?+xPA 4D'x/P}} $
 D+x'Q% 4$/ ")}b} x)Q+(}(' INSTRUCTIONS? (Y OR N):',$){(8S "0}B} x0Q9+)}(A1) {)8g "0}b} x0PU+)}(' '){)8{ 
3D+1 "1}b} x1Va+*}(' 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.'//){*9x1iAO@x/oaO@xpE+*}('+LINE ',I2,': ',$){*9#+xJA+
x
 A@@+
-\`~(R{+8DYw} +SIGN.LIB       @    N    )^

KwH
_
G
18F
17N|8F|^N>*YB4~4|an3`@

@[	K+cm@Q@/R&&$
%	u

]9X}&?;.^^!cT"

)"
#{h3#,(r&Hg

^^]7

fuG

 q 
k 

 q   b