Text ReaderileȀ&@-h @trAPPLTERD,\NeHnNH/+N/+,N[+Z+# ?  Forth blocks ( ?<HznR0 <@B/<4CFGBg&_ gd&S46SBk2p"/Q _#Q0R@Z"U#H <t@B/"?@@ @@@PP72%%vh^DT- &_0kN"5NNqNqNqNqT W.NT W2P.NT W0P.NT W"P.NT W0."5N&^N/N0[/N L/N G (f&^N NNJfNTNR NoNPTN іJm NoNPTN NnN g`XTN "BmnSNXN-/-XN/N/.N "0  o_  mJm o/HxNHxN _"Wr. fN fN P)xTgLDfBf>SAgSA01Vf"hh(jHx`HxHxN(A`N _ P&r.BCf.BNJBg @`N" W$HgS Jgf$S"///N$` "_ _Sk"HAJAgSj`QN "_ _Sk SjN "_ _Sk"SjN ""_ _Sk# SjN= _ 4x "䀰l l\/TNO6T tx40(N tx40(N tx40( NNOTNOTNOT,_&n.nNNO```TNO=TNO`d  |`\\TNOd6 |`\TNO &TNO & TNO &"  | |TNO &  |TNO* b ILLEGAL RECOVERY ATTEMPTED Tp0/j 5Ќ.NHmNNO HZ  TOKEN TABLE OVERFLOW !!   .   ,TNO .\Z* . TNO TNORTNO@^TNO@^ ? DEFINITION INCOMPLETE !TNO * , ? COMPILATION ONLY, USE IN A DEFINITION ! TNO ? EXECUTION ONLY ! TNO ? CONDITIONALS NOT PAIRED TNOF  ? CAN'T USE FROM TERMINAL ! TNO 5 `\, TNO>TNO>TNOVTNO `\TNO\2TNO\ 2TNO`, ` V$TNMNONO r < h TNO0TNOzzfTNOzzZTNO6TNO@ TNOj\ @ jTN N NOr2\r\ 2\ \ 2 TNO T *.TNO 2 T  Wr g/NSf/N  _2BgNanNԨNԩNԩ{NԩNԩ0NԩNԨPNԨQNKNԩNTNԨoNTN <2NNLNLNLNLNLNLNLNLNLNL NL NL NL NL NLNL>?oeBJWgS.NԨSNԨRNԨ|NԨNԨNTNԨNԨN "??N "??N "??N "??N "??N "??xNTNԨNԟ/N/NTNTNTNTNNO\E6TNO\F6TNO\I6TNO\K6T>BgN"_UO/ BgN "TO??BgN$7NT8NԩiNԨNTNԩ!Nԩ NԩNԩNԩNԩNԩ-NԩNԩ%Nԩ*NԩNT6Nԩ"Nԩ#NԩVNԩ(NNOT/qN/pN0_2_/ /N _>Np"W. O?/ /,?<N "B"OBg/// lJWgBg`?_BWNNNOr:|::TNO:TNO@TN ` `N????@@@``@@@????????????NJN ) S TERMINAL ! KEY 1/=p0BW/N?/>` _NNNO"\jr>||T" ?/1 ".?5NNO`\jT?/I "./3N?/I "./MN?/I "$.?/GN?/IN?/I "$.??BN?/I "$.??DN?/I "$.??@N?/I "$.??EN?/I "$.?Jg9`:NNO6TNOr\j|T Bg/BgN T/FN _p"_1 QN _p2X/ QNLACHN/</0_2_/ /N "B//N&$" lBlC????/NN TERMINAL ! mN:) TERMINAL ! NNMINAL ! bNERMINAL ! mNO TMacFORTH K2.3- 1985 CSI N 1985 CSI ! \RFIELD]1586,^6m+WREFCON 1n.+ON.ACTIVATE 1nJ+ON.UPDATE 1nj+WFILE.PTR `jE9T.dd'NO NOTNNOB .ZN||TNO|BZN| \|TNO* b Invalid Window Pointer! TNODTNODTNODTNODDTNODTNODTNODTNODTNO$\|TNODN*z|TUntitled WindowNdd,+dd'NLNLNLNLNLNL NبyNԨzNNOxrTNOxrTNOnnT{NNNO\j`jTNO\j`jTNNNL NL NLNLNLNLNLNO\,,\`\TNOh,,\`\T "Bg//fNTcNTdNTeNԩUNT]NNOT Bg/`BgNNO~TNO~TNO~T$_ "$&T????/ TNNOhd\d\ h`TNOhBd\d\ h`T "$Bg///hBgNNOFTNOTNO\rdrdlTNO\d,ld\,\d$dlTNO\d,phd\,\d$dBlTNOTNOD\ddd*`TNOTNO\jBnn\nn`jTNOD:\&\hj&ddd,hd``j`TNOD$TNOD$TNO`\,TNO`\,TNOD .TNOD\\`$TNOD$TNODzB  .TNOD$T W/tvC/ "h/ (f?`??(/(o ї(g?`?/NNOh,ldpd`TNOh4`TNO|T-  WBg?/p2g _?Bg`B&^N-  WBg?/q2g _?Bg`B&^N T//NNO8\ TNOlT//rNtswuNOL8\TNO8L\TNO$\TNO$*TNO  ABORTED FROM KEYBOARD !! T "T//BgNNO\lB\,*PH\,** \ \r,` |0N\,$r,|TNO4\ \ ,` `|TNNOlT "$///+NTNNO,hNhX l$4Z4Z`, TNOTNOl(DTNO66DTNOTNOlTNOTNO\6\ TNOlzN|Nz|TNLNLNLNLNLNLNLNLNLNL NL NL NLNLNLNLNLNLNLNLN:NMNO $ "8 F| N|z **d ,T ">/NNO\z!.TNO*,TNOZ|,!:| , TNO*T Sk4 or RJ@j"`R"//ӯ- ӴxHHA/`P&^NNOz6zBzZJ\ |.\ !r| \ !|\ !X||TNO!"*|TNO$$6$TN_NO$TNO"*R:\\*",",\"f``|"TNNNOj* @"TNO#4*zP#:TNO\ &"&"|`&"fH:\*"6\VZ` *`\ |\ |6\ #^|(\&"&"#.|#:TNO&""\zf#~|#:"B*TN ABEENOb$b$vTNO\$TNO\$TNO$TNO$T _"_pH@TNOZ0NTNLNLNLNLNLNLNLNLNLNLNLNL NL@NO\4\ 0\0"00.TNNNO\ (N "TNO0\00d6ddX dd0`TE RCx )lЗf X.B&^N l $"l *"<$āf$X.B&^Nm.NNO\0Xzd `zTNO00HTNO01 1rHTNO0X0TNO0 "6&zX\\ ``\ (NHTNO ( "\X1TNO " (z4TNOF F1|BJTNO\2PJ\  d@\d`d`TNO2pTNO2 6 ? MISSING STRING DELIMITER TNO\"2z @ hz6 | XTNO < Z2| \"2 TNO < @2| h2TNO < b2TNO < 2TNO \\ <\ | <X TNO6  STACK EMPTY! TNO  Object Dictionary Full !TNOB\P B& z@@TNOlTNO\62$2X66`|`TNO  ? TNO6\:N\+f\0ZTNO6\-N\636404$|406\.N4$`TNO Z [  Z] B& r Z\ TNO 4TNNO~5 TNO2z @\r*d f&d*r`\N`T|lTNOZNTNOZR5t5TNOZV5tR5t5TNO5TNO <\|5TNO54$ V <b . TNO54$ TNO `6VZ  VOCABULARY FULL TNO56V `@ `TNO6 ATTEMPTED TO REDEFINE NULL!TNO p35&n  Z ISN'T UNIQUE 6N h :6 \N TNO35 f 5 ||4T3X|TNO6TNO `\TNO `\@TNO6x66 Z4Z NORTNORVTNOF Pj3 * Z okv 4P 3J6|TNOJ2P\)JN  MISSING ( STRING DELIMITER ! TNOJ2P\}JN missing { delimiterTNO hVR6x p> NO r <T p>TNO6x NMNO6x . NJNO6x NLNO6x X NNO6x NKNOTNO8^TNO h TNO hTNO  hz$TNO8TNO < hTNO <8pTNO <8pTNO <8pTNO <|8pTNO\\8``8TNO < h TNO <| h 8TNO8TNO ^ hTNO < h \TNO < < h <\TNO\ <| h 8TNO <@^N* 8|^TNOTNO9TNO56  MISSING IFEND OR OTHERWISE \9N\9NTNO*9TNO:2-$p'l't+TNO: TNO6x NO6x NO6x NO6x NO6x NO6x NO6x X \N TNO6x X\T \N TNO6x X XBgN TNO6x XX " X?? \N TNO < TNO\ jz h `TNO6x h\ XTNO6x NO6x\j%  `jTNO6x h\ h\ X\4 \N .TNO <|5r4$6NTNO <|5r4$6NTNO b Can't Load Block 0! d\@F\J\JF6`J`F`@TNO JFTNO;TNOF;TNO<TNO2$p'l&  No File Assigned! 'T*  File Not Open!(0*  Not a Blocks File!$pTNO*<<TNO  < @2 <*| h2*TNO  < @2 <<| h2<TNNO$p\*<\| <&h'd&d*@d'(d<<;<l|d&`'`<<TNO  < @2 <<| h2<TNO+*<<TNOPH+6'+6,&\$*@<<(ZV; TNO  Not enough stack items! TNO/*l||| TNOH jHZVR7NTNO b z*\   HFrbJf7NTAx-(-- C - !NNAx-(-- TC - !NNNO <>| h TNO\\TNO2 ~2>\@ TNO@>\@>TNO b Z BUS ERROR TRAP AT >TNO b Z ADDRESS ERROR TRAP AT >TNO b ILLEGAL INSTRUCTION TRAP ! TNO\ b RANGE TRAP ! TNO\ b ZERO DIVIDE TRAP ! TNO\ b OVERFLOW TRAP! TNO\ b UNINITIALIZED EXCEPTION !T |?NNua`a`a`Ba`|a`\a`F'a <SjJ9`lNM?NOZVPH=h; TNOX@ 6\NTNO$/*TNqX$zNLLXJNu(F S 0<GCEQF <<><p%F PNqg()H@~!p!$HC@~p4QXp%GB/<4CFG?< g @ P9X@>9X%2><zCQ O+H)O)OJ)O *)O $YBBBB)O/NuNOXVOCBr"Zb7>VTNO\XOBJ &\\ `\ fJ\r\ ` \ ,| \ \\ 4\  `TNON\%@ %.%44\ %:'%:'0%:'8%:&\$%L%:&\P4L2B*TNO@j\,*+X \=r|\@@\$\,|j0!*TNO\  :BBA--bATB~xTNO "0 "0 N&B\ .\ \4|* nTIC |p$Y QAn!A!A!A!A!A!,Ad!pJ, fav*fv I,*x .l,lF A@~.ACxE"Sf$GC&NTERDICN#FREFAPPL@ EEEEe????????????????4JS SN resizing toolNO\ppzppZf |p`TNO  Unable to resize vocabulary !TNORZZ  Vocabulary won't fitZZf DD>|D>DTNOVBVD|TNOz hXzf  Object won't fit  Unable to resize Object ! TNO 2BE*|T turnkey tool SNAPSHOT BLOCKSNO . TNO .T詔TNԩNTNԩNNOEETNO@EETNO\ `, SNAPSHOT FAILED !! TNMAPPLNO\8\"2  %LTNO\ %:'%:'0F$%:(%L*8z@%L @ E%L%f%frE%:&\P4TNO@FHEb7>EE\ hx\E*\ E~ hx` z hEFEFlTNNO5*  ? unable to find token ! $b7>h\G`\F:"TNO54$6N\$TNO\ .Tcontrols NO\~\\h`\\Z\`\```` h\`TNOG8&TNOG8&TNOG8&TNNOTNOTNOH"ZTNOjTNOTNOTNO\d\, `\, TNOzHZ~TNOzHZ~TNOzr4\ p`| l`| lTyNԨzNNOx* HxxHTNOxHTNOHI TNOH"H"IT NMNMNMNMNO6x         @Ok . 6TNO\~I:TNO~zI:I:TNO~IB$TNO~I>$TNO~zIJ$IF$TNO~INTNO~ .IVTNO\I:HIV .IB,`INGTNO\I:IV .IB,I>,IJ,IF,IN`IRTNO~\INZ J|J>`I6TN,+dd'NPKQuit N KNext instruction.file N ~SAbout 'Text Reader'~P ~BText Reader~P displays text files. When it is launched, it will search for and display a file called 'text' on its disk. If no such file exists, these instructions will be shown instead. ~BText Reader~P can be used as a descriptive start-up application on a disk (to summarize or document its contents), or in any situation where textual information is needed but a full service editor like MacWrite would be inappropriate. ~BFile Format~P Only ~Utext~P files (which can be produced in MacWrite, saving as 'text only') can be read. 'Text' must end with "~~E" . Textstyles may be selected by using ~~ followed by B, I, U, O,aving as 'text only') can be read. 'Text' must end line~P, ~OOutline~P, ~SShadow~P, or Plain text. ~BText Reader~P was written by Nick Karp in Creative Solution's MacFORTH, "The Language of Innovation" for the documentation of public domain disks by the New York MacUsers' Group. Please include this paragraph in any use of the program. ~E ENMNCHNGED.NMNE(NMNURCENRENVE.RNMNUPDATE.RES.FILEE CUR.RES.FILEE)@E),E~MINIMUM.OBJECTE* RENZE.ONECTENO @text P'P*@PTNOP*PP"PP*@)|LPPP"TNOP(P6P(TNO\Zf\ TNOQ\ENh P|l,\B|V\I|H\U|:\O \|*\S \|\P | `TNO\ NP:P4P.f P@P4P:TNOP@PFfPL6P(PL@TNOVP4PL6PL@PL@TNOPL PL@P4P:P4TNO\~N"RP\~N Q|Q|"Q\ Nz\ NRQQTNOGPP(P:P@PR0TNOPPP| P(PTNOj.H2(H"K:"|K RR|TNO FNR|TNO\\\d>`TNOP@P4PP(PPL@PTNOS$P"P PJJRJRJKJ|JKJ|Jj\ 0JT72%%vh^D$ILE]5΁'5TOKEN.FOR5FIND5+FIND5-FIND5t=DROP5#FIND5 ?TRACE5 TRACE.TOKEN4.S4(.S)4TNUMBER40?PUNCT4$-FOUND3CONVERT33QUERY3?STACK3XLITERAL3LERROR"3@ABORT"3("3 ."2,"2?WORD2WORD2p(WORD)2P SCAN.FROM2B EMPTY-BUFFERS2FLUSH1 SAVE-BUFFERS1UPDATE1BLOCK1BUFFER0PREV0USE0GINIT0EXTENDED0 CONDENSED0SHADOW0OUTLINE0 UNDERLINE0|ITALIC0xBOLD0tPLAIN0pPATTERN0lINVERT0hCLEAR0dPAINT0`FRAME0XDOT0NVECTOR0>DRAW.[+Z+# CODEB4CFGfOBJ rVOCB~TERDBNDLFREFICN#F. @ $H5Gp˼GtGGMacforth configurationObject1Config segment4thldrFORTH VocabularykernelGp˼GtGG