VolksForth/msdos/kernel.org
2017-04-24 00:25:49 +02:00

16 KiB
Executable File
Raw History

<90><E9>N-<2D><><90>,<04>ORIGIN<49><17><><CD><E9><FC><FF><F6><DF>|<7C>? <0A>1<B7>0<B1>!p2; <20>volksFORTH-83 rev. 3.81.41<05>  NEXT-LINK<4E><17>9<06>4RECOVER<45>KK<4B>7^<5E><><AD>%_<02><><FA><AD>%[h<02><><FB><AD>%d<06>FNOOPi<07>qS0<53><07>|R0<52> <07><>DP<44> <07><>OFFSET<45><07><>BASE<53><07><>OUTPUT<55><07><>INPUT<55><07><> ERRORHANDLER<45><07><>ABORTED<45><07><>VOC-LINK<4E><07><> FILE-LINK<4E><07>UDP<44><08>SP@&R<>ԭ<8B><D4AD>%m<08>SP!9<03><>Z<E2><5A><AD>%-<08>1UP@LR<>խ<8B><D5AD>%@<08>DUP!_<03><>Z<EA><5A><AD>%S<08>WDS@rR<>ڭ<8C><DAAD>%f<08>jB/SEGf <09>}RP@<40>R<>ӭ<8B><D3AD>%y <09><>RP!<21><03><>Z<DA><5A><AD>%<25> <09><><03>>R<>KK<4B>Z<><5A><AD>%<25> <09><><03>R><3E>R<>CC<43><43><AD>%<25> <0A><>R@<40>R<><17><><AD>%<25> <0A><><03>RDROP<4F>CC<43><43><AD>%<25> <0A><>EXIT<04>7CC<43><43><AD>%<25> <0A><>UNNEST <0A>?EXIT+ <0B>Zuح<75><D8AD>% <0A>!0=EXITC <0B>Zt<5A><74><C0> <0B>8EXECUTEX<04><>Z<FA>% <0B>LPERFORMk<04><>Z<FA>=<3D>% <0C>_C@{<04><><8B><15><><B6><AD>%4 <0C>tC!<21><04><>X<FA>Z<><5A><AD>%<25> <0C><>CTOGGLE<4C><04><>X0Z<><5A><AD>%<25> <0C><>FLIP<49><04><><86><F2><AD>%<25> <0A><>@<40><04><><8B><15><><AD>%<25> <0A><>!<21><04><><8B>Z<><5A><AD>%<25> <0A><>2@.Yo<07>F<05> <0A><>2!.<19><05>o<07><0E>+!<05><>XZ<><5A><AD>%<25><0E>DROP6Z<><5A><AD>%)<0E>-SWAPHXR<58><52><92><AD>%;<0F>?DUP[R<><52><AD>%O<0F>S?DUPm <0B>tR<><52><AD>%`<10>dOVER<45><05>ZRP<52><50><AD>%v<10>zROT<4F><05>YZQP<51><50><AD>%<25><10><>NIP<49>DD<44><44><AD>%<25><10><>UNDER<45>XRP<52><50><AD>%<25><11><>-ROT<4F><05>ZYPQ<50><51><AD>%<25><11><>PICK<43><05><><D1><E2><03><><15><><AD>%<25><12><>ROLL<06><><96><D1>ʋ<8B><03><><14><>NG<4E><47><FD><F2><A4>DD<44><44><AD>%<25><12><>-ROLL+<06><><96><D1>ʋ<8B>Z<FC><5A>LL<4C><4C><F2>Z<><5A><96><AD>%<13>!2SWAPOYX_QRW<52><57><92><AD>%A<13>E2DROPhDDZ<44><5A><AD>%Z<13>^2DUP|<06><>R<FC>5<FF><35><AD>%o<13>s2OVER<45>R<><52><8B>u<06>U<04><><AD>%<25><14><>NOT<4F><06>ҭ<F7><D2AD>%<25><14><>AND<4E>X#Э<><D0AD>%<25><14><>OR<4F>X Э<><D0AD>%<25><14><>XOR<4F>X3Э<33><D0AD>%<25><15><>+<2B>XЭ<><D0AD>%<25><15><>NEGATE <07>ڭ<F7><DAAD>%<25><15><>-X+’<><C292><AD>%<16>DNEGATE2<07><>X<D2><58>rBP<42><50><AD>%"<16>&D+JXY_<03>Pѭ<><D1AD>%?<17>C1+aB<><42><AD>%V<17>Z2+qB<><42><17>j3+}B<><42><17>v4+<2B>B<><42><EB>BB<42><42><17><>1-<2D>J<><4A><AD>%f<17><>2-<2D>J<><4A><17><>4-<2D>JJ<4A><4A><18><>TRUEf<19><><18><>FALSEf<18><>0f<18><>1f<18><>2f<18><>3f<18><>4f<18>-1f<19><><18> ON<08><><B8><FF><FF><8B>Z<><5A><AD>%<25><18>OFF4<08><><B8><19>,<08>LITCR<>FF<46><46><AD>%(<19>;<08>CLITYR<><14><><B6><19>P<08>LITERAL.YA<08><>D nA0nWC<1A>b0=<3D> ҺuJ<><4A><AD>%L<1A><>0<><3E> ҺtJ<><4A><AD>%<25><1A><>U<<3C>X+ºsJ<><4A><AD>%<25><1A><>U><3E><08>Z<92><5A><1B><><<3C>X+º}J<><4A><AD>%<25><1B><>><3E><08>Z<92><5A><1B><>0> 3<><33><C0><1B> 0< ҺyJ<><4A><AD>%<25><1C> =- X;кuJ<><4A><AD>%# <1C>' UWITHINJ XY;<3B>s <09><><BA><AD>%: ;<3B>s<CA><73><F3><BA><FF><FF><AD>%W <1C>> CASE?r X+<2B>uJ<>P3ҭ<33><D2AD>%d <1D>h D0=<3D> X <0B>t<03>J<><4A><AD>%<25> <1D><> D=.0H<07> <1D><> D<<3C> YX+<2B>X<C2><58><BA>}<06><><AD>%<25> u+<2B>sJB<4A><42><1E><> MIN<49> X+<2B>}’<><C292><AD>%<25> <1E><> MAX<41> X+<2B>|<7C><03><><C2><1E><> UMIN X+<2B>s<D0><03><><C2><1E><> UMAX X+<2B>r<D0><03><><C2><1E> EXTEND0 <0A><>P<99><50><AD>%<25> <1E>% ABSC <0B>y<02>ڭ<F7><DAAD>%7 <1E>; DABS.. A0 <20>Q <0A>(DOl X<><58><80>KKFF<46>7KK<4B>KK+ЉZ<><5A><AD>%M <20>d <0A>(?DO<44> X;<3B>u<D0>4Z<34><5A><AD>%<25> <20><> <0A>ENDLOOP<4F> <0A><><06><><AD>%<25> <20><> BOUNDS<44> X<><03>P<C2><50><AD>%<25> !<21><> <0A>(LOOP<4F> <0A>p<03>w<04><><AD>%<25> !<21><> <0A>(+LOOP<4F> Z<><5A>"<22><> I R<>W<02><><AD>%<25> "<22><> J R<>WW<08><><AD>% #<23> <0B>BRANCH0 4<><34><AD>%! #<23>% <0B>?BRANCHF <0B>Zt<5A>FF<46><46><AD>%6 $<24>: >MARK.<0F>0$<24>U >RESOLVE.<0F>F<05>$<24>i <MARK.$<24><> <RESOLVE.0$<24><> ?PAIRS.<07>! unstructured%<25><> <0B>IF.nD ] <0B>%<25><> <0B>THEN.A <0A><07> t %<25><> <0B>ELSE.<19><07> n. ] Ft %<25><> <0B>BEGIN.<19> <0B>%<25> <0C>WHILE.<19><07> <0B>nD ] A<08><>M.<19><07> <0B> YA<08><>+ D 4t . <0B><>%<25>" <0C>REPEAT.n. @ %<25>` <0C>UNTIL.nD @ &<26>u <0C>DO.nj ] <0B>&<26><> <0C>?DO.n<0F> ] <0B>&<26><> <0C>LOOP.<19><07> n<0F> n<0F> t &<26><> <0C>+LOOP.<19><07> n<0F> n<0F> t &<26><> <0C>LEAVE<56> <0C><><06>w<8B>NN4<><34><AD>%Q '<27><> UM* <0A>Y<92><59>P<E1><50><AD>%<25> '<27> M* <0A>Y<92><59>P<E9><50><AD>% '<27> *. 4'<27>, 2*A <0A><D1>%( (<28>: UM/MODV <0A><>ZX<5A><58><F7>P<92><50><AD>%G (<28>K M/MODp <0A><>Z<CA><5A>2<E6>Xx <0A><><F7>P<92><50><AD>%b <0A><> <0B>t<D2>H<03><><D1>)<29>f /MOD<4F> <0A><>X<CA>P<99>҃<EB><04><><01><><E8><A8>! / overflow)<29><> 2/<2F> <0A><><D1><FA><AD>%<25> *<2A><> /.<19> <0A>*<2A><> MOD.<19> 4*<2A><> */MOD.<19> <0A>n *<2A><> */.<19> <0A>*<2A>U/MOD.<19>FT *<2A>UD/MOD.<19><03><07>T <0A>F<05>T <0A>+<2B>#CMOVEN<0E><><96>_^Z򤖭<5A><F2A496AD>%<25> +<2B>DCMOVE>j<0E><><96>_^ZI<03><03>A<F1><41><FD><F2><A4><96><FC><AD>%[+<2B>_MOVE<56><0E><><96>_^Z;<3B>s<FE>򤖭<DA><F2A496AD>%<0E><0E><><96>Y^QG<51><47>,<2C><>PLACE.<19><0E>,<2C><>COUNT<4E><0E><><8B><15>GW<47><57><AD>%<25>-<2D><>FILL<4C><0E>Y_Z򪭗<5A>%<25>-<2D><>ERASE.<19><07>.<2E><>HERE R<>V <0C><><AD>%<25>.<2E>ALLOT V Z<><5A><AD>%.<2E>,.<0F><04>.<2E>,C,.<0F><04>.<2E>>PAD.WB<>.<2E>Q<0F>COMPILE.<19>Yo<07><03>0/<2F>d#TIB<49>/<2F><>>TIB<49><17>/<2F><>>IN<49>/<2F><>BLK<4C>/<2F><>SPAN<41>/<2F>TIB.<19><0F>/<2F>QUERY.WP<>, <10><04><0F><04>20<>SKIPI<10>Y<92>_<><5F>tOAW<41>ѭ<8B><D1AD>%(0<>@SCANh<10>Y<92>_<><5F>uOAW<41>ѭ<8B><D1AD>%[0<>_/STRING<4E>XY+<2B>s<03>3<D0><03>R<D1><52><92><AD>%z2<>~(CAPITAL<41><ar<{r<<3C>u<03><><B0><<3C>u<03><><B0><<3C>u<02><><B0>4 <20>2<C3><32>CAPITAL<41><10><><92><E8><CE><FF><92><AD>%<25>3<><33>UPPER<45><10><>_Z<5F> <0A><05><><E8><B0>G<><47><E2><F6><AD>%<25> <11><>_X<5F><16>+<2B>v6Q<03><><FA><F3><AE>tOJA<4A><41>uOX+<2B><06><0F><>+<2B>t<1C><><87>~ <0C> G<><47><F2> <20><><8B>V <0C><><AD>%<0E><0F>~ <0C> <20>׭<8B><D7AD>%J6<><36>LOADFILE<4C>6<>aSOURCE.<19><0F>kD l<11><04>&%<10><0F>6<>rWORD.{6<><36>PARSE.<19>{<11><0F><04><10>F<05>f<10><03>Y<05><03><07>6<><36>NAME.4"<22>Y<05><0E>7<><37>STATE<54>7<><37>EASCII.4"<22>_y<12>Al7<>,".W"<22><0F>_<0F>7<>%<12>"LITHR<><17><><8B><05>@<07><><AD>%]7<>?<12>(".F7<>\<12>".na*8<>i<12>(.".F<12><0E>+8<>y<12>.".n*8<><38>A(.W)<29>f8<><38>B.(.W)<29><11>+8<><38>A\.<19><0F><07>#<23> <0A>8<><38>B\\.%<25><0F>8<><38>DHAVE.<19><11><1C><05>8<><38>\NEEDS.<19>A<04>8<><38>HEX.W<10><02>8<>DECIMAL.W <0A><02>9<>%DIGIT?.YW9<>D WYW9<><08>W0Y<05><02><04>Y)<04>9<>< ACCUMULATE.F<05>F<05><02> 4<05><05><02> H<07>9<>wCONVERT._<07>ED <08>. <0B><><F4>.<19><0F><04>.<19><08>.<19><07>.W,<2C>+ FW.+ <09>.<19>W$p D W<10>WHp D W<10>W&p D W <0A>W%p D <08><07><04>;<3B><>DPL<50><17><>.A<04>4<05>D 0<07>4E<14>_k)4<05>.A<04>f4<05><03>.E<14>+ )<04>E<<3C>?NUMBER?.<19>L<1F>LY<05><0E><0F>E<08><07>WW<08><05>m<14>W-p D <0E><03><07><03>m<14><13>D <0C><02><04>m<14>E<13>m<14>}<14>I<14>E<13>D <0B><><F0><13><13>mE2<08>I<14>. <0B><><<3C><>NUMBER.<19>k<05><08>!? ). =<3D>LAST<53>=<3D>;LAST'.B<15><04>.B<15>k=<3D>HHIDE.ZA<04><07>K<1A><04>=<3D>fREVEAL.ZA<04>K<1A><04>=<3D><><15>RECURSIVE.<19>.ZD <0C>y<04><06><05>4=<3D><> IMMEDIATE.W@<40>=<3D><>RESTRICT.W<08><>><3E><> CLEARSTACK<16>fZ<><5A><AD>%X><3E><>HALLOT.<19><02><04>F$oY<05>Y<05><02><04><07><05>]<02>f<02><02>><3E>HEAP.<19><02>W<06>><3E>KHEAP?.RJH .Y<0F>YRFLR<16>B<05><04>KK<4B>7R<37>U<02>5<8B><35><03><><AD>% ?<3F>a(;CODE.<19>P<15>?<3F><><16>DOES>.n<0F>W<08>C<0F>o0@<40><>?HEAD<41>@<40><>|.<19><16>)<04>@<40><>DEVEN.@<40>EALIGN.@<40>FHALIGN.@<40>WARNING<4E><17><>.8<17>AB<15>K<1A>}<1C>At"B<15><04>exists <20>+A<>.MAKEVIEW!<1A>=A<>jCREATE.u0K<1A><04>0<0F>yY<05>W H <09><06>! invalid nameB<15>_<<17><16>D <19><07>Y0sW <20>Y<05><02>4<05><15>0<0F>R<>U<02><><AD>%<25>A<>{VARIABLE.<19><17>0B<><42>NFA?_<>ù<1F>= <0B>t<18>]#ٍY<03>E t<02>;<3B>u<DA><75>}<02>׋ح<D78B><D8AD>%<25>C<> >NAME.<19><02>YD zFkD <08>f. <0B><><E0>C<>C(NAME>.<19>W<1F><06>C<>wNAME>.Y<05>FyW <20>A<04>C<><43>>BODY.oC<><43>BODY>.<19>C<><43>.NAME.kD YiD | <20>W<1F><06>+. ???t"D<><44>CREATE:.<19>mK<1A>[<1A><04>FD<>:.<19>KK<4B>7<89>u<02><><AD>%?D<>$<19>;.<19><07> n0<1E>D<>=CONSTANT.<19>0<0F>R<>U<02><><AD>%9E<>SUALLOT.Y<03><04>W<08><><08>! Userarea full<03>FE<>rUSER.<19><17>{C<0F>R<>U<02>խ<><D5AD>%nE<><45>ALIAS.<19>B<15>YyW <20>D A<08><>. W <20><15><18>.<19><07>!crashE<><45>DEFER.<19>A<08>0<0F><16>}<02>%F<> VP<56><02>m<11>0F<30>(CURRENT<4E>F<>ACONTEXT.-Y<05><04>o.-o[F<>QALSO.-<1A>W <0A><08>!Vocabulary stack full[<1A><04>-[<1A>F<>uTOSS.-<1A>AA<08><>-G<><47> VOCABULARY.<19><17>0<0F>0<0F><02>0<0F><02><04><16><><E9>[<1A>G<><47>FORTH<54><1A>>G<><47>ROOT<4F><1A>, G<>ONLY.-2|G<>! ONLYFORTH.(|^G<>6 DEFINITIONS.[<1A>K<1A>.<19><02>Y<05><07><04><05><07><04>k<05>D <0B><>.<19><04>K<18>H<>PORDER.-<1A>[<1A> j  <0B>A<08><><FE> <0A> <0A><07>"K<1A>H<><48>VOCS.<19><02>kD YWK<18>. <0B><>H<><48>WORDS.<12><10>[<1A><04>Y{<91><08>D ,<2C>+Yo<07>4" <09>_y<04>+ <09>D <0A>t". 4. <0B><>4<05>.Yy<04><03><18>W <20>D <04><08>W<08><>D <04><07>W@<40>D I<><49>(FIND<1C><>_R<5F>G<>׵<8B>"ċ4 <0B>t<1E>L"<22>:<3A>u<C8>V<F1><56><8B><FA><03><>^u<><75><E6><03><><8B><FE><BA><FF><05><><8B>O^W<><57><AD>%<25>K<>uFIND.[Y<05><04><05><07>+ D <04><07><05>}D <08>>F<05>Y-+ D <0B><>4<05>K<><4B>'.<19><11>)<04>!?K<><1D>[COMPILE]. 0K<><1D>[']. lK<>/ NULLSTRING?.Yy<04>YA<04>L<>?NOTFOUND!<1A>.<19>kD <1D><07>D V<04>! compile only<6C>)j.<19>kD  D V0<04>kD  D FlljM<>_ NO.EXTENSIONS.<12>D <06>!?<3F>!?M<><4D>PARSER!nM<><4D> INTERPRET.<1F>MD <08>2<04>. <0B><>M<>A[.An^2M<>,].A<08>^N<>B(IS.<19>Yo<07><03><04>.<19>A!<07>! not deferredN<>XBIS. Yn<1E><12>D n^0<04>.o W <20><08>! tight stack<63>ZD YiD <08>. <04><07>*<2A><07>!dictionary fullO<><4F>?STACK<1F>F <C4>s s<07>A<E8><41><04>F@@<C4>r<06><><AD>%<25><1C>+<2B><><07>! stack empty<04><17><03><03>P<><50><1E>PUSH.<19>FY<05><03><04>9<1F><03>P<>E.STATUS!xP<>d(LOAD.'<27>l<11><04><03>$<24><04><03><0F><04><03><0F><04><03><0F><04><0F>'l<11>n<1E><03><0F><04><03><0F><04><03>$<24><04>l<11><04><03>$<24>P<>tLOAD.kA<04>|Q<><51>+LOAD.<19><0F><04><06>Q<><51>THRU._Fj

<0B><1F> <0A> Q<><51>+THRU._Fj

<0B><1F> <0A> Q<> C>.<19><07><05>2nQ<>4 RDEPTH.<19><02><04>o<07> Q<>L DEPTH.$<03><02>F<07> R<>g (PROMPT.n<12>D <0B>+] <04><02><04>D  ok<6F>+R<><52> PROMPT!<1A> R<><52> (QUIT.<19> '. <0B><>R<><52> 'QUIT!<1A> R<><52> QUIT.<19><02><04>0<1E>2<08> S<><53> STANDARDI/O.A'<01>LS<>! END-TRACE2!<21>B<02><><B0><AD><B9><97>= <0B>t<08>E<88><45>M<89><4D><FD><EB><F2><AD>%S<>$!'ABORT!xS<>N!ABORT.0!W!!<21> T<>]!SCR<43>T<>u!R#<23>T<><54>!(ERROR.<19><03><03><02>!t"<0F><18><0E>t"<22><FC><0F>kD {!<21><04><0F><04>!<21><04> T<><54>!<21>(ABORT".FFD <0E><16><03>i4.FFD <08>i4U<><55>!<21>ABORT".n<0F>!*U<>"<22>ERROR".n<0F>!*U<>"BLf U<>/" -TRAILING.Y<05><07> z<06><06>y4"D <04> <0C><07> <0A> U<>:"SPACE.4"<22>+U<>l"SPACES.<19><07> t"<22> <0A> .W<0F>V<>~"HOLD.<08>"<05>"<22><04>V<><56>"<#.<19>"<22>"<22>V<><56>"#>.f<06>"<22><04>"<22>V<><56>"SIGN. <09>)W-<2D>"V<><56>"#.<19><02>,<0E>YW <09>W<07><06>W0<><06>"V<><56>"#S.<19>"z<06> D <0B><>W<>!#D.R.<19><05>X <0A>"&#<23><05>"<22>"<22><05><05> <09><07>"<22>+W<>6#D..<19><#t"W<>`#.R.F. <0A><#W<>q#... e#W<><57>#U.R.<19>F<#W<><57>#U..<19>e#W<><57>#.S.$<03><02><04>W  <0A> <0A>  <0B><04>#<23><07> <0A> X<><58>#C/Lf@X<><58>#L/SfX<><58>#LIST.Y<05><<3C>D P{!<21> Scr {!<21><04>#Dr <20><<3C>#'Q;<3B>#<23>j $<24> <0B>v#t"{!<21>' <0B>#0 <0A><06>#F"<22>+<2B> <0A> <0A>W H%Y<><59>#PAUSEk$RVS<56>fn<02><><04><>Y<E5>a$LOCK.Y<05>J D 4Y<05>D i$. <0B><>JF<05>Y<>{$UNLOCK.Y<05>$2]<5D><>X<><58>f[^Z<><5A><AD>%"[<5B><>$ISFILE<4C>[<5B><>$FROMFILE<4C>[<5B><>$PREV<45><17>[<5B><>$B/BUFf[<5B>%B/BLKf[<5B>%R/W!P:[<5B> %ERROR#<23>[<5B>,% ?DISKERROR!5\<5C>;%(CORE?Y%XP <0B>uF<0E>><3E>$;Uu ;Eu<07>UX<><58>ދ <0B>u<06><><AD>%<25>$<24><>;Eu<>;Uu<><75><05><16>$<24><15>><3E>$<24>U<08><><8B>X<>b<E9>.Y<05><07> D >oY<05>_D "Y<05><07>o<07><04><07><05><04>&%D <0A>H%. <0B><><E2>Y<05>A<08><FF><06><05>4^<5E>N%EMPTYBUF.oY<08>2.Y&<26>z<06><08><02><04><06><06><05>W<08><06><05>&%D <0A>H%. <0B><><DB>.<19>$Y<05>D <12>Yo<07>+ D <0B><><EA>$<24>$Y<05>%.o<07>z<06><03><04><05><08><02><04><06><06>o<07><04><03>2<08>$<24>$.<19>$<24>YD Y<05><07> D <0B><>_<><5F>%CORE?.W%f<06>`<60><>&(BUFFER.W%B&h&. <0B><>`<60><>&(BLOCK.W%B&&h&. <0B><>`<60><>&ISFILE@'R<><16>$<24><><AD>%<25>%`<60><>&BUFFER.'<27>&`<60>'BLOCK.'<27>&a<>#'UPDATE.W<08><>$<24><04>_<07>a<>5' SAVE-BUFFERS.<19>$<24>$<24>&kD <08>%. <0B><><F4>$<24>$a<>Q' EMPTY-BUFFERS.<19>$<24>$<24>$<24>kD Y&. <0B><><F2>$<24>$a<>|'FLUSH.<03>kD Yg7. <0B><>`'<27>'b<><62>'LIMITfb<><62>'FIRST<53><17>b<7F><62>' ALLOTBUFFER.<19>'<27><04><02> %o<07>) %<07>'<05>'<27>Y&<26>$<24><04><05><04>$<24>b<><62>' FREEBUFFER.<19>'<27><04>' %<07>D .<2E>'<27><04>%<25>$Y<05><04>'<27>D <08>. <0B><><EE>'<27><04>F<05> %<25>'b<>.( ALL-BUFFERS.<19>'<27><04>'<27>'<27>+ D <0B><>.<19>$2<08>'<27>'<27><04>(.yW <20>.<19><18>_<07>Fi<16>.<19><04><07><05><05>D 4YiD <0B><>Y<05>oY<05>(D <18><03><05><03>(D <0A><03><18> <0A><03>. <0B><>.R<16><02><04>kD Y<05><03><07>(<28>. <0B><>d<>}(REMOVE.Y<05>kD 4YiD <0E><07><05><05>. <0C><07><05>_<07>D <0C><04><05>. <04>. <0B><>4.<19><02>kD Y<05><03>?)<29>. <0B><>.oY<05>o<07>.JY<05>)JD .z<06>)FH D Y<05>)<29>)<29><07><07><07>o<07>. <04>). <0B><>f.<19>?)ij z <0B><04>H D A <0B>A<08><><FE> <0A> zK<1A><04>H AAK<1A>e<>6) CUSTOM-REMOVE!xe<>-TRIM.@?)<29><05>)<29>)<29>)<29>>=*RF<16><02>B2f<>C*CLEAR.YJJ<95><02>f<>p*(FORGET.Yi<16>! is symbol)J*f<><66>*FORGET. YA!<01><04><08>! protectedKYiD <08>. <04><07>*f<><66>*EMPTY.A!<01>JJ*A3<01><03>g<><67>*SAVE.JJ*JAL<0E><02>Y<05><07><04><05><07><04>k<05>D <0B><>g<> #ESCf.<19>,I+p <09>D ,0p <09>D <08>)<04><07>g<>B+STOP?.<19>,D M+M<D2>g<>s+?CR.=,<2C>#<23>A<04>.<19>YCo<07><16><><E9>y<04><02><04>ih<><68>+OUTPUT:.<19><16><><E9><C6><02>h<><68>+EMIT<49>+h<><68>+CR<43>+h<><68>+TYPE<50>+h<><68>+DEL<45>+h<><68>+PAGE<47>+h<>,AT<41> h<>,AT?<3F>+ h<>,ROW.",4h<>',COL.",<2C>.<19>YCo<07><16>C<E9>y<04><02><04>ih<>7,INPUT:.<19><16>#<23><><02>h<>b,KEYQ,h<>|,KEY?Q,h<><68>,DECODEQ,h<><68>,EXPECTQ,i<>SEAL.A2i<><69>,$ONLY(i<><69>,%FORTHi<><69>,%WORDS<44>i<><69>,$ALSO|i<><69>,+DEFINITIONS^j<><6A>,'RESTART!x.A<08> ^<1E> -A+<01><04><02>Ax^Y!0!!<1E> j<>-'COLD!x.JALW<08><>WP <0A><10><03><0E><03><0F><04>2<08>2j<1B>(<28>'E-B ,W<18>"<02><0E>+<2B>+-.<2E><1E>' <0B>t<06><04><><10><><C3>3<FC><33><C0><8E><D8><E8><E4><FF>ڎù<02><><BE><8B><FE><F2><06><03>$<24><0E><03><06> <0A><02><><C3><E8><CF>-<2D>Ȏ<8C><C88E>؎Ћ.<01><><06>fZ<>^ <0A><><FB><AD>% 'l<>=-RESTART<52>-m<><6D>- RETURN_CODE<44>.<2E>3<FA><33><C0><8E>p<E8><70><FF>ڎ۾<DA8E><DBBE><8B><02><><F2><A5>L.<2E>.<2E>!<21><><E8>m<FF>.BYE.<19>'<27>* ,.<04>P<E8><50>Ȏ؎<C88E><D88E>4<E8><34><FF>A<C3>J<B4>!s<07>.묋><01><><06><01> <20><><F2>K-<2D>V<E9>n<FF>@.COLDn.p<><70>.LC@<40>.<1F><><8B><15><>Ȏح<C88E><D8AD>%<25>-p<><70>.LC!<21>.X<><58><8B><05>Ȏ<8C>Z<D8><5A><AD>%<25>.p<><70>.L@<40>.<1F><><8B><15>Ȏح<C88E><D8AD>%<25>.p<><70>.L!<21>.X<><58><8B><05>Ȏ<8C>Z<D8><5A><AD>%<25>.q<><71>.LTYPE.<19><07> z <0B><06>.<2E>+<2B> <0A> fq<><71>.LMOVE&/<2F><><96>_^;<3B>s<04><><F2> I<03><03>A<F1><41><FD><F2><A4><FC>Ȏ<8C><C88E><C0>Z<D8><5A><AD>%<25>.<2E>r<>/(KEY@]/R<>O/ <0A>u<06><07>!<21>ж<8A>6P/<2F><><AD>%K/r<>S/(KEY?<3F>/R<>O/ <0A>u<13><><B2><06>!u<04><><07><><B4>O/<2F><><B6>֭<8A><D6AD>%v/s<>z/ EMPTY-KEYS<59>/<2F> <0C>!<21>P/<2F><><AD>%<25>/s<><73>/(KEY.i$<24>/D <0B><>[/k)<04>/D [/<04>u<><75>/#BELfu<><75>/#BSfu<>0#TABf u<> 0#LFf u<>0#CRf u<>&0(DECODE.0p D YA,<2C>,0p D Y <10>t"<04>z<06><06>F<05><04><03>+_u<>20(EXPECT. <10><04>Y <10><04>D <0A>,<2C>,. <0B><>fu<>x0KEYBOARDq,<2C>/<2F>/<0<>0v<30><76>0CHAROUT<55>0<C7><30><80>u<02>ʴ<06>!Z<>i$<24>%v<><76>0C/ROWfPv<50><76>0C/COLfv<><76>0(EMIT.Y4"<22>D W<08><><06>0v<><76>0(CR.,0<>0 0<>0v<>1(DEL.0<>04"<22>00<>0v<>)1(AT.fv<>B1(AT?.<19><07>v<>P1(PAGE.<19>0<F0>j <08>+<2B> <0A> w<>a1BELL.<19>/<2F>0w<>}1TIPP.<19> <0A> y<04>+<2B> <0A> w<><77>1DISPLAY<41>+<2B>01<>101i1H1W1x<31><78>1LST!<21>1<D0><05>!Z<><5A><AD>%<25>/x<><78>1PC@<40>1<E5><31><EC>2<D0><32><F6><AD>%<25>1x<31><78>1PC!<21>1X<31>Z<EE><5A><AD>%<25>1y<31><79>1COUNTED.Y<08>f4<05>y<>2>ASCIZ.z<06>D <0A><0E><03><0E><03><07><03><0E><06>_y<>#2ASCIZ.<19>,2z<>P2DOS<4F>7>z<>#DRIVESfz<>t2 CAPACITIES<45><17><04>11<1B>2<A1>⿓2<03><><15><><AD>%2<>2<B2><32>ZYSUV<55>ٹ<02><><D1>%^^][<5B>s<06><><8A>7%J<><4A><AD>%<25>2<AE>2<D9><32>ZYSUV<55>ٹ<02><><D1>&<26><>.Y~2<>)<04>!jenseits der Platte|<7C><>2/DRIVE.<19>F~2<>j Y <0B>2<9F><05>D 4<05> F_F<05> <0A> F|<7C>3BLK/DRV.<19><<3C>2|<7C>d2>DRIVE.<19>2<EB>F<05><z<06>Y<05><03>D F<05> <0B>2<9F><06> <0A> <0A>D <04><17><17>+}<7D>J3FNAMELENf}<7D><>3FILENAME<4D>W1x<31><78>1LST!<21>1<D0><05>!Z<><5A><AD>%<25>/x<><78>1PC@<40>1<E5><31><EC>2<D0><32><F6><AD>%<25>1x<31><78>1PC!<21>1X<31>Z<EE><5A><AD>%}<7D><>3ATTRIBUT<55>. fehler # <20>L/5%<25><04>#.5%<25>Wp D <04><07>p <09>! file exists<74>p <09>!file not found<6E>p <09>!path not foundp <09>!too many open filesWp <09>! no accessW p <09>!beyond end of fileWp <09>! illegal driveWp <09>!current directoryWp <09>! wrong drive4Disk4e!<>4 (DISKERROR.kA<04>3<9B>D 5%<25>.4<04>L<1F>L!<21>D Lese. Schreib4 wiederholen? (j/n)<29>,<2C>+<2B>WJ+ <09><06>!aborted<04><>5~OPEN<45>5<97><35>=Z<>!<21>rR<><52><BA><AD>%<25>2<D5><32><80>5~CREAT<41>5<B7>ʴ<<3C>݀<EB><DD80>5~CLOSE<53>5<CA>ڴ><3E>!<21><>Z<D3><5A><AD>%<25>5<A8><35><81>5~FIRST<53>5<E6><35>Z<CA>N<B4>!<21>s<01><><92><AD>%<25>5<D7><35><81>5~UNLINK6<>A<B4><41><EB><E0><81>5~SELECT6<><0E>!Z<><5A><AD>%<25>5<F7><35> 6~DISK?16R<36><19>!<21>ж<8A><D0B6><AD>%"6<><36>&6~NEXTL6R<36>O<B4>!<21>s<01><><92><AD>%>6<><36>B6~DIRh6<68><36>^<5E>G<B4>!<21><><8B>s<01><><92><AD>%[6.<19><17>C<0F><06><16> <0B>y<04><04><>_6F.NO<4E>6<02><><83>6F.HANDLE<4C>6<03><><83>6F.DATE<54>6<05><><83>6F.TIME<4D>6<07><><83>6F.SIZE<5A>6 <09><><83>6F.NAME<4D>6 <0A><><83>6B/FCBf+<2B><><84>6FNAME!.<19>6<E3><03>Y<05>3<B0><08><06>!file name too long<6E><03>.<19>$<24>YD zo<07>+ D <0B><>.*7kD Y<05>%&. <0B><>4<04><><84>6FCLOSE.kAY<05>6<AB>k<05>D 4<04>D7<44>5<C8>62.W<08><>F<04><>^7(FSEARCH.<19>3,2Y4<><04>5<04><><85>7FSEARCH!<1A>7.kAP<15>C;+ D ,m<03><04><03><04>3<9F><04>:B<15><07><02>B2<08>3<C1><0F>H%<04><><86>7FRESET.kAY<05>6<AB>kD <04>5Y<05><03>6<E3>7<BF>7<C3>7<8B><03>6 W<08><><04><03>6<C7>W<08><><04><03>6<B9><04><07>5H%<25><03>6<AB><04><>8FSEEKd8<64><38><8B>} <0B>u <0B><><E8>Y8b8<04><>YZ<59>B<B8>!<21><>rZ<><5A><AD>%{6<><36><92><E8>H%<04><>YZ<1F>?<3F>!<21>Ɏًߒr<06><><AD>%<25>8<8A><38><E8>H%<04><>Z8LFGETS<54>8<C0><38><8B>}<03>͇<EB><CD87>8EOFf<19><><FF><FF><87>8FGETC.<19><03>$pF<05><07><03>8)<04><04><><87>8FILE@.Y<05>b8<62><03>89<><39><8B><FA>YZ<1F>@<40>!<21>ߒ<8B>ώ<8C>s<07>,<2C>H%+<2B>uZ<><5A><AD>%<25>8<AA><1A><>! Disk voll<04><><88>8LFPUTSS9<53><39><8B>}<>H9FPUTC.<19>$pF<05><07>Q94<04><>\9FILE!.Y<05>b8<62>d9<04><>z9/BLOCK<43>9<9D>Y<92><59><8B><D1><D1><E8><D1><DA><D1>ڊֆ<DA8A><D686><F0><81>Q<><51><AD>%39<33><39><89>9*BLOCK<43>93<39><33>ֆ<86><D686><E6><D0><E4><D1><D2><D0><E4>P<D2><50><AD>%<25>9.Y AW H%.<19>3<9B><04>9Y<05>9<C3>3<9B>b8p<03><05>3<9B><04>6<D5><04>9<9B><07>9D 4%<25>3<9B><04><><8A>9FBLOCK@.<19>9<E9>84<04><>:FBLOCK!.<19>9Q9<04><>^3(R/W.<19><05>3<9B><04>D D ):<3A>?:<3A><04>43<>2<EB>D <06>2<04>2.'<27>3<9F>Y<05>$<24><04>$<24><04><>I:DIRECT.<19><07>:<04><><8C>:FILE.<19><03><03>0W)Y<0F><03>Y<05><04>6y_<07><05>6<9B>B<15><04>W<1F><06><05>6<E3><0E><16><>ۄ:<04><><8C>: KERNEL.SCR<43>: KERNEL.SCR<43><52><8C>:[FCB]f<19>:<3A><>5:.FILE.kD <0A>K<18>direct<04><>;;FILE?.'Q;<04><>n;<3B>PUSHFILE.<19><03>$L<1F>$L<1F><04><><8D>;CLOSE.'g7<04><><8D>;OPEN.'8<04><><8D>;ASSIGN.'Yg7<67>F<05>6<FF>;<04><><8E>;USE.<19><0F><04><11><1C>D F<05><0F><04>:P<15>Y<05>C;+ <09>A<08>:+ <09><06><08>! not a fileV<04>;<04><><8E>;FROM.<19>$L<1F>;<04><>(<LOADFROM.<19>;<3B>;<3B><1F>;<04><>;<INCLUDE.<19>F<<04><>T<DRIVE.'D 6<04>2<EB>2<08><07>  <0B>2<9F><05> <0A> <04><>h<DRV.'D /6<04><02>3<><04><><8F><CAPACITY.'kD Y<05>6<AB><04>D Y8<>6<D5><04>9F<05>T3.<19>C<0F><16><><E9>yp<<04><><8F><A:<3A><<3C><>=B:<3A><<01><> =C:<3A><<02><>=D:<3A><<03><>=E:<3A><<04><>(=F:<3A><<05><>2=G:<3A><<06><><=H:<3A><<07><>F=LFSAVE.<19>3,2<><07>5H%Y<05> 9<><03>5<04><>P=SAVEFILE.p<03><05>M<1D>! needs nameY=<04><>s= SAVESYSTEM.+<2B>'A~=f<04><>I; (MAKEVIEW.<19><0F>YAl<11>kA<04>6ykD <10>=0 <0A>A<08><><04><04><><91>=@VIEW.K<07>Y D A<08><FF><06>=k<05><08>! eingetippt<70><04><><91>=>FILE.YA<03>YD z<06>6y+ D <0B><><EE>.<19>{!L<1F>$L<1F> >?><3E>$<24><04><><92>=VIEW._><3E>#<04><>{>HELP._><3E><<3C> <0A><06>#.<19><07><05>_<07>.<03>kD <10>>D Yg7. <0B><>?)'<27>><3E>D <03><04>$<24><04>$<24><04>><3E>A'<27>$<24>o<><6F>>FORTH-83.