
/*
 16:22 11/06/2019
 01:55 11/04/2025
 CP

 O2TestUnicode
LE and GE

*/

uses unicode

/*
 sample unicode symbols

 α β γ δ ε ζ η θ ι κ λ μ ν ξ ο π ρ ς τ υ φ χ ψ ω
 Α α, Β β, Γ γ, Δ δ, Ε ε, Ζ ζ, Η η, Θ θ, Ι ι, Κ κ, Λ λ, Μ μ, Ν ν, Ξ ξ, Ο ο, Π π, Ρ ρ, Σ σ/ς, Τ τ, Υ υ, Φ φ, Χ χ, Ψ ψ, Ω ω.
 Γ Δ Θ Λ Ξ Π Σ σ/ς Υ Φ Ψ Ω

 𑀲 𑁣 𑁜 𑁯 𑁡
 √ ∛ ∜∿≈
 ℂ ℝ ⅈ ⅉ
 ℱ ℒ ℛ
 ∑ ⨊ ⨁
 ≡ ∫ ∬ ∭
 ℇ ∞ ⧜ ⧝ ⧞
 ℯ, ⅇ
 😎 😇 😈 😋 😏 😌 😁 😀 ☻ ☺ ☠
 ⚽ ⚾ ⛒ ⚫ ☀ ⛯ ☁ ☎ ♞ ☔ ☲ ☰ ♠ ♣ ♥ ♦ ☚ ☛ ♜ ♒︎ ☝️🏿 ☘️ ⛺︎
 ⚞ ⚟ ⚠ ⚡ ⛉ ⛊ ⛋ ⛔ ⛛ ⛝ ⛶ ⚛ ⛬ ⛭ ⛯ ⛿ ☎ ☢ ⛰ ♫
 ☕︎ ☑️ ⛨ ⚑ ⚐ ⚅ 💬 🐑 🐧 🌴 🌐 ⏱ ⏲ 👓 👢 💎 🔈 🔇 📞 🔍
 📎 ✂ 🔧 ⚖ 💊 ⚱ ⚠ 🚫
 ➡ ⬆ ⬅ ⬇ ↖ ↩ ↪ 🔄 🔃 ☯ 🕉 ☸ ✡ 🔽 ⏮ ⏺ ☑ ➿ 🏴󠁧󠁢󠁥󠁮󠁧󠁿
*/


'in comments
// 📎 ✂ 🔧 ⚖ 💊 ⚱ ⚠ 🚫 
' 📎 ✂ 🔧 ⚖ 💊 ⚱ ⚠ 🚫 
/* 📎 ✂ 🔧 ⚖ 💊 ⚱ ⚠ 🚫 */
rem 📎 ✂ 🔧 ⚖ 💊 ⚱ ⚠ 🚫 
rem {
 📎 ✂ 🔧 ⚖
 💊 ⚱ ⚠ 🚫
} 

/*
int a=instr(l"abcd",l"bc")
print a '2
*/


/*
'messageboxw 0, L"Γεια σου κόσμο",l"Greeting",0
def string wstring
int α
α=3
string m=L"α value="+str(α)
'messageboxw 0, m,L"Variables",0
*/

/*
double φ, ϕ, π
φ = (sqr(5)+1)/2
ϕ = (sqr(5)-1)/2
π = pi()
wstring s=L"π, φ, ϕ >>" cr L"π" tab π  cr L"φ" tab φ cr L"ϕ" tab ϕ cr
print s
print s cr L"ok"
*/

/*
function fn☘️(float α) as float
return α * α
end function
'
'256☑️
' print statement must end with long string
print L" ⛰ "fn☘️(16) L""
*/



/*
wstring caption = L"English" tab L"Greek" tab L"Serbian" tab L"Chinese"
wstring term1   = L"House"   tab L"Σπίτι" tab L"Кућа"    tab L"屋"
wstring term2   = L"City"    tab L"Πόλη"  tab L"град"    tab L"市"

print caption + cr + term1 + cr + term2
*/

/*
double ∞ = 1/0
double ☠ = -∞
'wstring ♣ = str(☠)
'print L"⚫ " ♣
print L"⚫ " ☠ L""
*/


'print hex unic L"😎"
'int c = uspcode L"😎"
'print hex c cr
'wstring s= uspchr(c)
'print s
wstring s,t
s=L"1😎2😎3😎4😎5😎"
't=umid(s,7,5)
'print s cr t cr len(s) cr len (t) L""
t=umid(s,-7,4)
print s cr t cr len(s) cr len (t) L""
print L"😎😎😎😎" cr L"😎😎😎😎"
'wstring string(20,"ok")



