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

 O2TestUnicode
UTF-8

*/

uses unicode

/*
 sample unicode symbols

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

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


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

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


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

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

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



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

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

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


'print hex unic "😎"
'int c = ucode16 "😎"
'print hex c cr
'string s= uchr16(c)
'print s
string s,t
s="1😎2😎3😎4😎5😎"
't=umid16(s,7,5)
'print s cr t cr len(s) cr len (t) ""
t=umid16(s,-7,4)
print s cr t cr len(s) cr len (t) ""
print "😎😎😎😎" cr "😎😎😎😎"
string ww=string(20,"k") 'itr string on wide
 'print len ww



