M*|*********************************************************************** M*| * M*| ResFind: Look for resources * M*| * M*| Copyright (C) 1992-96 Olaf Krumnow and Herbert zur Nedden * M*| German Archimedes Group (GAG) * M*| * M*| Version 2.01b FREEWARE - may be used in any application * M*| * M*|*********************************************************************** SÞ A_% 256:î … A_%!0=255:$(A_%+4)=ö$+" at "+Ã(ž)+½(0):È™262367,A_%,3,"ResFind":à :B_$=¤_GetParam:C_$=¤_GetVariable("Obey$Dir"):ç B_$=""Œ 4B_$=¤_StringLeaf(C_$):ç ÀB_$,1)="!"Œ B_$=ÁB_$,2) ÂÍ:ò_SetVariable(B_$+"$Dir",C_$):D_$=C_$+".":E_$=¤_GetVariable(B_$+"$Language")+","+¤_GetVariable("ResFind$LanguagesPref")+","+¤_GetCountry+","+¤_GetVariable("ResFind$LanguagesSuff")+","+"UK" @ç ¤_CheckDir(D_$+"Resources")Œ F_$=D_$+"Resources."‹ F_$=D_$ "G_%=£:õ:H_%=§E_$,","):ç H_%=0Œ I_$=E_$:E_$="" %Ì:I_$=ÀE_$,H_%-1):E_$=ÁE_$,H_%+1) (Í:ç I_$<>""Œ G_%=¤_CheckDir(F_$+I_$) ý G_%„E_$="":ç G_%Œ Wò_SetVariable(B_$+"Res$Path",F_$+I_$+".,"+D_$):ò_SetVariable(B_$+"Res$Dir",F_$+I_$) HÌ:ò_SetVariable(B_$+"Res$Path",D_$):ò_SetVariable(B_$+"Res$Dir",C_$) Í:à -Ý ¤_GetParam:È™131088¸J_%;K_%:ç(K_%€1)=1Œ  J_$="" GÌ:J_$=¤_GetString(J_%,255):i%=§J_$,""""):ç i%>0Œ i%=§J_$,"""",i%+1)  ç i%=0Œ  J_$="" UÌ:J_$=ÁJ_$,i%+1):È• ÀJ_$,1)=" ":J_$=ÁJ_$,2):Î:i%=§J_$," "):ç i%>1Œ J_$=ÀJ_$,i%-1) Í  Í:=J_$ aÝ ¤_GetVariable(L_$):È™131107,L_$,A_%,256,0,3¸,,M_%;K_%:ç(K_%€1)<>0Œ=""‹=¤_GetString(A_%,M_%) ! "zÝ ò_SetVariable(L_$,N_$):M_%=©(N_$)+1:$A_%=N_$:È™131108,L_$,A_%,M_%,0,0¸;K_%:ç(K_%€1)<>0Œ …3,"Can't set variable "+L_$ #á $XÝ ¤_GetCountry:È™6,70,127¸,I_%:È™48,,67,2,I_%,A_%,256¸,,,,,M_%:=¤_GetString(A_%,M_%) %@Ý ¤_CheckDir(O_$):È™131080,17,O_$¸P_%;K_%:ç(K_%€1)<>0Œ P_%=0 & =(P_%=2) 'YÝ ¤_GetString(Q_%,M_%):R_$="":i%=0:È•(i%31):R_$+=½(Q_%?i%):i%+=1:Î:=R_$ (cÝ ¤_StringLeaf(S_$):T_%=0:H_%=§S_$,".",T_%):È• H_%>0:T_%=H_%:H_%=§S_$,".",T_%+1):Î:=ÁS_$,T_%+1) ÿ