`pÄÿÿNø2ÒNø2Æ>(G> GNÐ…FORTÈ0pDpºpoÌ= *LNø„EXIT <>*GNø2†UNNEST <= *_? NøF‚UP V2ì?Nø0Ðxf?Nø…(LIT©†?Nø †BRANCH š>*GNø ‡?BRANCÈ°J_gæJ]Nø |†(LOOP) ÈRVhÎJžJ^J]Nø ¼‡(+LOOP©ä0ÑVh°JžJ^J]Nø Ø„(DO) 02=Ò|€=A=Nø ö…(?DO© 02²@fÜ>*GNø Ž†BOUNDS (P 2:P2…>NEXÔh^‡EXECUTÅb>(G> GNЇPERFORÍz>(G>(G> GNÐNø~>ÞxfNø|¤‚GO  NuH„NOOP ®Nøn…PAUSžNøVÉÊ0Ðn?Nø¤ÊÞ0.Ðn?Nø´‡(LEAVE©úJž>*GNøîˆ(?LEAVE) J_fâNøÀ$> GáH>€NøÄ¡<> G0@àH€Nø˜‚C@ X> GB@>€NøP‚C! p> G0€Nøh…CMOVň0R@> G>"GS@gÙ`øNø~†CMOVE> ®0>Þ@ G>Þ@"GR@S@g!`øNø¢ƒSPÀÔ?Nø̃SP¡ä>.GNø؃RPÀö?NøîƒRP¡>,GNø„DROP 0NøƒDUÐ*?NøÜ„SWAP < H@.€Nø2„OVER R?/Nø"„TUCK f H@.€?NøþƒNIÐ|>ŸNøtƒROÔŒ240>‚??Nø6„-ROT ¨402>‚??Nø„„FLIP Ä0áX?NøH„?DUP ((®â(Pº‚R> î?Nøæ‚>R þ=Nøö‚R@  ?Nø\„PICK  B€0Ð@?7Nø „ROLL (ü Ò( ì ƬPžƒANÄ \0ÁWNøЂOR  n0WNø ƒXOÒ €0±WNø 0ƒNOÔ ’FWNø x„TRUE hÿÿ Š…FALSÅh f„CSET  À> G0Nø ¶†CRESET  Ú> G0F@ÁNø ·CTOGGLÅ ö> G0±Nø ê‚ON  > G0¼ÿÿNø ƒOFÆ "> GBPNø « 40ÑWNø ¨†NEGATE  JDWNø T­ X0‘WNø RƒABÓ jJWjDWNø .‚+!  ~> GáHÐ_2àI€Nø š°h b±h >²h v³h ¬‚2*  Èá×Nø À‚2/  Øà×Nø ¢ƒU2¯ èâ×Nø ˜‚8*  ø0ç@?Nø à‚1+  RWNø Ђ2+  TWNø ‚1-  ,SWNø ‚2-  ¼ÿÿNøBWNø ð‚0<  ˜JWkä`ê ‚0=  ¨JWgÔ`Ú  ‚0>  ¸JWnÄ`Ê °ƒ0<¾ ÈJWf´`º À¼ Ö0°Wn¤`ª f½ æ0°Wg”`š 4¾ ö0°Wm„`Š à‚U<  0°Wbÿr`ÿv ‚U>  02²@bÿZ`ÿ^ Ђ<> ( ä P ¶‡?NEGATÅ( –® R HP ƒMIÎ( þ ô® h:P VƒMAØ( þ Ô® €:P ð‡BETWEEÎ(üP ô:ì ô l P >†WITHIN ( * P †‚2@ (( ":"P º‚2! (d: :P Ð…2DROÐ î Nø ä„2DUP  /Nø ö…2SWAÐ  ".€/Nø …2OVEÒ *//Nø ¦„3DUP (( (ŠP .„4DUP ( ( (P „2ROT („ 8„ 8P! H‚D+  | Ñ—Nø! t‡DNEGATÅ ’D—Nø! 4ƒS>Ä ¢0_/Nø! †„DABS  ¶JWjD—Nø" ¬ƒD2ª Ê ã€/Nø" ƒD2¯ Þ â€/Nø" Ö‚D- ( zP" šˆ?DNEGATE ( –® P# êƒD0½( l ¦P#‚D= ( ðP#$ƒDU¼(Š: þ ®R ì ì ¢˜b 4®` ì °˜b P#4‚D< ( ° P 䮀:˜ˆzŠ ÔP#f‚D> ( lP#Œ„DMIN ( P’®°  ìP#œ„DMAX ( Pl®Ê  ìP$ Z‚*D ( þ ~ü h: h JìP$ n…M/MOÄ(Ø®8(ü þ ~üü ´ h p:ì H:ì –®4 HP®4 * Š V:ìP$î†MU/MOD (ü œ pì:ü pìP%Ъ( JP% ú„/MOD (ü  ìöP%l¯(tzP%<ƒMOÄ(tP%^…*/MOÄ(üÖìöP% ‚*/ (¨zP&¶ƒTOÓn&…ENTRÙn&Æ„LINK n&‚ƒSP°n&¶ƒRP°n&à‚DP n &î„#OUT n &…#LINÅn& †OFFSET n&ú„BASE n&ƒHLÄn&>„FILE n&Ò‡IN-FILÅn&LˆPRINTING n'f„EMIT Œ'.ƒSCÒV'v…PRIOÒV'–…STATÅV'°‡WARNINÇVÿÿ'¢ƒDPÌVÿÿ'X‚R# V'΄LAST V‰'¾ƒCSÐVîÔ'ô‡CURRENÔV'…#VOCÓh'‡CONTEXÔV4ô(„'TIB VîÔ(>…WIDTÈV(ÚˆVOC-LINK V_˜(ZƒBLËV(lƒ>IÎV®(L„SPAN V(„„#TIB V(ˆ„END? V)x‚BL h )®‚BS h)º„BELL h)’„CAPS Vÿÿ)Æ„FILL ì02> GSAÀQÉÿüNø) …ERASÅ( œêP)â…BLANË(´êP)Ô…COUNÔ0> GB@??Nø)æ†LENGTH N> G0??Nø)„MOVE (¦ þ ®zŠ¬˜~Š†P*^ƒUPÊ< am zn ?Nø*‚…UPPEÒ(<ÄÈ(Vˆ:nÆ´P*B„HERE ( "P*ȃPAÄ(ЄP 2P*¤‰-TRAILINÇ(( œ þ 2 *V´ 4 *ÆP+&„COMP &0R@> G>"GS@g± gj?<`?<ÿÿNø`æBgNø am zn Nu,‰CAPS-COMÐt0R@> G>"GS@g$N¸RN¸R¼gj?<`?<ÿÿNø`ØBgNø,f‡COMPARÅ(Ü"®Êr˜Ì$P-‡REG-BUÆVB†„€)Bnï¸wîîþ _ÿß_ûÿûŸ·ÿÿþ’ßß-ЄBDOS (0>"NB?Nø-„BIOS B02HøÜNC?LøÜNø-Ú†(KEY?) ( œ °@ ÆP-\…(KEY©(¼f®~ œ º@P-t‰(CONSOLE©(¼„@ ¦ |P.°„KEY? ˆf.²ƒKEÙˆ|.À‚CR ˆ>.‡PR-STAÔ( ¢P.؇(PRINT©(¼â®ö„@ ¦ |P.ê†(EMIT) (‚"®0(ô„ÿÿ |œP.Ì„CRLF („ „  ¦( |P.„TYPE ( œr.ÆjP.6…SPACÅ(´P.x†SPACES ( œ t œ¦€Æ P.8ŠBACKSPACES ( œÈÀÆÀP.ª„BEEP (ÎP/Ì…BS-IÎ((®ø *À˜úÎP/Zˆ(DEL-IN) ((®$ *À€À˜&ÎP/Þ‡BACK-UÐ((¸(”¸ œP/,†RES-IN ( ¢*êResetP/„P-IN (‚" ‚:P0Š…CR-IÎ(Œ:P´P0f†(CHAR) ( < 2n P0€„CHAR ˆ¤0š†DEL-IN ˆ 0´‚CC Vì0ÒˆCC-FORTH V¼¼¼T¼¼¼¼æ¼¼¼¼ˆ¼¼n¼¼¼¼6¼¼6¼¼¼¼¼¼¼1î†EXPECT ((Œ:: œ ° P V®„Æ(´ Ô®l( ÆØ" 2x˜€(„ ä®~̘€¼˜D ìP1ƒTIÂ(F"P1.…QUERÙ(’„P8Œ"š:r ~ P2Þˆ#BUFFERS h2J…B/BUÆh2Ô…B/REÃh€2â‡REC/BLËh2ð…B/FCÂh*2ŒŠDISK-ERROR V2…LIMIÔhÿþ2…>SIZÅh*20…FIRSÔhïþ2œ‡INIT-R°hïÔ2>ˆ>BUFFERS (F8 VP2\„>END (F :P2t‡BUFFER£( öh 2P2†‡>UPDATÅ( ¦„ 2P3œŠREAD-BLOCK ˆ3‹WRITE-BLOCˈP3¶….FILÅ(.Ø®ü„@ 2)T:„ þúb 2)T. ºb€P3Þ…FILE¿(`"æP3ʆSWITCH (`"p"`:p:P3"ƒDOÓ08 7ä9Ú:&3†!FILES ((`:p:P3ŠDISK-ABORT (b)T in æ+ P3‹?DISK-ERROÒ((:®È): Disk error †˜ÊP4„FCB1 V 4š‡CLR-FCÂ(( „ P4‡SET-DMÁ(„&P4·RECORD£(„" 2P4^‡MAXREC£(„& 2P4PˆIN-RANGE ((Z"PD" (:®¤ ¦ ): Out of Range †P4:ˆREC-READ ((r„!&¨P4¨‰REC-WRITÅ((r„"&¨P5"†SET-IO (( ÀúbPD::„ 2"ú œP5ƉFILE-REAÄ(îþ< þ,(´ ¦:D |ê 2Æ$ ìP5ŠFILE-WRITE (îþp þ,(Ò ¦:D |ê 2ÆX ìP5B‡FILE-IÏ(„1Ä„P1ØP6*ˆCAPACITY (`"Z" œ„ pzP6J‡LATEST¿( :8" 2 þ ¦ À*®ö ì ¦„ 2" °ìP6L‡ABSENT¿(Æ °Î °þ4 þÈ À*®. ìÈø˜0 °ÆØ®n(h„†üh(„ 2Pì: V¬ ¦„ 2" °˜th Ö ¢P7ú†UPDATE (¦ P7¼‡DISCARÄ( ¦¦:P7x‡MISSINÇ(| :" –®Ê| : |„ VØ|„ V"h„ 2: ¦h„ 2:h(„ 2Î ö¬P7Œˆ(BUFFER) (¼®"¬ ¦„ 2"P7†BUFFER (`" P7þ‡(BLOCK©( ¦" ¶®d ¦(Ä„ 2 P7&…BLOCË(`"FP7¢ˆIN-BLOCK (p"FP8|EMPTY-BUFFERÓ(F*P V hÎ ö F ¦Î œþè( „ 2 þ::Ü 2:„ 2ÆÈ ìP8–ŒSAVE-BUFFERS ( ¦Î œþ>(" ®:(„ 2" –®4(Ø(„ 2 „ 2Æ P8h…FLUSÈ(þ œp¤P8D…VIEW£(`"„( 2P9v‰FILE-SIZÅ((„#&D"P9xˆDOS-ERR? („ÿ äP9ä‰OPEN-FILÅ(p"(„& (:®â): Open error †(€ *:Z:P9”‡DOS-FCÂh\9<‡DEFAULÔ(Ö(p:(`:ü V´ 4®8üÖ„ †¸P9†(LOAD) (`"ür"ü~"ü~ r:p"`:1Ìì~:ìr:ìhP9<„LOAD ˆFBgNø:€…DIGIÔž02’<0kä²< k²<kØ_²jÒ>?<ÿÿNø:”‡DOUBLE¿(Ô" ÆP:î‡CONVERÔ( (üVF"œ® ":F" JŠF" J zЮ  ¦Ô |ì˜êìP;Ɖ(NUMBER?©( œ œŠ( V„- ä(ü V„ÿÿÔ:è(V„,„/ ® v œÔ:˜ X¦ì® € ŠV´ äP;\‡NUMBER¿( °P.< ¾ÈVF"œz® º ¢øÆ ¤® È 6˜ Ð œ œ °P; *ˆ(NUMBER) ( – (æP; Œ†NUMBER ˆ à< Ô„HOLD („ÿÿR |R"nP< ü‚<# (àR:P<Þ‚#> ( ìR"àP VP!Ì„SKIP #02RA> GSAg °fØRH`ò`Ò>"ü„SCAN #,02RA> GSAg °g²RH`ò`¬?#"‡/STRINÇ(P \ŠP 2¦ VP?"Ú…PLACÅ( < :fnP?#fˆ(SOURCE) (r"Ø®# pܘ#¦’š"P?#H†SOURCE ˆ#Œ?#€ŠPARSE-WORD (ü#´d~"#R #P:ì#*üP VŠì( Æ 2 V~:P?#º…PARSÅ(ü#´~"#RP:ì#*üP V(ì Æ V~ |P@#ª…'WORÄ(ÐP@$.„WORD (#È$6#n$6(. 2´:nP@"P…>TYPÅ(dà:†à:bP@$`Â.( („)$$hP@#üÁ¨(„)$ ìP@$Â\S (¨ PA$¢ˆTRAVERSE $À0> GÐÀfÐÀ`ö?NøA$²…DONE¿(¸" 4¨" l¨ PA$|ˆFORTH-83 (08Ü PB$ø†N>LINK ( :PB$Ú†L>NAME ( PB%…BODY¾( :PB%6…NAME¾( ¦$¾ PB%$…LINK¾(%.%NPB%F…>BODÙ( PB%l…>NAMÅ( *„ÿÿ$¾PB%|…>LINË(%„%PB%’…>VIE×(%š :PB%¤…VIEW¾( %bPB%Z„HASH %Ò2> GJÀ|Ð@Ò@?NøC%Ȇ(FIND) %ø,BB>g@"G< FJY±Â<?f$±gøÂ<f>‰Ä|@g?<`?<ÿÿNø"G>`¾BgNøD$>ˆ#THREADS hD%¶„FIND ((V®&¼ª ° œþ&¸(È Æ 2"(®&´(ª"Pª: ä®&¦ °˜&´P:%Ð"%ö(Æ&z˜&Ȩ „¬ ¦PD&HŠ?UPPERCASE (Ü"®&ê(.¬PD%ì‡DEFINEÄ(´$F&Ú&bPE&̆?STACK (Òô": *êStack UnderflowÒà *êStack Overflow PE'†STATUS ˆÒE"‰INTERPREÔ('&ø®'v`˜'‚ öÐ ®'‚ °$â®'hPF'Z…ALLOÔ( |PF&î¬(Ð: °'–PF'J‚C, (Ðn ¦'–PF'Ž…ALIGÎ(Ð ¦ Z®'Þ´'¸PF'Æ„EVEN (( ¦ Z 2PF'²‡COMPILÅ(ì( ü"'¤PF'â‰IMMEDIATÅ(„@î" ¾PF' ÇLITERAÌ((„'¤PF(0ÈDLITERAL (:(:(:PF(ÅASCIÉ(´$F V¸"®(z(:PF'øÇCONTROÌ(´$F V„ Z¸"®(¢(:PG(~…CRASÈ( ¢*ê Uninitialized execution vector. PG(¦ˆ?MISSING (®(ú$6.b ¢*ê ? PG(Ú§(&ø ¦(æPG(þÃ['Ý()(:PG)É[COMPILEÝ()'¤PG(Fƒ("©(ì. þ 2'êüPG)4„(.") (ì. þ 2'êübPG)L‚," („"$d$6#n '–'ÎPG&ZÂ." (()T)nPG)†Á¢(():)nPH)˜…FENCÅVpÄH)h„TRIM (&T œþ)è þ" þ  ®)Ü"˜)ÌzP: Æ)È ìPH)¶ˆ(FORGET) (()°" *ê Below fence(f" þ ®*&"˜*(f:z(®*D þ&T Æ V)¾"˜*. :PH)¨†FORGET (´$F&Ú( "%Ð"%ö ¦(æ%¬)úPI)…WHERň¬I*x†?ERROR ˆ*¢I)îˆ(?ERROR) (®*Øüüô"â‚ r"®*È~"r"*€ìì€b€1ö˜*Ú ìPI*–ˆ(ABORT") ( .Š*ì. 2'êüPI(^ÆABORT" ((*ê)nPI+…ABORÔ( ¢*ê PJ*†Š?CONDITION ( *êConditionals Wrong PJ*N…>MARË(Ð œ'¤PJ+Xˆ>RESOLVE (Ð::PJ*Þ…MARK ( ¢+`PJ+¨‰?>RESOLVÅ(:+:+xPJ+¼†?PK,²ÂIF ((®+²PK,ÜÄELSE ((˜+² +ÈPK,„ÅWHILÅ(,âPL,j…,VIE×(r"(®-6d"„b 2'¤PL,Ƈ"CREATÅ(.Ð'ê„ 2#n'Î-Ð œ'¤Ðî:ÐÈ"®-’&b®-ŽÐ.b)T isn't unique Ð "%Ð("Ð :Š:::Ð(VT" \ '–'΄€: ¾„€Ð * ¾(VPL-†CREATE (´$F&Ú-FPM,î„!CSP (Òú:PM-Ô„?CSP (Òú" 4*ê Stack ChangedPM-„HIDE (î"(%": "%Ð:PM-<†REVEAL (î"(%: "%Ð:PM.&‡(;USES©(ì"î"%N:PM-ì‰ASSEMBLEÒ0M:MdMPL¬ZM.Å;USEÓ(.(.t/.R.’PM.j‡(;CODE©(ìî"%N:PM. Å;CODÅ(.(.Ä/.R.’PM.ºÅDOES¾((.Ä„N¸'¤„R'¤PN.ÔÁÛ(¸ PN.†Ý(¸ '&ø(®/@ ¶®/:`˜/<'¤˜/T öЮ/P(R˜/T(: ¢$â®/$PN.Hº(-ô "(:-Þ../.t(N/ Á»(.(P.R/PO/`ÉRECURSIVÅ(.RPO/|ˆCONSTANT (-Þ'¤.thO/ˆVARIABLE (-Þ œ'¤.tVO.î…DEFEÒ(-Þ„(®'¤.tˆO/¼ŠVOCABULARY (-Þ&T œþ0 œ'¤Æ0Ðf"'¤f:.ÄN¸R(:PO/Ö‹DEFINITIONÓ((" :PP/î‰2CONSTANÔ(-Þ'¤'¤.ÄN¸R ÀPP0F‰2VARIABLÅ( œ œ0R.ÄN¸RPP/„AVOC VP/¤„CODE (-Þ..Ð( ::("0Œ:.’PPˆEND-CODE (0Œ"(:.RPQ0’…#USEÒVQ0„„USER 01:0ö1"1.œQ…ALLOÔ(0Ú |PQ†CREATE (-Þ0Ú"'¤.tnQˆVARIABLE (1 °0þPQ…DEFEÒ(1..tŒR0fƒ>IÓ(("(„n ä:(„Œ ä: l®1‚%t"d" 2˜1„%tPR0*„(IS) ( "1R:ì üPR0àÂIS (¸"®1¼(1˜1Â)1R:PS1LƒRUÎ(¸"®1è/¸" ®1ä'f˜1ê'fPS1¤„QUIT (ô"F:r /"'T¤1̸" ®2")T ok˜2PS1Æ„BOOT ˆpLS0Ò„WARM ( ¢*ê Warm Start PS28„COLD (221öPT1î‡INITIAÌhT2V‚OK (2rˆPT2x…STARÔ(¤ PT2*ƒBYÅ(ÒÐ œ„ pz !¾!þ)TPages œ œ&PIù2@> GNÐMùïÔOùîÔB‡Iù2^> GNÐNG2îîÔïÔpÄqNM q‡–‡–W1ˆ…DEPTÈ(Òô": V ÖPW2š‚.S (3Ø®3Z œþ3V3È V * „"€ºÆ3<˜3d)TEmpty PW3&ƒ.IÄ(( (VŠV„ Z œ3´(„ Z„€ Z®3ª„_„€ l˜3° (VÆ3ˆ ì€PW3 „DUMP ( œþ3øÒ(„"V€„ œþ3ð(V º"V Æ3â„â3ÌPX3hÇRECURSÅ(î"%N'¤P 2ˆƒC/Ìh@ 3¼…L/SCÒh 4"ÁÜ(~" H4–~ |P 40Â(S ($”P 4¿(""DP 4V‡?ENOUGÈ(3 * ô*êNot enough ParametersP 4H„THRU ( °4n :4°ÈˆÆ4¨P 4d…+THRÕ(r" 2:r" 2:4šP 2hÃ--¾(~ ¦r |P 3þ„ROOT 05ž56 Rè0ò „ALSO (((  : ƬP „ONLY („4ò%t( * Æ þ 2:4òP 5„SEAL ()%t( Æ (:P ˆPREVIOUS ((( : : Ɔ( : Æ 2 P …FORTÈ(P 5`‹DEFINITIONÓ(08P 5B…ORDEÒ(Ò)T Context: ( œþ5ì("Ø®5æ%>%„3n Æ5ÖÒ)T Current:  "%>%„3nP 5Ž„VOCS (f"(&T Æ V%>%„3n"( ¦®6P t„FCB2 VF83 68Kbúûü    b 66…RESEÔ( œ„ &P ¬…CLOSÅ(„& *ê Close errorP 6„‡SEARCH°(„&P 6¨†SEARCH („&P ò†DELETE („&P 6l„READ („& *ê Read error P 6¾…WRITÅ(„& *ê Write errorP f‰MAKE-FILÅ(„& *êCan't MAKE File P 6Ô†(!FCB) (( ( „ üP V„: ä®7 PV„@ V n °#Rì ¦ œþ7Þ(V„. ä®7Ê:„È V 2˜7Ö þV:n: : Æ7¬ ìP 72„!FCB (´$F.Ü"®8 þ¬Š7jP 7†SELECT („&P 7`†HEADER ˆ8> 6êŠ68K-HEADER („ 2:„ V:P(„ „`P:„ 2ÐP:„ 2„P:  P 8„SAVE (6>(7ì(6Þ(7>¦8*<8¸È,(7„€â8¨6ŒP 4Ô„MORE ( ¦4n¢:( ö`"Z |<8ðÈ0Ü‚Æ8âþ`"6ŒP 4´‹CREATE-FILÅ(6>(h(7ì7>8ÆP 80….NAMÅ("4 ô®96Ò„ bà 2 „ þb€ 2 ºb º”P 4’ƒDIÒ(): ????????.??? 6>7jÒà,6>6²9&6>6È( ®9€P 9Z†DRIVE? ( œ„&„A 2)T: P 8¾‚A: ( œ8P 4ê‚B: ( ¦8P 9…FILEº(~"-Þ~:Ð('–7ì.ÄN¸RhP 8„‡?DEFINÅ(~"&ø®:"z%t˜:*~:9âP 9”†DEFINE (:P 8ü„OPEN (:h¸P 9Ê„FROM (:p:¸P :B‹SAVE-SYSTEÍ(„Ð8ŒP :VŠVIEW-FILES VA:ð;.;l;¨p:¸P :‚‹SAVE-SYST :ˆ…VIEWÓ(: þ„( 2:%>: Æ:– 2:P :lŒKERNEL68.BLK 9úKERNEL68BLK 9ºŒEXTEND68.BLK 9úEXTEND68BLK :àŒCPU68000.BLK 9úCPU68000BLK€€defghijkOЯ ;‹UTILITY.BLË9úUTILITY BLK€€z{|}~€7¸o00¶‡A?>MARË(Ð ¢P0;ÖŠA?>RESOLVE (+:ÐP V: *nP0;ê‡A?MARK ˆ;à0RESOLVň;ø0‚D3 h0>‚D4 h0>‚D5 h 0>*‚D6 h 0>6‚D7 h0=Ì‚A0 hH0>N‚A1 hI0>Z‚A2 hJ0>f‚A3 hK0>r‚A4 hL0>~‚A5 h M0>Š‚A6 h N0>–‚A7 hO0>¢©=Ú0>®‚)+ =ÚØ0>¸‚-) =Ú 0>B‚D) =Úh0>ЃDI©=Ú°0=`‚#) hø0>܃L#©hù0>ô„PCD) hú0?…PCDI©hû0>è£h ü0= …FIELÄ(/°.ÄN¸R" ZP0?&‚RD ?40?@‚RS ?40>Ä‚MS ?480?XƒEAÓ?4?0?ƒLO×?4ÿ0?pƒDN¿((?^ ¦P0?ƒSRÃ(P?j lP0?|ƒDSÔ(:?F lP0?Ž‚SP hO0?L‚RP h N0?d‚IP h M0?²×hL0? ‡DOUBLE¿((>ú ä:? ä=v Z lP0?ʆINDEX? ((ü(„ø Z>T>â ä:? ä l®@L(?F„b:?^®@D„€ l=Z:?v lìP0@…MORE¿((?^„ ôP0?à…,MORÅ(@Z®@„@ ?ê<®˜@†P0 @R…EXTRÁV 0 @Š†EXTRA? (@Z®@Öü @ ?ê@’ :®@È Ö °˜@Ì: ¦@’nì˜@Ü œ@’:P0 @j†,EXTRA (@’VØ®A@’ : ¦ ä®A "SÒA¦<0 A´‡EORI>SÒA¦ <0 AŠ†ORI>SR A¦<0 AÄ‚IQ (/°.ÄN¸R"ü@¦?j:?R„b lì l=@USP (?R„N` l (@¦?j„H€ l=ŽCCR JêDÀ0K‡MOVESÒJêFÀ0K„NBCD JêH0J´ƒPEÁJêH@0KRƒTAÓJêJÀ0K4„IEAS (/°.ÄN¸R"?”=@CCR JêDÀ0JšƒCLÒKxB0K–ƒNOÔKxF0KÀƒNEÇKxD0KÌ„NEGX Kx@0K^ƒTSÔKxJ0K¢„ICON (/°.ÄN¸R"‚DO (<`:P0LÒ„LOOP (ElP0Lä‚0= hf0Lôƒ0<¾hg0M‚0< hj0M ƒ0>½hk0M¼hl0L¼‚>= hm0M$‚<= hn0M.¾ho0MF„NEXT (P>îKœP0L˜„INIT (<øP0:.‡DOES-OÐhN¸0Mt‰DOES-SIZÅh0M„…DOES¿((M 2:"M~ äP0M–…LABEÌ(-Þ.’MlP0;\„CODE (0šMlP0:ºƒBUÇ0n°Møndn4ü0ƒ(G> GNÐ0N †FNEXT1 hN.0;š…UNBUÇNP!ùN*Nø0Mì‡DEBNEXÔV0 °xMôe8°xNb249N RB3ÂN ´|fByN !ùN*? >9N(GNùN.NùN*0N6„JBUG VNøNj0N^…PNEXÔNÌ!ùN¼Nø0M²‡(PAUSE©Næ? ?>9f G0ÏTˆ> GNÐ0M؇RESTARÔV> _YH3Èf>.G>,G>*GNø0NÚ…LOCAÌ(d" V 2P0O(…@LINË(è"P0NF…!LINË(è:P0MÆ…SLEEÐ(„Nø:ÚO0:P0Ob„WAKE („NG:ÚO0:P0O|„STOP (d"Oj¼P0O–†SINGLE („¼%t„¼:P0OP…MULTÉ( œ„œ:O„ž:„Nä"„¼:P0O>ƒLCÀOú _B@?Nø0OòƒLC¡P _0€Nø0OȇIO-PAGÅhÿ0PƒPCÀ(P&OøP0P,ƒPC¡(P&PP@Nþ…FUDGÅVd@P‚MS ( œPzPT" œPvÆPrÆPhP@PZƒU<½(  P@P~ƒU>½(  P@P<‚<= ( ô P@PL‚>= ( Ô P@Pžƒ0>½( – P@P¾ƒ0<½( ¶ P@PΆHIDDEN 0mZghkîk,Mè@PÞ‡LMARGIÎV@P®‡RMARGIÎVF@O¬…?LINÅ(" 2Q" ô®Q8ÒQ"”P@Qƒ?CÒ( œQP@Q„.SCR ()TScr # œ4Z„”P@Pö„LIST ( ¦4nÒ(œ:QT4* œþQ´ÒÈ º"V€(pÈ4b 24ú$hºÆQÒP@Qp…TRIAÄ(„  º† ºb º<þQäÈQxÆQÜP@QL†.LINE0 (( º– ¦®RÒÒ( º"V€p4ú$hP@PŽ…INDEØ( °4n :þR6ÈQòÆR.ÒP@RƒINÄ((Qò º®RDP@Q¼‡LARGESÔ(P œ:Š œþRŠ þ" ®R„¦ ì("P ÆRpP@Q<…WORDÓ(ÒQ"”("Ð&T ƆÐ&TR`(®Râ(%.(V„ ZQ3n€€"::º®RÞ:˜R® ìP@5´…WORDÓ(R˜P@R†#TIMES V@RV…TIMEÓ( ¦S |S" Ô®S, ¦S:˜S0~ P@R<„MANY (º ®SJ~ P@Qè‚:: (Ðü„('¤-ô/ `ì :P@SNÎ( ¦œ | P@SrÂ(„ÿÿœ | P@SÌ(œ"QxP@S4‰ESTABLISÈ(`": ¦ ÖP@Sœ†(COPY) (8" 2:ˆS¸‚P@Rø„COPY (LSÔLP@SÊ…@VIE×(%¬"(„ÿ Z( ¦*êentered at terminal. :„†„ ZP@S†„VIEW ()TØ®T‚ Æ:– 2")Tis in þ%tæ)Tscreen "D`¸˜T®)Tmay be in current file: )Tscreen ("DQxP@Sþ†HOPPED V@S¬ƒU/ÄV@Sê‹CONVEY-COPÙˆSÔ@T´ƒHOÐ(T¾:P@TBƒ.TÏ(ÒP"D)Tto ("DP@Täˆ(CONVEY) ( œU@º((T¾" 2TúTÞTÊ" 2ÆU$LP@TІCONVEY (LT¾" –®Uj P V ¦˜Uv( Š V„ÿÿTÊ:ÎtüUì œU’ÎUÆUŠP@U‚TO (:´$F öP VTê:P@ Tô…FOUNÄV@ UFˆSCAN-1ST (Ü"®Uà˜Uâ#*P@ UĆSEARCH (U¾ :ü þP„®VNP V ° V ¦ü UÐ(®V:ü <:º ¦®V8U¾ ì œüì(®VH ¦#R˜Vì ì¦ ìì VU¾"P@ U˜†DELETE (P \ü V( ¶®VŠ þ:( 2¦:† 2ìP@ TĆINSERT (ŠP \ü VP( 2Š¬ì†P@ U¶‡REPLACÅ(Š \†P@ VÀ„BLOT ˆ`Ö@ V”…-LINň¬@ Vä‚AT Vü`ÂN¸R¦ þ(::ŠxP@ V\„DARK W `îN¸Rx(  P@ Vò†EDITOR 0cˆc¼cÌa\Pò@ ‡.SCREEΈa @ „AUTO 0|'VÒ@ WZˆEDITING? V@ ‡CHANGEÄV@ Wj‡INSTALÌ(Wv" ®W¶„WTWb":5Wv W†  P@W|…C/SCÒh@ƒTOÐ(à P@W¾Ã(à" 2WÆ–à:P@WÌÔ(WÒ4bWàP@W܆CURSOR (à"P@Wô…LINE£(X4†P@X„COL# (X4–P@X.‚+T (X" 2WøP@XB†'START (œ"pP@XT‡'CURSOÒ(X^X 2P@Xj…'LINÅ(XtX6 VP@X€†#AFTER (4X6 VP@X”Š#REMAINING (ÜX VP@Xª„#END (X¸X6 2P@WŒˆMODIFIED (W† ‚P@X؃EOÓh^@XÄ…?TEXÔ(üXö$(®Y" 4  #n˜Y$ ìì.P@Xü…C/PAÄhT@Y,‡'INSERÔ(àY4 2P@Y:…'FINÄ(YDY4 2P@YP†'VIDEO (YXY4 2P@WJ‡.FRAMEÄ()T'.b)T'P@Yz….BUFÓ(Ò)TI YDY„Ò)TF YXY„P@Ydˆ?MISSING ( ¦®YæYXY„)T not found 1öP@Y¼„KEEP (Xˆ4YD#nP@YêË(YXàY4†YDYXY4†àYDY4†P@Z×(þP@Z"„'C#A (XtXžXäP@Xƒ(I©(YDYdZ6P@ZB†(TILL) (YXYZ6UðYÈP@Z.ƒ'F«(YXV 2P@Xð†ID-LEN h @Z‚‚ID V @Zp…STAMÐ(Z˜X^4 2ZŒ * VZŒ *†P@Z¨†?STAMP (W†"®ZäZ°W† P@Z’É(ZHVžWàP@ZÊÏ(ZHVÊWàP@ZVÐ(YDYXˆ4†XäP@ZèÕ(4WàXˆ4PXÌVž[ P@[Ø(YòXˆXÌ4VfXäP@Zø…SPLIÔ(à4 þXtX¸VžXäP@Y–„JOIN (Xˆ4 24Z6VžP@[P„WIPE (X^ÜXäP@[ Í( ¢*êUse G !P@[ˆÇ(4b:ˆ 24YD#n4 HWà[$4WàP@[n…BRINÇ( :þ[ö(È[¸Æ[ìP@[Ú…FIND¿(YXYXtX¸UðP@[üÆ(\YÈZvWàP@[´Ó( ¦4n\®\SHADOW©(_¬ þ Ô®_à 2˜_â VP@‡>SHADO×(`"_ÎP@_æŠ>IN-SHADOW (p"_ÎP@_Á(œ"_ðœ:P@„COPY (L þSÔ_ð:` :SÔLP@`*†CONVEY ( þUP` :` : œ_ð œ` VT¾ |UPP@`JÇ( þ[¸`4 HWà:` :[¸Z°`P@_ü…BRINÇ( :þ`´(È`zÆ`ªP@]„(AT) ( ìÒP@`º†(BLOT) (4: V”P@`̆(DARK) („ œþaÒÆ`úP@^"….DUMÂ(Ò]ÒP@`ä„DUMB („Ò„'T%tWb Ö„a 1WT„`Â1Vø„`Ö1VÞ„¬1Vì„`î1WP@^^…SMARÔ(„>„Ò%tWb Ö„]ž1WTP@]þ‡ANSI-AÔ(F"¦!¾„„[ œ"V„; œ"V„HF:P@a€‰ANSI-BLOÔ(„)T[K P@aÀ‰ANSI-DARË(„)T[2JP@aàŠANSI--LINE („)T[1MP@aþ„ANSI (ad„aŠ1Vø„aì1W„b 1Vì„aÌ1VÞP@a†H19-AT („„Y„ 2„ 2P@bNˆH19-DARK („„EP@bzˆH19-BLOT („„KP@b˜‰H19--LINÅ(„„MP@b¸…HEATÈ(ad„bX1Vø„b†1W„bÄ1Vì„b¤1VÞP@bÖ†TVI-AT („„=„ 2„ 2P@cˆTVI-BLOT („„TP@c2ˆTVI-DARK („P@cR‰TVI--LINÅ(„„RP@cj‰TELEVIDEÏ(ad„c1Vø„c^1W„cv1Vì„c>1VÞP@b„QUME (c”P@a…FALCÏ(c”P@_0‚.2 ( œ!!`!`!0b€P@_\ƒD.²(<dÈVcâÆdP@`…EMIT®(„ Z(´„~ ®d8„.P@cöƒDLÎ(Ò(„" °”„ þcü€P 2„cü€„<d~ÈVdÆdtP@_„ƒ?.Î( þ ä®dž)T\/ ˜d¢ °"V€P@d‚ƒ?.Á( þ ä®dÂ)TV˜dÆ ¦"VP@cÜ….HEAÄ(:(„ÿð Z:„ ZÒ„”„ œþeÈdˆÆdø€„„þeÈdˆÆe€„ œþe*Èd®Æe"Š 2P@d>„DUMP (F"¦!¦dÒ<þe\ÈdDº„âeLF:P@e2‚DU ((„@e:„@ 2P@ed‚DL (4bœ"p 24e:P@ d¨ƒOUÔ(Ò)TSubscript out of range on (%>%„3n)T Max is 4Z)T tried "D1öP@ dƒMAÐ( þ" ®f : Æ 2˜fe P@ eš…CASEº(/°../.ÄN¸ReôxP@!eîŒASSOCIATIVE: (/°.ÄN¸R("¦(" œþfv  þ" ä®fr ìÈ œ œøÆfZ ìP@"e~…(SEE©ˆj"@"….WORÄ(("%„3n P@"fŠ‡.INLINÅ(f’(""D P@"f¢‡.BRANCÈ(f’("P V"D P@"f¼†.QUOTE (f’f’P@"fÚ‡.STRINÇ(f’. þb€ 2'êP@#fîˆ.(;CODE) (f’Mž®g0)TDOES> ˜g4 °P@#g ‡.UNNESÔ()T;  œP@#g8‡.FINISÈ(f’ œP@$EXECUTION-CLASÓfF„®˜Æâþ()T*ê.ÄP):.t@%gR.EXECUTION-CLASS f$f¬fÆfÆfÆfÆfÆfäføføggBføfÆg\f’P@&gœ„.PFA (%tQB("gzg°( ¦º l®gâP@&gÖŠ.IMMEDIATE (%„V„@ Z®h()T IMMEDIATEP@'gþ‰.CONSTANÔ((%t4Z)T CONSTANT %„3nP@'h,‰.VARIABLÅ((%t"D)T VARIABLE (%„3n)TValue = %t4ZP@'hT‚.: ()T: (%„3n °”gÞP@'hŽ†.DOES> ()TDOES> %>gÞP@'h¬Ž.USER-VARIABLE ((%t4Z)TUSER VARIABLE (%„3n)TValue = 1R4ZP@(hʆ.DEFER ()T DEFERRED (%„3n)TIS 1R"f„P@(i‹.USER-DEFEÒ()TUSER DEFERRED (%„3n)TIS 1R"f„P@(i>†.OTHER ((%„3n("P%t ä®i¤)Tis Code:("Mž®i´h¶: ì)T is Unknown P@)DEFINITION-CLASS fF(hVnˆŒ@)iv‘.DEFINITION-CLASÓf$h”h8h`hÜiiLi€P@*iȇ((SEE)©(Ò(("iÜjh P@*fƒSEÅ()f„P@,f0…EPSOÎ(„P@,jF‡INIT-PÒˆ¬@,dʇFOOTINLjlr@,f|†L/PAGE hB@,jz„LOGO h@,j6…#PAGÅV@,jŠ„PAGE j²jòN¸Rx ¦j  |(  P@,jj‰FORM-FEEÄ(„ „ P@,j¦†(PAGE) (j„("P \kÒÆkP@,jè‡(SEMIT©(‚"®k&ô˜k(œP@,…SCR#ÓVALLOT ¸Ri&P@-j…TEXT¿(p(V´„~ ®knÜúz Ƙkp °P@-kF‚PR ((¢P´®kŠj’ ¦k4 |k4(" Æ 2:P@-iîƒ2PÒ(Ò( °"V€4büà„:p 2à4†pì 2à4 2 4†à„úbP@-k „2SCR (ÒÒ„”P„"V„=”(„"V„ œþl, þÈk¦Æl" ìP@.kt‰P-HEADINÇ(ÒÒ„”)TPage# j 4Z„”ÒP@.l2‰P-FOOTINÇ(ÒÒ„:”)TForth 83 Model j®P@/lfˆPR-START (‚ ( „k1k4 ¦j :jdP@/l–‡PR-STOÐ(„1‚ P@/lćPR-PAGÅ(l>k4 k4  º œþm("P„ 2"kö ÆlþjtP@/là‰PR-S-PAGÅ(l>k4 k4  º œþmR("P "kö„ 2Æm<jtP@/mˆPR-FLUSH (k4"(®mŒk4"„ Ô®mˆ œkz˜mrj’kz ÆP@0j˜„SHOW (l¢ :mÆÈkN®m²Èkzk4"„ ä®mÂlêÆm¦mf®mÎlêlÎP@0`v„SHOW (l¢ :nÈkN®múÈkzÈ_ðkzk4"„ ä®n m(Æmèmf®nm(lÎP@0k ‡LISTINÇ( œ¢ Ö *mÜP@2N„L.ID (:(3n(%N * V 2”P@2N„SLOW V@2N²ƒREÓV@2n6‡(DEBUG©( ¦N :Mþ:Mò:NÊP@2nV‡'UNNESÔ( ("„P ä®nœP@3np…TRACÅ(ü3,ìÒ"%„„ n>n^" º l®o2n^ nj )T --> ƈ„CP ä®on^" n^:„FP ä®o ¤1Ìnj"®o„QP ä*êUnbugNÊP@3n…DEBUÇ() :(nšnzP@3jʆRESUME (nj œNÊP@5o8…TASKº(-ÞÌÐ0Ú"†OFd"¦Ðd:OX(Ð 2(:„d Vô::d:ÐÚO0OXÐ0Ú" 2Ð O0:ÐOj'–P@5m’ˆSET-TASK ((ôO0" :ŠP: :PO0"P::ÌO0:P@5jZˆACTIVATE (ìPoØO„P@6oP‹BACKGROUNDº(„opÐOF :oØ-ô/P oh…HELLÏ(Ò)T68000 Forth 83 Model Ò)T Version 2.1.0Ò)TModified 03Jun84 25$508P p„MARK (-Þ.ÄN¸R)ú08P pž…EMPTÙp¬F83.68K TEM BLË9úHUFFMAN BLK€€¥¦§¨©ª«¬OpƃD+¡(( ÀŠü zì ÖPpº…ARRAÙ(-Þ Æ'–.ÄN¸R: Æ 2Pp†2ARRAY (-Þ„b'–.ÄN¸R: Æ Æ 2Pq„0OR1 ( Æ ¦ ZPqd…HAPPÙq„N¸R("®q¦ )T ...Working ˜q® „ ”„ ¸Pq<ˆREADING? VqˆIO-ARRAY (-Þ('¤ Æ'–.ÄN¸R("qÄ"®qú˜qü 2 PoÌ…#BITÓqär†#BYTES qä£K¸q¸ŠBIT-BUFFER qäqʉIO-BUFFEÒq䀺fÒþW8µH~ëçñ׊ƒ7ˆŒéÅ–’®¸Ìî:ð®XXÁå^¦O©M$ß`•(ξt£"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø r,…>FILÅqätzt²rP‡INIT-IÏ(qÄ ° œþsº œr :„„r Ör:„ r\„€„êqÄ ÆsŒPqxŠPERFORM-IO (q€r\,sj"qÄ"®sæ6ò˜sè7Psb‰FILE-SIZÅ(sj"€„€ JPsì†REWIND ((6Œ(„ 2„ „&Pr…CLOSÅ(sj"6ŒPst…INPUÔ(qÄ Pt4†OUTPUT (qÄ PtH†IN-FCB VUT HUF€G789:;GtZ‡OUT-FCÂVUTILITY BLKpñòóôõö÷ptn†IN&OUT (`"tPtxsj:tdt°sj:tx7ìt°7ìtx„& *êCan't open file t°(6Þ7>`:Ps¾…@BYTÅ(tPr À„ Z( ¦®uXsÌr\ 2V„„rqPtÞ…!BYTÅ(tdr À„ Zr\ 2n„„rqr À„ Z ¦®u¬sÌPu6‡(!BYTE©( œr:„<þuÖ ÆÈV 2ÆuÊuvPt ŠFLUSH