Newsgroups: comp.binaries.apple2
Path: news.uiowa.edu!hobbes.physics.uiowa.edu!math.ohio-state.edu!howland.reston.ans.net!europa.eng.gtefsd.com!uunet!news.sprintlink.net!crash!pro-applepi!jonct
From: jonct@pro-applepi.wap.org (Jon Thomason)
Subject: Applesoft BASIC XTND importer 1/1
Content-Type: text
Organization: Washington Apple Pi, Ltd. user group in Bethesda, Maryland
Date: Mon,  8 Nov 93 17:59:56 EDT
Message-ID: <1993Nov8.175956.0@tcs.wap.org>
Content-Length: 8007
Lines: 132

Okay, okay, so it's a Mac file, and it's encoded with BinHex instead of BinSCII
-- there's a reason it's here, I promise.  :)
 
The following is a plug-in module for Mac word processors which support the
XTND specification.  (That includes MacWrite II, ClarisWorks, and the like, but
it specifically excludes Microsoft Word which does things its own way.  Sorry.)
 
The module imports Applesoft BASIC "BAS" files directly from disk, decodes
their tokenized format, and passes their contents to the word processor with
certain formatting features such as:
        * hanging paragraphs to offset the line numbers from the commands
        * page numbers in the footer
        * filename and modification date/time in the header
        * shifted margins for a 3-ring binder
 
I wrote this utility to help document a large project I've been doing in
Applesoft, and it helps me tremendously.  I simply select my program modules in
the Finder and select Print.  (I have a control panel configured to recognize
these as belonging to my word processor.)  In no time I have pages and pages of
laser-printed source code.
 
My apologies for a Mac file in comp.binaries.apple2, but it seems evident to me
that my audience for this is Apple II programmers.  This FreeWare module is
version 1.0b5 -- I'd be comfortable calling it 1.0, but I haven't found anyone
outside who has the configuration and the know-how to give this a full workout.
Comments would be appreciated, though I hope not to have to update the program.
_____
 
(This file must be converted with BinHex 4.0)
:'%&`F'aPFfpQG#"B9%j%)$%Z-')e,Q0`G!"338083e"$9!%!!!!4d`!!!!$Y'3%
"HiJ!!"&$J%ChChGBH&L*DAPkN!#*ZiUU@)L*L)YjKfGjQCQ+QD#)L(CRGQGhHRK
QD&CSLBN!X*KRLAGhKkKhCQU(HTUDN!#!UiQ3!,QkN!#3!!!)LjU`S!!!QkTlN!#
JX)QDX!#3!+Z`!,U3!+#`LT!!#jQDX+#`HDZ`#V!!X,ZlS!#jQkUJQjX!X+#!N!#
,KKi!!54&CQGhGi!!!!!!!!!!!!!!!!!!!!!!!!!!!!JF%d499PCh#*N'L)Q*#*N
!J)N!!!!!!!!!N!!(!(#%*J%hArF)4J5(ik'MSb8pA@dYLEjZMTHGZE9Y$DQPjfP
e)k1KVDe[[+&bi(VHRXb8D&I0bE`DdpECkQ6VG6BQ3ZhA`Gk2T6BHMk@&fIIqhr1
#,rGqaVk'YSD[NFZhSiXNQKFZHES@l8r,NdHRXkZYDdC0I3qcXDe[l%rL9pA8YDZ
RUqES@T+[f0pi&@5je,HTe0Mmf$5mr3YDYV8dT*023fC0MAeGR9Ne0$8eEGZ6BNp
$5Nk-Qc6eDYc4iZPSkI8eGI9YD[SDfVVk9U5e2YE0c5ZE-N)4HYChC8fIBcCK5Z"
3qDlmP6ke6keQ%,bTcS3c2LKMm'e#,,rA#EMpp(N3llSjq6md*G[)r4rl#&6iFck
X0('`DRZ3!1P@kpRa*!G*@lhU`Q46Z0q5lGXb)PM6NLQqS)TfGl80(8`8@fZ"4"Q
Ir[(#TjP6kphYhIl3*fl[[0$-%Ik-'))k%I'fP,eP+F+e#16MQUqlr4[q&kNN@RJ
q2jpj*#rX`QI3NVl@L"2i2"V`dD1TbX5'lNVb9XcT46DRZArGmIS3[p1%1fLQrVl
rQF!-44)G4l-8I9KpU&QHKh`qq-X,PFI`01j-fkI+K8pc!hV``3V)jrAPTh0arYe
SkF1YVrRIA8IVFVMi(DG1Vrp6``$VpkG4krjrR'0)H$4a)BhJp@('14['F%H3!!M
-"(("(""'3#)`4PH1Q@B`0R-I9Kpc!*+"+i%X!6QX0FjJEbJKdJ*UQG1dXk91GGl
Q0Z6)d9(T`RI5kX0a$#!df''"TN1r#fmNkF0l*q46T#YpeE[qT2*U'8Hc#*`4'i)
R1#-0#,PhIC!!f!",HZ#*!4*[ZV$pmJeiKNlmM4"[55%a#Q1-('R`MaYbEf`Fk&E
VkPrFZm2)*JFC,89(L46Z&d(,%pM-q,[-G@-Me$iiTdq+6,cTfRJYD@BAPq@KHXZ
+0PaBEUiQ8Yf(+FIpVF'[(db4F,6K-f@5a)PG(FHVSCEcbk0peCRE$f#i@['6KU$
F1m%B9'IGr`Z3!-cVFM)ZrRj(6KeE[[82f3kh&LaDGhhD1TQ@V[YdH(8pbpr4RG!
lSGUKmPhf**phZHclf2DZrdid626MRS0HrGjrAXhN[Ujf&Tr0FZlGUlq$m[F*3c'
8IVEIUBN,-fAeCI6NTBIBdrh4fX$cV[XDdh$lN!$()9l'CdZhr-b'4XKQFmKJLN%
ACE,,hpV!f)q)2TafSB0hfRF1pTaCfN'[1kq,0`JQ*Ib8TI6hNk@GFK1Qq4#c%U@
92Bmf[PCf4Tr+*Ye*JpMlM1)0qlaGH-i@hJHa3*H)4F[@Eibk-illI+j[,ZZYj(3
aqE[3JDqLK`Y6#aX&FkIrreI5kTmGc6SMdXl%LRDQ#dah0ZYer"Va3D1QA1T$#Kb
+&hZcr9B3XSKrcQrSYAHlajQG6Urq3M2DV%LMp[fSTZ[Zfa5Mq&GNTQ**p@+"Y6F
5qdlL%Mp%*ch%,N-HrRpE'a)MSUmrNRMB4HkIT+DS%SFGm[rRZ,F8@H[p`rC(XCh
6KIkNA9ZqK-"hY0Pd2aEb'G0VGI6QqK-mrG4cB5D2d`0JkPq"YeTlYN+rM8)PTfI
-FM(k@N,Q4Yc@%ZXiJj)dkfLqY-4Dm[mLlePc43rA&KEIU6i@Aa*,pZ6,hNl6rDk
a*V4adjX0DrcVl8KGcmHR`mb%@ImNIbhIqRQZ,eDiMRq&&(5rC&(rGq%be0ZAE2&
iq"kr6L`FkRVhmG1+'[hq0Z6S+,'2L5(lh$PLLkX&T#AeThLfB2IZ"QI&JBq)+PX
SrXPrR9p1RbH1C5Y3RFAL46I%brm[lrkrHYcH6IrHTBqALjPhZ0q6Z9ai6-Dq)pr
Ra[[kH'dSIJlZ%fR"Daa[[NQri8QNY`Qj2a`1!X+G1l8kCTp[qAmdNAI3Nh$6KLL
GCQcK&c2JZr04R5Bd*Y6kqrk%lk-R3djZe(C[2`4mRV92KjRjE0j@r+9TrM*9haf
mK*iC8N0j[bZYpc)F'MdSF8p6*qG-'ejC[0Upj"d!Mfrl-1*8mcIp!`&Je2KE!Kj
($HEAHL6GL5)5Ee*2iHZp)Yh$H-8F9N`Rl@8,Tb69K-Um+XLSkRXr**d+e@TYVkF
mZVMFH[BPi(+R``ICfP2U2HbI4e0r*N59XIHH)CUe1rr&NG(#Z3Vd05rREciHeCr
G1R5j'e2UHB3EVe0Z%,hM3rL[T+96+N[T+G@@5rNU8ZIB!q93X8*-#60U9ZEB$Q9
5cd'cH@'jD9$+NQbCDA@%Z[T+d[!!fE8i!6bD'IRJHYRe9#-c2cDJ(jc3qCPbq)+
3!$bEL6-bDZI9Pj!!5E-F@j8Y$bJIcf#"GBS88(UmZNT[9XFL3qq538Q#Fc2UP%i
%PL@KNdL)9+V483+PjG$2#HE8je+@[5%Y22S9m`0Z63V1V@9-+4a5CQEbkA,qQ#F
mPJ*`*+Y5P,+%CD9IQNr3PPXi%PHa9P4'[@T8XT3V2T+[-ZVBUJfAQe$$QE6*k1f
+lf6K$I,UeqDTA,5XFf@SP9*C0%GBBe9KlbU'DS8be`e3je*QHUDbG9qSV'V5jY4
)mQU`2RjYH`&XR2T8*4APP%ha`#XH&XF3M"5Nf5QSlAVC2%4M-T+SD$&6-kel&+X
9*i3%a3*L!6'!RQ#'JEB+FP"r*!R)!R(#pI,9J+LK(4VJEQee3&-Zda"Nbe1)X`j
5hR@UT"AjL35XjRckZ@"UA2V!E*DH0ZAa@5$8,#Udbhp4Q@Q9eBPi)0ja`N)+q5X
!CJ6`""6XF&C8cF[-"0r*bmh+i-Nhhk9(i!,NS,P),6!Y2(3A`d&m4"I&3AaN&mG
"H-J[dN&mK"I*3@JJUKG03ZQSA6T),6q!rafG#1qaFkK8aEl&TdU)'jG#8$8+b$F
ZKjB'cZDMfGcFp'1EPJD[5V!DVNf!08Umi$C9,*a5(@SAMIqbIcVdI5qII!A`TPc
4Yl&cZ46*Q1r[(SbjXb&QqK$$H'ZIB-`q(2aqMirN[bq6CkQKDf0E3fEI8DKhAXq
(j2Nq,*dIXbCeZe*Ncj,(5YkqKX@l6qmV3UD@(ZIG"@p2Vbp94JcIVVF8ckGMbkb
mMRQAB"%Um-4902(m$6KhNf%AhB90(D`1e$HcBERE$FdMQ)4Vk!BrXK-ZhC)4pJ'
H[ZhPBBTbc'fYE&[Tk9VBh@[EYE25Nd1MdHTTHGX29hY5TJ!!!'X!!!S!!!!'!!!
!!!!!!!!!3!!!#TJ!Gf#SU+S!#A!!#UHAL)KfUBH(F)CSPkN!!!!%C94QCCG99&P
%9BD'N!!!!!UJ!!!!!!!!!!!!!!!!!!#J!!!!#J!!!!!!!!!!!!!!!!!!!!!!!!!
!!!J6!!%N49CR"`#*#3!!N!#J!!!!S!JC3d4%499@9P9PCQCQD)Gf"iGi#CQBN!#
CJ!RYbb[P@I$1(jGZhCh3cT('YmFjdeGdmZP,Z2,1(rrAq2iqb'rT$r8mBGfZ'lP
2#0CikYARhpZk'cE$CZraUeEZ8S2q#%,U`MM$rHljHf&f'8kCbT!!i"-BacZqVKG
3fE(#jbT2M51&GF!AbV+(#i$-)dP#S$T@`$-YZVk3!*ID0QGr5%D`cj5kIc#LT,+
J@Q1B8pf--*B6Tdl)FlXq8)`U$m&HFr5@-*Bf6YZai`jmVV18-)qJ*J%B3VK'qm2
1d%r$KGCTIQ&S"b0SD[CkS3fF)G*k8Ki4XZacRAP$R1PU2Zb9DL0k9!EPITak`aQ
*eK1h33MU"'+KcZ3L[[RcKFm$U@Ce6I[9q+IUeGrMj`p[M$C$CmYZlYq2aDhSCJH
e*"C4KhAaS"m-*i4Qjij04YVl4[3e'(rATA-6"T,G8-Y-dC`6c!L*CiSLHG`iVk6
N+a`N+l59J&f1#`)4$pZX),6a%SdTL2Y23BM2P53h&f#8(H*UQGbMdJ53!-)m8kE
!`l(8!-1-lDK3C*imq84CL%Rh5lf@5bcD-Tm1%U)SN!"'N8G3F`D%mC!!6U,5i+E
RL,rirRfrVe3r,kESHIIqUAQ&ZQ1-a*pK*V6$IH4eMC5G8a9*!D)b2$FC!EfbqXV
jj5S0GqB+[AVpLQHapJNrIZmS9P6kTMND@b(--bc5Pdp+NXTkFH5#&mjqN!"U*`V
P+biP-a0LB8`ZUmajUc'PrI59@NcXqpX16*KHmJq`R51T8e56%h-0+Ba[%,TTB0l
+(lDBC+PirB,-&"(CQ(",!*EJ1`3'ac*MG&4UiMHkPMNYA`')I@Z*k&k'%LS-0[4
0pP'QDDr$Sj2Ep,T*!hb+-2`EM4E0@0HM(N!!LS(*X)CK[h@HM(kRTBLFKTNU-"d
NVeMLqK9'68+N#@&f0aAQ'FDqQ[e0c9aPpXi@NU0LAX+84R1HI6*kIHq0@h6-MLp
P*i-4TrN(9&H("N(A"r('DT-`6T9qF`ACmj&d&Kb6(dc92S`hYY@RlBQi9&p`8h8
h1$*8*a*N5S8Q`M6MF3hB)iHcVCK0[ZaC@TDTN!$)*c"UN!$P@14FCfAR+1)!@1j
%JEPbC*`TM@6CFhh&*("J8Iq49IBXq@BK'0$+SPF`(eKq'q9pa%"%kYqjjqSLS%K
cTGRQE(aJ32%"hcY&)i2jbJaRfDHG*4TrjYNeMbY5Z+01BQKJ-%)hEbGQLR!0PhM
Jp'i!lN!RcfF[PR8*S`@[-c3aZ*I,*'#dEYjpF9p4qpl'$B)QFRp#+K[T$Z@C@0[
Aj)bFKVQ,,Ja5ND3MjI)R"TGR%bVBl+G"0)`S@D5YHJ9q@mY)-[jpj[PYKZl`KIK
p&IMjXkEa6ArF%#[jD*3lNKp-6ZV5YfE'(m)dkAKX#GqEH`YLJbc4dB*C,S#HecF
aL-EHPI(*K`&8,jf&&5#p'Uhf3mie8[XhFq)H9h9$ijS4l5EI0FH2144ipmV&aH(
2PGDqD#lh,kQF,HVR+NZ@64PB4k"64[`RA1'p[P4k!E)d1I94AN'eaj0mCG2Z$Be
8d[Z@8"`VQ82Zi*P5b+kK1c!r!LR$3R1YFHKaJaV6dYlI(hEBGrZKjp[bh3prcmI
#(KlRlkPpj!$c20$$)(18ULYjCKbGYXmI[QEEI[SXc!E(KE'A4M9Kc)dPY)ciGAS
kbNIik2LBmSP-BXaNI-qA&`@dA!0$d%ET&PdkmLiVHe*$9A105XhK+-(V$YB)9%T
,*R0B!cd,X(Uach(RTIE$MI'eUmX2d3pllDm0+-'K(19ZMQcl)#"8Yij96K2UJm(
''[Cjl&QGj[-)hVUKaY49D5-6iYa#1pBLh+bhDbNl,F'm,2Imb(&BmU6q+cF-Mlp
mrXiIT)RLGXFqb(l6aXcrccMKVd`YeKhG5,CT,"PpDh[PPGVjabecTaGLafq!T2K
XflGRbq$pLJrrqN#$2If'PYIJ4Amf!VE)i2p$dXjU`Vh(+LhVfBf1H%f5P1%'%Z`
TpU")C+bXLIM$kh96V2!-hT)6-I&G,CQTm6'T[cXY,R2e%M5jY`Dq"#ZlLH%`M'r
DCX!U[TjerMATi)8ZI3[G1KpmYlK'JAZr6CYfH2bJD+l[(jrVfDYAVerdYpE&$4&
Hb(@YPk'kTdqb8$qhfB@dIl2T@1qJL@91[)',0@J,qJSTqBH-QEHZaMjhIa'PT-b
(r2qrblEIfdU9(0i$,+0Tp!-ldfa*6S#BV3KpleL'KLErlKL2KJf$[DcK`6X`SC)
rqTmJ5[[-b8mKf,2r+dVF*0aP39mqhbKZlYZ[8!!!ieL@i`!#!!p"F("XCA0[CR3
J3N&658-"!!!!#%CXG(*$E(*cU-H(RDMA3GX"!!`F(M`!!J!!$U)!!!!!!!!*r3!
!!!!H3A"`E'9cEfCd)%*"8dP$)(4bB@jcE'&dEh)JC'pM!3!!#J9849K8G(4iG+M
@'ILT!q#m!3$Va[MG!!3!!!!!!!!0A`!!!!!!!!FqGA3!!!:
_____
 
That's it!  It's tiny.  :)  My other address is jonct@wam.umd.edu.   /;+/
_____
Sent from the Washington Apple Pi TCS.  No E-mail replies, please.


