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

 sTMA0
sTMAp
.9
d%MF	!p

K
$
8|@	 
 
 R
 U
 U
 V
 V
 W	 W
w
	 `	 htuw	 qttz	 y
w



	 
xvt	 

zvxvxvxv 
uwuswus
w8 
"
 
-< "
"	b+
 <<->-8
':W-<
' <?,+
+ 
"ggge}Kb(	!"Q
%r\_J$[I7wX6@W,O@W \X <
', <E, <K, <R	*U*T*
-,
, <Y,
- <d,
. <j,
/ <o,
0 <r,
1 <s, w*(6 <z,	(D*U*
6 <z,Z<{, |0@+
:+
Q+
5 <
,
5 <,
; <,
6Z<,
7	(T*

> 0@+
@+
] 0@+
B+, 0@+
D+- 0@+
F+# <
	**
G,
<Z<
,Z<,
G+
:,< <,

p <	**E

O,
J <], <^,+6 <^,
Q+{#(0@+
W <,+
:@@BZ<	"U*U*
X,Z<,
L <`,
S+y <`,
Z+8+
: <a,
[+4 <^,
]+{#(	"U*U*
`0@+
c <a,
_+}+
h <,
O <,
d <,
e <`,
b+8+
5 < 	"*U*
i, <%, <+,
f <,,
=Z<,,
> -2BO+
o+ .2BO+
q+"	*U*U

q .2BO+
s+K /2BO+
u+
1/2BO+
w+K0O0@+
y+
} <2	*U*U*
z,
kZ<3,
H <4,
z+
h <^,
g+{ <b,
}+ <`,
+8+
; <6	*U(T*,
| <7,
lZ<7,
m <c,
PZ<8,++
h <;, <c,+Z<<	(T*T*,
K1@
#+Z<<,0@
++ <],	+
J#(0@+ <>,Z<>	*U*U*,
{ <?, <A,+ <C, <D,Z<D, <G, <G, <H	"U U*, I,
Y <d,+
 <K,  .W @W+ <O, <O,Z<P	*U*T*$, <d,Z<Q,+(+
h <e,+	Z<Q,
U*-+.+5E<],(+
J#(0@+5v<T,"Z<T,	<U,1 <X,3+"	*U*U*5 <Z,4 <Z,#Z<[,$ <^,6 <^,7Z<,8 <b,9 <c,:Z<c	*U*Q*>,; <f,< <f,=Z<g,> <e,.+#(1@+J <k,?Z<l,,	*X*U*FZ<l, <n,
M

O <	,
j <f,% <f,B+Z<	,F1@
#+VZ<	,S0@
+W+^ <]	*E*U*W,Q+
J#(0@+^ <	,LZ<	,2 <	,Z <	
,\+K <	

,]*<	*`,MZ<	`Z<	,a <	,b <	,cZ<	,d <	,e	*U(U*h <	,fZ<	,g <g,W+#(1@+r <	,hZ<	,[ <	,n <		*Q
U*q,p+K#P @+  #U.
#@U <	,q <	 ,iZ<	 ,jZ<	!,&+z	*T*U*y+ <e,k+	#(1@+ <	%,uZ<	&,o <	',} <],z+
J+u	*U"U* <f,+ <g,+#(0@++ <	+, <],+
J+ <f	*U*E*
,+KZ<	+,x+
+#(0@++  <	/,+
 <	2	*U*U*, <	2,v <	3, 	4,G <h,P <	7, <	8,Z<	8,w <h,	*
U*"	9 	:3B+  <	=,  .V @V+
hZ<	>,
XZ<	>, <i,+	(U*X*$#(0@+- <	@,Z<	@,!Z<	A," <	C,H
 <	D,& <	F,+	*U+*,+
 <	I,,Z<	I,'Z<	J,( <	L,)
( <	M,- <	O,2 <	O,	*U*U"5Z<	P,Z<	R,.Z<	R,/Z<	S,6Z<	T,7 <i,#+#(0@+D  	*(E*= 	U,8.
Z<	U,9  .B @B  #U.
#@U+y <	W,3Z<	X,>	*X*U(FZ<	X,? <	Z,0
 <	[,D <	],I+ <f,:+K <	`,+O	*T*U(N+
h <f,L+#(1@+S <	e,J+K <h,O+Z<	e,E0@+W	*T*U*W+
h <i,T+#(0@+` <j,X+ Z<	f,UZ<	f,FZ<	g,\Z<	g	*U*E*_,]+y <	k,R+S <h,[+"	k 	l3B+f+
h <i,b+#(	"U*U*h0@+o <j,f+ Z<	l,^Z<	m,_Z<	m,kZ<	n,l+y <	p,a+b	"EU"p   	q,m.
Z<	r,n  #V.
#@VZ<	r,q 	s,v.
Z<	t,s	*U*U*y <	v,o <	w,4Z<	w,5Z<	x,

+ <i,i+ <j,~+"Z<	y,w	*Q(Q*
Z<	z,x <	},  .V @V+
h   	~,
.
Z<	,Z<	,Z<
	*"U*
,Z<
, <c,+#(0@++ <
,yZ<
,~ <
,+y	*U*U( <k,

+ <
, <
,z <
	, 
	,
Z<

,	 
,$
&
	*U
U* 

,Z<
, 
,.
Z<
, <k,+ <l, +1+p <
	*U*U"#, <
,# <
,$ <
,% <
,& <
,' <
 ,( <
!, <
",
V	"E*U*,,+
; <
#, <
),) <
),Z<
*,{ 
+2BO+3+> 
+2BO+5	*U*E*4+ 
,2BO+7+4 
,2BO+9+Y O0@+;+k <
/,.Z<
0,	*U*U"= <
1,;+. <c,!+Z<
1,|+B+. <c,?+#(0@+H <k	*U*U*E,B+ <o,E+m+M <
3,=Z<
3,< <
4,I <
7,K+. <
;,L	*U
Q*N <
<,/Z<
<,0"
= 
>2B+R+V"
> 
?2B+U+. <
A,M+M	*T*U*V <o,G++Z<
B,U0@
+[ <
E,U+. <
I,Z+b <o,W++Z<
I	(U*U
_,X0@
+b <
J,\+. <p,]+/ <p,b+-#(1@+i <
N,a	*U*Q*g <],d+
J+] <j,h+  <q,j+'#(1@+q <
R,g <],k	*U**p+
J+] <q,o+ <r,q+#(1@+w 
U*(F+x<r,s+
8 JS*
Vj
VZ<
W,Z<
W, <
Y,G
+ <
Z,n <
\,Z<
\	*V
U*
,{Z<
],| <
^,}
+X <
_, <
a,Z<
a,
Z<
b, <
c,	0U*U*	
,( <
d, <
e,Z<
f,J <
g,

+] <d,w+"Z<
g,@+	*T*U*+. <e,+	#(0@+ <r,+
i,Z<
i	*U*U",
j, <
m,+. <
q, <
q,NZ<
r,O"
s 
s2B+#+'	**U
#"
t 
t2B+%+. <
w,+ <s,+Z<
w,_0@
+, <
{,&	*U"U*++.+0 <s,'+Z<
{,)0@
+0+. <q,-+ <t,1++,	*U*Q*4 <f,2+KZ<
|,+7+k <f,4+#(0@+> <q,8+ <t	*U*U*<,;++B <
~,+Z<
~, <
,> <,@+. <,A <,Z<	*E(U*E, " 	2B+H+L"	 
2B+J+. <

,C+B <t,<+%	**U
MZ<+Q <,K+.+U <t,L+%Z<,N0@
+U+. <j	*U*Q*V,R+  <u,V+"+Q <h,W+Z<,0@+]+. <i,Y+	(U*U*^#(0@+c <j,]+  <u,`+"+Y <,PZ<,[Z<, <	,*U*g,	
2H <,d <,i+Y <`,b+8+
; <,jZ<,? <	*U*U,o,m <,oZ<,n < ,p <",rZ<#,eZ<#,f <&,g
4@	*U*a*x <',s <),xZ<),tZ<*,u <,,v
5( <-,y <.,~ <o	*U*U*, </,Z<0,q <1,
 <2,Z<3, <4, <6,Z<6,	*U*U*	 <7, <8,	Z<9, <:,
 <;,

Z<<, <=,	*U*U*,Z<?, <@, <A, <C,Z<C, <D, <F,Z<F,	*U*U* <G, <I,Z<I, <J, <L,Z<L, <M, <t, <P	*U0U*", Z<P,zZ<Q,{ <S,|
: <T," <V,'Z<W, <X,(	*U,*+ <Z,*Z<[,#Z<[,$ <],%
;@ <^,+ <`,0Z<a,,Z<a	*a**3,- <d,.
<  <e,1Z<f,20@+9+\ <i,6 <j,DZ<j	*E(U*<,E"k l2B+?+C"l m2B+A+\ <o,:+7 <s,B <u	*Q(U*D,k+)Z<s,S0@
+H+\#(1`+K <],D+
J+\ <p,J+/	*U*U0M <t,CZ<u,) <v,M <w,OZ<w,7Z<x,3 <y,4
? <z	*U+*U,P <|,UZ<|,QZ<},R <

,S
?X <

,V+D <u,! <

	"UE*^,#PZ<

,XZ<

,W@@ <

, D& P 

,_ Z<

,d <

	*U*U*f,[Z<

,N <

	,f <

,h <

,i <

,^#PZ<

,eZ<

,`Z<

	*a*U*o,m <

,Y
Ap <

,j <

,r <

,sZ<

,FZ<

,o <

,p	0T*
w
B@ <

,t <

, <`,] <

, <^,{ <

, <a,} <

	"U(U*, <b, <

,z <d,
 <

, <c, <

 ,~ <k, <

!,	*U*U* <k, <

#, <e,	 <

$, <e, <

%, <r,

&,
 <f	*U
U*, <

(,| <s, <

*, <r, <

+,

 <

,,k <g, <

.,	*E*U* <q, <

/, <g, <

1, <i, <

2, <i, <

3, <j	*U*U*",  <

4, <j," <

5, <

8,% <t,$ <

:, <q,' <

;,&	*U*U** <u,) <

>,* <o,+ <

@,( <p,- <

A,! <p,/ <

B, <l*U*U(3,1 <

C,- <

F,4 <a,3 <

H,5 <^,6 <

K,+ <`,8,	 ;G>{$
p;;x >ORDENTH?
SUBS1HA
	(*CHPX@XBYCH)H,-H3XYG	*QA*L+HIH6@H7H7@
$7@$XZMNOP	(D U(TH8@$9

9@
<:@$XZTUVWH;0;	"D
]0?@$@@
<@@<A@HA@

A@8[[\	*U U"e]^_`abHC@`[BhCHDHF

	("nHH`\lmnx\p]JAREA1                    	&
Tv     ~@3ENTER 'BEGIN' TO START: H
@wH@@HH@Q<QFUNCTIONS ARE:  ENTER, CH	 U*ANGE, INQUIRY, QUITHB`|ENTER FUNCTION: H

H@@HH@Q<Q<Q<Q<Q	 
*
(INVALID FUNCTION CODE: H
8HQH@H@@ERROR-STATUS: Hp

H(I(`! 	"Q"@HHI@8p__ AI0H0CORDER SUMMARY RECORD NOT FOUNDHAp	 
 ORDER ENTRY SYSTEM NOT INITIALIZED - H(KEY-IN BEGINH@`HPp	( @!b CHANGING ENTER MODESH!

x$RECORD TYPES ARE: PROD, SLSENG, CUS	 ()TOM, PURORD & ITEMHC(&H@0HH0OaJ|@g3[SGWKvaW|RSR-PINVALID RECORD-TYPE:	"TU"2 H
(0HOH0H@0KEY-IN PROD-NO: H
4H@@HH@;H@;PRODH9
	"T
P:p9WH(H(PROD-NO: HH=H;H@H@ ALREADY EXISTSH@x@PROD DESC:	"TC HXBHCH0;PRODUCT PRICE: HxE
@@
0@?kaHPRODHI
p	*
U KJWKEY-IN SALESENG NAME :H
0LHApHH
pDH
pDH(H(SLSENG NAME: 	*P
*THhRHDH(H( ALREADY ON FILEHAVSALES OFFICE: HpXHA@HH
@FPHONE	  
*\ - AREA CODE: H
\H@HHHPHONE NUMBER AS XXX-XXXX H
H`H@@H$@HEXTEN	 U*eSION: HXdH@ H

 ISLSENG NOT ENTERED - ERROR-STATUS: HhH(I(`!	 Tm HHI@8CUSTOMERHp
pqVKEY-IN CUSTOMER NAME: 	*PvH
0sHApHH
p)THIS IS SUPPOSED TO BE AMULTI-BLOCK TEXT EXAMPLE, I CERTAINLY HOP	 ~E THAT IT ACTUALLY IS LONG ENOUGHHx
1x	H(H(CUSTOMER-NAME: Hx		*@ (	H)H
pH
pALREADY EXISTSH@p	STREET ADDRESS: H
	
HB HH ,CITY: 	*P*E(	H0	HBHH/STATE: H8	H@pHp1ZIP: H(	H@0HH03CUSTOMER: 	*P	HP	H)H
pH
p NOT ENTEREDH@`	SLSENG NAME (OR SPACE, IF NONE): H	HAp	*@ 	 HH
pDH
pDNO SLSENG OF THIS NAME ON FILE - H	"HDH
pHApCUSTOM NOT ENTE	  	)RED IN SLSCUS-SETHB	'H
p)NO CUSTOMER OF THIS NAME ON FILEHB	,ENTER ORDER-NUM	"
*	1BER: H
 	0
@0H06B 	3ANY ORDER TO BE ENTERED?  H
P	4H@HHR<R	(*A(	:<
%CUSTOMERH	:
p	;VH0CH06ORDNUM: H@	?H06I0``
	"P*	B HHI@ALREADY EXISTSH@p	DNEW ORDER NUMBER IS: H
(	FH0CI0`	 TT
	K`
 HHI@@ORDER-DATE: H`	MH@0HH07 A AIH	Q$H7 A	*TP
	SI	SH7H0C	TH0CORDER NUMBER: Hp	VH06I0``
 HHI@	 P	\  NOT ENTEREDH@h	\H	^H
p)NO CUSTOMER OF THIS NAME ON FI	"U *	dLEHB	aH06H06H0SH7HTORDER NUMBER NOT IN DATA BASEHAh	h<R<
%H06	*@
U(	mH0SH7HTINVALID ORDER NUMBERHA 	nH7	qH7<H:$H7	s$H7PRODUCT NU	 U"A	uMBER: H
	tH@@H$@9$@9 AI	yHTCUSTOMERH	z
p	{V	*U (	~HT	~HTHHSHH8$9H@;INVALID PROD-NO: H


$9H@H@@QUANTITY O	 D*E*
RDERED: H


@

92
0@?

9


n5J<H:

9H(A
H(A	" 
 H@
 H@
THE FOLLOWING STATISTICS ROUTINE IS A DBMS-10HBh
UTILITY CALLED 	 "
'STATS' AND MAY BE CALLED AT ANYHBx
POINT IN A USER PROGRAMHA8
 H@
 	(*@
 H@
xl`mmnnPROD, SLSENG, CUSTOM OR PURORD INQU	"T

(IRY? H@
%H@0HH0OaJ|@g3[SGWKvaW|RINVALID INQUIRY TYPE - H
8
-HOH0	*(

1H@0H@;PROD-NO: HH
2H;H@H@ NOT IN DATA BASEHA
5DISPLAY ORDER INFO F	 *T
9OR THIS PROD-NO? H(
7H@HHR<R<
%<R<
%YES OR NO PLEASEHA
?	(

BH(NO PURORDS FOR THIS PROD-NOHAX
BPURORD  LINE  QTY  CUSTOMERHAX
FH( 	(
JH@
JPURORD NOT FOUND FOR THIS ITEMHAp
KCUSTOM FOR THIS PURORD ITEM NOT FOUNDHB(
N	 *@*
S]>tP
*0D$H9$HTH06I0``
 HHI@     	"P* 
[ H0
[HTI`
 HHI       H0
`

9I`H	*( 
dHI    H 
eH)H
pHApH
pDSLSENG: H@
hHDH
pH
p NOT IN DATA BA	"U*
lSEHA
kDISPLAY CUSTOMERS FOR THIS SLSENG? H
mH@HHR<R<
%<R<
%	 
(
uYES OR NO PLEASEHA
uH(NO CUSTOMERS FOR THIS SLSENGHA`
xH(H
p)CUST-NAME:	"T@
}   Hh
|H)H
pH
p NOT IN DATA BASEHADISPLAY ORDER(S) FOR THIS CUSTOMER?	"U*( H H@HHR<R<
%<R<
%YES OR NO PLEASE!HA
H(NO0ORDERSR	H@TFORTHISCUSTOMERHAXH	(
UI@ IS NOT IN DATABASEHAPROD-NO:      HpH;H@H@@  DESCR.      Hp	*@**0;HHC  PRICE       Hp!0@?I@``
$ HHI@X  ON 	 TQ(ORDER    Hp'H(AI(`! HHI@8 H@-NAME:     HP.HD	*((0H
pHAp  OFFICE: HP1HFH
@HA@   PHONE:  (H`4HHHH)   H 8	*A*(9$HH@H@   EXT: H@:

IH H@ NAME:   H@=H)H
pHAp ADDRESS: 	( UAH@P@  STREET: HPBH,H HB   CITY:   HPEH/HHB  STATE:  HPH1	*(
(JHpH@p  ZIP:    HPKH3H0H@0  ORDER NUMBER: H
NH06I0``
	"PTR HHI@@    ORDER DATE:   H
TH7H0H@0    ORDER LINES:  H
X	*  [H7I`
 HHI@     ORDER NET:    H
^$H7IH`	 	 "	 U
*c HHI@hH7DISPLAY ITEMS IN THIS ORDER? H
hfH@HHR<R	*@
l<
%<R<
%YES OR NO PLEASEHAm     PROD-NO.   QTY.     NETHA`pH(     	*Q(tH(t$9H@H@   Hv

9I`HHI        H@{<H:	(*(}IH`	 	 " HHI@hhvvPH0TH0T@H(R	*(*



<SPAGREC H8

HRH`H`REC-NAME HH

	HAphwwPH0T	*
*T

H0TI0``
 HHI@H
pH
pH(I(`! HH	(E(E"

I@8xx`xyyzxzh{{|x|p	*"D"

}}x~p~p
x
x

p


	"T"

'`



x
x
h

Px
p
	(QE(

0
p

x
	x
	x

`





`

	*D*E(

8
x
`



`



x
	"*"

Ax
x
`



`



`

*

I

x
	D"`ubarWIbbarW]bgsCyb]*;eT56	D"`7$>bT)|gbT0<`%n+MbTMK:`-$
*`x7V
(bT3[
eVZq,	D"d:dv-Fabw/*wbDvH*
bLk

c^hK^
!bK
S9eVZ{32`|Y_	D"`64D#`!|F0`7$2`
&,`
&.`
&`TUG7

sTMA
'`rG
+D"`2G
2`	,"G
3cyK5=
icyjoOcz9LhKcqslh`eF*(
 

K