home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carousel
/
CAROUSEL.cdr
/
mactosh
/
lang
/
macapl1_.hqx
< prev
next >
Wrap
Text File
|
1987-02-12
|
41KB
|
641 lines
12-Feb-87 00:30:25-MST,41731;000000000000
Return-Path: <INFO-MAC-REQUEST@SUMEX-AIM.STANFORD.EDU>
Received: from SUMEX-AIM.STANFORD.EDU by SIMTEL20.ARPA with TCP; Thu 12 Feb 87 00:26:54-MST
Return-Path: <@po3.andrew.cmu.edu:mss#@andrew.cmu.edu>
Received: from po3.andrew.cmu.edu by SUMEX-AIM.STANFORD.EDU with TCP; Wed 11 Feb 87 04:28:22-PST
Received: by po3.andrew.cmu.edu (4.12/3.15) id <AA00387> for info-mac@sumex-aim.stanford.edu; Tue, 10 Feb 87 14:22:03 est
Received: via switchmail; Tue, 10 Feb 87 14:21:56 est
Received: FROM ishmael VIA queuemail
ID </cmu/common/mailqs/q005/QF.ishmael.202f7dba.119>;
Tue, 10 Feb 87 14:21:33 est
Date: Tue, 10 Feb 87 14:21:09 EST
From: mss@andrew.cmu.edu
To: info-mac@sumex-aim.stanford.edu
Subject: MacAPL (part 1 of 10)
ReSent-Date: Wed 11 Feb 87 23:25:53-PST
ReSent-From: Dwayne Virnau... <INFO-MAC-REQUEST@SUMEX-AIM.STANFORD.EDU>
ReSent-To: info-mac-redist: ;
ReSent-Message-ID: <12278381843.26.INFO-MAC-REQUEST@SUMEX-AIM.STANFORD.EDU>
This is the demo version of Leptonic's MacAPL (an APL
interpreter). It does everything except saving workspaces.
-Mark
----------part 1 of 10
(This file must be converted with BinHex 4.0)
:#NeKBd&36#j`DA3!8%P8)&"*9#!!N!-%D*i!N!6Fp&"0B63J!3FiFF&'Rhc5+4M
-3846",[&iF((d$R(k66epQB(Ml#)@--0B3f%Y6RZ'Ne5eA%8UH[*EAEMSBM%TVB
LEfrc%4SAK(-c0iP*$&42b+DDh&Z6ZliZe)%Nd61aSQGZ`Ci"aTL[2l6KFmmX'!!
BG#S4Ii'-rF2a!K`!,hb'cY"1X+VQD+clA4Y)kHm8IE&eqUej3*Ie'MlTY1DeeH1
,k91KS1VYAPVTApHmAD&,dcPBib0pEkb#+l&Mk+DI0rd+Vhhamj5D$r%IBbr$!V-
)5qQAi,IlQ!KCe%HqE33P8,Ki*hR(fjC%jNfrZ'+i9!9+Q&6RK8&@Bfp4Nri1IN&
PN!#`NJI$r4K"L2#RR3q56k`CA5Y4NceG*90$2`+eeP$kl,EJpNSHLYM9m4NZmA+
5TG@!NedPEla)MGXLd$QYmZqQM#UYlq*6#CK0I`NMJX)S8`Q4E*UbN!!!*LMb0(d
b#E#DeM0-93"J$!4K'*TGl%fMdAe8!!"(D8Zb[6$ljGPHQ%QmQdQS9!4hJD2`#N!
PGV0EjGe0k*6DTrGGY&r3!*!$#"c@qAI64K9@pr&[B`%B4LDAHa0Sp&p9!0)!"'%
BQPhX6D24I93$5!#3!kiTS*GPHQ(hJ!)l5!#3!j02Y!%VC0EjGrXd9,4ICpefdAp
!!*!%!p(fJ#9fXe[PhGd6SNrpefdAp!#3"3Ecl3"+kBQYmZk91llVYS[k!*!&&-3
,3J$V%-q(P-K!C$")%4J+P'4PA`#3"J%Y,!#3!`%#*!#3!`ZS!*!&!TN!$6#0ZlT
EZA2YZLkK*'TpdYNVTQ$XJk[Vb62cGdZP+QkQFqkCj2YNB2a`fI`f!!%#I9&d!A9
p!,+%K$A'm!%-q&4f#S'`0HKq%D1Z6CTN$JA`@jrLCR`9-@)%qk2`5Q(G&Qa30d1
R54k8Ar`P,cbIhp6TRP6[iapq1cCr#"J'Q"!U+5i#8hAk59[dfEVC8XJm!%D1#TB
JUAX$6'9L2PAp'KqFdG@lqNdbfX+PG,GU9q"Ge5daZG+ddSGT6'Nr-k(6TD0+'l9
Y2RNr[pZQH92D8PeIMXfBi'!DB%#S[T0NLb'bcSfiYT5h(iAa*8Y!R%@kPZedNHR
Ve&9$Y0(UJiV@hpI+VecAdD'mR0P-I!q(N5LYSZT*PSC8b40,lY-P6THYr@PmdQ,
C!YTQ+c5dD8)UY9+H6qrfkESERj@q5B)ehh2"P6+MkdUL,$m8rpkBHXpAB4-VPii
(1N[JD8fHEHE90@[+TGV&S@@*(Tk0Z93TLkf+@iL8kBSj5NmRNarIcUck&4qrj0,
e51PY6#S*fC)e@@IZE*PD+KlC00TdqUBZK@IUA+CE9VH5e*P-rfk945KYeDqV*j2
T428VSPQH6k3T42c#aAD5kqUG+T8Qa2)jNN1M5PlES5Q9XVe,5QA[Nh2Sp23T9QK
Ic,YH*ll(i@*LV2K5@r4Fhar*T5PpCkP@Xdp#h+PG*8Y1Ybk&(-QL9k6Cqdkk&CT
)p+%9@ZQH4kHqTdh3U#S+ep@6b2TP2@%#PQH6k9Y`RlYBVS8TG#E+Uj4824*IkL1
bNY[0UQh1LED8hl6@0ZMdp'T9YeC+5a5hF[cTj(+MGdmQ+X8bPb@5Mq16(5p8M[8
c42EN4b9qZEM6M4bBSjNd6b8aaaA3V0*(b`hDYG-mMdpp6Tp20)'MReC2)qc28VS
PQH6iT42hD@i%rpLE+V6,&T0akL08QiqP*90@k+8Gf,GVS8HRVe(I,(TSp8*4+eZ
I`P$kGT-CK@"5@5AEqR5L92PLDfE1KJA`8GGBi%MVT4dp0&BeCrF$G$TdNI,&qVA
62)rIe@LNjT!!0(2h*2*p+*kNTL@Cj2`05NS*JM%#IMA4R6K6N@a5QUQ9Q4C90@U
QqV3%mMR"(DDH!rGkVIYpEkZ9DBU5V,(TNjY-&0D1XX6AjYk&#DHYZXE%@Ah5lP3
9Gm&CmcCpFfTrRcDh6q+RT@V2TRTT&rF'6k0GkQQeT)c,+94#(mEIe91pBqF%f&P
+5bKL'HP@PYm00'EFK(*j2!IX&Vk$MLHS8eSrH6CSkSem#-Ur(C!!!%m!N!0!`!5
r!!JGN!#c'!@8!!!(`!#kJ!#3"3D-!dB!!"C!!0-!N!1b!!!"%l#c'!1`!!!q!*!
*"'"DJ!#3!`((&U@TDPU@TDPU@TDPU@TDPU@TDPU@TDPU@TDPU@S`YL8&qH$F(fR
bRj%d9)93[46)V55SQK*i[$lb8BUCB(p&,Rf(iLdPD8#J6a+`q)Pd6%p5+9*5NQK
Fa*58dG"FCk3P!5R*L+D*1PcL0)T,kae3UbYZU895ZVGedkSq[be8M@jDUT@pVGD
bh96&C89Np@mVI9IRUpA498Y99DrM9e9PE9+D`&CkXV+r&@ADZqX49ZDbj@A+bj@
6DXN+XPGDI@ReTpDI@ReTpDI@RePG9%UL94+SP85U*9%UL94+SP85U*9%UL94+SP
85U*9%V*"UQ9C++r$UT1U[@89IQVmPCP@iUZZ-M5Bi&'RSjBMEZ1G'h%DmGT'T'1
jBe8M[BjV'M%FU)lj(-)rJ4bNM911`MrXIf4T9(IH1$(T4UM'U-DSaUM'U-DSabV
MpA'N4Ye'h-FZ4qRMPQ1jSlQMNTMTXG0MG%Gaah((FFGaaqNMP"'TdENDFMNl(Fm
Gcac+2p4ZZ%K5BB&$EK5L'rKmKmKmK4m2b`U4KZ@&9)Ef&6-+Y$13"aIPCbrCQBh
GFc13%66lmpDF[br,m[hjkdkdjIPqY1Almm[br@R,m[br,m[br,m[hjkdjIPqY1A
jIPqAjIPqAjIPqAkdjIPqAjIPqAjIPqAjIPqAjIPqAjIPqY1AkdkdjIV6PqAjIPq
AkdjIPqr2,m[eTbr,m[br,m[br,m[br,m[br,pDGqHY1Al-c&qAlmSIP$-j!'-Aj
IXc13%4IPqAjIPqAkdkdkdjIPqAjIPqAjIPqAjIPqAlmpDF[br,m[br,m[br,m[e
Tbr,m[br@R,m[brCQN!4Lr,m[br,m[br,m[fB[brCLr,pQCQB[br,m[eTbr,pQ@R
(@R,m[br,m[br,pQCLr,m[br,m[hjjIPq"+lTd)!ka,b8Z6BPQi%T`P"C!NR'!-!
Uq!#3$36j2J#3#%jmR2J!N!GX!*!-0J!!!E!!B-!B"$)!N!iRbI!!N!F$h)2FJ!#
3"pJ!N!aX!!!$B!&he-K@&Mfb'3k(J!Ec9S%69d&AQHZIR2J)1%k)9fcA"aXE+0G
A&[)84%3VYQZG%Dd+(&[L'+lr!$`F)2llbVJ!N!3fcK%Z(J!!!6R`$C1LK1c@Gi!
!!!K%D`!Uq)1!"9m!)C!!!&FNQB'`H"$-a`0J9I)-9N+`X3AHPEL`QJ!UMC-CR&5
i+FQH[2FJ#hU2Fa4X[b$MVPp'ZVN9#h46TLMCIRZBkd+(&[L'+lr!$`F@hppj9`#
3"!T2$N6UpJ!!"1I!0Nk+%l0CEm!!!!3L0B!6*mYkJ!Uq)DJ3N!!!9E2i`pT!2E%
-c(!f"A(,eBC$S-@%EHTU`QTS!hXk,2S[Mb!JLDR!%9f(P[Zfhh0S@k%LUZR8)LM
9&pffrU9e"#KaEjeA*(!m2"`LQqm(J!!i!!+6eIV8P&Gci!1`QKX*cC&fEf'r+41
Gi'`!!Ch!&BXJ4AB!+[PZ+5%b%5&PZQYLc,$##R3HfFJXZ2"X#Z1IHX-Kd',#0[8
e1l63$qfp9ka'ANX3SFHKI4Gl(P[L&$Qq3S5+Ta)3bQZ,I%+(&&33SF@qG9b4`4)
m('cIH$`!!F!!&*kX4r,K9j!!!%5PZ`fZ`R1ZEf)Z`hj52IeJE!!"RF!3h$)0l!#
XJ488N!#`)N"j16N[@9B`FLJpXj!!@A(Jf"99[0jUC#X,#`hRp68l1EaJ#`b3!*V
'fH44#Kaj!5bre[,I%+(0p@K)V-ppqPGaEiK3j933SF@qG9alJGKi10QcKi!!1!!
#Np9CL,FKbX8JZ1)U+A2XJZ)*Hq4Epm[hI5'feK-PPm##rB1Ej#Kp#+JP[2(R!Ji
Dbr@%f3X3c*-[EXP9YC9M"-PXl0HiH3@9A"cA2L$LLUhM8b&BN!0[2l%kVGc-!@%
@3QSUVHf@d4aj,%#i-H@f1K3j[Ud*&ERheK-R&[L&$P9"#KaY8Ck&alJ44i10QcK
i!!1!!#Np9CGk$lhmQb#Vb(C,UQ'b#jhElbrN&qlk45Rb'AUFq"MkUkYmK3qK0pc
cal5a,YkSR$qI)YN,#%@EGbN,(3@9B`Q+fGQ[F2@#cBd(0H&[8SUYi@,D),$DcPK
a0C0X#XpHb%eXG%')F4FHG9``8iqP8,N&9eSFheD%LXh[N!#RZ,I%+(+U#&$MHYY
b$bDJq*F()"Aecmr1a9qEX'cA1L&I(I1L%Ma"CF@cYG*4J)LGEIX+FPU,m,m5K"6
L322FE20Z3B[REl`KrXrfpU-JE9f6H3SI%Z`5deiGe`L+LZbNNjMVC0M%Y5DeAeG
9)'*UG@lmTAU#KB80LZqSUFqLZfUNmfUaE4"B4Qh*b3QX@X#XmfXL*GDK"Q1Tfaj
eI("9j#VUj"9GD(0p@K)V&hb$G1,8C3EqUUJK3jB60,5hNe#3!(CQJ4Z[*rhPaH1
eK,mpc&'j6[Fa52%&R9&RDh3lN`L*d3qUYaG-Rd"b(&G1Mcb"XrQhS-AcYpiG5[H
4ADC2LhDEb&$jhkGkDm+m8GYl8qCBkj2TN!$',#E)LS95"MXR9Zr+9kJS@&$BV[U
+br[HUNmmkj'3!1@i@qqQX@iLC#cj*$Nl(jYf8ZL11V8#Zk(6N@akdC%+ZGL4A9[
N*DFJh%KRZK33SF6k*F++p[R#Y0FQrD#)N4+e'I)QNUVIe4ID#0e+[IL#c6dlY6e
$h-jGGqC0UY"XbCeN3`"&mHHKFh"GHhLGVlIH30+pGlb@TGXIJaIj0mK3q)1rAN&
ANDL$QC6e$q@0!(YNJ*d+ZN$%@B`@ahdTpMSr9$BV[U+cMBXT&*k$qT'3!1@i""p
0C0iLC$*pBTXLhMkhDM4UE03+kJkXLq9Sb)9Fl%LZVI)3$N&9SC1TUJK3iRkE&GR
Ymm9SF@q)8*!!mYmR18V#KaEiJVZ8Yq),-3NE8NS)c"62+k`b,53L-6P%K",)[Yj
k&cF&X5(LGVkplcFlA2mJR'kIJaIj0mK3q)1qPN&AIe%(-aZP#rd%*lC)#G#VT!a
LC3AApG+IJISL+'aAI89R'aC5+6beJL#`a-PL3QflQB(@jj%IC`YfSd8jafJUp08
*SiYmV3j[N!#K)V&hb$IF@mJhheG33SFX(085mcRLY$LhN!$%KjEj1N8V#KaEiK6
DGfr%&Q@YlLA3fekifb$kfNK,4@3iP`9G1Zj5%K!fAk3p"LqG5lcIPJTbK#Q&Ym@
lNFK3qGFA-HV3fCmHpUI,5JLcS4M*#)Qa8+T!aMN@fMIl2q5NL+,'8Ae&CIhIT&*
j4B)JX-Neq4j0YYi`1YX6!C`YfSd4$L,"6P#K0(&[PD(0mK3N9QpmK3iYj#Kp48%
+('pLAR(QFm9SF@mKL3mYmR5+9K3iYm3SL(4[a"C80lFT8Ya+V3I@dN&!()P&JTa
)89)510Qdl%`B[R8Zm[jG8fXU&9"#30Ul513SI%ZPc(UYpZXZ&&GP**K,9Ye`!aP
06Lh9e8JBb#R8%jr91pT9ES9DLqSUFqLh!bNm)503-Q0khLDa0B$%YLC$1&Ze'Kp
j,%$Qd1,I+d1Ej#KCSZII)81,H3SI89"#K9YUl+-KlZH+d1,H3IfmYmR18V#KaEi
Jq+[IL#bSE[j&*ipZK"pE5i#*GT!$3fSV,r),+KY1ZaIZrVh[,qAC[I!BqUXbIj!
!SI3QqlRK",%ZhULF[i#C*NaPlS%E,p9MS*!!,#al518BUR1UiN+(&&pl#fM@8RN
)A03-Q0lr%e&6@!aM&*M1&Ze'Kpa!5c[Ebha#KcI)8,0%chb&$LhN+(e&334,'@l
8AhZjiUhh&[)2lH@qH40+`SF@q)2P,IZfXbe[q2dRLFS)5*ZiZ!GN90L8[DI@Ad,
DR+'eZbrGrEla6rMeEi##rB+lr))Mk%AZjilJ3F)0qq6E')c-IHJLT9E5#59B0TD
PiURE9D&$LLqp2L#FC5H4404!@(AHTHpJ`6V'4@-jjEY4SS61hhd@UJ2,I%+(0mK
3Xd*a)j!!SF@mK3iSU(61$&fS[[3mm9J(&[LmYmmGU9K3iYm3IHTENJ0dXa#4
1+6`Gb[S0I!#@2)Zi0XKQm0V3hjfqmYkJi!#%lX!lS5Vi!%-Y!YBa9(AiQ%3R*HN
%'H0UImFb@9)@1K3j"L[EilU6b!QSJ,#0[8ADD$"1TD,U5dASQEGP&%Ekbq&B!H@
qlEIFfKES@84A6[)8DSU&ZM8V`#A2ZU,Y4IHKk*+k"bEpS)L4%VI2%@PB8DS[Y"q
*QD+f0Lc6e*q&*i1jh3$[i%0GFI0cpXV&RcEX'r1hhR2"`!%*h6i(G#9I!!US!QX
BlNDa%YdeX5$fPQlp)89P5&MS813BVfq1jYR(SA%3)-Xc2p-63BDN)ZIU,h[3DRX
phli9EqYk#MCIN!"L`bqMAMfDd++FRBCI46UDhjZpLBZe((+U([(jIQJ4Z[0qi[R
P[AB88kBSh(rD*BbGeC%f0QZNm(Gl!)1DkiqEHi#p*fBr1c-8*cJ%&`!1%0C"LRG
9qVi!&9!!pZ5!#X8m3*bZqSj6[eQBi'q%0IZ3!+--K%$hTSLF5hJBDSG@)h9dk!F
HRdC[h`V40[39GXe`BY@bMA2[3GD&%3N9E+)LLL,YjEY4abUK1apeC!+qZIh1LqH
)Dl#L)L&I(je%c5(U6eKQYYR!l[!#$&!$Eh!E*fBr1c-8*cJ%&`!1%0C"LRG9qVi
!&9!!pb*!HiYBSb%R+lkMP1r@CMJEi3ecR`!'!3b!B!#3!eA`!*!&!L3!!!RbI!!
!"if!'cJ!!0RZ3!#3"2!!N!-E!*!0(YJ!"[J!!!B"9m%8!*!$)A`!N!Cf!!!#I*m
!!!("f!$C`!!$X6R`!*!$!H!!N!-f!*!02E!!$D@!!*!%l!#3!`J!N!B#+!#3"36
T&G3!E1!!"$8!N!8m!*!4'`!!%8!!N!40!*!$$J#3"JB!N!C1IUi!'cJ!!3F!N!8
H!*!8f!(q!*!%!`BIjrRqIjrRqIjrRqIjrRqIjrRqIjrRqIjrRqIjrQc`q8Z8[4Y
a6"I#qKi8X0k,5qjT%UckLi59*,)fR*1'J%cLF*4%R5C$VV$@6pEqU2UT'UU9QYC
89Q&C59NRUUYA99[e[Y@QGIAeqLXSDdkVDDXP&C-kc1XbUkidQ1h(IacSeij-)e5
MQXFP8E8Icak+09Bh9(4'fPMp4(610ZSjFME54h0(6BlMMP"(-Bj1aSf0e`T-0Z'
rK4m+NB98K8c$lKPZ(d3qL(d3bMKX)90`Zk&h3Zk&h3Zk&h3Zk&h3bYKJ)B#'!KJ
)B#'!KJ)B#'!KJ)B#'!KJ)B#'!KJ)B#'!KJ)C@3Ye$,N-TBDI#L3h($*0#QH&13b
5`rUc@cDfCBXk1cqE+T@IGQD@Ebc-,2cfG&C9@bkV,IXhfXdcXq[Xr4CP$CTeQ6P
R3@8cfC4@E'Xb@fF5DB5EN5EN5EN5EN5EN5EN5925I6*,T5EJ5CE5I3Nb5*+I5@p
5@p59U5P+5P+62*2a*2a*2a*2a*+BT+P8Q8+66NQ6L6k4*P1NbR5A%P-fNSe*Pr)
FV18r[6FkHZ$VJki1P[[4dNR*rP0mPA1VQq'CN!DBda(-DCQCLCU2-j!4-ZV*Jbm
BdaTM6'Q6"PibmBdaTPiaTN`BdaTPiaTM6,iaTM6'Q0-DC-'AM,XaTPfBdaTM6'Q
0-DBdaTM6'QAM'Q0-DBdaTM6'Q0-DBdaTM6'Q0-DBdaTPiaTPibmBdbmBdaTM6'Q
0-['0-DC-'0-DCH-DBdaTM6'Q0-DBdaTM6'Q0-DBdbmC-'AM'QCQBdaTN`5jJPjQ
3"TM6'QD3%Q0-DBdbl-DBdbl-['AM'Q0-DBdaTM6'Q0-DBdaTM6*JbmBdaTM6'Q0
-DBdaTM6'QAM'Q0-DBdbmBdaTM613"6'Q0-DBdaTM6'Q0-DCQ0-DCQ0-DCT!$Bda
TM6'QAM'Q0-c,aM6,aM6'Q0-DBdaTM6-c-DBdaTM6'Q0-Q$'Q!!V325J!N!X9+M!
G6$B1VB9!4hJD2`#N#`h&ElJ)T*Z94Md5HpF4Rl4Md5HX3&MZS!!!(8c-d`XJ$Uh
QDC6(l!$dTC!!ddk!3c@qAH'DhblhfZ"36@%d!%lT*1),38S,e-Q"NaqN$%DrE&F
'QdJPeM5m`9'#Yp9aKYr#cqC)cah0llYF,9"!K0*6N!"$T)Zp`YYI&T!!`dH8@9B
#K"X!E[P[IMcAj9YH+1IeeplTmm@hZ&'PaVcl-KF9c%2"TY%k@j0(SGmEDZ6&I,A
Ea3#Q0BNE1FPGUPBIq"`)0UDFA8HT[2%bF546@SDq(dN%!!%p2,'fAVZ)'HiMbFS
kd*dMm5*-$q*ecV!ZC(h3TkaAiDLc&8T4V[Y8l+(pRNYr`(-$%rAeXlfcia29k$G
'b'$l,)iiLqdG15McE(*0a2K#U'lK[lM9r3Y"$#m6QX+V8!XiH0%C$l(4M#9d3DF
Y8RVej3J4c'Apf%Gj"!E)#De(#9D#"0MljCHmT5d('(lcKjY-ke%#k!6I0HelZSm
(b+bLe(PPb,C2lFJQ3h+@NjrMJD#-"JId&Z`-iEJE$E+@!lb5ffhB6,-3-XRY`aX
"k#$9p!EGiflaX"hpqC!!b!2UAf)ffffhi"flD8