NNNNNN&p `  @`! #@%`')+-/1 3@5`79`  @`! #@%`')+-/1 3@5`79KEYTEXT ڜ2. ڜ2.. KEYTEXT PRG 2KURZTEXTTXT 28`͢,o.. .N <//Bg?<JNAa oBNA n"| Sf$|N`"FIDDENN.2ۋD92 0GPECIAL۞N.1)+41 &IAFCOSKN.X*62]6wDIOSN.zF?V~EBIOSN.oX{#U2EINEAN.4{ ^ISSEMBLERN.J"pO`io"K>.^(}[*W"AiCES-vN.bŚ;{XO ÚŇ:ŴCDIN.̞ʦ̈́טxͯYqhTJ/CEMN.--uKؿO>'Nu PPLICATIONN-OLD yN TACKDEPTH NPNMNURRENT^NFIDTHN ICTLIMITN0ASEfN LDNLPLNINN#DOX // oN$?DO跋gX +/+/ oN _ PN%EAVE _ `N#OFfXNuY _ PNFIND>"[ Sr~ GSE$HƇ։fJ4 fDQX&g'<`Bg'<`Bg'<`B'< Nu$C"R( fB NufRANCH yX0N#XNugBRANCH yX Jf0N#XNuERFORM [ PNNu0N LEARSTACK&yBNuP!5&SNuP@' Nu0N'LEARRSG W.yNУP!ڳ.[Nu>IO HH&Nu>I H&NuXTENDJkBNu' "&Nu* &Nu* &Nu* &Nu6* &Nu/ &Nu/ &Nu/ &Nu6/ &Nu+[RNu+gTNu+sVNu+XNu+ZNu+\Nu+^Nu+PNu+ Nu-SNu-kUNu-WNu-{YNu-[Nu-]Nu-_Nu-QNu- NuALSEOBNuRUE'Jn`<>Jf`g`m`n`=Go`>sf`=Ylt`<Jk JkrQ`JjRQDD`=n +gBNu&NuITHIN" oBNuo&NuXECUTE [NNuTOGGLE [ NuVEN+gRNuXITXNuEXITJgXNuOUNT SRBPNuOOPdNuMOVE "[ [JgSfNuMOVE> "[ [Jg  SfNuILL+ " [JgSfNuNCLOSE  SrR0g'0ggR`fR''Nu'R'Nu>CFA SX&Nu>PFA( S &Nu>LFAD S&Nu>NFA S]YJ jS&Nu>LFA~ Nu>CFA]Nu>NFAj SYJ jS&Nu>LFAYNu>PFA\NuICKx '3NuOLLp "3"K IX!!YnX'Nu Я'Nu'}'/Nu!Y /Я'Nu''/Nu!y /Я 'Nu''/NuR/Nu@'NuR@b/NuDROP%XNu2DROPtPNu _ NuUSHߺ"W [.//<NѣP@'Nu'Nu''/Nu'/Nu' '/ Nu3'/Nu''/Nu*S &Nu/g "H&NuMOD "HAH&Nu* &Nu/ "7ABSNuMOD "HA7ABSNu+! [RNu+! [XNu+! [ PNu! [ Nu-! [SNu-! [YNu-! [ PNu! [ Nu@f S&Nu!; [ NuP@ S P&NuP!V [ P NuP+ NuPICKv &NuP+ NuOVE "[ [JgnSf`  SfNuNSTR,(".&t"G*S$D fQ&'<` RRQBNu=., F"Gz f Q&`n&`&S'BNu,] yX #XNuONVERTX [4209v"|R0k*  o o_lHBBBԁԃ2HBJkR`67S'NuNIT'' ' NuUT"h$h 2 5@ 4NuET$h 5@ 4&NuINE1| $[!Z"!Z!R 1@, 1@* 1@( 1@&NuLINE1| $[!Z.!Z21Z$!Z!R 1@* 1@( 1@&NuHOW"h$hBj5|BQ NuIDEN Nu RANSFORM"hr\$["Q NuNDRAW$[ NuRAW$[ ["  Nu ECTANGLE1| $[1Z$!Z.!Z21Z6!Z8!Z\1|@p20 _"_Q00NuOLYGONР"[&.,SF*((1Y$!Y.!Y21Y6!Y8!Y?+?<NNX&NuHYSBASE?<NNT'NuOGBASE?<NNT'NuETREZ?<NNT7BcNu ETSCREEN ?//?<NNPXNu ETPALETTE/?<NN\NuETCOLOR9 ? ??<NN\7BcNuLOPRDt ?QB/?<NNH'NuLOPWRyt ?QB/?< NNH'NuLOPFMT ?// ??<NNPNuDISINT ??<NNXNuENABINT ??<NNXNuIACCESSV ??+?<NN\7@NuFFGIBIT ??<NNXNuNGIBIT ??<NNXNuBTIMER/ ? ? ??<NNPXNuOSOUND/?< NN\NuETPRT?+?<!NNX7@BSNuBDVBASE?<"NNT'NuBRATE ??+?<#NN\7@NuRTBLK/?<$NN\NuVBL?<%NNTNuUPEXECq/?<&NN\NuETMPB/BgNM\Nu ONINSTAT?+?<NMXH&NuONIN?+?<NMX&NuONOUT& ? ??<NM\NuWABS ? ? ?/?+?<NMP\H&NuETEXEC/?+?<NMP&NuICKCAL?<NMT'NuETBPB?+?<NMX&Nu ONOUTSTATa?+?<NMXH&NuEDIACH?+?< NMX7@BSNuRVMAP?< NMT'NuBSHIFT?+?< NMX7@BSNuERMBgNANuONIN?<NAT'NuONOUT ??<NAXNuUXIN?<NATB#BcNuUXOUT @??<NAXNuRTOUT?+?<NAXH&NuAWCONIOL?+?<NAX&NuCIWE?<NAT'Nu RINTLINE/?< NA\'NuEADLINE /?< NA\7BcNuONSTAT?< NATH'NuETDRV?+?<NAX7@BSNu RTOUTSTAT@?<NATH'Nu UXINSTAT?<NATH'Nu UXOUTSTAT?<NATH'Nu URRENTDISKz?<NAT7BcNuETDTA/?<NA\NuUPER+/?< NA\&NuETDATE?<*NAT7BcNuETDATEB ??<+NAXNuETTIMEq?<,NAT7BcNuETTIMEt ??<-NAXNuETDTAZ?</NAT'Nu ETVERSION?<0NAT7BcNu EEPPROCESS ?/?<1NANuETDFS ?/?<6NAPNuKDIR/?<9NA\H'NuMDIRO/?<:NA\H'NuHDIR /?<;NA\H'NuREATEf ?/?<NAXH&NuEAD//?+?<?NAPX&NuRITE//?+?<@NAPX&NuNLINK/?<ANA\H'NuSEEK ? ?/?<BNAPT'NuHMOD ? ?/?<CNAPTH'NuETDIR ?/?<GNAPH'NuALLOC/?<HNA\&NuFREE/?<INA\H'NuETBLOCK//Bg?<JNAPXH&NuXEC/// ??<KNANuFIRST ?/?<NNAPH'NuNEXT?<ONATH'NuENAME//Bg?<VNAPXH'NuSDTOF} ? ?/?<WNAPTNuDUPJg'NuOUNDS &ѫNuUPt'NuWAPܼ &'@NuROPXNuVER'+NuOTLH&NuROTRLH'@NuRI''NuIP9&NuNDER9L'@&'NuDUPp'+'+NuSWAPLHH NuDROP]PNuOVER'+ '+ NuROTL?HH0Nu&;CODE yn P\ NuONTRLNz NTINN6 NTOUTNO    TSINNALLOT TSOUT>N  ( xX LOBALN@LLOT t^ DDRINNdALLOT DDROUTNALLOT DIPBN,N>`ESPBNr,>HANDLEaNVDI/ps"<NBNuAES"< <NBNuT3.NuaT3,Nu #&/NT''<'< NN8a79>BcNu &'@NT'<'< N3N"a`a`79@Bc79BBcNua79DBc79FBcNua79HBc79JBcNuT3TT3RT3PT3NNu/Nx'' [T'<, &'@BN'+ SBP'+ [TTRRe oNXPB &'@ [TXNu'<L'@&' ѓ &N &'@ &BNUL'@&' [TRe oNXPXNu79`Bc79bBcNua79dBc79fBcNu'<`B'<L'@&' ѓ &, &'@N'<` NIT'<pNrNXIT'<`Z ILE-SELECTOR{##'<Nr79@BcNu NTNH#NuEAD-APa'<N RITE-APa'<(NEY'<NNUTTONSBN4'<lN/N'NuOUSE NTN,'<NrNAITR H@&#,'<NrESSAGE3#'<NrULTIPLE#'<,'< N'<(N/N'Nu2ORMULAR%'<pN3 ESERVE7BNT'<'<N<'<NrREE'<`6 ENTER-IS#'<N4LERT'< NF UBBER-BOXN4'<,NrNGNN'<>'+'<\N\'<` &'@'<N79BcNueLOSE-VIRTUAL-SCREENԠ'<NLEAR-WORKSTATION'<NPDATE-WORKSTATION'<"Nr ECTANGLEa'<RN '+ '+ N ѓ/ ѓ'N ARa'<zN OUNDED-RECTANGLE^a'<ʼN  ILLED-ROUNDED-RECTANGLEan'<NS-CLIP&aF'<'<&NO-CLIP֚B`INEӝB3f'<dN *ST'<N0H7BcN REAa3˴'<˲NARKa3'<NEXTN'< N,'<Ng ILL-CONTOURNN'<:N NR/BBBB'BB'<NRC˿a'<pN IEa'<̴N IRCLEBBNBB'<N'<N NRN LLIPTIC-PIEքa'<N  LLIPTIC-ARC-a'<LN LLIPSEYN '<xN  USTIFIED-TEXTNTNHBN '<ͨN,'<,'<079ͨBc'TT3ͨ &N'<͢N S-WRITING-MODEК'<N ET-COLORNTBN,'<FN S-LINE-COLOR'<zN S-LINE-TYPEΆ'<ΤNqS-LINE-PATTERN'<N S-LINE-WIDTH'BN'<Nl RE-LINE-ENDSNH'<,N S-MARK-TYPE'<\NS-MARK-HEIGHTα#N'<φN S-MARK-COLORϓ'<ϸN S-CHARACTER-HEIGHT%#N'<NkS-CELL-HEIGHTi'<N S-ANGLE'<DNS-FONTQ'<jN S-TEXT-COLOR'<ЎNjS-TEXT-EFFECTv'<иN'RE-TEXT-ALIGNMENTS8NH'<N S-FILL-TYPEP'<N S-FILL-INDEXz'<DN S-FILL-COLOR'<nNhS-FILL-PERIMETER'<јNpS-FILL-PATTERNѤ ST'<,30H7BcN'<Nm OPY-OPAQUE:aa*'<Ny##NT'+ '+ N ѓ/ ѓ''<NNʆOPY-TRANSPARENTa'<'<N'+'<\N\'<` &'@'<NOLOR-ISNH'<N/NX'Nu#INE-IS'<(NN79`BcNu$ARK-IS$'<\NNN%ILL-ISG'<׌NN&EXT-IS'<׶NNXNt EXT-WH-IS'<N,'<N79dBc79jBcNuuELL-IS'<.N79`Bc79dBc79hBcNus NPUT-MODE-IS2'<lNPEN-INNPEN-OUTؖNtt    ( xXESSAGE-BUFFERNALLOT EY-EVENT-BUFFERN6 VENT-FLAGNUTTONNLICKSNYNXNOP-ID'<NuHANDLE2NTATENSP$NONTEXT\N00OFVOCSN#wNENCENMNOC-LINKNJISKNSN ORTHCASH NFIRST'<8NuIMIT y'<NuREVN`P/BUF'<Nu/BLK'<NuSCRNCRUNLKN/L'<@NuTIBNTIBڜNPAN^NUTN ISK-ERRORNOLDR/W?9 "SAA??</?<JgSW?<NMH#NNuIB '9NuMITONR4NuPACE'< NܮCANCODEN HIFTSTATENASTKEYN NKEY'<NETKEYN$BSNuEYf'<ِ'<dN@##/#PPN####'Nu TERMINALSN$ H@&'<aNAITN$V  fNNV  fNuREAK?N$ + fBNNV  fNu H@&'<aNSC'<NܮNܮU4NuLSN '<EN 9&'9XDNuc'9N  o^0 y#&NuSN8fNu/WN^LOCKx. yb f&NuLm y:bg f &Y#bNu`Lm y:#b&X/g ''BN|'''<N| yb Nu2A4B6Cy%g3 333Nu3333NuECIMAL3 NuEXߟ3NuIN3NuLANK%< NRASEBN MPTY-BUFFERS y:"9LBNCSP#fNuATEST@ yn'NuESTRICT7 yn P  Nu EFINITIONS8#|nNuLSO'<|'<ڀ'<N 9ڱgR9ڱNuOSS 9ڱgS9ڱ'<ڀ'<|'<NNuNLYb3ڰNPC yn P NuRROR9NRYPEܔN JjB &ѫN L WBPNܮRe oNXPN TRAILING'BN  k gN2SRe oNXPNu."V Wp''T@@їN " W'pT@@їNuPACESjJjBBN NRe oNXPNuR/'JjDNNjNN 'NN G'JjDNNjNNN NݨNnNB[3][Noch Parameter auf dem Stack.|Definition noch nicht beendet?][weiter]CSP\ffNu'<'<N N[3][Parameter auf dem Stack|stimmen nicht berein.|Falsch geschachtelte Struktur?][weiter]PAIRS'g'<'<N NNu "&N  &'@(@N "& &'@ (<}N[3][Stack berfllt.][weiter][3][Zu wenig Zahlen auf dem Stack.][weiter]STACK 9Bl'<'<N NFo'<'<N NNu[3][M/ milungen.][weiter]/N'<'<xN N//N'N0= N=D@NpN<=N'+'+ JfN2Nh&&N:PNNuABSH'N&JfN^D@Nu'OMPILE yX"_0 #XNGITERAL(J9Wg yX0'< #XNuXPECTNUERY'9'<NB# Nu OLDEXPECTR/''JjBBN NN +f* +gNܮN'<NܮS`X` + fXNN2 + lXS`Nܮ S&Re oNXP [B# Nu[3][Weder ein Befehl|noch eine Zahl.][weiter]UMBER/9 SB' (-fR|`|#Nj gZ gL gF g8 g( g'<'<N N3`3 `3B`XJgD#NuD.Nx &ѫN W'NܮRe oNXPNORDJ۾g'9۾N`'9 9Г&'@N ѹ$k$[ yX&SBQ NuINDCFA Spr"HS@ Aam Azn AQAIPA/09ڰH'<|'ѫN W P 'gN`JgNuXXe oNXPB yn|g&gN`JgXNu y*|gng&gN`NuXNuNfirst adress, only NuNsecond adress, only NuNdn NuNan NuN(an) NuN(an)+ NuN-(an) NuNd(an) NuN d(a,x.w/l) NuN.w NuN.l NuNd(pc) NuN d(pc,x.w/l) NuN# NuNccr NuNsr NuNusp NuN bcc .s<-- ? N/ JgXXNuJgN`NpgN8pgNDpgNPpgN^pgNnp gN~p@gN <gN <gN <gN <gN <gN <gN < gN <@gNNIND N0JgX&RJfDNu[3][Ist eine restrict Definition.|Darf nur beim kompilieren|benutzt werden.][weiter] NTERPRETER'< NN0JfNNN2`J9Wf*PJg'<'<NN N [NN2`JgP [NN2`"yXPJ+g [ PNug2`#X`n2N"#X`^Jyg ygNN`NߊNuJy g y gNN`NߊNuJy"g y"gNN`NߊNu09HyHyNu09HyHyNu'<'<NhB9WNuPWNuAXNu'< 79Bc79BcN.B79Bc79BcN.N&NBU'Nߊ[3][Das Dictionary ist voll.][weiter] REATEHEAD 9Xm'<'<pN N'< NN0Jg8 '9XNtNschon mal im Dictionary. NX$|X*Rpv"4MgRCaQ*Ryo9- MRP"yn" $"Nu[3][Nur im Ausfhrungsmodus benutzen.][weiter]AJ9Wg'<'<N N 9Xm'<'<pN N'< NN0Jg8 '9XNtNschon mal im Dictionary. N$|X*Rpv"4MgRCaQ*Ryo9- MRP"yn#|" $&' '< #fPWNuaN'< N^ yX0Nu#XB9W [ NuIECURSIVE yn"yX PX2N"#XNuEFERiN yX0N #XNu09HHyNu09HHyNuREATEN yX0N #XNuARIABLEN yX0N B#XNu ARIABLES'< N [ f ;fNuJfUNup R@N` _(N:N yX0'< 0Nu#XNONSTANTN yX0'< 0Nu#XNOVEP.L,'<H#!!NZ |Hf"Ndn d(an) or d(an) dn!N yf Nl@`NZNߊNߊNOVEP.W,'<N#NZ |Hg"Ndn dn or -(an) -(an)!N*_NZ yf@U'N*_0Nr3N&09*_NpeOES>@ yX0N 0'#XNu*_33NZ3"pNNfJy g &'@NNzN*_#NZNNfN*_ yf:3NBpNNfJy g &'@NߊN#NZ0<NNfNߊNXN*_#NZNZNp NTERPRET9N OCABULARYN yXB #X''<N#XN#|NuEORTHN.L`2\L~<'3?KVJhJ<HE6L'FFFHLJGGPCIKA>lC55?VBpORTH-STN@N3 BNu*_3" yf83N&NNf yfN`NXN#NZN@N,*_3N&pNNfNEPTH 9B'NuTACK 9NuSBf"NNDer Stack ist leer.Nu '9B'NN Я'Nn'< NNJgN2'< ї⑱k oNXPNu3*_3NZ3"N3NUITB۾B9WNNNJ9WfJ9gN8N ok. N` OLDERROR&yBNN3 N#۾۬#J۾gN Screen Nr. '9۾NBNN Line Nr. '9'<@N'NBN'9۾N &'@'<@N ѓ'<@N NB۾UN'<^`'9'9N N'<J۾f'<'<N NBR۾J9۝g'9N'9۾NB#NuOAD~'<۾N'<NB#۾NLOAD 4 9۾ѓN 6IST -N/93 N#۬N Screen Nr. NB'<'<N N Я'''<NN'9۬NNJgN2Re oNXPNB۬#NuNDEXN'<N3 R &'@N N Я''<NNB Я'NNJgN2Re oNXPNRIAD'VNN Я'N Re oNXPNuHRURNN 2 Я'N 6Re oNXPNuTHRURNN l Я'N jRe oNXPNu[3][Durch fence geschtzt.][weiter][3][Context und current mssen gleich sein.][weiter][3][Nur ein context Vokabular erlaubt.][weiter] ORGET-IT$ 9ڱg'<'< N N 9|ng'<'< N N/ l'<'< nN N yo P`#"y|o N@NP'''Y [BX'N "W Q m P`"Xe oNXP S&JfX#XNuORGETN NN [3][File kann nicht geschlossen werden.][weiter][3][File kann nicht beschrieben werden.][weiter][3][File kann nicht erzeugt werden.][weiter] AVE-SYSTEM'< NNx'< l& [B#X'<'<N3`3 9X# 9#BN/Jj'<'< |N N'9X'<NJj'<'< KN 'NJg'<'< N NuNPUT 0NN'9'<N"_ yX0Jg("[  lN distance ? N`"["BQ0#XN"_ yX0Jg"[  lN@`"["PN 3N& _0y yX0Jf Nlabel isn't setted N"[  lN distance ? NNODEiJ9Wg0NNNur beim ausfhren verwenden.NNBy$3NABNBBNNNߊN _''NuABS'< N [ f ;fNuJfUNup R@N`LEARX [BNuLRLABS'< N [ f ;fNuJfUNup R@N N [B`QUNb0N:1N:2N:3#N:47N:5KN:6_N:7sN:8N:9N:AN:BN:CN:CN:DN:DN:E'N:F;N:XG,#NZ yfNl yf@@`@`NZ yf@`@HNrOVE, y@f3NB0,'<gNu,'<fNu,'<oNu,'<lNu=,'<mNu=,'<nNuC,y'<eNuS,N'<dNu, '<jNuS,'<hNuC,~'<iNu,'<kNuF,(SNߊ'9XNuHEN,'9XNLSE,-'<`NߊN'9XNuEGIN,$'9XNuGAIN,'<`Nߊ'9X &'@NNTIL,"Nߊ'9X &'@NHILE,Nߊ'9X &'@NuEPEAT,NNO,'9XNuOOP,3N&09@Q'Nߊ'9X  lN distance ? NN(A,A.W)"'< '< N|(A,D.W)'< '< N|(A,A.L)3'<  &R'< N|(A,D.L)W'<  &R'< N| (PC,A.W)'< '< N (PC,D.W)'< '< N (PC,A.L)'<  &R'< N (PC,D.L)'<  &R'< NUBQ.B,>NQUBQ.W,NNQ@UBQ.L,dNQOVEM.W,N8HOVEM.L,N8HOVE.B,NOVE.W,N0OVE.L,N OR.B,NOR.W,N@OR.L,NMPM.B,& NMPM.W,@NHMPM.L,TNDDQ.B,VNPDDQ.W,|NP@DDQ.L,NPCHG,N@CLR,NSET,NTST,NDDX.B,NDDX.W,N@UBX.B,NUBX.W,.N@BCD,NDD.L,"NxЀDDA.L,"NDDI.L,"NDDX.L,NрND.L,#GNxNDI.L,#vNSL.L,#NdSR.L,#NdRA,$gN`SR,NaSR.S,/NaEQ,%NgNE,%NfLR.L,&7NBMP.L,&eNMPA.L,&|NMPI.L,&N ORI.L,(N SL.L,(NdSR.L,) NdOVEA.L,)N @ULU,NBCD,)NHEG.L,){NDEGX.L,)N@OT.L,)NFR.L,*NxRI.L,*?NOL.L,*NdOR.L,*NdOXL.L,+NdOXR.L,+ZNdTE,NzNsTS,NzNuBCD,hNUB.L,,NxUBA.L,,NUBI.L,- NUBX.L,BNWAP,QNH@ST.L,-aNJ0N 1N  2 N @3N `4/N 5AN 6SN 7!N 0N 1eN $2wN D3N dPN d4N 5N 6N 7N P-N A0) N A1)N (A2)-N HA3) 0N hSP)UN hA4)AN A5)}N A6)N A7) N RP)N A0)+N  A1)+N ,A2)+N LA3)+N lSP)+ N lA4)+ N A5)+ DN A7)+N RP)+ lN A6)+ XN (A0)N (A1) N 0(A2) N P(A3)!\N p(SP) N p(A4) N (A5)! N (A6)! N (A7)!4N (RP)!HN (A0)!N (A1)!N 5(A2)!N U(A3)"N u(SP)!N u(A4)!N (A5)!N (A6)"\N (RP)"$N (A7)!pN WN L"9N >(PC))NN ]N SP N @RN CRN DD.B,NxDD.W,"Nx@DDA.W,NDDI.B,#NDDI.W,iN@ND.B,NxND.W,#/Nx@NDI.B,N!NDI.W,#^N@SL, NSL.B,#NdSL.W,#Nd@SR,NSR.B,#NdSR.W,#Nd@RA.S,N`CC,ANdCC.S,$NdCS,$-NeCS.S,$ANeEQ.S,UNgGE,$SNlGE.S,${NlGT,$NnGT.S,$NnHI,$NbHI.S,$NbLE,$NoLE.S,$NoLS,$NcLS.S,%NcLT,%%NmLT.S,%9NmMI,%KNkMI.S,%_NkNE.S,gNfPL,%qNjPL.S,%NjVC,%NhVC.S,%NhVS,%NiVS.S,%NiHK,"NALR.B,NBLR.W,&!NB@MP.B,NMP.W,&MN@MPA.W,hNMPI.B,N MPI.W,&N @BRA,NJQBT,&NJPBCC,&NJTBCS,&NJUBEQ,&NJWBLE,' NJ_BLS,'NJSBLT,'0NJ]BGE,'BNJ\BGT,'TNJ^BHI,'fNJRBMI,'xNJ[BNE,'NJVBPL,'NJZBVC,'NJXBVS,'NJYIVS,'NORI.B,(?N! ORI.W,'N @XT.W,cNHXT.L,(+NHLLEGAL,NzJMP,NNSR,(iNNEA,4NASL,(NSL.B,(NdSL.W,(NdHSR,NSR.B,(NdSR.W,(NdHOVEA.W,N0@ULS,0NIVU,'NEG.B,pNDEG.W,)eND@EGX.B,N@EGX.W,)N@@OP,NzNqOT.B,FNFOT.W,)NF@R.B,NxR.W,)Nx@RI.B,N!RI.W,*'N@EA,NH@ESET,+oNzNpOL,*kNOL.B,*NdOL.W,*NdXOR,NOR.B,*NdOR.W,*NdXOXL,NOXL.B,*NdOXL.W,+ NdPOXR,NOXR.B,+2NdOXR.W,+FNdPTR,NzNwT,NPHI,+NRLS,+NSCC,+NTCS,+NUNE,+NVEQ,+NWVC,+NXVS,, NYPL,,NZMI,,3N[GE,,GN\LT,,[N]GT,,oN^LE,,N_UB.B,zNxUB.W,,Nx@UBA.W,NUBI.B,NUBI.W,,N@AS,NJRAPV,NzNvST.B,-#NJST.W,-KNJ@BORT/&yBNN\'<bN<'<?Nܮ'<cN<'<0NܮN'<vNX'<'<NNuOOT>I'<'<NވNK^C = desktop ^S = save file ^N = next page ^P = prev. UNDO = restore Nu UTCURSORN5Nn'<NhJfNB('<N5NNB2N5 [RNApNuINKS=;N5NnNJfNB~'<ON5NNANBN5 [SNApNuECHTS?N5Nn'<ONPJfNBBN5NNANBN5 [RNApNuUT-CHAR@b'N'< ѓN>XR'< NNu ILEPAGESEN5Nn'<@NN4NN5&NnN4NnR'<@NNNuNFOTEXT?N[0][ A public-domain program | written by Heinrich Pesch | Espoo, Finland 6.8.88 | with Forth+ ST (C) Data Becker | ][ OK ] NFOF?N^'<NFLN XNuEWPATHD%N<'<PNNENN6N'< ѓNnN5NNENENuAVE-ITE NH(N5bNnN5NnN5&NnNN5bNnNNuOADPROCB:NBN5NNGN^NxN '<NFMNLNMF'<NFM"NFNMF'<NFM>NNMFNXNLNu k Was macht Kurztext? Angenommen, Sie wollen der Oma zum Hochzeitstag gratulieren. Dazu suchen Sie von einer Ihrer Disketten den Text vom vorigen Jahr zum gleichen Anla, den die Gute ist erfahrungsgem schon sehr vergelich! Irgenwie aber steht es auch mit Ihrem eigenen Gedchtnis nicht zum besten! Auf welcher Diskette war den das schne Gedicht? Und wie hie doch blo die Datei? Zu dumm, beim Suchen geht so viel Zeit verloren da Sie lieber doch etwas Neues verfassen. Kurzum, Sie brauchen KURZTEXT! Mit "Anlegen" whlen Sie eine Textdatei aus. Wichtig ist nur die Endung, den danach richtet sich das Programm. Im Falle der Endung .TXT liest KURZTEXT alle Dateien im Ordner, die auf .TXT enden, im Falle von .DOC alle Dateien, die auf .DOC enden. Soweit alles klar? Von jeder Datei sucht KURZTEXT die ersten 60 Zeichen. Fr jede Datei schreibt es diese erste Zeile in eine Datei, die als !TXT.INF oder !DOC.INF in den selben Ordner gespeichert wird. Sie sollten sich Ihre Text-Disketten vornehmen und systematisch mit KURZTEXT katalogisieren. Bei Omas nchstem Geburtstag oder wahrscheinlich schon viel frher, wenn Sie wieder einen bestimmten Text suchen, gengt es vom DESKTOP aus die !xxx.INF-Dateien zu lesen, und schon fllt Ihnen der Dateiname wieder ein. Denn nach der Textzeile wird natrlich auch der Dateiname abgespeichert. Das Programm ist frei kopierbar. Bei ASCII- und FirstWord-DOC-Dateien gibt es keine Schwierigkeiten. Falls es mit Ihren Textdateien nicht klappt, weicht das Format Ihrer Textverarbeitung vom .DOC-Format ab. In diesem Falle knnen Sie mir eine Probedatei und DM 20 schicken. Dafr erhalten Sie eine erweiterte Fassung fr Ihre Zwecke. Auch sonst ist es nicht von der Polizei verboten, einem Autor von ntzlichen PD-Programmen eine Spende zukommen zu lassen. Spenden sind nicht steuerlich absetzbar, auf Wunsch werde ich Sie aber in mein Abendgebet einschlieen! 29.10.89 Heinrich Pesch Tiistilnkuja 1 E 50 SF-02230 Espoo Finnland