LL+Multi-FORTH 83 (C) 1984 Skywave  6(`HHa L<. hhL4hh FORTH-83 HH  hhL4ة 01xH L>0ȩ0ȑ0l!ހHXYXL!R)0G{0PX ^ PPjۆg^ȗCh,ÙgZ,׿ͺlHB| xBC01 Ƞ$ %./LƁ  @A TX`,ЁҁEscape^ERRO恱***L݁^REPOR(4>ܓ44隗5NňNň ^5sgN%1LX#"lLOSCALb*0ȱ*1ȱ*Hȱ*jȱ*ȱ*h H**h*h*Ll0YOSBYT(`LOSWOR(`LOSCL(`}LOSWRC(`}LւPTR(>9$R`}L킃EX(9$R`}f>LF(़`>s9L<^R/(?Žؙؙň,LYDR/(R5Žn%>%莥5s [[ %`>sJؙ ِň$R`ssLCR/(ِ9s?ň&g2Position Tape at Block 隰gR莅Os [[Of[OfR[2Blk>iR>œќ>iR > `}L'CLOS(9$`}LOPE( ؙ󐼒% %R 5C (s>`9ؙ>sLLOPENU(L{OPENI(@LOPENOU(LUS(0(74Nň 74[Ng ؙsNL7(74y>sg2 Blocks available LLBUFF( s9L,BUFF(sJLH>BUF(9>9$R}L^INPUT(\s9s92ň`>sJ剕ؙ9L|>OUTPU(݂Lӆ^C(\ ^ ^L醂F(\ ^L>PRT(झ2ň\s9󐍒݂݂ }L^KEY(2LTKYBD(\IňNLlN ~&\xZ$$ZȱZ$%Z[ZX $$$ ~Y%X$ $$xXȱXYXXZ[XlJ.#.".i./lLdLI .ȱ..i./****L~$LI( N5R֚L-EXECUTR*"**#*lLHSPi*+LcSPy(*ȱ(+L~sRP (,ȱ(-L~BRANCȨ.e.ȱ.e//.L~?BRANCLj****.i./L~*I*ȱ*I*L~8T*q***q**LPDp*q***q***q***q**LkNEGATŧ8****L~DNEGATŠ8****L܊8***ȱ***L؊D8***ȱ******ȱ***L17q**ȩq**L~22QL9L4]L9X1i08*0*ȱ**L~d2Lk2* *ȱ***L~2*8j**j*L~D2Ë*8j**j**LMI(Žň>sL܋DMI(<ňM}LMA(Žň>sL DMA(ňM}L#S->((ňgL<+((ňLSD+((ňLdAB(VLvDAB(hLUM1*ȱ*ȩ0666*uȱ*uu0ݠ*ȵ*ȵ*ȵ*L~UM/MO12*ȱ*ȱ*ȱ*ȱ* ȱ**066&18H11h660**LҌ쌂M(Ž z>z hLO(RsLjM(󐉌%z V (ňڊ>5sLvM/MO(󐅒% > L/MO(A yLύ(ԍ>sL⍃MO(ԍsL*/MO(R yL*(>sL>&*0ȱ*0L !LS;*ȩL 5MSLȱ*L?FTOGGL(%4 LUDROn2DROw?DU(ňLPIC˛8q* *ȱ*L DUв**L2DUĎe*0+18**0*L~OVE**L㎅2OVELŎROL * ***0+100ȱ*2*0*0L(2L SWA@L92SWAOe*0+13e*224*04*L~GROԎL2ROԜLQ-ROL̫* **2*0+100*ȱ*320*Lʏ*ȥ3*L~-ROꏩL㏂0**L D0 ******L0*ȱ*0L%0<ȱ*0*L7US8****Ȋ*ȑ*LNDU(>Žِ<ňM}QLuQ**Q**LSD(>s(L(>LD(MLʐ(ڊLאD( L㐂>,,*,ȱ*,LR **,*ȱ,*,,L~R',ȱ,L"6*0ȱ*10ȱ0L 2CP*0ȱ*10L?K2h*0ȱ*1**0*L~c*0ȱ*1***0*0LC*0ȱ*1***0L2Ñ*0ȱ*1***0L+(%4R LޑCMOV*00114235L*i*L~CMOVE3*01e331e550 113542LM*MOV(莝Qň1LdLLLLBL C/L@0PAGLTL$’LOMEL˒HIMELגUЬ㒃SP쒃RP TI¬ DЬ FENCŬIĬTS׬(FILŬ2BASŬ=EO̬HBӬREOҬ[WIDTȬ e#TI¬"qL̬$|TOЬ(BLˬ*SCҬ,OUԬ.DP̬0HLĬ2SPAά4>Iά6̓AWORĬ8֓LWORĬ:ⓅSTATŬ<CSЬ>ERROREPORMESSAGABOR+PROMP7KEY DKE OEMIYCdPAGmR/xBLOC{FINDINTERPRESTREAPARSCREAT ĔLOA"єSTATU$ܔVTABLŬ锇CURRENԬCONTEXԬPAĬFORTH-8(L iŒj`Vig2C/W? 隃ۆ*ِň(L4R >gVƂ_剰WڊňjCِňihis NءJ[$R#I1LEXTRACC*0**Ȅ6710H010@24 023LZ2*ȥ3*L010"2402367L2*ȥ3*67L 9^STREA(4ň4 4Ɠ4Г4RڊL^PARS(AŽ5R ڊГŽ蓅ܓLWOR(jO󐾔%5R%%5>i LSEARC[*0**0)?244Q0)+002e0*e1ȑ*0)@L?L10ȱ0100аLR^{FIND(>؉  R>舢4􏍉s莢44YQsLFIN(֚L(ؙL>EO(5ГsL44ň"5ГᑰГ4ڊ5ГL+OS(N*ِň80>>iR >>5C (sƂL؉ȉLnNUM(uuň M}45ň&s ؉ȉLDEF(Žň$M}R4ňP؉sȉL^INTERPRE(ň ňØňrň sL8QUI(4ň Г44>4ň㔦Ls^ABOR(wxL.O(2 OKL?ERRO(>ň sLљ?COM(4ؙL왅?EXE(4 ؙL?LOA(4 ؙL?CS(g4ڊ ؙL2?PAIR(ڊ ؙLKDEPT(g4>ڊL`?STAC(f(ؙLx^MESSAG(2Msg..隍LDECIMA( BLHE(BLCOUN(5>NLКTYP(ňR>舢N^&sL䚉-TRAILIN(ŽRgNڊňvg&L .("ؙC5L=.()ؙL^()ؙsLySPAC(^LSPACE(ň 舗&LFIL(>莥5 gL›ERAS(ǛLߛBLAN(ǛLEXPEC(ƓňrRSU4ِň4sِ gňgň  U4  ِň s^vƓ^&sLQUER(4v4ГLHOL(ᑻ4L<(L#(}4ڊLΜ(B4 莕ňR0RL㜂#(ŽňL SIG((ň-L"D.(fؙ>莰hœ'ќ ڊL9D(=Lk.(A =Lz(AnLU.(>=LU(nL(4LDIGIȝ*0*8*00 08 0 0*ʊL *L<(%R؉> L((ňHRNB4Ɲň2>>B4sB4n 545ňL$((ňLr$(ň }}؉sňȉLASCI(sN LASCII(sN (RNِLLĞ-(ň-۞ň g5L.(ň.۞ň5LCONVER(dRu RLEBLK(Ž4Of974N44ňȉL44ň4؉LiFETC(44ڊL>DS(4ň2Of(ň"9ڊ菅|O\}sL(4ň Lԟ?BUF(\L1BUFFE(7nsٟ>74NOŒ4>4LG^BLOC(7n󐶟 ň}6ٟ󐰎󐉓4>74N󐍒| >%OŒ4 4LUPDAT(4ؙRN>LߠSAVE-BUFFER(4ň ٟLEMPTY-BUFFER(4ň莅L;FLUS(ILm+BUF(ؙ舅RR&sL}BUFFER(jlz>LFREEZ(4ň>RLѡTHA(R4莅iL^LOA(ؙ4Г4󐅒Г Г L&FDE(ň[Ng>L`FIN(ň[N5>L}FSE(74eR7LF(LF(LʢF(LעF(LBEBDD@@D@BȥAB`B@ȱBA @Bȱ@B`  BBȥCBA`M)RH&&TFUGRBC +3 *ȱ@@j@@ XBC F@ƥGAh`BFȱBG +@0A1 @FAG`䢉{UNQUEUEԣx*Bȱ*Cȱ*0ȱ*1 XLȣREADLXTIMELR{QUEUEx*Bȱ*Cȱ*@ȱ*A XL MEMORLBCBiBȱBiB + XBC `0SIGNAkx*ȱ* ;XLb{WAITx*Bȱ*CBB$@%A XL8BBȱBBXL|WAI(र,C,LKEEx&)&XL~ۤGIVx& &XL~車OxXL~OF+xXL~%SAVE $$L~>PAUSŌV{SLEEP( R4R莢RQ$Ri:PR&i>[L`{INSTALL(jLINSTAL(Œ4>ȥLإINTERPRETE(RdR[R𒅑L,,.,ȥ/,"i.e#/L~EXIN,.ȱ,/,,L~G^CREAT("Nؙo莅 ň>ܓ44隗%sNkNRz Nِňzk4Jňk\jڊ\4e"ie#L`(g4 ˔\(oL(75L\L)CONSTAN(˔e"ȱ"L;2CONSTAN(˔e fLYVARIABL(˔zLt2VARIABL(˔zLUSE(De L"e(0)i1"q0q0`( LVECTO(RϧoPe 322#2"lLۧ(L(LCOMPIL( O4L-[COMPILE(LI<;CODE( oL]DOES(5e 5L**"i*e#ȑ*8h"h#L(s L$LITERA(4ň52j5>ziL:HER( 4LeALLO(4 4RQؙ LtC(jzL(jzL2(jzLN>LIN(L̩BODY(L۩LINK(O5Nň5L驅NAME(өL >BOD(OL>LIN(=L'>NAM(ggNňL7SMUDG( o\LULAS(44LjONLه NR RLALS( O1LFORT(LŪDEFINITION(#LӪVOCABULAR(NNؙ˔NO>jO>NRڊe NR L1>MAR(jLRESOLV(jڊ>L5LCBEGI(򙭫LbUNTI(򙍒R5ň׫LtAGAI(򙍒R5׫LWHIL( OLREPEA(󐒬 5LD(5舅LӬ{LOOP(>򙝒R׫ň4>LLOO(&L+LOO(QL${LEAVE(f舰(ňِňs&( ؙ5% j> L6LEAV(5v>L?LEAV(5>LDEFER(5j9ِňz(L(R5LL?KE(sN (Iň Nِs؉LL?TAB( ň sj ِL'ABORT("5ň RjOjOjz>iLIVOC(sө4ň}ڊ=LID(֚ŽRgN^前&:ň.^gL{WORDS(g2 VocabularygN剝R4R4ň gө4-ňsLWORD( 44LuORDE(gg2 Context 44g2 Resident OR>舢4􏍉4Qg2 Current 44LVLIS(g{L DLIS(g𔰎5NR>R舢4gQLFORGE(44Yؙ=4ؙ5Nڊ𔢉R4Ž>ň ө4ň5N>𔢉RQ LWORD({LٰFORGE(YLRMAK(4  (>J(4R4>9RLLPRINTE(  L-SCREE(ۆ g LOLIN(ؙl4RLp.LIN(uLLIS(sg2SCR# 險g}&gLINDE(g5>g}-&rL걅TRIA(䍝lR>g&g rLSHO(5l>舢$-QLTASSEMBLE҄WL"TL$PL&UL(SL*RL,IL.ƲWL0ϲPUSLزPUL 㲄NEXL~POPLPOLPUT0L? SIGNAL;INDE   ,&MODŬ&P!MOD(˔e NUL[.ivi~MEi,i,iXi)iiUPMOD(ňU4ň UᑍU4剆ň舰R&54LSA(˔e NLBRKCLC)CLD3CLIX=CLVGDEXQDEY[INXeINYoNOPyPHAHPHPPLAhPLP(RTI@RTS`SEC8SEDɴSEIxӴTAXݴTAY約TSXTXATXSTYAMA(˔e 54ň U剼ňgo NUN,RNRUNňUNňLADC'`nAND' nCMP'nEOR'@nĵLDA'nеORA'nܵSBC'n资STA'lASL' DEC' INC' LSR'A $ROL'! 0ROR'a 5ڊ>LELSE(Rj5>j5ڊ>LJBEGIN(jLtUNTIL( >Rj5ڊLAGAIN( RLWHILE(莍R LREPEAT( RjOڊ>LзEND-COD(4 7\L}COD( ˔jj\gL;COD(75eL2CL( ^LHCL(^LXCOLOU(^^LhGCO(^>^^LPLO(^^>^J^^J^LTA(^>^^LŸMOD(sݒ4Qؙ^^L߸ADVA((sL SOUN(>[>}L ENVELOP(अ 舢RQ}LHTEX(ň>isL}EDITO҄LMOV(uiL(uiLƹ(uLֹ(舢u5QعL湁(ȹ舢5u&عL (L4>L0(g}LD(2LX(4Lf(Lt(LWIP(舢ع&LRENU(74N4RLCOP(>ssLEDI(丩L溅WHERE(fؙg2SCR# 險ԍFgO^^LLOCA(4 (J[4R4>9RLL:.TAS(2(N4ň2)LjTPROMP(gŒ4pLRECOR(अ44lR>s4􏍉sQؙ莅OLMEM(4NNڊs4􏍉 Q菕ňglN$R}L{ASSIGN(7[LrASSIG(Œ4{L{DEASSIGN(4NNڊ舅4ِň 莅7i&}LDEASSIG(Œ4LPAGE(%{ň  %>ȥ%NNi74%N LQUEU(Ž>NLVWAK(\LpSLEE(ऍŒ4hLDI(s74Œ4hLUNQUEU(>ң>LSTO(रN4LѽKIL(ֽ(N4ňN4e>L콃GO(  R\L#TS( >(=%N>% R >'w,"4PLL=RU(& ALI( ALDELA(>Œ4 RŒ4\h,LTAS(L40C`(󐰎%4N%{%ň莅 s% N>i 'w4w#LLܾDISPLA(44舰4ň7gp4ِň2SLEEPING隦N44R&sLSI(莅O[LSEMAPHOR(˔ojze OLE2