Colectia de poze lisp2arx.3xforum.ro
Total 222 poze.

InapoiInainte

 
convert bmp's to sld's for dcl download the file and you enter the command q2 or (defun c:q2 (Convert bmp's to sld's for DCL image 1)Please download the file pp_asdk_sudoku.fas, and you enter the command Q2 or (Defun C:q2 ( /rr) 2) Downloading the file pozemari.fas and you enter the command Q2 3)For your fun , you can downloading the full version of "BMP2LISP compiler" :lmao:
02.04.202061.4KB
boch - emualator downloader Bochs/Emulator=
04.01.202289.7KB
Freelancer22-CondorCJoburi-Odesk= -------------- ZiuaEroilor= Iunie2022 Aprilie2022odesk2000$= Aprilie2022odesk34delphi=
28.05.202260.6KB
layer checking. if layer/s not exists then you-select all lines /*c2s:Layer Checking. if Layer/s not exists then you-select all lines /*c2s: lay2="PIPE_MAIN", lay1="PIPE_BRANCH"; jps=jps-1, jpg=jpg-1, // different Direction/s jps=(jpg==jps)?(3-jpg):jps, //set variabiles default/s $ol=list("parsedlist","cntct","ss","ept","ang","spt","obj","sslist","ssang1","ssang2","n","ftpt","ss1","o1"); foreach(eva,$ol,set(read(eva),nil)); //check Layer/s o1=tblsearch("LAYER",lay1), o2=tblsearch("LAYER",lay2); $rr=(o1 && o2)?strcat(lay1,",",lay2):(o1)?lay1:(o2)?lay2:""; //Regen Screen $rr=vla.regen(con_acdoc,AcMODELSPACE); //AcOr .. o1 or o2 ss=(acor(o1,o2))?ssget(lISt(cons(0,"LINE"),cons(8,$rr))): ssget(lISt(cons(0,"LINE"))); You install the kit from old-Version as DemoVersion
17.08.202038.1KB

 
oreste = nu ne trebuie experienta ta ci vama ta dintre preot si uman, hotarul dintre preot si viataPtre40euto= Oreste = Nouă nu ne trebuie experienta ta preoteasca, ci vama ta dintre preot si uman, hotarul dintre preot si viata cetatenească. Daca cultura Nasa din Occident ne fac robotii, oameni cu măini robotici, sau picioare roboticii pe la oameni, inimi de robot, si alte implanturi, sau antene robotice pe cap-uman, atunci noi păcătosii o să fugim la tata popa , disperati să-l iubim pe Draci ortodoxi din Bisericii, noi o să vrem dar nu mai putem face nimic, va fi prea tărziu
13.03.202252.8KB
(setq edata (if esel (entget (car etype (if esel (cdr (assoc 0 subetype (if (= subetype (setq edata (if esel (entget (car esel))) etype (if esel (cdr (assoc 0 edata)))) (wcmatch subetype "LINE,LWPOLYLINE,VERTEX,@LINE,RAY,HATCH,DIMENSION,LEADER,*SOLID,3DFACE,WIPEOUT,TRACE,REGION,IMAGE,VIEWPORT,TOLERANCE") (if (= subetype "LEADER") (= (cdr (assoc 72 subedata)) 0) T); STraight, not Splined (if (= subetype "VERTEX") (= (boole 1 8 (cdr (assoc 70 subedata))) 0) T))); (wcmatch (cdr (assoc 0 edata)) "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE,XLINE,RAY") Noi ortodoxi, trebuie să facem tot ce putem sa trăim fericiti cu preoti-ortodoxi pe care ii avem deja.. Dacă tu studiezi pe net, ortodoxia este apropiată dogmatic de istoria-Pleiadienilor, celelalte religii (catolicii, musulmani) sunt anti-teza cu Pleia*..Pleiadieni nu sunt ingerii lui D-zeu? Eu nu stiu. dar in viitor, noi ortodoxia, avem nevoie de ajutorul tehnologic+cultural dela Pleiadieni. acolor unde Sfintii nu ne pot ajuta.
18.10.202135.5KB
eu folosesc axest site pentru descarcare mp4 din filme hagi - viitorul constanta to Eu folosesc axest site pentru descarcare MP4 din filme youtube.com DAY3=
24.08.202145.7KB
melatonina
11.10.202172.2KB

 
title │ advanced boot options │ boot from hard drive - title ┌──────────────────────────────────────────────────┐ root title │ Advanced Boot Options │ root title ├──────────────────────────────────────────────────┤ root title │ Boot from Hard Drive - Windows XP (NTLDR) │\n find --set-root --ignore-floppies --ignore-cd /ntldr map () (hd0) map (hd0) () map --rehook find --set-root --ignore-floppies --ignore-cd /ntldr chainloader /ntldr savedefault --wait=2 title │ Boot from Hard Drive - Windows Vista/7 (BOOTMGR) │\n find --set-root --ignore-floppies --ignore-cd /bootmgr map () (hd0) map (hd0) () map --rehook find --set-root --ignore-floppies --ignore-cd /bootmgr chainloader /bootmgr savedefault --wait=2 title │ Start Hiren's BootCD (Alternative Boot Method) │\n Using Grub4Dos map find --set-root /HBCD/hiren.ima map --mem /HBCD/hiren.ima (fd0) map --hook chainloader (fd0)+1 rootnoverify (fd0) map --floppies=1 boot title │ Chainload isolinux.bin │\n find --set-root /HBCD/isolinux.bin chainloader /HBCD/isolinux.bin title └──────────────────────────────────────────────────┘ root
17.11.202187.8KB
you view msgbox on homepage= set echo any endYou view msgbox on vbs Comunitate= HomePage= set scredir=%ctab%\vlaxcompil\0user echo X=MsgBox("Press any key..Vlaxcompil",0+16,"The End") >%scredir%msg.vbs Echo "scredir=%scredir%" ::type %nwredir%msg.vbs @Title "Press Any key" cscript %scredir%msg.vbs "Press Any key\nVlaxCompil" "DoineaRancea" erase %scredir%msg.vbs Este posiil, sa ne roaga Alieni, sa nu fim lacomii la prea multa viata duhovniceasca, noi sa asteptam, daca oameni sunt capabili sa evolueaze la un nivel superior...pe planeta Marte<, si acolo noi ortodoxi sa invatam, cum o cunosc Alieni peMaica Domnului + IIsus. din râsâritul Soarelui, pe Marte sau pe Venus.-, cum o vrea Occidentul- ei fac viitorul tehnologic.
10.06.202248.6KB
add protection so program will work only in computer with certain mac protection so program willAdd protection so program will work only in computer with certain mac address Add protection so program will work until certain date. Program should check current date from the web not use System time Make ribbon for all commands
16.11.202171KB
when, you convert cstring to pchar , the fail skip the last zero search ??? to test replaceWhen, You convert cString to Pchar , the old-routines (Delphi7,Delphi3) fail skip the last zero pchar(String);?> //Fix1=You search ??? to test RTFail //Fix2=You replace pchar(...) with str_2pchar(...) Const con_zero3=#00#00#00; Var romania:string='';; Function str_pas2(arrayeditstate:pchar;limcheck:integer):string; Var nth:integer; Begin result:=''; if (arrayeditstate=nil) or (arrayeditstate^=#0) then exit; if (limcheck<1) then limcheck:=strlen(arrayeditstate); SetString(result,arrayeditstate,limcheck); result:=concat(result,#0#0#0); SetLength(result,limcheck); End; Function str_2pchar255(var s133: shortstring; RtlZeroMemory: shortint): pchar; Var dimexe:integer; Begin { ..$VARSTRINGCHECKS OFF } dimexe := length(s133); if (dimexe < 1) then begin s133 := concat(s133, '123'); s133 := #0; s133 := #0; s133 := #0; Result := @s133; exit; end; dimcen := length(s133); s133 := concat(s133, con_zero3); setlength(s133, dimexe); Result := @s133; { ..$VARSTRINGCHECKS ON } End; Function str_2pchar(var s133: string): pchar; Var dimexe:integer; Begin { ..$VARSTRINGCHECKS OFF } dimexe := length(s133); if (dimexe < 1) then begin s133 := concat(s133, '123'); s133 := #0; s133 := #0; s133 := #0; Result := @s133; exit; end; dimcen := length(s133); s133 := concat(s133, con_zero3); setlength(s133, dimexe); if (length(s133)>dimexe) then romania:='You failed resize , ??? you must set breakPoint here';l Result := @s133; { ..$VARSTRINGCHECKS ON } End;
13.07.202125KB

 
AutoLisp.hlp= AutoLisp.ErrorMsg= (Paypal.com " ") Many hours go into the conceiving and writing of the programs available on this site, and most are aimed at saving as much time as is possible on various everyday tasks, and so, if you feel that the programs that I have written have benefitted you or your company in some way, a donation is very welcome. (Paypal.com " ") Furthermore this site is entirely independent of sponsorship and there is a cost to keep it online, thus even a small donation can help to subsidise this cost. Many Thanks for your Support!
10.04.202160.4KB
the blocked myapp two findclose stop execute and slow-down isfound := sr) = 0; if then gotoThe FindClose(SR.FileHandle) blocked myApp two minutes. The FindClose stop execute and slow-down myApplication.dpr begin SR.FindHandle:=0; axlock.h:=0; IsFound := FindFirst(StartDir+udm_free.FileMask, faAnyFile-faDirectory, SR) = 0; if (isFound=false) then goto PickBoxSize; repeat ArcLength:=length(udm_free.files); if (udm_free.lower=1) then SR.Name:=LowerCase(SR.Name); if (udm_free.res_field) and (udm_free.count<1) then begin udm_free.files:=concat('00=',StartDir,SR.Name,#13#10);udm_free.count:=0;end else if (udm_free.res_field) and (udm_free.count<999)and(udm_free.count>0) then udm_free.files:=concat(udm_free.files,'Zip'+kDigits3,'=',StartDir,SR.Name,#13#10) else if (udm_free.res_field) and (udm_free.count>999) then udm_free.files:=concat(udm_free.files,inttostr(udm_free.count),'=',StartDir,SR.Name,#13#10) else udm_free.files:=concat(udm_free.files,SR.Name,#13#10); inc(udm_free.count); if (udm_free.hWndStatusbar<>0) then SendMessage(udm_free.hWndStatusbar,SB_SETTEXT, 0,integer(SR.Name)); IsFound := FindNext(SR) = 0; if (IsFound)and(SR.FindHandle<>INVALID_HANDLE_VALUE)and(SR.FindHandle<>0) then axlock.h:=SR.FindHandle; until (not IsFound); if (axlock.h<>0)and(axlock.h<>INVALID_HANDLE_VALUE) then FindClose(axlock.h);
13.09.202146.9KB
eu aici cum transform un stdcall to pot apela functiile cu operator sel-ent sel-ptoEu aici cum transform un stdcall to safecall. Eu pot apela functiile cu operator princ~1() getstring(~1"xxxxxxx") (setq sel-ent (entsel)) (setq sel-pto (vl-catch-all-apply 'vlax-curve-getclosestpointtoprojection (list (vlax-ename->vla-object (car sel-ent)) (cadr sel-ent) (getvar "viewdir")))) (mapcar 'set '(a1 a2 vec) '(0 1. (11 1.0 0.0 0.0)))
25.10.202157.8KB
you the devide with you see multiple results with the same source? (princ (reduce #'+ '(1 2 3 4You downloading the DevIDE with Portacle== You see multiple results with the same source? (princ (reduce #'+ '(1 2 3 4 5))) (princ (apply #'max '(2 7 3)) ) (defun sum (L) (apply #'+ L)) and then call the following: (sum '(1 2 3 4 5)) does it do the following: (+ 1 2 3 4 5) Eu te rog nu nu mai face astfel de filme youtube. la un moment dat, daca oamenii vor coloniza Luna sau Marte, noi trebuie sa asteptam, sa invatam o noua istorie a lui Dumnezeu, din solul Lunar sau din solul planeta Marte..Noi sa nu fim prostii prostiilor să profităm acum ,Dacă Adam a fost blestemat de Dumnezeu (tărăna esti, si in tărăna te vei intoarce).. -- Anii noi profităm daca reusesc oamenii high-tech, să invătam despre Dumnezeu din solul Lunar. sau din tărăna depe Marte. (defun nn_vmload( / m objsel scara vCnt qlay bnam idx nrp tpu vcd nop startpoint) (setq;|a000|; lpt nil nrp (jc_pin15 22719 (list "USERI1")) qlay (list "Vertex Symbol")) (jc_pin15 40706 (list)) (setq;|a000|; m (strcat "Enter PickStart Point <" (itoa nrp) ">:")) (setq;|a000|; nrp2 (jc_pin15 28947 (list m))) (if (= nil nrp2) (setq;|a68293656|; nrp2 nrp)) (setq;|a170878964|; bnam (jc_pin15 31216 (list nil))) (jc_pin15 5113 (list (list "\nCurrent BlockName for points=" bnam))) (prompt "\nSelect one Polyline:") (setq;|a282320633|; contur (car (jc_pin15 45095 (list "")))) (if (= contur nil) (progn (jc_pin15 30856 (list readme.txt)) (exit))) (jc_pin15 60116 (list qlay 7)) (setq;|a000|; objsel (list (jc_pin15 5793 (list contur)))) (setq;|a67630093|; startpoint (jc_pin15 28408 (list (car objsel)))) (setq;|a17664|; vCnt (jc_pin15 12238 (list (car objsel)))) (jc_pin15 5113 (list (list "\nCount-of-Vertex=" vCnt))) (if (> vCnt 0) (setq;|a68293656|; nop (jc_pin15 2723 (list "USERI1" (atoi (rtos (+ vCnt 1) 2 1)))))) (jc_pin15 2723 (list "CLAYER" (car qlay))) (progn (setq;|a203785000|; idx 0) (while (< idx vCnt) (setq;|a577266529|; ptx (jc_pin15 31552 (list (car objsel) idx)) lpt (jc_pin15 23410 (list ptx lpt)) nop (jc_pin15 27263 (list bnam ptx 1.0 1.0 1.0))) (setq;|a282324544|; idx (+ idx 1)))) (progn (setq;|a203785000|; ida 0) (while (< ida vCnt) (setq;|a67118218|; ptx (jc_pin15 31552 (list (car objsel) ida)) tpu (strcat "Tp" (itoa ida)) nop (jc_pin15 20821 (list tpu ptx 5.0 nil "C" 31))) (setq;|a282324544|; ida (+ ida 1)))) (setq;|a000|; dyn (jc_pin15 61529 (list "" "\nZoomExtend?"))) (if (= dyn "Y") (command "_zoom" "e")) (setq;|a282324544|; vcd (jc_pin15 22719 (list "VIEWCTR"))) (foreach item lpt (jc_pin15 11086 (list item vcd 11))) $rr) (defun nn_vmload( / m objsel scara vCnt qlay bnam idx nrp tpu vcd nop startpoint) (setq;|a000|; lpt nil nrp (getvar "USERI1") qlay (list "Vertex Symbol")) (vl_load_com) (setq;|a000|; m (strcat "Enter PickStart Point <" (itoa nrp) ">:")) (setq;|a000|; nrp2 (getint m)) (if (= nil nrp2) (setq;|a68293656|; nrp2 nrp)) (setq;|a200035688|; bnam (dfn_getx_blockname nil)) (php_echo (list "\nCurrent BlockName for points=" bnam)) (prompt "\nSelect one Polyline:") (setq;|a199941881|; contur (car (entsel ""))) (if (= contur nil) (progn (alert readme.txt) (exit))) (dfn_enamk_layer qlay 7) (setq;|a000|; objsel (list (vlax-ename->vla-object contur))) (setq;|a67630093|; startpoint (vlax-curve-getstartpoint (car objsel))) (setq;|a17664|; vCnt (vlax-curve-getendparam (car objsel))) (php_echo (list "\nCount-of-Vertex=" vCnt)) (if (> vCnt 0) (setq;|a68293656|; nop (setvar "USERI1" (atoi (rtos (+ vCnt 1) 2 1))))) (setvar "CLAYER" (car qlay)) (progn (setq;|a169652048|; idx 0) (while (< idx vCnt) (setq;|a-5907|; ptx (vlax-curve-getpointatparam (car objsel) idx) lpt (cons ptx lpt) nop (dfn_block_insert bnam ptx 1.0 1.0 1.0)) (setq;|a199945792|; idx (+ idx 1)))) (progn (setq;|a169652048|; ida 0) (while (< ida vCnt) (setq;|a68293656|; ptx (vlax-curve-getpointatparam (car objsel) ida) tpu (strcat "Tp" (itoa ida)) nop (dfn_enamk_textddi tpu ptx 5.0 nil "C" 31)) (setq;|a199945792|; ida (+ ida 1)))) (setq;|a000|; dyn (dfn_getx_readkey "" "\nZoomExtend?")) (if (= dyn "Y") (command "_zoom" "e")) (setq;|a199945792|; vcd (getvar "VIEWCTR")) (foreach item lpt (grdraw item vcd 11)) $rr)
02.11.202161.7KB

 
cortexul = creierul = straturile luiCortexul = InteligentaAI=
22.08.202446.6KB
how to import the many tricks from julia inside delphi for (not for not for classes, not for one,How to import the many Tricks from Julia inside Delphi for your-units? (not for System.pas, not for classes, not for FileCtrls.dcu.........Windows.dcu) Either one, the system.pas(+classes.pas, or filectrls, or sysutils, or windows.dcu) are very very-goods, today2021 and next 2022year. :) Defun= The subject "Julia" is a programming language. The shortest possible answer is that it’s fast because it was designed to be fast. Any programming language (implementation) can be fast if it does certain things: Uses numeric types which are natively supported by the machine (i.e. not arbitrary-precision numbers), which can then be used with hardware arithmetic operations directly, costing only one machine instruction per operation. (or even less with SIMD) Puts data inline in arrays to avoid the cost of indirection and get the most out of the CPU cache. Inline numeric data is also necessary for SIMD. Avoids frequent memory allocation from the heap. Modern processors can optimize stack allocation, but heap allocation involves rather costly system calls. It is partially the responsibility of the programmer to handle this, but the language also plays a big part in allowing (or not) the amortization of allocation costs. Inline data in arrays also means that storage is allocated in advance. Interoperates well with pre-existing high-performance libraries—usually with a C-FFI (C foreign function interface). Julia does all of these things—or at least, it does three of these things, and it makes it possible to avoid allocation as well, though naive Julia may do frequent memory allocations (just as naive C++ may do frequent memory allocations). You might be surprised to learn that many programming languages are not designed with performance in mind, but rather are designed to present the programmer with a certain set of abstractions and then try to implement the language to be as performant as possible around the predetermined abstractions. High-performance languages, on the other hand, are designed for performance first and select abstractions that fit that. ....................... CopyRights(c2021)Quora.com-All rights reserved!!
17.11.202169.5KB
procedure filename :string; l : i : integer; un,n,v : with do try add(''); Procedure CreateFPMake(Const FileName :String; L : TAPIEntries); Var I : Integer; UN,N,V : ShortString; begin UN:=ChangeFileext(ExtractFileName(FileName),''); With TStringList.Create do try Add('program fpmake;'); Add(''); Add('{$mode objfpc}{$h+}'); Add(''); Add('uses sysutils,classes, fpmkunit;'); Add(''); Add(''); Add('function StdDep(T : TTarget) : TTarget;'); Add('begin'); Add(' T.Dependencies.AddUnit(''googlebase'');'); Add(' T.Dependencies.AddUnit(''googleservice'');'); Add(' Result:=T;'); Add('end;'); Add(''); Add('Procedure AddGoogle;'); Add(''); Add('Var'); Add(' P : TPackage;'); Add(' T : TTarget;'); Add(''); Add('begin'); Add(' With Installer do'); Add(' begin'); Add(' P:=AddPackage(''googleapis'');'); Add(' P.ShortName:=''googleap'';'); Add(' T:=P.Targets.AddUnit(''googlebase.pp'');'); Add(' T:=P.Targets.AddUnit(''googleclient.pp'');'); Add(' T:=P.Targets.AddUnit(''googleservice.pp'');'); Add(' T.Dependencies.AddUnit(''googleclient'');'); Add(' T.Dependencies.AddUnit(''googlebase'');'); For I:=0 to L.Count-1 do begin N:=L.APIUnitName; Add(Format(' T:=StdDep(P.Targets.AddUnit(''%s''));',[ExtractFileName(L)); end; Add(' end;'); Add('end;'); Add(''); Add('{$ifndef ALLPACKAGES}'); Add('begin'); Add(' AddGoogle;'); Add(' Installer.Run;'); Add('end.'); Add('{$endif ALLPACKAGES}'); Add(''); Add('procedure register;'); Add(''); Add('begin'); SaveToFile(FileName); finally Free; end; end;
04.06.202258.5KB
we develope library file(a) with excels and {--} we have a library files for mix betweenTtile=Freelancer2020-Excel 2021-IUNIE= We develope library file(a) with Excels and VisualLisp. {--} We have a library files for mix between visual-lisp-api and msexcel files.. Only me, can develope the BIG-autolisp programs in C++ syntax.. Only me, can develope autolisp-portable with C# and C++. Why are big lisp? Becaue, I use the libraries files with many functions ,you see pp_topoglist.cpp. {--} I study geodedic system, cartographic maps,trigoometric GIS, GPS,WGS-84, UTM ,lati-long .I develope mathematics-parser,(C++, tokenizer RTF,lisp), backtracking for lexer-analyze. also, I write programs in other programming language, objectARX, C, turbo pascal, delphi3,free-pascal, Visual C+2010, c++, prolog language, delphi, arx, c#, acis.vc++ ,latex . Code: We have one library files with 1446 functions with autolisp-functions and he have 1.5Mb source-ascii-lisp. We have one libraryfile with 388functions and excel-files.preprocessing.with visual-lisp.
23.08.202155.9KB

 
spovedi?i nu doar pacatele, ci si tot ce este traire afecte stari suflete?ti neplacute, vise rele, Spovedi?i duhovnicului nu doar pacatele, ci si tot ce este traire negativa, -- afecte dezordonate, stari suflete?ti neplacute, vise rele, co?maruri, întristari, suparari, nemul?umiri, crize, emo?ii negative, spaime, atacuri de panica, anxietate sau angoase, ---mânie surda, reverii, lipsa de aten?ie, lipsa de concentrare, timiditate, tensiuni launtrice ira?ionale, melancolii, regrete, nostalgii, pierderi, doruri bolnave, tânjiri dureroase, neîmpliniri afective, frustrari, neacceptari, emo?ii ?i sentimente toxice precum ru?inea -- maladiva, repulsia obsesiva, triste?ea neagra, furia launtrica, dezamagirea constanta, --insensibilitatea sau nesim?irea duhovniceasca, cruzimea, moliciunea, nepasarea, dureri si suferinte psiho-somatice vagi sau greu de localizat, îngândurari stranii, reac?ii ciudate, dispozi?ii afective sau suflete?ti nefire?ti, înclina?ii bolnavicioase, gânduri rele sau obsesive, neputin?e ale inimii sau ale sufletului, uitari, pierderi ale cumpatului etc., spovedi?i-le pu?in o data în via?a. Cere?i-i permisiunea cu smerenie sa va asculte, chiar daca acestea nu sunt pacate in sine. Toate vor slabi în intensitate ?i vor disparea ?i în via?a voastra va aparea un bun de mare pre?: seninatatea sufletului! ?i în timpul zilei, dar mai ales în timpul nop?ii. Pacea afectiva ?i emo?ionala este un mare dar! Aceste trairi negative oricât de marunte ar fi, sunt obositoare, ?i dispari?ia lor prin spovedania nominala punctuala, aduce o odihna binemeritata min?ii, inimii ?i sufletului întreg. Mul?i oameni, ne?tiind aceasta taina, traiesc ani îndelunga?i cu o stare sufleteasca zdruncinata din cauza trairilor suflete?ti amestecate, chiar daca se spovedesc ?i se împarta?esc regulat. Dupa prima lor vadire la duhovnic, harul patrunde în cele mai intime si mai întunecate col?isoare ale sufletului, cura?and ?i luminând totul.
29.11.202150.7KB
how do i recognize a good is how you know who is a good the person who can reliably deliver workingHow do I recognize a good programmer? That is how you know who is a good programmer. The person who can reliably deliver working software is a good programmer. All other measures tend to miss the point of building software in the first place. Așa știi cine este un bun programator. Persoana care poate livra în mod fiabil software de lucru este un programator bun. Persoana care poate livra în mod fiabil software de lucru este un programator bun. Persoana care poate livra în mod fiabil software de lucru este un programator bun. -Toate celelalte măsuri tind să lipsească din punct de vedere al construirii de software în primul rând. See Example here
05.11.202052.3KB
here sort (defun i) (setq i 0) (while (< (setq i (1+ i)) (sslength pts (cons (cdr (assoc 10Here sort (Defun dfn_pointsortLefttoRight(/ i) (setq i 0) (while (< (setq i (1+ i)) (sslength ss)) (setq pts (cons (cdr (assoc 10 (entget (ssname ss i)))) pts)) ) (setq pts (vl-sort pts '(lambda (x y) (< (car x)(car y))))) I have a problem with sorting a list of strings based on the second item of the list ascendingly. (setq the_list '(("Top Beam" "200x150") ("Left Beam" "200x100") ("Left Beam" "150x200") ("Bottom Beam" "225x75") ("Bottom Beam" "100x200") ("Right Beam" "45x35") ("Bottom Beam" "100x175") ("Right Beam" "55x25"))) (defun mysort ( l ) (mapcar '(lambda ( n ) (nth n l)) (vl-sort-i (mapcar '(lambda ( x ) (read (strcat "(" (vl-string-subst " " "x" (cadr x)) ")"))) l) '(lambda ( a b ) (if (= (car a) (car b)) (< (cadr a) (cadr b)) (< (car a) (car b)) ) ) ) ) ) (setq Author "LeeMac(c)2020-05") $ (mysort the_list) ( ("Right Beam" "45x35") ("Right Beam" "55x25") ("Bottom Beam" "100x175") ("Bottom Beam" "100x200") ("Left Beam" "150x200") ("Left Beam" "200x100") ("Top Beam" "200x150") ("Bottom Beam" "225x75") )
30.11.202175.9KB
glenn dufke curious about this - do you have any on how to digitally sign seems like most of theGlenn Dufke Curious about this - do you have any recommendations on how to digitally sign executables? Seems like most of the solutions out there are overly expensive Michael Honan There are two types of certificates, OV and EV. EV are expensive, requires a dongle and meant for kernel drivers and such. OV certificates are easier and cheaper to get and for most software developers, are sufficient to sign their executables, dependencies and installer. KSoftware have reasonably priced OV and EV certificates. Olaf Monien Certificat= ... And in English
08.02.202261.3KB

 
function if (limcheck Function str_lenadd(Var s:string;limcheck:integer;AdAChar:char):integer; Var filer:pchar; extmax,nth:integer; strcd:string; Begin result:=0; filer=nil; extmax:=0; if (limcheck<1) then exit; if (length(s)<=limcheck) then extmax:=limcheck-length(s); if (extmax<1) then exit; setlength(strcd,extmax); filer:=@Strcd); fillchar(filer^,extmax,AdAChar); s:=concat(s,strcd); Result:=Length(strcd); strcd:=''; End; {--} Function xchg_str(var a,b:string):integer; Var nLen:array of integer; nth:integer; charset:char; Begin nLen:=length(a); nLen:=length(b); if (nLen>nLen) then result:=nLen else result:=nLen; if (result<1) then exit; if (nLen
07.02.202268.8KB
0)you install the kitt of 1)you run (from / convert bmp to vechi au stocate in ele,0)You install the kitt of vlaxcompiler 1)You run devinfo.exe (from "C:\Vlaxcompil\BIN\devinfo.exe") 2)devinfo://Component./ 256colors.bmp / Convert bmp to sld Schemele electronice vechi au stocate in ele, multa inteligenta. Eu am dorit sa devina vizibila aceasta inteligenta foarte ascunsa.Noi devenim mai inteligenti daca vizionam poze cu scheme electronice?. 3)You run autocad or briscad or zwcad... 4)appload ..pp_q2....... 5) You enter the command Q2
25.11.201722KB
/*c2s: if else/*c2s: if (type($o1)!=quote(INT)) $db=cond($op==tip,T;nil); else pdi=pdi~point
10.06.202225.2KB
emacslispViewporterCreator= ? topic=56857.msg605389#msg605389 RenameFile.dcl= AltiumDesigner=
23.08.202157.4KB

 
toate sistemele sunt cu autocad.. ce preda nebunii de profesori, (sistemele de la ocpi) leImageCropOnline= Toate sistemele informatice sunt cu AutoCad.. Ce preda nebunii de profesori, (sistemele informatice de la OCPI) le studiaza doar genii*Progarmatori dela Automatica.UPB.ro De ce ? Deoarece programele dela OCPI, lucreaza mult prin ANAF, Banci BRD, BCR. impozite si taxe Toate programele din OCPI sunt realizate de IBM, Microsoft, firme foarte mari cu sute de X milioane de Euro. ,foarte multi banii pe care "Geodezii de Rand", sunt doar niste nimicuri. Oricum la firmele de GIS. SIG (medii) sunt angajati=2-3programatori de la Automatica UPB, deoarece necesita prea multa matematica informatica, informatica ce depaseste manualele predate din Cadastru+Geodezie+UTCB.ro Parcă tu postasesi acum câteva zile pe un grup de IT-iști și voiai să-ți facă cineva tema. Ce să zic, pari determinat să termini facultatea. Vestea proastă e că n-o să intereseze pe nimeni diploma ta. Dacă simți că sunt lucruri pe care nu le înțelegi, mai ia-o o dată din casa 1 și poate a 2-a oară se prinde ceva de tine. Succes
20.05.202184.9KB
tbl 0 0 0 0) tbl 0 (* hgt 400.)) (mapcar '(lambda (r1 r2 c1 c2) tbl r1 r2 c1 c2)) (vla-unmergecells tbl 0 0 0 0) (vla-setcolumnwidth tbl 0 (* hgt 400.)) (mapcar '(lambda (r1 r2 c1 c2) (vla-mergecells tbl r1 r2 c1 c2)) '(0 0 0 0) '(1 0 1 1) '(0 1 3 4) '(0 2 3 4) ) (mapcar '(lambda (r c s) (vla-settext tbl r c s)) '(0 0 0 0 1 1) '(0 1 3 4 1 2) '("Point \\PNo." "Coordinates" "Angles \\P(Deg.)" "Lengths \\P(m)" "X" "Y" ) ) (mapcar '(lambda (row) (vla-setrowheight tbl r (* hgt 250.)) (mapcar '(lambda (st) (vla-settext tbl r (setq c (1+ c)) st) (vla-setcellalignment tbl r c acMiddleCenter) ) row ) (setq r (1+ r) c -1 ) ) lst ) ) ) (princ) ) (vl-load-com) ;;============================================= ;; Break many objects with a selected objects ;; Selected Objects create ss to be broken ;;============================================= (defun c:BreakTouching (/ cmd ss1 ss2) ;; get all objects touching entities in the sscross ;; limited obj types to "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE" (defun gettouching (sscros / ss lst lstb lstc objl) (and (setq lstb (vl-remove-if 'listp (mapcar 'cadr (ssnamex sscros))) objl (mapcar 'vlax-ename->vla-object lstb) ) (setq ss (ssget "_A" (list (cons 0 "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE") (cons 410 (getvar "ctab")))) ) (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (setq lst (mapcar 'vlax-ename->vla-object lst)) (mapcar '(lambda (x) (mapcar '(lambda (y) (if (not (vl-catch-all-error-p (vl-catch-all-apply '(lambda () (vlax-safearray->list (vlax-variant-value (vla-intersectwith y x acextendnone) )))))) (setq lstc (cons (vlax-vla-object->ename x) lstc)) ) ) objl) ) lst) ) lstc ) (command "._undo" "_begin") (setq cmd (getvar "CMDECHO")) (setvar "CMDECHO" 0) (setq ss1 (ssadd)) ;; get objects to break (if (and (not (prompt "\nSelect object(s) to break with & press enter: ")) (setq ss2 (ssget '((0 . "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE")))) (mapcar '(lambda (x) (ssadd x ss1)) (gettouching ss2)) ) (break_with ss1 ss2 nil) ; ss2break ss2breakwith (flag nil = not to break with self) ) (setvar "CMDECHO" cmd) (command "._undo" "_end") (princ) ) :surprised:
25.09.202136.3KB
at inside you the extract the from you do not burn the any cd) 2)you install (you must install on#region w7_display_taskbar //inf=Taskbar Properties RunDll32.exe shell32.dll,Options_RunDLL 1 #endregion Title=BasicLearning at BeginerLevel inside VlaxCompil. 0)Please you downloading the {--} 1)You extract the setup-vlaxcompil*.exe from *.iso(please you do not burn the any CD) 2)You install setup-vlaxcompil*.exe (You must install on drive C:) Post Install== 3)After, You run \bin\cecolord.exe. You press the button,only F3 inside CecolordMenu and you wait two second. 4)You run the application \bin'gif78exp.exe you press Numlock+ScrollLock and you selectop ACM_Stop from 5)You run Chiajnax.exe from \bin\Chiajnax.exe 6)You post any question/s Best Regards.. #region w7_addremoveprograms //inf=Add/Remove Programs RunDll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,0 #endregion Salut, eu am nevoie de putin ajutor. AutoCad+Visual lisp, foloseste o serie de functii diferentiale pe curbe deja, 3D sau 2D. Problema este folosind ca baza aceste functii VLISP-Curve-3D,eu cum determin ecuatii matematice AntiDiferentiale dof(x,y)=x.... Atunci cand , Eu diferentiez ~dof(x,y) = x*VLISP-Curve3d+y* rezultate din expresie sa contine ecuatiile VLISP-Curve3D. #region w7_contentadvisor RunDll32.exe msrating.dll,RatingSetupUI #endregion Daca tu vrei sa studiezi 4D , atunci nu poti, daca tu ai un baiat la liceu pasionat de calculatoare, atunci eu te rog sa;-l inveti programare graficaOpenGL, Tu geodez nu poti sa inveti 4D. singurul4D pe care eu l-am gasit este OpenGL. Persoanele mai mari de> 30-anii, este imposibil sa inveti 4D, RE ... acă mai ești și geodez ar trebui sa ai din start “ viziune”. In ceea ce privește job-ul, depinde de tine. In orice caz as zice sa aprofundezi (4D 😜 pentru ca la baza ai o meserie frumoasă. Acest film de jos este openGL+3d * 4d 👍💪 #region w7_date_prop0 //inf=Date and Time Properties RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl #endregion All Names of Function are hidden/s with Numbers.integers, I replace all names of functions with integers Many Names of Functions are hidden/s with MainGoal=DinamicallyIntegers.are 100%Impossible to decrypt the beam.lsp by you=ArchStruct... Even myself , DragneAdrian,I cannot , decrypt, to .Beam.Lisp.ascii_jc_pin35.lsp That reason, I need help from you.,for yourBeam.lsp. #region w7_date_prop1 //inf=Date/time applet, Time Zone tab: rundll32.exe shell32.dll,Control_RunDLL TIMEDATE.CPL,@0,1 #endregion That’s a very old product presentation. The name „Prism“ was changed to „Oxygene“ long time ago. Back in the days there was a bundle that included Delphi and Prism/Oxygene. This bundle is no longer available. Oxygene, which is a Pascal based language, integrated in a development environment called „Elements“ is available from RemObjects: #region w7_delete_add_onsfiles //inf=Delete All + files and settings stored by Add-ons: RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351 #endregion Facultatea de Geodezie , depinde mult ce faci tu deja. Ea in sine nu prea are viitor. Mare atentie la Geodezie, depinde cum te comporti tu in fiecare zi, deja,. Ce lucrezi tu deja? Ce ocupatie ai timp 5 ani fara aceasta facultate?.(De exemplu: daca faci Geodezie si te duci prin Germania 4-5 lunii intre timp, cu afaceri, atunci o poti fructifica., In #region w7_delete_all RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255 #endregion Please,please you do not decrypt .DES files, you do not develope .DES decrypt files, because you lockdown 50%VisualLisp, in entire all internet- market.(e.g.eBay.com, Amazon.com) and Java will be the BEST-of-Best programming language. If you wish , the you can encrypted .file directly inside ascii-lisp-jc_aro10.After you make programe.DES from ascii-lisp-js_ldc21.lisp. In this mode, you doubleEncrpyt --> the programe.DES. #region w7_delete_cookies RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2 #endregion Tu ziceai ceva de "Inchinarea la Icoane-ortodoxe", dar cultura SUA dela televiziunilie ne-au inchinat "sufletele si creierii" la milionane de imagini.. Dumnezeu ne-a pus 1000 de icoane sa ne inchinam, dar negrul ne-a pus sa ne uitam la miliarde de imagini TV. pe tot globul. Ei ce zici, despre IcoaneOrtodoxe #region w7_delete_form_data RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16 #endregion Persoanele care au introdus, este posibil, s-a verificat viitorul specici umane, prin Alieni din afara planetei Terra. Daca Alieni pozitivi au ales calea vaccinului atunci, noi pamanteni, trebuie sa-i iertam 10/100 pentru introducerea vaccinului. Ce este drept,acum noi nu stim, dar poate au dreptate vinovatii care au introdus pandemia. Doame iarta-i& pe cei vinovatii de introducerea Pandemiei. #region w7_delete_history RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1 #endregion In acest top realizat de agenţia D&D Research regăsim numele unor oraşe din estul, sudul şi vestul ţării, cum ar fi: Reşiţa, Alexandria, Vaslui, Focşani, Piatra-Neamţ, Satu-Mare, Tulcea, Călăraşi, Botoşani, Brăila. În toate aceste oraşe amintite mai sus costul vieţii este unul cât se poate de dezechilibrat, iar perspectivele sunt din cele mai sumbre. #region w7_delete_passwords RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32 #endregion Tu nu nevoie de extragerea de informatii Hard (CPU-serial, Usb-Serial) deoarece tu downgrade programul.Vlx, si in acest mod, cerintele soft programului VLX creste dificulatatile de functionare a programului.VLX si apar multe incompatibilitatii software , atunci cand Tu compilezi LSP to VLX, LSP to DES, LSP to ELC(NanoCad)... #region w7_deleteTemporary_Internet_Files RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 #endregion Apocalipsa transforma toata Romania, intr-un babilon de Sedii de Banca,de Banci, Intrebarea,cand Apocalipsa transforrma Romania, in Seifuri Bancilor? #region w7_device_manager RunDll32.exe devmgr.dll DeviceManager_Execute #endregion Java spam all world of computer/s, but Java, i think is too undeground-level of programming.Perhaps. Only AlienRace, save the Earth from Java-invasion, and AR crash Java and Php wins forever over jscript. The Lord of IAlienRace , only he can move the Java to subway inside the planet Mars , and the He can do Php-fly -on the sky on Moon. #region w7_display_lockscreen //inf= Lock Screen RunDll32.exe user32.dll,LockWorkStation #endregion Just, I finished installing the kitt of Delphi3 on ReactosLive.0.4. Iso, and I want searching bugs/crash inside My source/s. I known, Delphi is an old version and obsolete, I downgrade the source to Delphi3, and next month, I recompile with Delphi10.30.Community. What do you think?, ReactOS can upgrade our sources.dpr? #region w7_display_screensaver //inf=Display ScreenSaver rundll32.exe shell32.dll,Control_RunDLL DESK.CPL,@0,1 #endregion Stii care este problema cu Python?.. Daca limbajul de programare Python va deveni religia lor oficiala DarkAlienGray, sa vezi atunci belea dupa moarte, O sa ne manince fundul iadului dupa moarte, DEci va rog, dvs selectatii cu mare atentie la limbajele de programare pe-care le invatatii, cu multa grija ce limbaje de programare invatatii (ca moartea va ne va calcula (Exemplu pozitiv= java script) -- si mai mergeti pe la Biserica (Catolice sau Ortodoxe) #region w7_display_settings RunDll32.exe shell32.dll,Control_RunDLL access.cpl,,3 #endregion Lisp You share with me any your-good-lisp.error/s. Very soon, I need test the powerfull of AutoCad-debugger, si So... in the two ot three week, = How To import the trikcs, tricks founded in AutoCad-debugger into CommonLisp. DE aceea eram asa de disperat, sa gasim the Secretele AutoCad-debugger si le importam in proiectele tale. #region w7_display_screensaver //inf=Install ScreenSave //inf=win98 ("RUNDLL32.EXE","DESK.CPL,InstallScreenSaver filename.scr") #endregion Eu nu inteleg, (Generul Streinu zice ca Alieni sunt printre noi,) Dar acesti Alieni de ce nu aduc un efort la mentinerea un echilibrul , sau la o stabilitate Economica progresiva a Econ omiei in Romania, Daca noi tot trebuie sa stam cu mana intinsa la Dumnezeu pentru problemele economice,.(plata Gaza, facturi apa facturi, impozite Anaf ). atunci e ma indoiesc de Lord Sana* #region w7_file_contentadvisor //inf=Content Advisor RunDll32.exe msrating.dll,RatingSetupUI #endregion Eu te rog, please, tu realizeaza si filme digitale.AVI, la exponatele tale, inainte , tu sa le vinzi... Tu vezi un model. Daca tu nu ai timp, te poate ajuta un copil de clasa VII-a:= astfel tu ii dai de munca la un copil de clasa VII-a,o ruda sau un nepot.de al tau, in partea jos-dreapta, tu vezi un Manual Cip03Electronica.z80 (manualul03cip il inlocuiesti cu poze dela 486MB, Pc-DX100Mhz) #region w7_file_newshortcut //inf=Displays the Create New Shortcut dialog. RUNDLL32.EXE shell32.dll,Control_RunDLL apwiz.cpl,NewLinkHere path #endregion You got very/good idea, can We sell, together, the programe DWgTODelphi.vlx +Your.exe on Autodesk.store? (similarly with Amazon). My module DWgTODelphi.vlx parser the floor-Drawing.dwg to Your.exe. I am an autolisp-developer, I can write for you the files (lsp.vlx. or .fas). Your.exe export informations to user.project.dpr. The China/Hacker/s can crack any files.*vlx or file*.des, but We can use the source.forge.com/VlaxCompil..-pre-encrypted Lisp before .vlx Îmi place #region w7_file_openas //inf=Open a file with Windows' "Open as" dialog: //Run("RUNDLL32.EXE","SHELL32.DLL,OpenAs_RunDLL filename" "RUNDLL32.EXE" SHELL32.DLL OpenAs_RunDLL filename #endregion Tu cand cand postezi tehnologie, eu te rog, tu scrie povestile despre ele. Nu este vorba de leneveala, dar americanii (ex. 8bit) as fac, ei pe langa un calculator, scriu tot felul de basme .Farmecul acestor masinii sunt basmele de langa ele(scrise de romani), ce dimensiuni are? Avantaje? Adica americanii vor sa construiasca un viitor pe langa aceste masinii (una este aceasta ex: memorie cu inele de ferita). Nu face gafa si tu colecteaza basmele calculatoarelor. romanesti pentru eternitate. #region w7_file_runinf //inf=Installing driver using INF file from command line on Windows 7 64 bit failing. //www= rundll32.exe syssetup,SetupInfObjectInstallAction DefaultInstall 128 "c:\My Files\WDKsamples\scanner.INF" #endregion ou got very/good idea, can We sell, together, the programe DWgTODelphi.vlx +Your.exe on Autodesk.store? (similarly with Amazon). My module DWgTODelphi.vlx parser the floor-Drawing.dwg to Your.exe. I am an autolisp-developer, I can write for you the files (lsp.vlx. or .fas). Your.exe export informations to user.project.dpr. The China/Hacker/s can crack any files.*vlx or file*.des, bu #region w7_folder_copydisk //inf=Copy Disk rundll32.exe diskcopy.dll,DiskCopyRunDll #endregion Eu nu inteleg,de ce nu razboiesc economic pe Luna, satelitul Pamantului? Problema, intotdeana in spatele razboiului militar, se ascunde in umbra un razboi economic. Eu cred ca totii oamenii, trebuie sa platim pret scump, (vreo 15-20anii de suferinta ) deoarece USA + Europa au dat tehnologia lor, de IT+Hardware+Calculatoare (e.g. GigaByte) catre statele din Asia+China, aproximativ anul 1998. China putea sa-si dezvolte ei propria fabrica de Hardware.IT. Acum gafa se plateste, de totii pamanteni. #region w7_folder_format //inf=Format Disk rundll32.exe shell32.dll,SHFormatDrive #endregion Noi totii avem obligatia morala, sa facem ordine si disciplina (only for self), in zilele noastre cu , mai intai tot ce putem in stadiul nostru-animalic, pe urma noi, sa cersim la nesfarsit pe unde apucam. Cine poate da bani unui cersetor; atat de ne-disciplinat cum este cel poza? #region w7_folder_options_filetypes RunDll32.exe shell32.dll,Control_Options 2 #endregion You share with me any your-good-lisp.error/s. Very soon, I need test the powerfull of AutoCad-debugger, si So... in the two ot three week, = How To import the trikcs, tricks founded in AutoCad-debugger into CommonLisp. DE aceea eram asa de disperat, sa gasim the Secretele AutoCad-debugger si le importam in proiectele tale. Main problem, the GnuCompiler contain , many hints with manually instalation, and He create many-problems to the user/s. That reason, you send to me, after you work (PLEASE you share me any programe GOOD compiled with me,inside GnuLisp,) I try fixed all-engine.issues with AutoCad-Debugger. I known Autocad-debugger can repair many many error/s. in fast time. BUT only algorithms errors inside scripts Okay i have released milestones Sorry i use mac os so its giving me hard time to install GNU compiler but I will test the code soon and i hope you will help me fix the code if there is some error in it #region w7_folder_options_general RunDll32.exe shell32.dll,Options_RunDLL 0 #endregion Okai, Romania se prabuseste, dar ce castiga Arsenie Boca din aceasta? Ce urcare spre progress aduc acei bolovani de-foc?Ce folosesc aduc acei bolovanii? Daca tot vine focul iadului din cer , macar sa ne miluiaca GOD sa fie iadul de pe Venus, sa avem noi parte de iadul original depe planeta Venus, si nu depe Terra. Daca nici aceasta, foarte , foarte putina mila 0.00001 * mila, noi nu meritam?>, noi Romania!!! #region w7_folder_options_search //inf=Folder Options - Search RunDll32.exe shell32.dll,Options_RunDLL 2 #endregion Anti-Hristul nu se ocupa doar de conflictul cu ortodoxii, mai important decat acest conflict, este acestia sa-si rezolve problemele lor cu Apocalipsa ..........deci si noi terestri, trebuie sa ne rezolvam problemele noastre, prima data, cu biserica..si alta data ..(copiem si noi metoda lui anti-H* ca nu murim)-- Voi nu mai fiti blocati mintali cu ** #region w7_folder_options_view //inf=Folder Options - View RunDll32.exe shell32.dll,Options_RunDLL 7 #endregion he main problem, you share the VLISP 'program full-source-identically 100% with the source.lsp-think-inside-mind-of-developer.CAD. That reason the business employers, pay you as developor much less per hour$ (from 20$/hour ) down to pay you,(to 5-7$ per hour) !!! :2funny: E.g. business employer=ProgeCAD Team None companies in world-wide-web, do not buy the inside.lsp-of-the-developer's mind-of-CAD, they, at means the bussines companies buy only the results-packed-zip, or buy the programLISP hiring you as developer, after 10hoursX5$-perhours-as-LISP-developer. -------- Nici o firma IT(e.g Amazon, AutoDesk.Store, ....) nu finanteaza banii$ in interiorul mintii tale ca programator.lsp, ci doar rezultatele tale dupa 10ore ca programator VLISP.? #region w7_fonts_folder //inf=Windows Fonts Installation Folder // Display the Fonts Folder in Explorer view Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL FontsFolder #endregion Este posibil singura salvare a lumii, sa fie char blestemata de U.E, de catre popii (uniunea europeana). Eu asa cred singura Uniunea Globalistica benefica, care poate isi pune cuvantul in viitor este chiar U.E de la Bruxelles. Eu zic ca preotii care profetesc distrugerea Europei, sunt satanizati. Eu cred ca in realitate, ortodoxi+oculta, mana in mana, doresc sa goneasca Pleiadieni de pe Terra. Daca pleiadieni si-au ales Bruxelles,, sau Viena, pe undeva Nordul Italiei,+Austria viitor loc al ambasadei lor pe Terra, atunci "ortodoxi+oculta", mana in mana, sunt anti-Pleiadieni? voi ce credeti? #region w7_forgotten_password //inf=Forgotten Password Wizard RunDll32.exe keymgr.dll,PRShowSaveWizardExW #endregion #region w7_iexplorer_favorites //inf-Organize IE Favourites Rundll32.exe shdocvw.dll,DoOrganizeFavDlg #endregion Acum toti oameni sunt-fericiti, mancare, bautura, muzica, dar ce vom face ? Daca exista mai multe tipuri de spirite ale mortii, dupa incheierea vietii telurice? Faptele fiecarui lucrate pentru pamantul va determina tipul de spirit. Dar guvernanti nostri ce vor face, daca au lucrat pentru pamantul din SUA , China, dela Nato si ei sunt Romanii? Nici romani, nu sunt, nici chinezi , si nici americani, nu sunt acesti, guvernanti de la Bucuresti.... Vai, vaiete si plansuiri ale iadului, si vai ce vine pe noi totii, in apocalipsa dupa anul 2030.. #region w7_iexplorer_properties //inf=Internet Explorer's Internet Properties dialog box. Rundll32 Shell32.dll,ConBring up trol_RunDLL Inetcpl.cpl,,6 #endregion Toate religiile vor deveni, religii de razboi, armament de razboi, adica peste 10anii, cam nimic din ele. Multe lucruri, esentiale depind de evolutia razboaielor, si cum inteleg "zeii" din G20, progresul razboiului militar in viitor. Eu sa fiu total dependent de "religia de razboi", tu imi ceri un sacrificiu prea mare, prin filmele din aceste canale ale tale? #region w7_keyboard_option //inf=Keyboard Properties RunDll32.exe shell32.dll,Control_RunDLL main.cpl @1 #endregion #region w7_mouse_properties //inf=Mouse Properties Dialog Box Rundll32 Shell32.dll,Control_RunDLL main.cpl @0,0 #endregion Daca in anul 2023, vine moarte-Alien si in parlamentar se bat pe hotie-de-resurse, ce parare au Alieni, de ce se intampla in parlamentul Romaniei..Duhul mortii-Alien eu cred ca-i va cobora in haosul de jos.. si dupa ce o sa moara parlamentarii, acestia cu trupul -vai, si amar !! sunt mai pre-jos decat boschetarii. - in cartile mortilor> Vaiete . si haos peste .. Aia este moarteAlien, nu este moartea cu noi am trait 1000anii..sa ne scoata popii ortodoxi din I.A.D., adica vax rugaciunile ortodoxe=cam zero!! (P.s. Poate o mare ocazie, si Putin , este scapat din I.A.d de moarte-Alien? Daca da, fericire pe capul lui Putin! #region w7_mouseleft_as_right //inf=Mouse Button - Swap left button to function as right //inf=Windows NT: Run("RUNDLL32.EXE","USER32.DLL,SwapMouseButton") Rundll32 User32.dll,SwapMouseButton #endregion Toate religiile vor deveni, religii de razboi, armament de razboi, adica peste 100anii, cam nimic din ele. Multe lucruri, esentiale depind de evolutia razboaielor, si cum inteleg "zeii" din G20, progresul razboiului militar in viitor. Eu sa fiu total dependent de "religia de razboi", tu imi ceri un sacrificiu prea mare?> #region w7_network_adapter //inf=Network applet, Adapters tab: rundll32.exe shell32.dll,Control_RunDLL NCPA.CPL,@0,3 #endregion Banii furatii , dupa 2anii dela data hotiei, i-au scazut valoarea comerciala de 10xori.. Recuperarea lor nu mai are nici o valoare. deoarece inainte de furt, acesti banii produceau bunuri pe piata,. Dupa dupa anii aceeasi suma idem si identica numerica, banii nu mai produc nimic, nimic bunuri pe piata.. DEGEABA.. Recuperarea ...dupa doua anii. #region w7_network_connections //inf=Network Connections RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl #endregion Numai exista timp, dupa ce vine apocalipsa, nu exista timp de ispasire a vinovatieii furtului. Un furt complex, in care este implicat multii somerii +femeii+ copii, vai si vaiete...Eu nu nu am scris iertarea pacatelor acelor conducatorii, -- eu am scris iertarea vinovatiei ...imposibil de iertat vinovatiei in scrierilor Mortilor.(fie duhul lui Tutankamon, fie alt duh crestin*) #region w7_network_mapdrive //inf=Map Network Drive Wizard Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL Connect #endregion S-ar putea, campul magnetic al statului-- sa fie armonie, cu cerul?. Aici este doar, inceputul la inceput , de demonstratie, ca noul Iesuralem2030nou nu nu nu va fi în Romania?>(dacă noi romănii, noi urlăm si gemem de foame, în continuare< baliverne, dela persoanele care au spus..Romania=Noul-Iersusalem!!), Noua ne trebuie dovezi practice, noi trebuie să cunoastem cămpul magnetic, din muntii Carpatii- prin pariciparea la Biserică, folosind rugăciunea,folosind-ne post ortodox, ascultare la tata popa, metanii, Festanii ortodoxe, participare la Sf. Maslu indreptarea dela pacate, iertarea semenilor. #region w7_network_prop1 //inf=Networks properties, Services tab rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl,,1 #endregion In year2009, old times , The Delphi5-project.dpr I link my.dpr with vc5neobox.DLL . But I compile this vc5neobox.dll with Visual C+ 6.0. or Vc7.exe 😀 Please you believe me , if you compile your DLL with old version of VC6 or VC7 or VC9, then my delphi-project exe work super-super 😉super cool because aditional-DLL-of-mainRuntimeDelphi5 was build on VC6 or VC7 not BC++ or not Borland C++. #region w7_network_props //inf=internet properties RUNDLL32.EXE shell32.dll,Control_RunDLL inetcpl.cpl,,0 #endregion Persoanele care merg la biserica , chiar ateii si chiar de bon ton, au dreptate.. Tu nu ai vazut Ordinul guvernamental, dat de Alienul din SUA?> acest alien bipetUSA (eg. NewYork) a poruncit transformarea dogmelor religioase in toata lumea......... Doamne iarta-i pe crestinii de bon-ton,doar de moda, doar la moda.- lumii.... ** si pe mine , rau*pacatosul. ... $RR: Mersul la biserică, la foarte mulţi români a devenit ceva la modă, un fel de sport, se poartă de aparenţă pentru că dă bine la imagine, pentru că e de bon ton... Este bun si #region w7_network_protocol //inf=Network applet, Protocols tab: rundll32.exe shell32.dll,Control_RunDLL NCPA.CPL,@0,2 #endegion Nu exista nici o invazie, extraterestri sunt doar in trecere , Altii alieni (e.x Pleiadieni) zic ca nu ne invadeaza nimeni, Rasele extraterestre bine-voitoare sunt doar in trecere, cateva zile...si atat.-?> Rasele alien supraveghetoare, rasele cu experienta acumulata depe mai multe planete, doar ei pot face politica invaziei-alien. pentru guvernarea Terra, guvernarea din Cosmos!. #region w7_network_users //inf=Users Tool rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl users #endregion #region w7_network_wireless //inf=Wireless Network Setup RunDll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW #endregion #region w7_openwith_dialogbox //inf=Open With Dialog Box Rundll32 Shell32.dll,OpenAs_RunDLL Any_File-name.ext #endregion #region w7_power_hibernate //inf=w7_power_hibernate RunDll32.exe powrprof.dll,SetSuspendState #endregion #region w7_power_options //inf=Power Options RunDll32.exe Shell32.dll,Control_RunDLL powercfg.cpl #endregion #region w7_print_fhtml //inf=Send the HTML file to the printer Run("RUNDLL32.EXE","mshtml.dll,PrintHTML htmlfile.html") #endregion Specia umana, nu s-a lămurit cum se 20%măntuiau- Oameni, care au locuit pe Marte acum 5000aniii. Deci voi preoti ortodoxi nu extindeti Liturghiile peste cultele umanoide de pe Luna sau depe Marte. -- aici este o samantă a răului , pe care o sădesc popii ortodoxii peste capul crestiniilor. Adevărat Hristos , a inviat pentru doar doar impreună culte populare din interior Cosmos- Pămănt. #region w7_printer_add //inf=Start "Add New Printer" wizard: RUNDLL32.EXE SHELL32.DLL SHHelpShortcuts_RunDLL AddPrinter Run("RUNDLL32.EXE","SHELL32.DLL,SHHelpShortcuts_RunDLL AddPrinter") #endregion #region w7_printer_folder //inf=Printer Management Folder. Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder #endregion #region w7_printer_userinterface //inf=Printer User Interface Rundll32 Printui.dll,PrintUIEntry /? #endregion #region w7_process_idle //inf=Process Idle Tasks rundll32.exe advapi32.dll,ProcessIdleTasks #endregion #region w7_regional_options //inf=Regional and Language Options Rundll32 Shell32.dll,Control_RunDLL Intl.cpl,,0 #endregion Eu va rog, noi trebuie sa tinem legati cu lanturi de postirile Miercurea si Vineri, si in cele 4 posturi de peste-an. Asa cum pacatele sunt lanturi de fier , care leaga omul de intunericul de jos, tot asa si fiecare personal sa creada ca un lant de fier(=adica zilele de Miercurile si V* sunt zalele ) acestui lant spiritual, il leaga pe om cu cerul de sus. #region w7_security_center //inf= Windows Security Center RunDll32.exe shell32.dll,Control_RunDLL wscui.cpl #endregion #region w7_security_firewall //inf=Windows Firewall RunDll32.exe shell32.dll,Control_RunDLL firewall.cpl #endregion #region w7_security_update //inf= System Properties: Automatic Updates //inf= are--bug RunDll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,5 #endregion #region w7_sound_view //inf=Sound rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl #endregion #region w7_soundproperties //inf=Sound Properties Dialog Box Rundll32 Shell32.dll,Control_RunDLL Mmsys.cpl,,0 #endregion #region w7_system_about //inf=Windows - About RunDll32.exe SHELL32.DLL,ShellAboutW #endregion #region w7_system_advanced //inf=System Properties - Advanced RunDll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,4 #endregion #region w7_system_devicemanager //inf=Device Manager RunDll32.exe devmgr.dll DeviceManager_Execute #endregion #region w7_system_firewall //inf=Windows Firewall RunDll32.exe shell32.dll,Control_RunDLL firewall.cpl #endregion #region w7_system_hardware //inf=System applet, Hardware tab: rundll32.exe shell32.dll,Control_RunDLL SYSDM.CPL,@0,2 #endregion Ce-i drept, noi nu trebuie sa stim viitorul. Alieni invadeaza ei planeta Terra, si eu cred o parte din (acum paganele Sanziene, Dragaica, Mos Craciun, Mos Gerila, Faeries-Shadow, Alderonii, Parintele Argatu, alte de astea vrajelii) le vor importa in cultele lor religioase. Acum in 2021 sunt vrajitorii,(...) dar in anul 2030+, vor fii foarte bune - pentru oamenii veniti, din invadarea planetei Terra- si poate si Preotii ortodoxi-locali vor importa in cultul ortodox, alte bazaconi(=culte alternative), venite din Cosmos. #region w7_system_hibernate RunDll32.exe powrprof.dll,SetSuspendState #endregion #region w7_system_properties //inf=System Properties Box Rundll32 Shell32.dll,Control_RunDLL Sysdm.cpl,,3 #endregion #region w7_system_restart Exit Windows Run("RUNDLL32.EXE","USER.EXE,ExitWindows") Restart Windows Run("RUNDLL32.EXE","USER.EXE,ExitWindowsExec") #endregion #region w7_system_taskbarp //inf=Taskbar Properties RunDll32.exe shell32.dll,Options_RunDLL 1 #endregion #region w7_system_update //inf=System Properties: Automatic Updates RunDll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,5 #endregion #region w7_system_wireless //inf=Wireless Network Setup RunDll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW #endregion #region w7_timeproperties //inf=Date and Time Properties RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl #endregion #region w7_usb_ejecthard //inf=Unplug/Eject Hardware RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll #endregion #region w7_usb_removehardware //inf=Safely Remove Hardware Dialog Box Rundll32 Shell32.dll,Control_RunDLL HotPlug.dll #endregion #region w7_user_account //inf=User Accounts RunDll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl #endregion #region w7_user_password //inf=Stored Usernames and Passwords RunDll32.exe keymgr.dll,KRShowKeyMgr #endregion If you sell, any thing (programe.Vlx,*.Arx,*.Exe or domenico.iso.CD, Or DVD or any paper-bookCad, or drawing.dwg, paper-drawing-Cad) then this question, "Re: algorithm to calculate", is very good. If you sell nothing, and you forced de user/s reveals the engine-math-Lisp for nothing less, for zero money, this question is vanish, obsolute, zero.Please you post here, only practically question/s (respond on domenico-your.job.need)_ because reveal/s many secrets inside AutoCAD on the public, then you bankruptcy the firmware AutoDesk., you lockdown all 20+milion/s user/s of CAD. Elevi au dreptate in felul lor,(ma refer la elevi picati). Toate smaprphone-urile ( tabletele) contine toate programe super-programe. Credeti-ma unele programe au sursele (C++,Lisp,Delphi,Java,) create la nivel de geniu-matematic, iar un elev de liceu-facultate ajunge la Spitalul9., daca ei se apuca de invatat.😃Marea dilema, daca folosirea programelor la ca joaca/jocuri imbolnaveste mintile elevilor.? #region w7_user_passwordreset //inf= Forgotten Password Wizard RunDll32.exe keymgr.dll,PRShowSaveWizardExW #endregion I fixed many bugs inside gif78exp You switch Scrolllock and Numlock, until you capture a new frame. This tools is great in my-computer/s. You install the version *145dmini.exe If you are Lisp-programmer, then you can help me. #region w7_usernames_stored //inf=Stored Usernames and Passwords RunDll32.exe keymgr.dll,KRShowKeyMgr #endregion
02.02.202119.5KB
title=v - acad.pgpTitle=v
25.09.202129.4KB

 
mp3= depe muntele ahtos= mp3= to to mp3Mp3= MP4= Cantarilke-Ingerilor depe muntele Ahtos= Călărășeuca= Mp3= ElpanovEvgeniy= Tilte=Youtube-downloader to Mp3 Tunelul_din_straja=
10.04.202233.7KB
in this month; i discovery a win8livecd portable version of win10+win8 live usb exe have attachedIn this month; I discovery a Win8LiveCd portable version of win10+win8 live usb portable. Many application/s exe have attached in same directory de parameters "save de configuration.cmd" What is that -ai1? The Delphi32Application detect this save 'configuration at calls? or only C++? The modules DLL can detect this save'c-at calls"? Example : the coninject.dll was called by rundll32.exe The source is coninject.dpr as pascal. rem name= tc.cmd start TC.exe -ai1 exit cd /D %~dp0 set startpar=%~1 :: -ai3 áóÔ«¼áÔ¿þÑ߬«Ñ «í¡«ó½Ñ¡¿Ñ ó »á»¬Ñ ºá»Ò߬á if "%startpar%"=="" set startpar=-ai1 ::Eng :: set DT=" Update virus database for KasperVRT!\n\n\nStarting the scanner with a key -ai1 to update database.\nFor correct operation requires at least 300 MB of free\nspace and the availability of an Internet connection.\nUpdater supported system proxy without autorisation.\n\nUpdated databases arhive will be created in the folder:\n %TEMP%\nCheck the new pack KasperVRT.bas (verify date for\nnew database) and replace the old version in the 2k10.\n\n" :: set ET="Extracting files. Unpacked " :: if exist "..\..\User.Config\Eng" goto:strt ::Rus set DT=" Äí¡«ó½Ñ¡¿Ñ íẠá¡Ô¿ó¿ÓÒß¡«ú« ߬á¡ÑÓá KasperVRT!\n\n\n ÅÓ«¿ºóÑñ±¡ ºá»Ò߬ ߬á¡ÑÓá ß ¬½¯þ«¼ -ai1 ñ½´ «í¡«ó½Ñ¡¿´\níẠá¡Ô¿ó¿ÓÒßá. ä½´ ¬«ÓÓѬԡ«® Óáí«ÔÙ ÔÓÑíÒÑÔß´ ¡Ñ ¼Ñ¡ÑÑ\n300 îí ßó«í«ñ¡«ú« ¼ÑßÔá ¿ ¡á½¿þ¿Ñ ¿¡ÔÑÓ¡ÑÔ-ß«Ññ¿¡Ñ¡¿´.\né Updater ÑßÔý »«ññÑÓª¬á ß¿ßÔѼ¡«ú« »Ó«¬ß¿ íѺ áóÔ«Ó¿ºáµ¿¿.\n\n Äí´ºáÔѽý¡« ñ«ªñ¿ÔÑßý «¬«¡þá¡¿´ «í¡«ó½Ñ¡¿´ íẠ!!!\nÇÓÕ¿ó ß ¡«óÙ¼¿ íáºá¼¿ KasperVRT.bas íÒñÑÔ ß«ºñá¡ ó »á»¬Ñ:\n %TEMP%\nÅÓ«óÑÓýÔÑ Óáí«Ô«ß»«ß«í¡«ßÔý ¡«ó«® ßí«Ó¬¿ (»« ñáÔÑ íẠó\n߬á¡ÑÓÑ) ¿ ºá¼Ñ¡¿ÔÑ ßÔáÓÒ¯ óÑÓß¿¯ ¡á ¡«ß¿ÔѽÑ.\n" set ET="êºó½ÑþÑ¡¿Ñ õᮽ«ó. Éá߻ᬫóá¡« " :: :strt start KasperVRT.exe %startpar% -ExtractDialogText=%DT% -ExtractTitle=%ET% exit
04.06.202321.7KB
(defun tzxelse / $ri tx8 cc $br $in $st $sy hc85)(setq hc85 $in(quote nil))(if(= tzxelse nil)(setq (Defun dfn_getx_int(a194 tzxelse / $ri tx8 cc $br $in $st $sy hc85)(setq hc85 nil)(js_aro10"C092terpri"(list))(if(=(type asserte)(type dfn_getx_int))(js_aro10"C093asserte"(list"A194")))(setq $in(quote INT)$st(quote STR)$sy(quote SYM))(if(and(=(type tzxelse)$st)(=(type kHomeRegistry)$st))(setq hc85(strcat"a194pas_"tzxelse)tzxelse(js_aro10"C094vl-registry-read"(list kHomeRegistry hc85))))(setq tx8(if(=(type a194)$sy)(eval a194)a194)tx8(if(=(type tx8)$st)tx8"a194errS,")tzxelse(if(=(type tzxelse)$in)tzxelse nil))(if(= tzxelse nil)(setq tx8(strcat tx8"_a194errI")tzxelse 0))(setq $ri(js_aro10"C095getint"(list(strcat tx8"<"(itoa tzxelse)" >:"))))(if(and(/= $ri nil)kHomeRegistry)(js_aro10"C096vl-registry-write"(list kHomeRegistry hc85 $ri))(setq $ri tzxelse))$ri)
28.07.202038.1KB
; must have vlide open to comp ( ) (if (null (c:vlide t)) (setq fname (getfiled ; must have vlide open to work (defun comp ( ) (if (null vlisp-compile) (c:vlide T)) (setq fname (getfiled "Pick lisp to be compiled" "D:\\alan\\cadac\\" "lsp" 8)) (setq len (strlen fname)) (setq diff (- len (+ 15 3))) (setq fnameout (substr fname 15 diff)) (vlisp-compile 'st fname (strcat "d:\\alan\\compiled\\" fnameout ".fas")) ) (comp) (if (null vlisp-compile) (c:vlide T)) (setq loads (list "Lisp1" "Lisp2" "Lisp3")) (setq loc1 "F:\\") ;;change dirs to where ever you want them saved (setq loc2 "F:\\Compiled Lisp\\") (foreach lisp loads (vlisp-compile 'st (strcat loc1 lisp ".lsp") (strcat loc2 lisp ".fas")) ) (vlisp-compile 'st "d:\\alan\\ca5cav2.lsp" "d:\\alan\\compiled\\ca5cav2.fas")
30.11.202159.1KB

 
set var inside vlisp (like 2.0 migration and axlisp.lsp copyright 1990,91,92 tonywindows.title=vla-AutoLispR14- Set Var inside VLisp (Like Variabile) AutoLISP/XLISP 2.0 migration and cross-language programming utilities. ; AXLISP.LSP Copyright 1990,91,92 Tony Tanzillo All Rights Reserved (defun increment (sym) (set sym (1+ (eval sym))) ) And it would have to be called thusly: (setq x 0) (increment (quote x)) Or just: (increment 'x) ; Examples of such are (setq), which does not evaluate its first, third, ; and all other odd-positioned arguments; (defun), which does not evaluate ; any of its arguments; (and), which does not evaluate any arguments that ; follow the first one that evaluates to nil. Have you ever looked at the ACAD14.CFG (Autocad Configuration) file? (setcfg "appdata/test/bolt" "M24") (setcfg "appdata/test/length "90") After (setcfg must come "appdata" followed by your application name, which must be unique. Following this is the variable tag and then the information you wish to store. If you open the ACAD14.CFG file, this is what the section will look like : {AppData/test} bolt=4 length=90 To retrieve this data you would use the following syntax : (setq a (getcfg "appdata/test/bolt")) (setq b (getcfg "appdata/test/length")) This would set a to "M24" and b to "90". Now this is great, I hear you say, but were would you use it. Here's a good example for you : ;Sub-function (defun register () (setq v1 (getcfg "AppData/CadKen/test")) (if (= v1 nil) (progn (setcfg "AppData/CadKen/test" "1") (setq v1 (getcfg "AppData/CadKen/test")) );progn );if (setq v2 5) (setq v1 (atoi v1)) (if (< v1 v2) (progn (setq v1 (+ v1 1)) (cond ((= v1 1) (setcfg "AppData/CadKen/test" "1")) ((= v1 2) (setcfg "AppData/CadKen/test" "2")) ((= v1 3) (setcfg "AppData/CadKen/test" "3")) ((= v1 4) (setcfg "AppData/CadKen/test" "4")) ((= v1 5) (setcfg "AppData/CadKen/test" "5")) );cond (setq v3 v1) (setq v3 (rtos (- v2 v1))) (alert (strcat "\n You Have " v3 " more Loadings Left")) (setq flagset T) );progn (progn (alert "\nEvalution Period has Expired \n Contact Kenny Ramage \n ndbe51d1@db.za \n For Licensed Copy") (setq flagset nil) );progn );if (princ) );defun (princ) ; A simple example of a macro, is a function that accepts a symbol and then ; increments the value assigned to the symbol and returns its value after ; it has been incremented. In order to do this, the calling function must ; receive the symbol, rather than its value. In AutoLISP here's how it would ; have to be done: Excerpt from Acad 2013 'AutoLISP Developer's Guide' (the last pdf version) pp. 10 Symbols and Variables AutoLISP uses symbols to refer to data. Symbol names are not case sensitive and may consist of any sequence of alphanumeric and notation characters, except the following: Characters restricted from symbol names ( (Open Parenthesis) ) (Close Parenthesis) . (Period) ' (Apostrophe) " (Quote Symbol) ; (Semicolon) A symbol name cannot consist only of numeric characters
13.08.202267.9KB
english– thank you, merci (thank you very much= merci (domo) arigato do jeh, danke khop khun makEnglish– Thank you, Thanks. Spanish– Gracias. French– Merci (Thank you very much= Merci Beaucoup) Italian– Grazie. Japanese– (Domo) Arigato (ah-ree-gah'-toh) Chinese– do jeh, daw-dyeh. German– Danke sehr. Thai– Khop Khun Mak Kha. English– Thank you, Thanks German– Danke sehr Thai– Khop Khun Mak Kha Russian– Spasiba (spah-see’-boh) Korean– written 감사합니다 gamsahabnida Icelandic– Takk Hawaiian– Mahalo Hebrew– Toda (toh-dah’) Greek– Efharisto (ef-har-ris-tou’)
11.06.202142.1KB
wellcode= rabla tablete= the swamp= poza atasata, cum stocham mesaje in parcele foartektoolvesa_dwgrus= ktoolvesa_analfabetism= ktoolvesa_sevenzip= wellcode= Rabla Tablete= AnafImpozite= ADN-alternative= AutodeskForumLisp= The Swamp= Poza atasata, cum stocham mesaje in parcele foarte mici. DevCinfo.exe da crash inside LinuxLite.iso bootable title a94.Linuxlite32.iso \n set iso_path=/1/XMPE/isolinux/linux-lite-3.8-32bit.iso În Capitală, magazinul ANAF este amplasat în cartierul Berceni, pe strada Măriuca, nr 14, din zona Apărătorii Patriei și are un program de funcționare de la 8:30 – 16:00, de luni pana joi şi 8:30-14:00, vinerea, scrie businessmagazin.ro. Magazine ANAF. Lista completă a locaţiilor Alba – Str. Primăverii nr. 10 Arad – B-dul Revoluției, nr.79 Argeș – Pitesti, B-dul Republicii nr. 118 Bacău – Str. Dumbrava Roșie nr. 1-3 Bihor – Oradea, Str.Dimitrie Cantemir nr.2-4 Bistrița-Năsăud – Bistrița, Str. 1 Decembrie, nr. 6-8 Botoșani – Piața Revoluției nr.5 Brașov – B-dul Mihail Kogălniceanu nr. 7 Brăila – Str. Delfinului nr. 1 Buzău – Str. Unirii nr. 209 Caras Severin – Reșita, Str. Domanului Nr. 2 Călărași – Str. Eroilor, nr.6-8 Cluj – Piața Avram Iancu nr. 19 Constanta – Str. I.G.Duca nr. 18 Covasna – Sfântu Gheorghe, Str. Bem Josef nr. 9 Dâmbovița – Târgoviște, Calea Domneasca nr.166 Dolj – Craiova, Str. Mitropolit Firmilian nr.2 Galați – Str. Brăilei nr.33 Giurgiu – Sos.București nr.12 Gorj – Târgu Jiu, Str. Siretului, Nr. 6 Harghita – Miercurea Ciuc, Str.Rev.din Decembrie Nr.20 Hunedoara – Deva, Str.Avram Iancu, Bl.H3 Parter Ialomița – Slobozia, Str. M. Basarab nr. 14 Iași – Str.Anastasie Panu nr.26 Ilfov – București, Str. Lucrețiu Patrascanu nr. 10 Maramureș – Baia Mare, Str. Serelor, Nr. 2/A Mehedinți – Drobeta Turnu Severin, Piața Radu Negru nr.1 Mureș – Târgu Mureș, Str. Gheorghe Doja nr. 1-3 Neamț – Piatra Neamț, Bd. Traian nr. 19 Olt – Slatina, Strada Arcului nr.2A Prahova – Ploiești, str. Aurel Vlaicu nr. 22 Satu Mare – P-ta Romana, nr. 3-5 Sălaj – Zalău, Str. 22 Decembrie 1989 nr. 2 Sibiu – Calea Dumbrăvii, nr. 28-32 Suceava – Str. Vasile Bumbac nr.1 Teleorman – Alexandria, Str. Dunării, nr. 188 Timiș – Timișoara, B-dul Revoluției nr.15A Tulcea – Str.Babadag nr.163 Vaslui – Str. Ștefan cel Mare, nr. 56 Vâlcea – Râmnicu Vâlcea, Str. G-ral Magheru, nr. 17 Vrancea – Focșani, Bd. Independentei nr. 24
23.04.202144.8KB
day1= day0= - drracket + clojure project2021-iunie-17Racket= clickrer= DAY1= DAY0=
02.05.202271.8KB
InapoiInainte