Interactive PowerBasic Forum

🚨 BREAKING: Russia Accuses Bill Gates of Funding Bioterrorism 🚨

In a shocking revelation, Russia's Ministry of Defense (MOD) has accused billionaire Bill Gates of funding "bioterrorism-related activities" with the alleged goal of population reduction.

During a high-stakes press briefing, Major General Aleksei Rtishchev, Deputy Chief of the Nuclear, Chemical, and Biological Protection Troops of the Russian Armed Forces, pointed fingers at the Gates Foundation, claiming it is a primary sponsor of the U.S. African Biolab Complex.

The allegations raise chilling questions about the involvement of global elites in dangerous biological research. Could this mark a turning point in the ongoing global debate about biolabs and their purpose? What is being hidden from the public?

The world waits for answers. 🌍
People-Mass Killer (https://slaynews.com/news/russian-military-blows-whistle-bill-gates-bioterrorism-reduce-population/)


Source (https://x.com/JimFergusonUK/status/1882382692454736253)

Ridiculous. Apparently you are always willing to swallow any Russian propaganda bullshit.

𝐷𝑜𝑛'𝑡 𝑤𝑜𝑟𝑟𝑦, Jose. 𝑆𝑜𝑚𝑒𝑡𝑖𝑚𝑒𝑠 𝐼 𝑗𝑢𝑠𝑡 𝑙𝑖𝑘𝑒 𝑡𝑜 𝑝𝑜𝑘𝑒 𝑦𝑜𝑢 𝑎 𝑏𝑖𝑡 𝑠𝑜 𝑡𝘩𝑎𝑡 𝐼 𝑐𝑎𝑛 𝑔𝑒𝑡 𝑎 𝑟𝑒𝑠𝑝𝑜𝑛𝑠𝑒 𝑎𝑛𝑑 𝑠𝑒𝑒 𝑡𝘩𝑎𝑡 𝑦𝑜𝑢'𝑟𝑒 𝑑𝑜𝑖𝑛𝑔 𝑜𝑘𝑎𝑦.

#𝐹𝑟𝑖𝑒𝑛𝑑𝑠𝘩𝑖𝑝 #𝐶𝑜𝑚𝑚𝑢𝑛𝑖𝑐𝑎𝑡𝑖𝑜𝑛 #𝐶𝘩𝑒𝑐𝑘𝐼𝑛 #𝑊𝑒𝑙𝑙𝑏𝑒𝑖𝑛𝑔 #𝐶𝑜𝑛𝑛𝑒𝑐𝑡𝑖𝑜𝑛

Almost three years ago you predicted that I would get AIDS, go blind and die (and other things that I don't remember). I'm still fine after 6 Covid vaccinations.

Hallo Jose, if you still want to discuss this topic, watch closely what happens in USA and be happy you are so healthy. They may shortly ban these dangerouse vaccinations.

QuoteAs of February 23, 2025, Robert F. Kennedy Jr., recently confirmed as the U.S. Health and Human Services Secretary, has expressed a nuanced stance on COVID-19 vaccinations. He has consistently claimed he is not "anti-vaccine" and supports vaccines in principle, including stating that his own children are vaccinated. However, he has raised significant concerns about the safety and approval processes of the COVID-19 vaccines, particularly the mRNA vaccines like Pfizer's.

Besides that, did you test Grok 3 already?
I have added it to the KI-Forwarders List in the Forum today.


Grok 3, built by xAI, excels in reasoning, offers vast, updated knowledge, analyzes content, searches web, assists users naturally.
Give it a try.
Grok 3 KI (https://grok.com/chat/)

The dangerous ones are these fascists in power, not the vaccines.

Grok 3? Apparently, a new AI is born every minute.

Yes, K.I. is a new Mega-Trend.
Maybe you shoud give it a try.
Currenty its free - later they will want $300 per Month for using it.

I asked it about that topic.

Quote😊Some people say Biden acted like a fascist during the coronavirus time because he made big rules that told people and companies what to do.
For example, he said everyone had to get a vaccine 💉 or wear masks 😷, even if they didn't want to.
He also told car companies they had to make more electric cars 🚗⚡.
To these people, that's like a bossy leader controlling everything, which they call fascism.

On the other hand, they say Trump isn't a fascist because he didn't like big rules.
He wanted people and businesses to decide things for themselves, like taking the government's hands off the wheel 🚘. So, less control, not more.

Think of it like this: Biden was like a strict teacher saying, "You MUST do this!" 📏
while Trump was more like, "Do what you want!" ✌️
That's why some call one fascist and not the other.
Does that make sense? 🌟

QuoteYes, K.I. is a new Mega-Trend.
Maybe you shoud give it a try.
Currenty its free - later they will want $300 per Month for using it.

300 a month? No thanks.

Hail Trump!

(https://www.samaa.tv/images/musk-nazi-salute-trump-inaguration-latest.jpg)

(https://img.etimg.com/thumb/width-1200,height-900,imgsize-26684,resizemode-75,msid-118456768/magazines/panache/steve-bannon-joins-the-nazi-salute-controversy-after-elon-musk-has-nazism-officially-taken-over-the-gop.jpg)

(https://imagenes.elpais.com/resizer/v2/M56E23DAUBHLLKSW7WPN367DVE.png?auth=a0ca498b6316e2f8b0d67a409c23612cc44fc82be3d3e18b9a3ec01ff5d30b55&width=1200&height=675&smart=true)

What so bad about Hailing someone?
It comes from "Healing" someone. Many people dot it.
Here you have Olaf Scholz and Habeck from the green-communist party.
So many people "want to be", yet they are not.

About Grok3, it has a Fokuswindow of ~128*3.5 kb, means that it can read large sourcecodes.
I used it the last days. If you can give it a (large?) sampe of sample code,
whatever it is - and then tell it "to make such code for XY". He will do that.
Its really amazong.

Just saw today the 300$ is for a full year.
Now i will wait for OpenAI's GPT 4.5 and then decide if this is better or Grok is better.

While if you code in direction VIsual Studio, people say that Claude 3.7 is now "sort of holy grail" for coding. Using the ne coding tool it can automatically read Include files and sourcecode and make a lot of stupid work automatically.

For me (Grok 3) is a 20-times speed multiplier for getting things done.
I wonder what it could be for you.

Its hard to give you code examples. Ok here is one.
Grok3 made it with a bit of sample code.
It would have cost me hours to do that. He even makes 3 times recursive macros if asked to do so.
See end of Script.

Now you might say "what sort of code is that and WHO knows this language?"
Thats completelly unimportant as long as you can give it some code-samples.
He will just code whatever you say in that style.
ITS AMAZING. SEE ...
'
'SPR Script-file: -
'Purpose:
'Author: Theo
'===========================================================
'#EXE:?path\
'#SPI:ForceWrite
#LIB:?path\..\Library

SAV.Save|$$LAA|$$LAB|$$LAC|$$LAD|$$COL|$$COA|$$ARR|$$RES
' Testet QUE.
'
'-----------------------------------------------------------
'
'-----------------------------------------------------------
$$MSG=(0) Teste ARS.New
ARS.New|$$ARR
JIZ.$$ARR|Lab_failed
ARS.Validate|$$ARR|$$RES
JIZ.$$RES|Lab_failed
ARS.End|$$ARR
'-----------------------------------------------------------
$$MSG=(2) Teste ARS.Validate mit ungültigem Handle
VAR.$$ARR=123434
ARS.Validate|$$ARR|$$RES
JNZ.$$RES|Lab_failed
'-----------------------------------------------------------
$$MSG=(3) Teste ARS.Add/Append mir "s" und Clear
$$NUM=5
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  VAR.$$LAB=X$$RESX
  ARS.Add|$$ARR|$$LAA
  ARS.Insert|$$ARR|1|$$LAB
NEX.
ARS.Count|$$ARR|$$RES
JIV.$$RES!($$NUM*2)|Lab_failed
ARS.Clear|$$ARR
ARS.Count|$$ARR|$$RES
JNZ.$$RES|Lab_failed
ARS.End|$$ARR
'-----------------------------------------------------------
$$MSG=(4) Teste ARS.Add/Append mir "i" und Clear
$$NUM=5
ARS.New|$$ARR|i
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  ARS.Add|$$ARR|$$RES
  CAL.$$LAC=$$NUM-$$RES
  ARS.Insert|$$ARR|1|$$LAC
NEX.
ARS.Count|$$ARR|$$RES
JIV.$$RES!($$NUM*2)|Lab_failed
ARS.Clear|$$ARR
ARS.Count|$$ARR|$$RES
JNZ.$$RES|Lab_failed
ARS.End|$$ARR
'-----------------------------------------------------------
$$MSG=(5) Teste ARS.Add/Append mir "f" und Clear
$$NUM=5
ARS.New|$$ARR|f
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  ARS.Add|$$ARR|$$RES
  CAL.$$LAC=$$NUM-$$RES/1.33
  ARS.Insert|$$ARR|1|$$LAC
NEX.
ARS.Count|$$ARR|$$RES
JIV.$$RES!($$NUM*2)|Lab_failed
ARS.Clear|$$ARR
ARS.Count|$$ARR|$$RES
JNZ.$$RES|Lab_failed
ARS.End|$$ARR
'-----------------------------------------------------------
$$MSG=(6) Teste ARS.Insert
$$LAA=Hallo
$$NUM=5
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
ARS.Insert|$$ARR|$$NUM|$$LAA
ARS.Count|$$ARR|$$LAD
JIV.$$LAD!6|Lab_failed
'ARS.Show|$$ARR
'-----------------------------------------------------------
$$MSG=(7) Teste ARS.Get
$$LAA=Hallo
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
ARS.Add|$$ARR|$$LAA
ARS.Count|$$ARR|$$LAD
JIV.$$LAD!1|Lab_failed
ARS.Get|$$ARR|1|$$LAB
JIV.$$LAB!$$LAA|Lab_failed
ARS.End|$$ARR
'-----------------------------------------------------------
$$MSG=(8) Teste ARS.Get
$$NUM=5
ARS.New|$$ARR|s
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  ARS.Add|$$ARR|$$LAA
NEX.
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  %TestVal $$ARR|$$RES|$$LAA
NEX.
ARS.End|$$ARR
'-----------------------------------------------------------
'-----------------------------------------------------------
'-----------------------------------------------------------
$$MSG=(9) Teste ARS.Get und ARS.Set
$$NUM=5
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  ARS.Add|$$ARR|$$LAA
NEX.
$$LAC=1
FOR.$$RES|$$NUM|1|-1 
  VAR.$$LAA=Text_$$LAC
  ARS.Set|$$ARR|$$RES|$$LAA
  %TestVal $$ARR|$$RES|$$LAA
  VIC.$$LAC 
NEX.
ARS.Count|$$ARR|$$LAD
JIV.$$LAD!$$NUM|Lab_failed
ARS.End|$$ARR
'-----------------------------------------------------------
$$MSG=(10) Teste ARS.Del
$$NUM=5
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  ARS.Add|$$ARR|$$LAA
NEX.
ARS.Del|$$ARR|1  
 ' Entfernt Text_4 (nach Verschiebung an Position 3), verbleiben Text_2, Text_3, Text_5
ARS.Del|$$ARR|3  

' Test verbleibende Elemente
$$RES=2
VAR.$$LAA=Text_$$RES
%TestVal $$ARR|1|$$LAA

$$RES=3
VAR.$$LAA=Text_$$RES
%TestVal $$ARR|2|$$LAA

$$RES=5
VAR.$$LAA=Text_$$RES
%TestVal $$ARR|3|$$LAA

ARS.Count|$$ARR|$$LAD
JIV.$$LAD!3|Lab_failed
ARS.End|$$ARR

'-----------------------------------------------------------
$$MSG=(11) Teste ARS.Get
$$NUM=5
ARS.New|$$ARR|s

'-----------------------------------------------------------
$$MSG=(12) Teste ARS.ToList
$$NUM=5
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  ARS.Add|$$ARR|$$LAA
NEX.
ARS.Count|$$ARR|$$NUM
JIV.$$NUM!5|Lab_failed
ARS.ToList|$$ARR|$$LST
LST.Count|$$LST|$$NUM
JIV.$$NUM!5|Lab_failed
LST.End All
ARS.End All
'-----------------------------------------------------------
$$MSG=(13) Teste ARS.ToQue
$$NUM=5
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  ARS.Add|$$ARR|$$LAA
NEX.
ARS.Count|$$ARR|$$NUM
JIV.$$NUM!5|Lab_failed
ARS.ToQue|$$ARR|$$QUE
QUE.Count|$$QUE|$$NUM
JIV.$$NUM!5|Lab_failed
QUE.End All
ARS.End All
'-----------------------------------------------------------
$$MSG=(14) Teste ARS.ToStck
$$NUM=5
ARS.New|$$ARR|s
JIZ.$$ARR|Lab_failed
FOR.$$RES|1|$$NUM
  VAR.$$LAA=Text_$$RES
  ARS.Add|$$ARR|$$LAA
NEX.
ARS.Count|$$ARR|$$NUM
JIV.$$NUM!5|Lab_failed
ARS.To Stack|$$ARR|$$STK
STK.Count|$$STK|$$NUM
JIV.$$NUM!5|Lab_failed
'ARS.Show|$$ARR|-
STK.End All
ARS.End All
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'-----------------------------------------------------------
$$MSG=(15) Test ARS.DualSort with integer and string arrays
ARS.New|$$ARA|i
ARS.New|$$ARB|s
ARS.Add|$$ARA|3
ARS.Add|$$ARA|1
ARS.Add|$$ARA|2
ARS.Add|$$ARB|Third
ARS.Add|$$ARB|First
ARS.Add|$$ARB|Second
ARS.DualSort|$$ARA|$$ARB

' Test ARA (Integer array) nach Sortierung
%TestVal $$ARA|1|1
%TestVal $$ARA|2|2
%TestVal $$ARA|3|3

' Test ARB (String array) nach Sortierung
%TestVal $$ARB|1|First
%TestVal $$ARB|2|Second
%TestVal $$ARB|3|Third

ARS.End|$$ARA
ARS.End|$$ARB
'-----------------------------------------------------------
$$MSG=(16) Test ARS.DualSort with string and integer arrays
ARS.New|$$ARA|s
ARS.New|$$ARB|i

ARS.Add|$$ARA|Banana
ARS.Add|$$ARA|Apple
ARS.Add|$$ARA|Cherry
ARS.Add|$$ARA|Aherry

ARS.Add|$$ARB|40
ARS.Add|$$ARB|30
ARS.Add|$$ARB|20
ARS.Add|$$ARB|10

ARS.DualSort|$$ARA|$$ARB

' Test ARA (String array) nach Sortierung
%TestVal $$ARA|1|Aherry
%TestVal $$ARA|2|Apple
%TestVal $$ARA|3|Banana
%TestVal $$ARA|4|Cherry

' Test ARB (Integer array) nach Sortierung
%TestVal $$ARB|1|10
%TestVal $$ARB|2|30
%TestVal $$ARB|3|40
%TestVal $$ARB|4|20

ARS.End|$$ARA
ARS.End|$$ARB
'-----------------------------------------------------------
$$MSG=(17) Test ARS.DualSort with string and float arrays
ARS.New|$$ARA|s
ARS.New|$$ARB|f

ARS.Add|$$ARA|Banana
ARS.Add|$$ARA|Apple
ARS.Add|$$ARA|Cherry
ARS.Add|$$ARA|Aherry

ARS.Add|$$ARB|40.4
ARS.Add|$$ARB|30.5
ARS.Add|$$ARB|20.2
ARS.Add|$$ARB|10.2

ARS.DualSort|$$ARA|$$ARB

' Test ARA (String array) nach Sortierung
%TestVal $$ARA|1|Aherry
%TestVal $$ARA|2|Apple
%TestVal $$ARA|3|Banana
%TestVal $$ARA|4|Cherry

' Test ARB (Float array) nach Sortierung
%TestVal $$ARB|1|10.2
%TestVal $$ARB|2|30.5
%TestVal $$ARB|3|40.4
%TestVal $$ARB|4|20.2

ARS.End|$$ARA
ARS.End|$$ARB
'-----------------------------------------------------------
$$MSG=(18) Test ARS.DualSort with string and string arrays
ARS.New|$$ARA|s
ARS.New|$$ARB|s

ARS.Add|$$ARA|Banana
ARS.Add|$$ARA|Apple
ARS.Add|$$ARA|Cherry
ARS.Add|$$ARA|Aherry

ARS.Add|$$ARB|40A
ARS.Add|$$ARB|30B
ARS.Add|$$ARB|20C
ARS.Add|$$ARB|10D

ARS.DualSort|$$ARA|$$ARB

' Test ARA (String array) nach Sortierung
%TestVal $$ARA|1|Aherry
%TestVal $$ARA|2|Apple
%TestVal $$ARA|3|Banana
%TestVal $$ARA|4|Cherry

' Test ARB (String array) nach Sortierung
%TestVal $$ARB|1|10D
%TestVal $$ARB|2|30B
%TestVal $$ARB|3|40A
%TestVal $$ARB|4|20C

ARS.End|$$ARA
ARS.End|$$ARB
'-----------------------------------------------------------
' Test DUALCOPY
'-----------------------------------------------------------
' Test 19: Test ARS.DualCopy from integer to integer with initialized empty array
VAR.$$MSG=(19) Test ARS.DualCopy from integer to integer with initialized empty array
ARS.New|$$ARR|i
JIZ.$$ARR|Lab_failed
ARS.New|$$ARB|i
JIZ.$$ARB|Lab_failed

ARS.Add|$$ARR|100
ARS.Add|$$ARR|200
ARS.Add|$$ARR|300
ARS.Add|$$ARR|400

ARS.DualCopy|$$ARR|$$ARB
ARS.Validate|$$ARB|$$RES
JIZ.$$RES|Lab_failed
ARS.Count|$$ARB|$$CNT
JIV.$$CNT!4|Lab_failed
%TestVal $$ARB|1|100
%TestVal $$ARB|2|200
%TestVal $$ARB|3|300
ARS.End|$$ARR
ARS.End|$$ARB
'-----------------------------------------------------------
' 1A. Integer to Integer, Float, String
'-----------------------------------------------------------
' Test 1A.1: Test ARS.DualCopy from integer to integer
VAR.$$MSG=(1A.1) Test ARS.DualCopy from integer to integer
%InitAndAddElements $$ARR|i|4|100
%InitArray $$ARB|i
%DualCopyAndValidate $$ARR|$$ARB|4|100
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1A.2: Test ARS.DualCopy from integer to float
VAR.$$MSG=(1A.2) Test ARS.DualCopy from integer to float
%InitAndAddElements $$ARR|i|4|100
%InitArray $$ARB|f
%DualCopyAndValidate $$ARR|$$ARB|4|100
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1A.3: Test ARS.DualCopy from integer to string
VAR.$$MSG=(1A.3) Test ARS.DualCopy from integer to string
%InitAndAddElements $$ARR|i|4|100
%InitArray $$ARB|s
%DualCopyAndValidate $$ARR|$$ARB|4|100
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' 1B. Integer to Integer, Float, String with Uninitialized Target Array
'-----------------------------------------------------------
' Test 1B.1: Test ARS.DualCopy from integer to integer with uninitialized target array
VAR.$$MSG=(1B.1) Test ARS.DualCopy from integer to integer with uninitialized target array
%InitAndAddElements $$ARR|i|4|100
%InitAndAddElements $$ARB|i|2|500
%DualCopyAndValidate $$ARR|$$ARB|4|100
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1B.2: Test ARS.DualCopy from integer to float with uninitialized target array
VAR.$$MSG=(1B.2) Test ARS.DualCopy from integer to float with uninitialized target array
%InitAndAddElements $$ARR|i|4|100
%InitAndAddElements $$ARB|f|2|5.5
%DualCopyAndValidate $$ARR|$$ARB|4|100
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1B.3: Test ARS.DualCopy from integer to string with uninitialized target array
VAR.$$MSG=(1B.3) Test ARS.DualCopy from integer to string with uninitialized target array
%InitAndAddElements $$ARR|i|4|100
%InitAndAddElements $$ARB|s|2|Text_5
%DualCopyAndValidate $$ARR|$$ARB|4|100
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' 2A. Float to Integer, Float, String
'-----------------------------------------------------------
' Test 2A.1: Test ARS.DualCopy from float to integer
VAR.$$MSG=(2A.1) Test ARS.DualCopy from float to integer
%InitAndAddElementsVar $$ARR|f|1.1|2.2|3.3|4.4
%InitArray $$ARB|i
%DualCopyAndValidateVar $$ARR|$$ARB|4|1|2|3|4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 2A.2: Test ARS.DualCopy from float to float
VAR.$$MSG=(2A.2) Test ARS.DualCopy from float to float
%InitAndAddElementsVar $$ARR|f|1.1|2.2|3.3|4.4
%InitArray $$ARB|f
%DualCopyAndValidateVar $$ARR|$$ARB|4|1.1|2.2|3.3|4.4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 2A.3: Test ARS.DualCopy from float to string
VAR.$$MSG=(2A.3) Test ARS.DualCopy from float to string
%InitAndAddElementsVar $$ARR|f|1.1|2.2|3.3|4.4
%InitArray $$ARB|s
%DualCopyAndValidateVar $$ARR|$$ARB|4|1.1|2.2|3.3|4.4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' 2B. Float to Integer, Float, String with Uninitialized Target Array
'-----------------------------------------------------------
' Test 2B.1: Test ARS.DualCopy from float to integer with uninitialized target array
VAR.$$MSG=(2B.1) Test ARS.DualCopy from float to integer with uninitialized target array
%InitAndAddElementsVar $$ARR|f|1.1|2.2|3.3|4.4
%InitAndAddElementsVar $$ARB|i|500|600
%DualCopyAndValidateVar $$ARR|$$ARB|4|1|2|3|4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 2B.2: Test ARS.DualCopy from float to float with uninitialized target array
VAR.$$MSG=(2B.2) Test ARS.DualCopy from float to float with uninitialized target array
%InitAndAddElementsVar $$ARR|f|1.1|2.2|3.3|4.4
%InitAndAddElementsVar $$ARB|f|5.5|6.6
%DualCopyAndValidateVar $$ARR|$$ARB|4|1.1|2.2|3.3|4.4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 2B.3: Test ARS.DualCopy from float to string with uninitialized target array
VAR.$$MSG=(2B.3) Test ARS.DualCopy from float to string with uninitialized target array
%InitAndAddElementsVar $$ARR|f|1.1|2.2|3.3|4.4
%InitAndAddElementsVar $$ARB|s|Text_5|Text_6
%DualCopyAndValidateVar $$ARR|$$ARB|4|1.1|2.2|3.3|4.4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' 3A. String to Integer, Float, String
'-----------------------------------------------------------
' Test 3A.1: Test ARS.DualCopy from string to integer
VAR.$$MSG=(3A.1) Test ARS.DualCopy from string to integer
%InitAndAddElementsVar $$ARR|s|100|200|300|400
%InitArray $$ARB|i
%DualCopyAndValidateVar $$ARR|$$ARB|4|100|200|300|400
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 3A.2: Test ARS.DualCopy from string to float
VAR.$$MSG=(3A.2) Test ARS.DualCopy from string to float
%InitAndAddElementsVar $$ARR|s|100|200|300|400
%InitArray $$ARB|f
%DualCopyAndValidateVar $$ARR|$$ARB|4|100|200|300|400
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 3A.3: Test ARS.DualCopy from string to string
VAR.$$MSG=(3A.3) Test ARS.DualCopy from string to string
%InitAndAddElementsVar $$ARR|s|Text_1|Text_2|Text_3|Text_4
%InitArray $$ARB|s
%DualCopyAndValidateVar $$ARR|$$ARB|4|Text_1|Text_2|Text_3|Text_4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' 3B. String to Integer, Float, String with Uninitialized Target Array
'-----------------------------------------------------------
' Test 3B.1: Test ARS.DualCopy from string to integer with uninitialized target array
VAR.$$MSG=(3B.1) Test ARS.DualCopy from string to integer with uninitialized target array
%InitAndAddElementsVar $$ARR|s|100|200|300|400
%InitAndAddElementsVar $$ARB|i|500|600
%DualCopyAndValidateVar $$ARR|$$ARB|4|100|200|300|400
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 3B.2: Test ARS.DualCopy from string to float with uninitialized target array
VAR.$$MSG=(3B.2) Test ARS.DualCopy from string to float with uninitialized target array
%InitAndAddElementsVar $$ARR|s|100|200|300|400
%InitAndAddElementsVar $$ARB|f|5.5|6.6
%DualCopyAndValidateVar $$ARR|$$ARB|4|100.0|200.0|300.0|400.0
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 3B.3: Test ARS.DualCopy from string to string with uninitialized target array
VAR.$$MSG=(3B.3) Test ARS.DualCopy from string to string with uninitialized target array
%InitAndAddElementsVar $$ARR|s|Text_1|Text_2|Text_3|Text_4
%InitAndAddElementsVar $$ARB|s|Text_5|Text_6
%DualCopyAndValidateVar $$ARR|$$ARB|4|Text_1|Text_2|Text_3|Text_4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test Cases for ARS.DualSort: Integer
' 1A. Integer to Integer, Float, String
'-----------------------------------------------------------
' Test 1A.1: Test ARS.DualSort from integer to integer
' Geht nicht - Fehler in DualSort
VAR.$$MSG=(1A.1) Test ARS.DualSort from integer to integer
%InitAndAddElementsSort $$ARR|i|400|300|200|100
%InitArray $$ARB|i
%DualSortAndValidateSort $$ARR|$$ARB|4|100|200|300|400
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1A.2: Test ARS.DualSort from integer to float
VAR.$$MSG=(1A.2) Test ARS.DualSort from integer to float
%InitAndAddElementsSort $$ARR|i|400|300|200|100
%InitArray $$ARB|f
%DualSortAndValidateSort $$ARR|$$ARB|4|100.0|200.0|300.0|400.0
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1A.3: Test ARS.DualSort from integer to string
' Funktioniert
VAR.$$MSG=(1A.3) Test ARS.DualSort from integer to string
%InitAndAddElementsSort $$ARR|i|400|300|200|100
%InitArray $$ARB|s
%DualSortAndValidateSort $$ARR|$$ARB|4|100|200|300|400
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' 1B. Integer to Integer, Float, String with Uninitialized Target Array
'-----------------------------------------------------------
' Test 1B.1: Test ARS.DualSort from integer to integer with initialized target array
VAR.$$MSG=(1B.1) Test ARS.DualSort from integer to integer with uninitialized target array
%InitAndAddElementsSort $$ARR|i|400|300|200|100
%InitAndAddElementsSort $$ARB|i|1|2|3|4
%DualSortAndValidateSort $$ARR|$$ARB|4|100|200|300|400
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1B.2: Test ARS.DualSort from integer to float with Initialized target array
VAR.$$MSG=(1B.2) Test ARS.DualSort from integer to float with uninitialized target array
%InitAndAddElementsSort $$ARR|i|400|300|200|100
%InitAndAddElementsSort $$ARB|f|1.1|2.2|3.3|4.4
%DualSortAndValidateSort $$ARR|$$ARB|4|100.0|200.0|300.0|400.0
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1B.3: Test ARS.DualSort from integer to string with uninitialized target array
VAR.$$MSG=(1B.3) Test ARS.DualSort from integer to string with uninitialized target array
%InitAndAddElementsSort $$ARR|i|400|300|200|100
%InitAndAddElementsSort $$ARB|s|Text_1|Text_2|Text_3|Text_4
%DualSortAndValidateSort $$ARR|$$ARB|4|100|200|300|400
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test Cases for ARS.DualSort: FP
' 1A. F to Integer, Float, String
'-----------------------------------------------------------
VAR.$$MSG=(1A.1) Test ARS.DualSort from float to integer (empty target)
%InitAndAddElementsSort $$ARR|f|400.0|300.0|200.0|100.0
%InitArray $$ARB|i
ARS.DualSort|$$ARR|$$ARB
' Note: This may fail, similar to original Test 1A.1 with integer source
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100.0
%TestVal $$ARR|2|200.0
%TestVal $$ARR|3|300.0
%TestVal $$ARR|4|400.0
' Check $$ARB count
ARS.Count|$$ARB|$$CNT
' Expect $$CNT = 0 (likely remains empty) or 4 (if populated)
' If $$CNT = 4, additional validation would be needed, but likely fails
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
VAR.$$MSG=(1A.2) Test ARS.DualSort from float to float (empty target)
%InitAndAddElementsSort $$ARR|f|400.0|300.0|200.0|100.0
%InitArray $$ARB|f
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100.0
%TestVal $$ARR|2|200.0
%TestVal $$ARR|3|300.0
%TestVal $$ARR|4|400.0
ARS.Count|$$ARB|$$CNT
' Check $$CNT, possibly 0 or 4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
VAR.$$MSG=(1A.3) Test ARS.DualSort from float to string (empty target)
%InitAndAddElementsSort $$ARR|f|400.0|300.0|200.0|100.0
%InitArray $$ARB|s
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100.0
%TestVal $$ARR|2|200.0
%TestVal $$ARR|3|300.0
%TestVal $$ARR|4|400.0
ARS.Count|$$ARB|$$CNT
' Check $$CNT, possibly 0 or 4
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------

'-----------------------------------------------------------
VAR.$$MSG=(1B.1) Test ARS.DualSort from float to integer (pre-initialized target)
%InitAndAddElementsSort $$ARR|f|400.0|300.0|200.0|100.0
%InitAndAddElementsSort $$ARB|i|1|2|3|4
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100.0
%TestVal $$ARR|2|200.0
%TestVal $$ARR|3|300.0
%TestVal $$ARR|4|400.0
%ValidateArray $$ARB
%CountElements $$ARB|4
%TestVal $$ARB|1|4
%TestVal $$ARB|2|3
%TestVal $$ARB|3|2
%TestVal $$ARB|4|1
%EndBothArrays $$ARR|$$ARB

'-----------------------------------------------------------
VAR.$$MSG=(1B.2) Test ARS.DualSort from float to float (pre-initialized target)
%InitAndAddElementsSort $$ARR|f|400.0|300.0|200.0|100.0
%InitAndAddElementsSort $$ARB|f|1.1|2.2|3.3|4.4
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100.0
%TestVal $$ARR|2|200.0
%TestVal $$ARR|3|300.0
%TestVal $$ARR|4|400.0
%ValidateArray $$ARB
%CountElements $$ARB|4
%TestVal $$ARB|1|4.4
%TestVal $$ARB|2|3.3
%TestVal $$ARB|3|2.2
%TestVal $$ARB|4|1.1
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
VAR.$$MSG=(1B.3) Test ARS.DualSort from float to string (pre-initialized target)
%InitAndAddElementsSort $$ARR|f|400.0|300.0|200.0|100.0
%InitAndAddElementsSort $$ARB|s|Text_1|Text_2|Text_3|Text_4
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100.0
%TestVal $$ARR|2|200.0
%TestVal $$ARR|3|300.0
%TestVal $$ARR|4|400.0
%ValidateArray $$ARB
%CountElements $$ARB|4
%TestVal $$ARB|1|Text_4
%TestVal $$ARB|2|Text_3
%TestVal $$ARB|3|Text_2
%TestVal $$ARB|4|Text_1
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test Cases for ARS.DualSort: String to
'
'-----------------------------------------------------------
VAR.$$MSG=(1A.1) Test ARS.DualSort from string to integer (empty target)
%InitAndAddElementsSort $$ARR|s|400|300|200|100
%InitArray $$ARB|i
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100
%TestVal $$ARR|2|200
%TestVal $$ARR|3|300
%TestVal $$ARR|4|400
ARS.Count|$$ARB|$$CNT
' Expect $$CNT = 0 (remains empty) or 4 (if populated)
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
VAR.$$MSG=(1A.2) Test ARS.DualSort from string to float (empty target)
%InitAndAddElementsSort $$ARR|s|400|300|200|100
%InitArray $$ARB|f
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100
%TestVal $$ARR|2|200
%TestVal $$ARR|3|300
%TestVal $$ARR|4|400
ARS.Count|$$ARB|$$CNT
' Expect $$CNT = 0 (remains empty) or 4 (if populated)
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
VAR.$$MSG=(1A.3) Test ARS.DualSort from string to string (empty target)
%InitAndAddElementsSort $$ARR|s|400|300|200|100
%InitArray $$ARB|s
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100
%TestVal $$ARR|2|200
%TestVal $$ARR|3|300
%TestVal $$ARR|4|400
ARS.Count|$$ARB|$$CNT
' Expect $$CNT = 0 (remains empty) or 4 (if populated)
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------

'-----------------------------------------------------------
VAR.$$MSG=(1B.1) Test ARS.DualSort from string to integer (pre-initialized target)
%InitAndAddElementsSort $$ARR|s|400|300|200|100
%InitAndAddElementsSort $$ARB|i|1|2|3|4
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100
%TestVal $$ARR|2|200
%TestVal $$ARR|3|300
%TestVal $$ARR|4|400
%ValidateArray $$ARB
%CountElements $$ARB|4
%TestVal $$ARB|1|4
%TestVal $$ARB|2|3
%TestVal $$ARB|3|2
%TestVal $$ARB|4|1
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
VAR.$$MSG=(1B.2) Test ARS.DualSort from string to float (pre-initialized target)
%InitAndAddElementsSort $$ARR|s|400|300|200|100
%InitAndAddElementsSort $$ARB|f|1.1|2.2|3.3|4.4
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100
%TestVal $$ARR|2|200
%TestVal $$ARR|3|300
%TestVal $$ARR|4|400
%ValidateArray $$ARB
%CountElements $$ARB|4
%TestVal $$ARB|1|4.4
%TestVal $$ARB|2|3.3
%TestVal $$ARB|3|2.2
%TestVal $$ARB|4|1.1
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
VAR.$$MSG=(1B.3) Test ARS.DualSort from string to string (pre-initialized target)
%InitAndAddElementsSort $$ARR|s|400|300|200|100
%InitAndAddElementsSort $$ARB|s|Text_1|Text_2|Text_3|Text_4
ARS.DualSort|$$ARR|$$ARB
%ValidateArray $$ARR
%CountElements $$ARR|4
%TestVal $$ARR|1|100
%TestVal $$ARR|2|200
%TestVal $$ARR|3|300
%TestVal $$ARR|4|400
%ValidateArray $$ARB
%CountElements $$ARB|4
%TestVal $$ARB|1|Text_4
%TestVal $$ARB|2|Text_3
%TestVal $$ARB|3|Text_2
%TestVal $$ARB|4|Text_1
%EndBothArrays $$ARR|$$ARB
'-----------------------------------------------------------
' Test 1: $$TAG Integer, $$SRC Integer
'-----------------------------------------------------------
VAR.$$MSG=(Test 1) ARS.SortByTag with $$TAG integer, $$SRC integer
%InitAndAddElementsSort $$TAG|i|3|1|4|2
%InitAndAddElementsSort $$SRC|i|30|10|40|20
ARS.SortByTag|$$TAG|$$SRC
%ValidateArray $$SRC
%CountElements $$SRC|4
%TestVal $$SRC|1|10
%TestVal $$SRC|2|20
%TestVal $$SRC|3|30
%TestVal $$SRC|4|40
%EndBothArrays $$TAG|$$SRC
'-----------------------------------------------------------
' Test 3: $$TAG Integer, $$SRC Float
'-----------------------------------------------------------
VAR.$$MSG=(Test 3) ARS.SortByTag with $$TAG integer, $$SRC float
%InitAndAddElementsSort $$TAG|i|3|1|4|2
%InitAndAddElementsSort $$SRC|f|3.0|1.0|4.0|2.0
ARS.SortByTag|$$TAG|$$SRC
%ValidateArray $$SRC
%CountElements $$SRC|4
%TestVal $$SRC|1|1.0
%TestVal $$SRC|2|2.0
%TestVal $$SRC|3|3.0
%TestVal $$SRC|4|4.0
%EndBothArrays $$TAG|$$SRC
'-----------------------------------------------------------
' Test 4: $$TAG Float, $$SRC Integer
'-----------------------------------------------------------
VAR.$$MSG=(Test 4) ARS.SortByTag with $$TAG float, $$SRC integer
%InitAndAddElementsSort $$TAG|f|3.0|1.0|4.0|2.0
%InitAndAddElementsSort $$SRC|i|30|10|40|20
ARS.SortByTag|$$TAG|$$SRC
%ValidateArray $$SRC
%CountElements $$SRC|4
%TestVal $$SRC|1|10
%TestVal $$SRC|2|20
%TestVal $$SRC|3|30
%TestVal $$SRC|4|40
%EndBothArrays $$TAG|$$SRC
'-----------------------------------------------------------
' Test 6: $$TAG Float, $$SRC Float
'-----------------------------------------------------------
VAR.$$MSG=(Test 6) ARS.SortByTag with $$TAG float, $$SRC float
%InitAndAddElementsSort $$TAG|f|3.0|1.0|4.0|2.0
%InitAndAddElementsSort $$SRC|f|30.0|10.0|40.0|20.0
ARS.SortByTag|$$TAG|$$SRC
%ValidateArray $$SRC
%CountElements $$SRC|4
%TestVal $$SRC|1|10.0
%TestVal $$SRC|2|20.0
%TestVal $$SRC|3|30.0
%TestVal $$SRC|4|40.0
%EndBothArrays $$TAG|$$SRC
'-----------------------------------------------------------
'***********************************
' ARS.Swap Testing Block
'***********************************

' Test 1: Integer Array Swap
$$MSG=Test 1 - Swapping elements in Integer array at indices 1 and 3
%InitArray $$ARR|i
%AddElement $$ARR|10
%AddElement $$ARR|20
%AddElement $$ARR|30
%AddElement $$ARR|40
%ValidateArray $$ARR
%CountElements $$ARR|4
VAR.$$INA=1
VAR.$$INB=3
ARS.Swap|$$ARR|$$INA|$$INB
%TestVal $$ARR|1|30
%TestVal $$ARR|3|10
%TestVal $$ARR|2|20
%TestVal $$ARR|4|40
%EndArray $$ARR
'-----------------------------------------------------------
' Test 2: FP Array Swap
$$MSG=Test 2 - Swapping elements in FP array at indices 2 and 3
%InitArray $$FLT|f
%AddElement $$FLT|1.1
%AddElement $$FLT|2.2
%AddElement $$FLT|3.3
%ValidateArray $$FLT
%CountElements $$FLT|3
VAR.$$INA=2
VAR.$$INB=3
ARS.Swap|$$FLT|$$INA|$$INB
%TestVal $$FLT|1|1.1
%TestVal $$FLT|2|3.3
%TestVal $$FLT|3|2.2
%EndArray $$FLT
'-----------------------------------------------------------
' Test 3: String Array Swap
$$MSG=Test 3 - Swapping elements in String array at indices 1 and 2
%InitArray $$STR|s
%AddElement $$STR|Cat
%AddElement $$STR|Dog
%AddElement $$STR|Rat
%ValidateArray $$STR
%CountElements $$STR|3
VAR.$$INA=1
VAR.$$INB=2
ARS.Swap|$$STR|$$INA|$$INB
%TestVal $$STR|1|Dog
%TestVal $$STR|2|Cat
%TestVal $$STR|3|Rat
%EndArray $$STR
'-----------------------------------------------------------
' Test 5: Same Index Swap (No Change Expected)
$$MSG=Test 5 - Swapping same index in Integer array
%InitArray $$SAM|i
%AddElement $$SAM|10
%AddElement $$SAM|20
%ValidateArray $$SAM
%CountElements $$SAM|2
VAR.$$INA=1
VAR.$$INB=1
ARS.Swap|$$SAM|$$INA|$$INB
%TestVal $$SAM|1|10
%TestVal $$SAM|2|20
%EndArray $$SAM
'-----------------------------------------------------------
'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------

'-----------------------------------------------------------
DMP.Speed
MBX.!Ende
END.
'-----------------------------------------------------------

'-----------------------------------------------------------
:Lab_passed
SAV.Restore
$$RES=108
ENR.
'===========================================================

:Lab_failed
MBX. Fehler in $script$ $crlf$bei $$MSG
$$RES=0
ENR.
'-----------------------------------------------------------

#INC:TX_Macros.mrt
'-----------------------------------------------------------
'
'-----------------------------------------------------------
' Macro to initialize an array with a given type
' P1 - Array Handle
' P2 - Array Type (i, s, f)
: %InitArray 2
ARS.New|§§§01|§§§02
JIZ.§§§01|Lab_failed
END%
'-----------------------------------------------------------
' Macro to add elements to an array
' P1 - Array Handle
' P2 - Element to add
: %AddElement 2
VAR.$$TMP=§§§02
ARS.Add|§§§01|$$TMP
END%
'-----------------------------------------------------------
' Macro to validate an array
' P1 - Array Handle
: %ValidateArray 1
ARS.Validate|§§§01|$$RES
JIZ.$$RES|Lab_failed
END%
'-----------------------------------------------------------
' Macro to count elements in an array
' P1 - Array Handle
' P2 - Expected Count
: %CountElements 2
ARS.Count|§§§01|$$CNT
JIV.$$CNT!§§§02|Lab_failed
END%
'-----------------------------------------------------------
' Macro to end an array
' P1 - Array Handle
: %EndArray 1
ARS.End|§§§01
END%
'-----------------------------------------------------------
' Macro to perform ARS.DualCopy
' P1 - Source Array Handle
' P2 - Destination Array Handle
: %DualCopy 2
ARS.DualCopy|§§§01|§§§02
END%
'-----------------------------------------------------------
' Macro to test a value in an array
' P1 - Array Handle
' P2 - Array Index
' P3 - Expected Value
: %TestVal 3
ARS.Get|§§§01|§§§02|$$TMP
JIV.$$TMP!§§§03|Lab_failed
END%
'-----------------------------------------------------------
' Macro to initialize and add elements to an array
' P1 - Array Handle
' P2 - Array Type (i, s, f)
' P3 - Number of Elements
' P4 - Element Prefix (e.g., Text_, 100, 1.1)
: %InitAndAddElements 4
%InitArray §§§01|§§§02
FOR.$$RES|1|§§§03
  %AddElement §§§01|§§§04$$RES
NEX.
END%
'-----------------------------------------------------------
' Macro to perform ARS.DualCopy and validate the result
' P1 - Source Array Handle
' P2 - Destination Array Handle
' P3 - Number of Elements
' P4 - Element Prefix (e.g., Text_, 100, 1.1)
: %DualCopyAndValidate 4
%DualCopy §§§01|§§§02
%ValidateArray §§§02
%CountElements §§§02|§§§03
FOR.$$RES|1|§§§03
  %TestVal §§§02|$$RES|§§§04$$RES
NEX.
END%
'-----------------------------------------------------------
' Macro to end both arrays
' P1 - Source Array Handle
' P2 - Destination Array Handle
: %EndBothArrays 2
%EndArray §§§01
%EndArray §§§02
END%
'-----------------------------------------------------------
' Macro to initialize and add elements to an array with variable number of elements
' P1 - Array Handle
' P2 - Array Type (i, s, f)
' P3 - Element 1
' P4 - Element 2 (optional)
' P5 - Element 3 (optional)
' P6 - Element 4 (optional)
: %InitAndAddElementsVar 3
%InitArray §§§01|§§§02
#IF PARAMS>=3
%AddElement §§§01|§§§03
#EIF
#IF PARAMS>=4
%AddElement §§§01|§§§04
#EIF
#IF PARAMS>=5
%AddElement §§§01|§§§05
#EIF
#IF PARAMS>=6
%AddElement §§§01|§§§06
#EIF
END%

' Macro to perform ARS.DualCopy and validate the result with variable number of expected values
' P1 - Source Array Handle
' P2 - Destination Array Handle
' P3 - Number of Elements
' P4 - Expected Value 1
' P5 - Expected Value 2 (optional)
' P6 - Expected Value 3 (optional)
' P7 - Expected Value 4 (optional)
: %DualCopyAndValidateVar 4
%DualCopy §§§01|§§§02
%ValidateArray §§§02
%CountElements §§§02|§§§03
#IF PARAMS>=4
%TestVal §§§02|1|§§§04
#EIF
#IF PARAMS>=5
%TestVal §§§02|2|§§§05
#EIF
#IF PARAMS>=6
%TestVal §§§02|3|§§§06
#EIF
#IF PARAMS>=7
%TestVal §§§02|4|§§§07
#EIF
END%

'-----------------------------------------------------------
' Macro to initialize and add elements to an array with variable number of elements for sorting
' P1 - Array Handle
' P2 - Array Type (i, s, f)
' P3 - Element 1
' P4 - Element 2 (optional)
' P5 - Element 3 (optional)
' P6 - Element 4 (optional)
: %InitAndAddElementsSort 3
%InitArray §§§01|§§§02
#IF PARAMS>=3
%AddElement §§§01|§§§03
#EIF
#IF PARAMS>=4
%AddElement §§§01|§§§04
#EIF
#IF PARAMS>=5
%AddElement §§§01|§§§05
#EIF
#IF PARAMS>=6
%AddElement §§§01|§§§06
#EIF
END%
'-----------------------------------------------------------
'
' Macro to perform ARS.DualSort and validate the result with variable number of expected values
' P1 - Source Array Handle
' P2 - Tag Array Handle
' P3 - Number of Elements
' P4 - Expected Value 1
' P5 - Expected Value 2 (optional)
' P6 - Expected Value 3 (optional)
' P7 - Expected Value 4 (optional)
: %DualSortAndValidateSort 4
ARS.Count|§§§02|$$CNT
ARS.DualSort|§§§01|§§§02
ARS.Count|§§§02|$$CNT
ARS.Get|§§§02|1|$$ONE
%ValidateArray §§§01
%ValidateArray §§§02
%CountElements §§§01|§§§03
%CountElements §§§02|§§§03
#IF PARAMS>=4
%TestVal §§§01|1|§§§04
#EIF
#IF PARAMS>=5
%TestVal §§§01|2|§§§05
#EIF
#IF PARAMS>=6
%TestVal §§§01|3|§§§06
#EIF
#IF PARAMS>=7
%TestVal §§§01|4|§§§07
#EIF
END%


'-----------------------------------------------------------
'
'-----------------------------------------------------------






@ Theo: I think that you are a real "brainless" Trump fan, Theo, also completely enthusiastic about musk and all the great artificial intelligences and you don't understand anything.. not even what's going on in Ukraine.. we live and talk to these people together in our city.. then: there are no green communists who say an Adolf greeting, neither Scholz nor Habeck.. it's a shame that you are so blinded

Hey Frank, what's your beef, buddy?
You're over here whining like a soap opera queen: 'Oh nooo, Trump's so baaad, I can't even!'

Calm down, grab a tissue, and tell me why.
I'm hearing a lot of feelings—very girly of you, honestly.

Is this an argument or a therapy session?
I thought Green Party folks like you were all about peace, love, and composting—why so emotional?
Are you secretly voting for the commie veggie brigade with all the ladies now?

I bet you've got a 'Save the Whales' sticker on your Prius!"

Check this out, Frank—attached is a fancy little chart
Gruene343545.png
that even your tofu-brain might get.

The USA is currently shelling out more cash to pay off its debt than to keep the military stocked with shiny tanks and freedom bombs. Yeah, you heard that right—Uncle Sam's credit card bill is bigger than his defense tab! If Trump doesn't do what he's doing—wrestling the budget like a rodeo champ—the whole financial system would crash harder than a hipster's artisanal kombucha stand in a thunderstorm.

Kaput. Donezo. No more avocado toast for anybody!

Look, whatever Trump's up to—whether he's tweeting memes or arm-wrestling world leaders—he's got no choice, man. The U.S. is like a broke college kid who maxed out Daddy's credit card on beer and pizza. If he doesn't fix this mess, the economy's gonna tank faster than a vegan at a barbecue. And don't smirk over there in Europe, Frank—you're next! Your fancy socialist paradise is gonna crumble like a stale baguette when the money runs dry. Trump's out here saving the day, and you're just mad because he's not doing it in Birkenstocks!*

*Grok3 is amazing, isn't?

I'm not even going to go down to your cheap black and white worldview level.. There's no point in arguing with you rationally.. Go ahead and watch all your self-centered, ruthless heroes, including all the super great AI's, and be happy with them.. In my eyes, you have your narrow, simple worldview and I'm not interested in it at all.. because we're all in a good mood and happy here.. are independent.. and that Egomaniac gangster complete idiot Trump is not particularly popular with his own party even in the USA and his days are numbered until they cancel him soon :-)

He is so crazy that he insults himself, despising the person who signed the treaty with Canada and Mexico, when he was the one who signed it.

The new friends of Trump: Russia, North Korea and Belarus.

Whats bad in being a friend?

If you don't see what's wrong with allying with dictators and antagonizing democracies, then you're worse off than I thought.

I am not friend with Dictators like Scholz & Co. ... Not so much.
I like free speech peope like Elon Musk. Look what he did with "X".

In return both of his appications ("X" and Grok") are now the most downloaded aps -  #1 and #2 in the Android Playstore.


Media22.jpg

Do you think that promoting hoaxes is freedom of speech?

General Mark Milley: We take an oath to the constitution not to a wannabe dictator (ie. Donald Trump).

FreeSp3.jpg

Freesp.jpg