Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2(pesnta/xelos-%I%) 9/18/84; site pesnta.UUCP
Path: utzoo!lsuc!pesnta!earlw
From: earlw@pesnta.UUCP (Earl Wallace)
Newsgroups: pe.cust.sources
Subject: Little Smalltalk Source, *New* Part 10 of 20
Message-ID: <2771@pesnta.UUCP>
Date: Thu, 13-Jun-85 15:34:24 EDT
Article-I.D.: pesnta.2771
Posted: Thu Jun 13 15:34:24 1985
Date-Received: Sat, 15-Jun-85 09:15:43 EDT
Organization: Perkin-Elmer Data Systems Group / Customer Service
Lines: 184

#! /bin/sh 
#
# This is an another posting of the Little Smalltalk source, the last posting
# of this source went out in 5 parts and they were too big (>200k) for most
# sites so I redid the whole mess to keep the files around the 50k range.
#
# The complete set is now 20 parts.
#
# P.S. - If you don't receive all 20 parts within 5 days, drop me a line.
#	 Also, I have the Rand sources of May 1984, if someone has a more
#	 updated copy, I'll be happy to post them (or YOU can post them :-))
# 
# -earlw@pesnta
#
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	prelude/stdsave
# This archive created: Thu Jun 13 11:32:21 1985
# By:	Earl Wallace (Perkin-Elmer Data Systems Group / Customer Service)
export PATH; PATH=/bin:$PATH
if test -f 'prelude/stdsave'
then
	echo shar: will not over-write existing file "'prelude/stdsave'"
else
cat << \SHAR_EOF > 'prelude/stdsave'
ol spacellLast:From:reysSelect:emoveKey:alue:h
l!l'l-()[]!|.;>enhighlow error: %dbA2.10000000D'y.s	85/03/06Lt char!
(]    r""!["
.r\   r""s #s 0#!s# q!!r "r 0"r"   ! ![\ q!P  rQ!"# #op" !) 
 y[]\!  r""!["
.r\ ! z r"!" r q!P  rQ!
"# #o
p" 
*  

  ! ! ! ! ! !f 
 d y m!s k !"j !"!Qj 0 !"i !h l !	 !eP 
 !	 !eP 
 !	 !eP 
 !	 !eP 
 !	 !eP 
 !gQ0\[ 0q r"P "o1!q"Qr2!!Q!  0] !"p"!Q!  0] !o!r ! ! ! ! ! !\]!"![!]!"UTSRQP !	 ] !	 ] !#
(] !
/! !  ] \ ! !.\ ! ! ! ! ! "!  ! ! ! ! !!  ! ! !
)!. !"+ PZ PQP 
 !
 0  !6  P 0 PP P ! 
  
 
 PP  5 2!3 ! !"! " !"! " !"! " !"! " !"! " !"! " !"! " !	 ! Pr" !"Qr ! ! 
# ! ! ! 
# RPP ! !
 ! ! 
# " ! ! 
# & RP ! ! ! ! ! ! % ' $! !0 : !  PZQr"! 
# ! ! 
# ! ! ! ! ! 
 01 8 2q 0! 0 : 5 9  6 9  ; ! !+ 
 ! !. 
 ! !* 
 0 I H G 0H !Y F K M L H O! I N 6 T6 U!P ! !X !0QRRQ!!!P`!a!`"a!`52305!
12!
235!
12!
23!
1
,!
2
,
+
0
5235!2!35!2!35!
12!
235!
12!
235!2!3!
1!
2!
1!
2!
1!
2!
1!
2!rQ!"# " !
/Q "!!#` #`  !  "!#" r!"#": Q  a]]!`c"a#bP!"!"sQ#!(!#Q" !!!Q!P(`9q !" !!QP!"!!0` q !"!  (
!#" #" 0 ! 0! 0  (!#" #" !  	#! " ! 0 !\[  (
" !#" ! #]! #" !
 !0!(q !"#!! "#! 00r!"#"!ab]
q!!
1  0! 1"23q!
2Qa q!
2]Q "q!
2]"
#
1!#] !s !#t$"#$"
2 !s !#t$"$
2 !s !#t$5!2"3t#$$"3" !s#r"0r#""!Q` s!t#"#$ s!t] tR$3%Qr"Q!$"$"Q$"s$"$"Q$"Q#"Qr. $ !".  0!#"#" rq !"#"Qr ! 
r 
s"# "4! ""Qr]Pu!%" !%#%$%Qu#!	 $%$QP   
 !" 0]"t !u$%! $$$Qt# 	!# *" ! 0 	!# " ! 0Ps $!"#\\#Qs[0r 
#!"# " 0 !0s!"# $ #  0	"!#" 0 ! 0" 0 0!012!Qs ##"c c 
!!	!!P	QY0p`
1
1
2a
1a
1 
%  
 
% 
%q
2`!
1 0" ]
1!#
2`#
23!" ! 0q]!
2!
2q!! "! " ! 
5!2]33!5!23`!5!23`!Q "`! "  qQ !" "!Q`   QQ`    qQ 	!" "
!"!Qs #t$Q# !$ P  ! "1 ! 
$ Q R P u0qQ 
! "1q!2 !"w !v!t __
Q`Q` 
&
0-0 1/] S 
-0!1  
- q!P0q!!Q1q!!R2q!!S2q!!T3q! 
-0 1/] Q 
- 
-0 1/] P 
- 
-0 1/] R 
-

ittle Smalltalk
	`pp`pa`	#(  ) ) >

<primitive 112 temp 6		" displayAssign " \
	#( #[ 81 82 250 2 8 243 245] \
	#(  ) ) >

<primitive 112 temp 7		" display " \
	#( #[ 81 81 250 2 8 243 245] \
	#(  ) ) >

<primitive 112 temp 8		" debug: " \
	#( #[ 82 33 250 2 8 243 245] \
	#(  ) ) >

<primitive 112 temp 9		" date " \
	#( #[ 250 0 160 243 245] \
	#(  ) ) >

<primitive 98 #Smalltalk \
	<primitive 97 #Smalltalk #Dictionary #/u/smalltalk/prelude/smalltalk.st \
	#(  ) \
	#( #time: #sh: #perform:withArguments: #noDisplay #doPrimitive:withArguments: #displayAssign #display #debug: #date  ) \
	temp 3 3 > >

smalltalk new
time: " \
	#( #[ 250 0 161 114 33 165 242 250 0 161 34 193 243 245] \
	#(  ) ) >

<primitive 112 temp 2		" sh: " \
	#( #[ 33 250 1 125 243 245] \
	#(  ) ) >

<primitive 112 temp 3		" perform:withArguments: " \
	#( #[ 34 33 250 2 143 243 245] \
	#(  ) ) >

<primitive 112 temp 4		" noDisplay " \
	#( #[ 81 80 250 2 8 243 245] \
	#(  ) ) >

<primitive 112 temp 5		" doPrimitive:withArguments: " \
(ollectioney element not found`pSHAR_EOF
echo shar: a missing newline was added to "'prelude/stdsave'"
echo shar: 34164 control characters may be missing from "'prelude/stdsave'"
if test 65608 -ne "`wc -c < 'prelude/stdsave'`"
then
	echo shar: error transmitting "'prelude/stdsave'" '(should have been 65608 characters)'
fi
fi # end of overwriting check
#	End of shell archive
exit 0