home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carousel
/
CAROUSEL.cdr
/
mactosh
/
lang
/
m2_beaut
< prev
next >
Wrap
Text File
|
1987-06-23
|
48KB
|
759 lines
20-Jun-87 18:57:45-MDT,48524;000000000000
Return-Path: <INFO-MAC-REQUEST@SUMEX-AIM.STANFORD.EDU>
Received: from SUMEX-AIM.STANFORD.EDU by SIMTEL20.ARPA with TCP; Sat, 20 Jun 87 18:54:31 MDT
Return-Path: <mrh@shasta.stanford.edu>
Received: from shasta.stanford.edu by SUMEX-AIM.STANFORD.EDU with TCP; Tue, 9 Jun 87 13:31:33 PDT
Received: by shasta.stanford.edu; Tue, 9 Jun 87 13:30:14 PDT
Date: Tue, 9 Jun 87 13:30:14 PDT
From: Marc Hannah <mrh@shasta.stanford.edu>
Subject: forwarded from usenet...please don't post my name...David Gelphman
To: info-mac@SUMEX-AIM.Stanford.EDU
ReSent-Date: Sat, 20 Jun 87 17:50:20 PDT
ReSent-From: Dwayne Virnau... <INFO-MAC-REQUEST@SUMEX-AIM.STANFORD.EDU>
ReSent-To: info-mac-redist: ;
ReSent-Message-ID: <12312126410.16.INFO-MAC-REQUEST@SUMEX-AIM.STANFORD.EDU>
Path: Shasta!labrea!decwrl!pyramid!oliveb!felix!macintosh
From: tom@hobbit.UUCP (Tom Brus)
Newsgroups: comp.binaries.mac
Subject: M2Beauty - a Modula-2 Beautifier (part 1 of 2)
Message-ID: <2946@felix.UUCP>
Date: 9 Jun 87 03:51:16 GMT
Sender: macintosh@felix.UUCP
Organization: University Of Nijmegen, The Netherlands
Lines: 732
Approved: bytebug@felix.UUCP (Roger L. Long)
[M2Beauty - a Modula-2 Beautifier - part 1 of 2]
This is a PackItIII file, containing a Modula-2 beautifier for the
Macintosh. This pack contains:
M2Beauty.doc - the documentation for the ImageWriter (6 pages)
M2Beauty - the application
M2b.doc IW->LW - a facelift for the LaserWriter
M2b.doc IW->LW+ - a facelift for the LaserWriter+
test.mod - a (nonsense) modula-2 module to test M2Beauty
The documentation is geared for A4 paper size (I'm living in Europe),
but it should be easy to convert.
This is my first posting and Mac APPL, so be gentle.
Tom Brus
Usenet: ...!mcvax!hobbit!tom
Mail: Tom Brus, Department of Computing Science,
University of Nijmegen, Toernooiveld 1,
6525 ED Nijmegen, The Netherlands.
---
(This file must be converted with BinHex 4.0)
:$%db3Q9KGA4j,R"TG!"3593J8%P8)!#3!`%4e`#3"-,T8%eKC`K0-N*PBA9dH3!
*qJ""*TS!N!0"$'B!N!DJ)`!!k6!!!-[-!%%"!J!K!%%!N!--!*!$$!#3!b)!35A
i!!""8&"-66*LG#%!N!9iCJ!!*VkFXkTBR-5Z$E'J!*$*#!!S!!)!!)A#!!"0%J#
3"SC5!*!%()J!!!)!N!0X!*!$Gj3!!(HDd`i!N2m!N!Y0380B!!"0Ef4eE'%Y-Lp
038-J+'-T)%0[F(PbD@GSG#"0Ef4eE'%J-L"6EfCdGf&bC5"-G'3Z)$%j1$BZ)!!
!+'-T)%0[F(PbD@GSG#"84%NJ8fpQG(GKFQ8J5@jM,L!a16Jf,L!!!#"IN!#3!,#
S!!4L$11!d+J!#0$`#!"1d0(S!!KCL%l3)J"`"Nj(6R919[rX+J"i#GU%28ArrN$
ZrrJY6Ird,9Erm#S2,8Arl$SZrri-43!(C`Sk,[rq$%8!#'B+,@i!%[rk6[S!5$S
Zrri-43!2CJa1D#eS!!MrqNlk!$)k,[rq$%8!%'B-3UlrqN+Zrr"1qJ!F1LlrrJa
&!!PP#LeZ!!lrqNlk!!JYEJ!+rrT*q3#3!`3iV[rq3L`!!LPZrrS!"$PZrrJ!##P
Zrr3!#LPZrr!!$LPZrq`!%LPZrr!!&KPm!!%!'L"j!*!%4[`J!%k3!%jH6R919J!
!UIp1ANje)%p"k2q!NF#alIq5BJCb!h!'6NG1G8Em*`"6!&-!CJJ#9rMrJeG1Fe-
!CJ3qJ8jc8`"Q"NEm)!"1Fe-!CJ41F8jc8`"Q#L!"6VN!!"d@6R01Fdj@!!")jh`
!)Li!##3Z!!`Q!5J"+J*)4%K&`X,%a-E&b-9)3G*#3SACKG*$fB9)38+3!d0)3NK
$e)28K#e"!!`Y3J!)60m!2NjH6R919J!!51Gi!#)Z!!`N,J!)Y,`!!2rrBKj#3i,
#D!ii!8*"5%'#`MB"-J5#`NK$0J&K"B"j#JcB"5%0#38K"1$`!$q1,ij'bJQ8
%NS*53e(-rr)Y3`!-,8%!#%cI!"j1ANje6PB!!%MRr`!L,J!)*#i!$#B"+!%U!L`
"3SG)4%K&`X,%a-E&b-9)3G*#fBI53pQ(5%&#N!0$5%*)3p5$e)4)48U'DJ+8K8U
&DJ+8KLe"!!`Y3J!)60m!rdjH6R8J(bi[!!!X,`!%[iCEaNU[!!4U"%5[!!4+Ke[
(DJ4%V`!!)(`!!"k+6T!!5JGR"%5[!!"+"QF%4+m!"#m!6R9'r#F!F2p1Z3!!(4C
3Mdjc4[`R!($q6VN!!"d@8)p1FdEm*`"`r8kj!!!G&Njc4[`R!($m6VN!!"d@6R0
'r#F!F2Y1Z3!!(4C1FdEm*`"`qNkj!!!G&Njc4[`R!($j6VN!!"d@6R0'r#F!F2G
1Z3!!(4C1Fdja6R&1F5S*)m8!N!-i+J%Ma3#3!c`Mq3#3!cJ!N!0!)I`!!"q)!!J
Kr!!!(jJ!$#(m!!!IU!!3)I`!!"qf!"3Kr!!!(m3!'#(m!!!IdJ!F)I`!!"rJ!#!
Kr!!!(qi!,#(m!!!H!J#F)r`!!"hL!*!%)%f3!2`!+%2k!!BK#@!#UI5GcN+Yrj)
U$b2&!*!$4#2j!*!$4!#3!dJSH3#3!d!U&!b&68&$@'F++(N!N!0!)"5I`#S2)m8
!N!0-3rS!"Lm*B!+Tp%lj!!!JcNlj!!!Ir%j@!!"1ANlj!!!K3%j@!!!J,J!)S4i
U!$(&!L!U##e&!!a1ANje6PB!!#"Z!!LJ(bS!-F8#)%jH6R919J!!S4dU##KZ!!J
SK6(m!!!#)#S!,88!$%jH6R919J!!)'i!#+"++J!aa3)J6Pj1G8lj!!!Jb%j@!!"
1ANlj!!!M2Nj@rrBSH3#3!e!k,J!)#!8!!'F%8Qi!##eX!!crq#CZrrJY8rrm+Ll
rr,UX!!aR-LCZrr`k+`!%ZQi!#'BB*'i!#L5Zrr`NE[ri**-TE[ri!!a1ANje,@l
rr2ri,92rr'$%HJ!k,J!)+"5BKELX!!KM&LCZ!!SQV!!)HJ!k,J!)fk`!#%jH6R8
QE[rm1LX!",TZ!!KM2MSV!!5DEJ!)0d8!"(S!1LX!"0UZrr`NEJ!+*)8k+`!%$%8
!"Q31*'lrq#56+9-!$%lk!!JTE[rm!!a1ANje,@lrr2ri,92rr#SZrrbkV!!-C`*
JRNSX!"4R$(Vr*Qi!#LD&6[S!$Lm-F!"1Z3!!(3iSAdjH6R919[rm+(N!N!031Li
!#!J&!!"R"&*Z!!JQEJ!+,92rr$SZ!!J-43!'C4JQE[rm*'`!%#D50fi!#!!%*Q`
!%#DZrrakrbCZ!!SQK8jH6R919[riH[qkZ3#3!e"R$Lmj!*!$8%kj!!!Jp&L2@Bm
[,J!+6VN!!#$D@)mYArrm5Ulrr'B)3Li!$NjH6R8Ml[rm!*!$8#Kj!*!$8#SZrra
i&YU%+88!"#SZrrcDVJ!++)8TE!!%!"!TE!!3!!`U,!!%A)8T43!)'@i!#!!8*Q`
!%#DX!!a#D`!%(A`!!3!16Pj1G8lj!!!K1Nj@!!"krb2&!*!$8&@25(JJ!%)RB3$
r8Pb25KpQ#(!!6VN!!"d16Pj1q3!!)h*1q3!!)cK19J!!6Pj1q3!!)i41q3!!)fa
19J!!6Pj1q3!!)kBNAkP`ABp1dL4IUA&GMdl56[N!!#0q6PB!!%jH6[N!!#1i6[N
!!#1JF!"1Z3!!(Ha19J!!6Pj1q3!!)rJNAkN56Y)JE`!),e!!##4IU5a4Mdl5*&q
T)PQ26Y)NAkNM@Bp1dNlj!!!MXNj@!!"1ANlj!!!N+#4IUECCMdl5*&qTXe'26Y)
NAkR#9Bp1dL4IUE41dNlj!!!MmNj@!!"1ANlj!!!NPL4IU6"1dL4IUEp9Mdl5)'m
!"#p3!!3NAkP08Bp1dL4IU69GMdl5*&qT0dl5)'m!"#p3!!3NAkNp@Bp1dL4I(fm
!N!-"U6j9Mdl5*&qT1&@26Y)NAkP'6qrrpNl56[N!!#3L6PB!!%jH6[N!!#5S6[N
!!#53!%lj!!!NZL4IUFa1dNlj!!!NSNj@!!"1ANlj!!!P2#4IUAYCMdl5*&qTI%r
[rrC1dL4IUB0CMdl5*&qTN9'26Y)NAkPr@Bp1dL4IUB"2lrrd6Y)NAkQ"@Bp1dL4
IUBCGMdl5*&qTL&f26Y)NAkQ,6qrrm%l5*&qTM8r[rqj1dL4IUC!!8Bp1dL4IUBp
4Mdl56[N!!#5d6PB!!%jH6[N!!#9H*&qSDPQ26Y)NAkKV@Bp1dNlj!!!P0Nj@!!"
1ANlj!!"5#Ne24&9-43!!58e36%9048j8394*6di!!%4&4NP1594*6di!!&"56d0
&4&9543"&@&"28P3!!&&938a*4NP&4!"*69"28P3!!%C56dd!!%026P08!&4C8%8
!!&C"8J"#48G*6J"549"&393!!&*&3dp54!!!39*539N!8d98!&"258j849)!6%p
28!!!3d&643!!6dB!!%C28J"A5%P-43"A594)!!"%6`!!58B!!&4)48i!!%9-8dP
'!%9-8d8!!%914!"96P4*6!!k23!!+#S!!$`p!!!q23!!2$i!!#iZ!!"19J!!5IN
!!!GX4rN!!!GS*Ya#13!!"ha*q3!!"f`D13!!"fJ-"3!'CK)B[!!''A`!)!!"3Q`
!!NjH6R95H3!!"hSjH3!!"hS!!NTj!!!(H'-38hN!!!Gi'A`!)!!"6[S!&#m-5'`
!!5Cj!!!"C%k6@)mSAaSX!!'k13!!!@aQ#"Lm!!C1qJ%D'L`!!ESj!!!"E@B1',`
!"8*j!!!(HNlk!3!D,!!"$!8!B@8+$!8!HQ)%!J8!A``&!%&P'KSX!!%-"3"KC3S
-"3"kBJ3#"3"I$!8!@Q-H'L`!!3`&!&pR&"SX!!%-"3!NC`SD,!!"$!8!*@B'3K4
1qJ#S'L`!!3`&!$"P%KSX!!%-"3!jBJJB[!!"6[S!M"SX!!%-"3!LC`SD,!!"$!8
!*fB)',`!"%lk!(!D,!!"$!8!,QB)',`!!Nlk!&iD,!!"$!8!#@Bm%r`!!3!!"h`
CI!!J!!%B[!!$1MN!!!&F8d8i13!!"hT64%K%3N4)4)Mj!!!"A%K%QN3ca3!!"hK
1qJ!B'L`!!3`&!#"Q#"Lm!!01qJ!'',`!"aS8$!8!"QF)'K3-"3!&CJBCI!!J!!&
1ANje6PB!!#Kj!!!(G$SX!3)-43%!C"C5E!%#1L`"!P0&4q`!!KHj!!!(D9!!,`a
1Z3!!*N`SAdjH6R919J!!+(N!!!Gd3Q`"##Sm!!!i+"Jj!!!(D!N&Ca`D13!!"fJ
-"3!&CJ45E!%),`a1Z3!!*N`SAf$81L`"#!a&!!&M&NSj!!!"AQF11L`"#&0&188
""Nlk!!C#E!%'6Pj1G8j@rr3cr!!"!!!(ALKj!!!(G%KX!3`r2!!-6VN!!#&-A)m
SH3!!"h3SE!%-5&3r2!%86VN!!#&-A)mSH3!!"h3YE!%-rrSSE[rk*RN!!!Gd1@X
"#J!%1L`!"&*&188!"RVr+88!##KZrrSS9$em!!(rrLCj!!!(G$SV!3T646m&-#l
rrV"AB`41qJ!J1LlrrP0&4q`!!KHm!#"3!$!Zrrk`9f3'8QlrrQ$L9)mQH3!!"h3
pD`%+rrik,[rq8d9(l!!#&l`!+&!!1LlrrP*&8d9(l!!#&l`!+P!!1LlrrP*&188
"!KLm!!%YH3!!"h6rpLKZrrSMe!!!"h3D13!!"fJ-"3!'CbBD13!!"fN-"3!UCKJ
D13!!"fd-"3!TCJ`k13!!"ei-43!"B`*J"%lk!23D13!!"fJ-"3!&CQBSE[rk5'`
!#$mm!!a1Z3!!)8aFMbKZrrSYE!!)rrSSE[rk,`a)9$mm!441Z3!!)8aFMbKI1A`
"!!!%3Q`!"RVr+88!##KZrrSS9"Lm!!&#E!%#+'lrqL28!!!(G%kj!!!Q6%lk!(i
D13!!"fN-"3!SCKBD13!!"fd-"3!UCJT5H3!!"ej1qJ!J'MN!!!GT$!8!+QB5'MN
!!!GY$!8!+@B'8hN!!!GH'MN!!!GS$!8!!fFU+'lrqMSX!!3-43%!CK!SE[rk1AN
!!!GU!!41qJ!1+'lrqMPj!!!(DJ!'6VN!!#J'6[VqfKSj!!!(D!`&!!CR-LKZrrS
k,!!%$%8"!'B-+'lrqMPj!!!(DJ!%6VN!!#J'+'lrqMPj!!!(DJ!'6VN!!#J')ql
rpJ!!"h4)E[rd6VN!!#[)@)mSH3!!"h3YE!%-rrSSE[rk1L`!"&0&+(N!!!Gd188
"%#Kj!!!(G$SZrr5DE!%3+(N!!!Gd188"%LKj!!!(G%TX!4"ME#KZrrSS9$em!!(
rrLCj!!!(G$SX!3+DD`%32`8`,[rqX&GM"%lk!$3QH3!!"h3k,[rqfQX"%&0&4q`
!!MJZrrj64%AX!!)9Xe!!3!!`,[rqX&GN"P*ZrrjJcP52*RN!!!Gd1LX"%&*&Qf`
"!NjH6R919[ri+(N!!!Gd,@`"$2rm2A`"!2rk+'i!#%*8H[qkV[rmCJ41qJ"#+'l
rr$SZrrUkE!!%B`SSE[rm2@`!"2rk+'lrr#CZ!!Jk%lTX!!CN$#KZrr`QEJ!)0U`
!"LKZrr`YE!!)rraJY#Kj!!!(G#eX!3crr(VrZUlrr'B%6[S!Q#KZrra+E!!'C`*
J"%lk!(SSE[rm+&3pE[rkrrJQE[rm1LX!"Mm&-#lrq,"AB`41qJ!`1Llrq&0&4q`
!!MJZrrLBE[rk8N464%AX!!)9Xe!!3!!`,[riX&GN"P*ZrrKJdP521LlrqP0&Qf`
"!LCZrr`k,[rk8d@ED`!%*Qlrr$SZrrT64CYV!!BSE[rm,@`!#2rm6[VrB$SZrrT
645KZ!!LE9%jH6R919[rm+(N!!!Gd1L`"!Ja&!!pL%$SX!3)-43!#C3C+,!%%CJ4
1qJ$+HJ!D,!!#"%8!38Ij!!!%YNSc8!"R'(S!'L`!!`4&!%&(q3!!"0"+-e!!C`*
J"%lk!*JGI!!6rrdD,[rp$!8!-')#B!41qJ##3QlrrMSZrrkkE!%#CM"k!"SZrrd
%43!6k89(q3!!!YBi,[rq4r03!%Sc3!"Q$"LZrre1ANje6[S!"Nlk!$`k,[rq8N9
648IX!!*i!"JZrrd%4!!6k84&q3!!!YBf,[rq4I*!!"Jc8!#i-M!!C`41qJ!)8Ql
rrQ#-8Llrr8lkrh)B[!!c6Pj1G8j@rrj*q3!!"fJGI!!"rrp+&'F)'K3-"3!"CMT
+,[rrCb*+&'BH'L`!!3`&!'&P#J`&!(TL"!)&!&qk,!!"CJ4k!@!#HJ!G4Irr,`a
1Z3!!+!BSAf#k*RN!!!Gd&flrr`%%,`a1Z3!!,1iSAdjH6R919J!!5MN!!!GSCaJ
D13!!"fJ-"3!"C``D13!!"fJ-"3!#CJK1Z3!!+!CJf#Kj!!!(G"Lm!$01ANje6PE
rrKej!!!(DIrr5MN!!!GmC`i6r!!*!!!(E8*j!!!(H%kj!!!S"KSj!!!(DESZrrp
R,LSm!!!&B"Jj!!!(D!N&CKj+13!!"haR$K2m!!N!!!GY3RN!!!Gi6VN!!#J'B-B
D13!!"fJ-"3!%CJC1Z3!!+!BSH3!!"h3B[!!c6Pj1G8j@rrj#,[rr'Llrr``&!!9
L9(S!'LlrrpT&5IN!!!6U'$N!!!GTZ$43!'BdHJ!D,[rrfN9*q3!!"1SB13!!"ff
i0&!"CKT1Z3!!+!C1Z3!!+!BSH3!!"h3BV[rr6Pj1G9)ZrrpJSKem!!ErraSZrrm
-"3!5BMCk!"SZrrm%43!'5IN!!!6f'$N!!!GTZ$43!'B86VN!!#J'+(N!!!Gd'+l
rrdjH6R95,[rrB-"1Z3!!+!BSH3!!"h3B[!!c6Pj1G8j@rr`YH3!!"h$rr#2j!!!
(G!!!"h!Ml[rm!!!(G%kj!!!S2LKj!!!(G%*X!3)SH3!!"h3jH3!!"fS"#RS!'MN
!!!GS)!91Z3!!(2!!N!F(!*!$FNkj!!!YjNlk!'j1Z3!!,PC1qJ"N6VN!!#k3!%l
k!&T1Z3!!+!BSH3!!"h3B[!!36[S!4Nkj!!