unit tstring;
interface
type

 soc=set of char;
 lo=byte;
 { ersetzt die lo-Funktion durch eine schnellere Typenumwandlung }

 pstring  =^string;

{$ifndef unix}
 string1  =string[001];
 string2  =string[002];
 string3  =string[003];
 string4  =string[004];
 string5  =string[005];
 string6  =string[006];
 string7  =string[007];
 string8  =string[008];
 string9  =string[009];
 string10 =string[010];
 string11 =string[011];
 string12 =string[012];
 string13 =string[013];
 string14 =string[014];
 string15 =string[015];
 string16 =string[016];
 string17 =string[017];
 string18 =string[018];
 string19 =string[019];
 string20 =string[020];
 string21 =string[021];
 string22 =string[022];
 string23 =string[023];
 string24 =string[024];
 string25 =string[025];
 string26 =string[026];
 string27 =string[027];
 string28 =string[028];
 string29 =string[029];
 string30 =string[030];
 string31 =string[031];
 string32 =string[032];
 string33 =string[033];
 string34 =string[034];
 string35 =string[035];
 string36 =string[036];
 string37 =string[037];
 string38 =string[038];
 string39 =string[039];
 string40 =string[040];
 string41 =string[041];
 string42 =string[042];
 string43 =string[043];
 string44 =string[044];
 string45 =string[045];
 string46 =string[046];
 string47 =string[047];
 string48 =string[048];
 string49 =string[049];
 string50 =string[050];
 string51 =string[051];
 string52 =string[052];
 string53 =string[053];
 string54 =string[054];
 string55 =string[055];
 string56 =string[056];
 string57 =string[057];
 string58 =string[058];
 string59 =string[059];
 string60 =string[060];
 string61 =string[061];
 string62 =string[062];
 string63 =string[063];
 string64 =string[064];
 string65 =string[065];
 string66 =string[066];
 string67 =string[067];
 string68 =string[068];
 string69 =string[069];
 string70 =string[070];
 string71 =string[071];
 string72 =string[072];
 string73 =string[073];
 string74 =string[074];
 string75 =string[075];
 string76 =string[076];
 string77 =string[077];
 string78 =string[078];
 string79 =string[079];
 string80 =string[080];
 string81 =string[081];
 string82 =string[082];
 string83 =string[083];
 string84 =string[084];
 string85 =string[085];
 string86 =string[086];
 string87 =string[087];
 string88 =string[088];
 string89 =string[089];
 string90 =string[090];
 string91 =string[091];
 string92 =string[092];
 string93 =string[093];
 string94 =string[094];
 string95 =string[095];
 string96 =string[096];
 string97 =string[097];
 string98 =string[098];
 string99 =string[099];
 string100=string[100];
 string101=string[101];
 string102=string[102];
 string103=string[103];
 string104=string[104];
 string105=string[105];
 string106=string[106];
 string107=string[107];
 string108=string[108];
 string109=string[109];
 string110=string[110];
 string111=string[111];
 string112=string[112];
 string113=string[113];
 string114=string[114];
 string115=string[115];
 string116=string[116];
 string117=string[117];
 string118=string[118];
 string119=string[119];
 string120=string[120];
 string121=string[121];
 string122=string[122];
 string123=string[123];
 string124=string[124];
 string125=string[125];
 string126=string[126];
 string127=string[127];
 string128=string[128];
 string129=string[129];
 string130=string[130];
 string131=string[131];
 string132=string[132];
 string133=string[133];
 string134=string[134];
 string135=string[135];
 string136=string[136];
 string137=string[137];
 string138=string[138];
 string139=string[139];
 string140=string[140];
 string141=string[141];
 string142=string[142];
 string143=string[143];
 string144=string[144];
 string145=string[145];
 string146=string[146];
 string147=string[147];
 string148=string[148];
 string149=string[149];
 string150=string[150];
 string151=string[151];
 string152=string[152];
 string153=string[153];
 string154=string[154];
 string155=string[155];
 string156=string[156];
 string157=string[157];
 string158=string[158];
 string159=string[159];
 string160=string[160];
 string161=string[161];
 string162=string[162];
 string163=string[163];
 string164=string[164];
 string165=string[165];
 string166=string[166];
 string167=string[167];
 string168=string[168];
 string169=string[169];
 string170=string[170];
 string171=string[171];
 string172=string[172];
 string173=string[173];
 string174=string[174];
 string175=string[175];
 string176=string[176];
 string177=string[177];
 string178=string[178];
 string179=string[179];
 string180=string[180];
 string181=string[181];
 string182=string[182];
 string183=string[183];
 string184=string[184];
 string185=string[185];
 string186=string[186];
 string187=string[187];
 string188=string[188];
 string189=string[189];
 string190=string[190];
 string191=string[191];
 string192=string[192];
 string193=string[193];
 string194=string[194];
 string195=string[195];
 string196=string[196];
 string197=string[197];
 string198=string[198];
 string199=string[199];
 string200=string[200];
 string201=string[201];
 string202=string[202];
 string203=string[203];
 string204=string[204];
 string205=string[205];
 string206=string[206];
 string207=string[207];
 string208=string[208];
 string209=string[209];
 string210=string[210];
 string211=string[211];
 string212=string[212];
 string213=string[213];
 string214=string[214];
 string215=string[215];
 string216=string[216];
 string217=string[217];
 string218=string[218];
 string219=string[219];
 string220=string[220];
 string221=string[221];
 string222=string[222];
 string223=string[223];
 string224=string[224];
 string225=string[225];
 string226=string[226];
 string227=string[227];
 string228=string[228];
 string229=string[229];
 string230=string[230];
 string231=string[231];
 string232=string[232];
 string233=string[233];
 string234=string[234];
 string235=string[235];
 string236=string[236];
 string237=string[237];
 string238=string[238];
 string239=string[239];
 string240=string[240];
 string241=string[241];
 string242=string[242];
 string243=string[243];
 string244=string[244];
 string245=string[245];
 string246=string[246];
 string247=string[247];
 string248=string[248];
 string249=string[249];
 string250=string[250];
 string251=string[251];
 string252=string[252];
 string253=string[253];
 string254=string[254];
 string255=string[255];

 string01 =string[001];
 string02 =string[002];
 string03 =string[003];
 string04 =string[004];
 string05 =string[005];
 string06 =string[006];
 string07 =string[007];
 string08 =string[008];
 string09 =string[009];

 string001=string[001];
 string002=string[002];
 string003=string[003];
 string004=string[004];
 string005=string[005];
 string006=string[006];
 string007=string[007];
 string008=string[008];
 string009=string[009];
 string010=string[010];
 string011=string[011];
 string012=string[012];
 string013=string[013];
 string014=string[014];
 string015=string[015];
 string016=string[016];
 string017=string[017];
 string018=string[018];
 string019=string[019];
 string020=string[020];
 string021=string[021];
 string022=string[022];
 string023=string[023];
 string024=string[024];
 string025=string[025];
 string026=string[026];
 string027=string[027];
 string028=string[028];
 string029=string[029];
 string030=string[030];
 string031=string[031];
 string032=string[032];
 string033=string[033];
 string034=string[034];
 string035=string[035];
 string036=string[036];
 string037=string[037];
 string038=string[038];
 string039=string[039];
 string040=string[040];
 string041=string[041];
 string042=string[042];
 string043=string[043];
 string044=string[044];
 string045=string[045];
 string046=string[046];
 string047=string[047];
 string048=string[048];
 string049=string[049];
 string050=string[050];
 string051=string[051];
 string052=string[052];
 string053=string[053];
 string054=string[054];
 string055=string[055];
 string056=string[056];
 string057=string[057];
 string058=string[058];
 string059=string[059];
 string060=string[060];
 string061=string[061];
 string062=string[062];
 string063=string[063];
 string064=string[064];
 string065=string[065];
 string066=string[066];
 string067=string[067];
 string068=string[068];
 string069=string[069];
 string070=string[070];
 string071=string[071];
 string072=string[072];
 string073=string[073];
 string074=string[074];
 string075=string[075];
 string076=string[076];
 string077=string[077];
 string078=string[078];
 string079=string[079];
 string080=string[080];
 string081=string[081];
 string082=string[082];
 string083=string[083];
 string084=string[084];
 string085=string[085];
 string086=string[086];
 string087=string[087];
 string088=string[088];
 string089=string[089];
 string090=string[090];
 string091=string[091];
 string092=string[092];
 string093=string[093];
 string094=string[094];
 string095=string[095];
 string096=string[096];
 string097=string[097];
 string098=string[098];
 string099=string[099];
{$else}
 string1  =array[0..001] of char;
 string2  =array[0..002] of char;
 string3  =array[0..003] of char;
 string4  =array[0..004] of char;
 string5  =array[0..005] of char;
 string6  =array[0..006] of char;
 string7  =array[0..007] of char;
 string8  =array[0..008] of char;
 string9  =array[0..009] of char;
 string10 =array[0..010] of char;
 string11 =array[0..011] of char;
 string12 =array[0..012] of char;
 string13 =array[0..013] of char;
 string14 =array[0..014] of char;
 string15 =array[0..015] of char;
 string16 =array[0..016] of char;
 string17 =array[0..017] of char;
 string18 =array[0..018] of char;
 string19 =array[0..019] of char;
 string20 =array[0..020] of char;
 string21 =array[0..021] of char;
 string22 =array[0..022] of char;
 string23 =array[0..023] of char;
 string24 =array[0..024] of char;
 string25 =array[0..025] of char;
 string26 =array[0..026] of char;
 string27 =array[0..027] of char;
 string28 =array[0..028] of char;
 string29 =array[0..029] of char;
 string30 =array[0..030] of char;
 string31 =array[0..031] of char;
 string32 =array[0..032] of char;
 string33 =array[0..033] of char;
 string34 =array[0..034] of char;
 string35 =array[0..035] of char;
 string36 =array[0..036] of char;
 string37 =array[0..037] of char;
 string38 =array[0..038] of char;
 string39 =array[0..039] of char;
 string40 =array[0..040] of char;
 string41 =array[0..041] of char;
 string42 =array[0..042] of char;
 string43 =array[0..043] of char;
 string44 =array[0..044] of char;
 string45 =array[0..045] of char;
 string46 =array[0..046] of char;
 string47 =array[0..047] of char;
 string48 =array[0..048] of char;
 string49 =array[0..049] of char;
 string50 =array[0..050] of char;
 string51 =array[0..051] of char;
 string52 =array[0..052] of char;
 string53 =array[0..053] of char;
 string54 =array[0..054] of char;
 string55 =array[0..055] of char;
 string56 =array[0..056] of char;
 string57 =array[0..057] of char;
 string58 =array[0..058] of char;
 string59 =array[0..059] of char;
 string60 =array[0..060] of char;
 string61 =array[0..061] of char;
 string62 =array[0..062] of char;
 string63 =array[0..063] of char;
 string64 =array[0..064] of char;
 string65 =array[0..065] of char;
 string66 =array[0..066] of char;
 string67 =array[0..067] of char;
 string68 =array[0..068] of char;
 string69 =array[0..069] of char;
 string70 =array[0..070] of char;
 string71 =array[0..071] of char;
 string72 =array[0..072] of char;
 string73 =array[0..073] of char;
 string74 =array[0..074] of char;
 string75 =array[0..075] of char;
 string76 =array[0..076] of char;
 string77 =array[0..077] of char;
 string78 =array[0..078] of char;
 string79 =array[0..079] of char;
 string80 =array[0..080] of char;
 string81 =array[0..081] of char;
 string82 =array[0..082] of char;
 string83 =array[0..083] of char;
 string84 =array[0..084] of char;
 string85 =array[0..085] of char;
 string86 =array[0..086] of char;
 string87 =array[0..087] of char;
 string88 =array[0..088] of char;
 string89 =array[0..089] of char;
 string90 =array[0..090] of char;
 string91 =array[0..091] of char;
 string92 =array[0..092] of char;
 string93 =array[0..093] of char;
 string94 =array[0..094] of char;
 string95 =array[0..095] of char;
 string96 =array[0..096] of char;
 string97 =array[0..097] of char;
 string98 =array[0..098] of char;
 string99 =array[0..099] of char;
 string100=array[0..100] of char;
 string101=array[0..101] of char;
 string102=array[0..102] of char;
 string103=array[0..103] of char;
 string104=array[0..104] of char;
 string105=array[0..105] of char;
 string106=array[0..106] of char;
 string107=array[0..107] of char;
 string108=array[0..108] of char;
 string109=array[0..109] of char;
 string110=array[0..110] of char;
 string111=array[0..111] of char;
 string112=array[0..112] of char;
 string113=array[0..113] of char;
 string114=array[0..114] of char;
 string115=array[0..115] of char;
 string116=array[0..116] of char;
 string117=array[0..117] of char;
 string118=array[0..118] of char;
 string119=array[0..119] of char;
 string120=array[0..120] of char;
 string121=array[0..121] of char;
 string122=array[0..122] of char;
 string123=array[0..123] of char;
 string124=array[0..124] of char;
 string125=array[0..125] of char;
 string126=array[0..126] of char;
 string127=array[0..127] of char;
 string128=array[0..128] of char;
 string129=array[0..129] of char;
 string130=array[0..130] of char;
 string131=array[0..131] of char;
 string132=array[0..132] of char;
 string133=array[0..133] of char;
 string134=array[0..134] of char;
 string135=array[0..135] of char;
 string136=array[0..136] of char;
 string137=array[0..137] of char;
 string138=array[0..138] of char;
 string139=array[0..139] of char;
 string140=array[0..140] of char;
 string141=array[0..141] of char;
 string142=array[0..142] of char;
 string143=array[0..143] of char;
 string144=array[0..144] of char;
 string145=array[0..145] of char;
 string146=array[0..146] of char;
 string147=array[0..147] of char;
 string148=array[0..148] of char;
 string149=array[0..149] of char;
 string150=array[0..150] of char;
 string151=array[0..151] of char;
 string152=array[0..152] of char;
 string153=array[0..153] of char;
 string154=array[0..154] of char;
 string155=array[0..155] of char;
 string156=array[0..156] of char;
 string157=array[0..157] of char;
 string158=array[0..158] of char;
 string159=array[0..159] of char;
 string160=array[0..160] of char;
 string161=array[0..161] of char;
 string162=array[0..162] of char;
 string163=array[0..163] of char;
 string164=array[0..164] of char;
 string165=array[0..165] of char;
 string166=array[0..166] of char;
 string167=array[0..167] of char;
 string168=array[0..168] of char;
 string169=array[0..169] of char;
 string170=array[0..170] of char;
 string171=array[0..171] of char;
 string172=array[0..172] of char;
 string173=array[0..173] of char;
 string174=array[0..174] of char;
 string175=array[0..175] of char;
 string176=array[0..176] of char;
 string177=array[0..177] of char;
 string178=array[0..178] of char;
 string179=array[0..179] of char;
 string180=array[0..180] of char;
 string181=array[0..181] of char;
 string182=array[0..182] of char;
 string183=array[0..183] of char;
 string184=array[0..184] of char;
 string185=array[0..185] of char;
 string186=array[0..186] of char;
 string187=array[0..187] of char;
 string188=array[0..188] of char;
 string189=array[0..189] of char;
 string190=array[0..190] of char;
 string191=array[0..191] of char;
 string192=array[0..192] of char;
 string193=array[0..193] of char;
 string194=array[0..194] of char;
 string195=array[0..195] of char;
 string196=array[0..196] of char;
 string197=array[0..197] of char;
 string198=array[0..198] of char;
 string199=array[0..199] of char;
 string200=array[0..200] of char;
 string201=array[0..201] of char;
 string202=array[0..202] of char;
 string203=array[0..203] of char;
 string204=array[0..204] of char;
 string205=array[0..205] of char;
 string206=array[0..206] of char;
 string207=array[0..207] of char;
 string208=array[0..208] of char;
 string209=array[0..209] of char;
 string210=array[0..210] of char;
 string211=array[0..211] of char;
 string212=array[0..212] of char;
 string213=array[0..213] of char;
 string214=array[0..214] of char;
 string215=array[0..215] of char;
 string216=array[0..216] of char;
 string217=array[0..217] of char;
 string218=array[0..218] of char;
 string219=array[0..219] of char;
 string220=array[0..220] of char;
 string221=array[0..221] of char;
 string222=array[0..222] of char;
 string223=array[0..223] of char;
 string224=array[0..224] of char;
 string225=array[0..225] of char;
 string226=array[0..226] of char;
 string227=array[0..227] of char;
 string228=array[0..228] of char;
 string229=array[0..229] of char;
 string230=array[0..230] of char;
 string231=array[0..231] of char;
 string232=array[0..232] of char;
 string233=array[0..233] of char;
 string234=array[0..234] of char;
 string235=array[0..235] of char;
 string236=array[0..236] of char;
 string237=array[0..237] of char;
 string238=array[0..238] of char;
 string239=array[0..239] of char;
 string240=array[0..240] of char;
 string241=array[0..241] of char;
 string242=array[0..242] of char;
 string243=array[0..243] of char;
 string244=array[0..244] of char;
 string245=array[0..245] of char;
 string246=array[0..246] of char;
 string247=array[0..247] of char;
 string248=array[0..248] of char;
 string249=array[0..249] of char;
 string250=array[0..250] of char;
 string251=array[0..251] of char;
 string252=array[0..252] of char;
 string253=array[0..253] of char;
 string254=array[0..254] of char;
 string255=array[0..255] of char;

 string01 =array[0..001] of char;
 string02 =array[0..002] of char;
 string03 =array[0..003] of char;
 string04 =array[0..004] of char;
 string05 =array[0..005] of char;
 string06 =array[0..006] of char;
 string07 =array[0..007] of char;
 string08 =array[0..008] of char;
 string09 =array[0..009] of char;

 string001=array[0..001] of char;
 string002=array[0..002] of char;
 string003=array[0..003] of char;
 string004=array[0..004] of char;
 string005=array[0..005] of char;
 string006=array[0..006] of char;
 string007=array[0..007] of char;
 string008=array[0..008] of char;
 string009=array[0..009] of char;
 string010=array[0..010] of char;
 string011=array[0..011] of char;
 string012=array[0..012] of char;
 string013=array[0..013] of char;
 string014=array[0..014] of char;
 string015=array[0..015] of char;
 string016=array[0..016] of char;
 string017=array[0..017] of char;
 string018=array[0..018] of char;
 string019=array[0..019] of char;
 string020=array[0..020] of char;
 string021=array[0..021] of char;
 string022=array[0..022] of char;
 string023=array[0..023] of char;
 string024=array[0..024] of char;
 string025=array[0..025] of char;
 string026=array[0..026] of char;
 string027=array[0..027] of char;
 string028=array[0..028] of char;
 string029=array[0..029] of char;
 string030=array[0..030] of char;
 string031=array[0..031] of char;
 string032=array[0..032] of char;
 string033=array[0..033] of char;
 string034=array[0..034] of char;
 string035=array[0..035] of char;
 string036=array[0..036] of char;
 string037=array[0..037] of char;
 string038=array[0..038] of char;
 string039=array[0..039] of char;
 string040=array[0..040] of char;
 string041=array[0..041] of char;
 string042=array[0..042] of char;
 string043=array[0..043] of char;
 string044=array[0..044] of char;
 string045=array[0..045] of char;
 string046=array[0..046] of char;
 string047=array[0..047] of char;
 string048=array[0..048] of char;
 string049=array[0..049] of char;
 string050=array[0..050] of char;
 string051=array[0..051] of char;
 string052=array[0..052] of char;
 string053=array[0..053] of char;
 string054=array[0..054] of char;
 string055=array[0..055] of char;
 string056=array[0..056] of char;
 string057=array[0..057] of char;
 string058=array[0..058] of char;
 string059=array[0..059] of char;
 string060=array[0..060] of char;
 string061=array[0..061] of char;
 string062=array[0..062] of char;
 string063=array[0..063] of char;
 string064=array[0..064] of char;
 string065=array[0..065] of char;
 string066=array[0..066] of char;
 string067=array[0..067] of char;
 string068=array[0..068] of char;
 string069=array[0..069] of char;
 string070=array[0..070] of char;
 string071=array[0..071] of char;
 string072=array[0..072] of char;
 string073=array[0..073] of char;
 string074=array[0..074] of char;
 string075=array[0..075] of char;
 string076=array[0..076] of char;
 string077=array[0..077] of char;
 string078=array[0..078] of char;
 string079=array[0..079] of char;
 string080=array[0..080] of char;
 string081=array[0..081] of char;
 string082=array[0..082] of char;
 string083=array[0..083] of char;
 string084=array[0..084] of char;
 string085=array[0..085] of char;
 string086=array[0..086] of char;
 string087=array[0..087] of char;
 string088=array[0..088] of char;
 string089=array[0..089] of char;
 string090=array[0..090] of char;
 string091=array[0..091] of char;
 string092=array[0..092] of char;
 string093=array[0..093] of char;
 string094=array[0..094] of char;
 string095=array[0..095] of char;
 string096=array[0..096] of char;
 string097=array[0..097] of char;
 string098=array[0..098] of char;
 string099=array[0..099] of char;
{$endif}
 { kein Kommentar }

implementation
end.