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.