Supernova Programming Language

---------------------------------
   Fiction Description Samples
---------------------------------
[1] ClickLoop
[2] ShutDown
[3] Question
[4] DownCounter
[5] UpCounter
[6] Counter
[7] Counter2
[8] Math
[9] Math2
[10] Logic
[11] Logic2
[12] CounterRange
[13] DynamicObjects
[14] Cases
[15] CheckAnswer
[16] Loops

Set window auto show off
 
I want window and the window name is mywin.
The window title is click me to get a new white window.
The window width is 350. and the window height is 200.
window top = 50.
You Show Window
 
mywin mouseclick. instructions are
        I want window and the window name is mywin2.
        window backcolor  = {255,255,255}. and window top = 100.
        The window title is click me to get a new red window.
        The window width is 350. and the window height is 200.
        You Show Window
End of instructions
 
mywin2 mouseclick. instructions are
        I want window and the window backcolor = {255,0,0}.
        window title = hello. and window top = 150.
        The window title is click me to close the application.
        The window name is mywin3.
        The window width is 350. and the window height is 200.
        You Show Window
End of instructions
 
mywin3 mouseclick. instructions are
        You close application
End of instructions

i want window and the window title is Welcome.
 
i want button and button caption equal Close. 
the button top = 50. and button name = btn1.
 
btn1 mouseclick. instructions are 
        i want label and label caption = Really!!!.
        the label top = 100. 
        i want button and button caption = Yes.
        the button top = 150. and button name = btn2.
        i want button and button caption = No.
        the button top = 150. and button name = btn3.
        the button left = 150.
end of instructions
 
btn2 mouseclick. instructions are you close window ok
 
btn3 mouseclick. instructions are label caption is Great. ok

I want window and the window title is Welcome.
Window width = 250. and window height = 350.
 
I want label and the label top = 50. and label width = 200. 
the label caption = What is your name ?.
 
I want textbox and textbox top = 100. 
textbox back color = {0,255,0}.
 
I want button and button caption equal Say Hello. 
The button top = 150. and button name = btn1. 
btn1 mouseclick. instructions are
        textbox value to [name]. 
        the window title from (Hello )[name].
end of instructions
 
I want button and button caption equal Close. 
the button top = 200. and button name = btn2. 
btn2 mouseclick. instructions are You Close window ok

i want window and the window title is Down Counter.
Window width = 250. and window height = 250.
i want textbox and textbox top = 30. and textbox back color = {0,255,0}.
i want button and button caption equal Count. 
The button top = 70. and button name = btn1. 
btn1 mouseclick. instructions are
        textbox value to [num1]. and textbox value from [num1]-(1).
end of instructions
i want button and button caption equal Close. and the 
button top = 130. and button name = btn2. and the 
btn2 mouseclick. instructions are You Close window ok

i want window and the window title is Up Counter.
Window width = 250. and window height = 250.
i want textbox and textbox top = 30. and textbox back color = {0,255,0}.
i want button and button caption equal Count. 
The button top = 70. and button name = btn1. 
btn1 mouseclick. instructions are
        textbox value to [num1]. and textbox value from [num1]+(1).
end of instructions
i want button and button caption equal Close. and the
 button top = 130. and button name = btn2. and the
 btn2 mouseclick. instructions are You Close window ok
 

 
Application Files
-------------------
        1 - CounterApp.nova
        2 - UpCounter.nova
        3 - DownCounter.nova

"upcounter.nova" file instructions must done
"downcounter.nova" file instructions must done

i want window and the window title is Up Counter.
Window width = 250. and window height = 250.
i want textbox and textbox top = 30. and textbox back color = {0,255,0}.
the textbox name is up_text1.
i want button and button caption equal Count. 
The button top = 70. and button name = up_btn1. 
up_btn1 mouseclick. instructions are
        up_text1. textbox selected
        textbox value to [num1]. and textbox value from [num1]+(1).
end of instructions
i want button and button caption equal Close. and the button top = 130. and 
button name = up_btn2. and the up_btn2 mouseclick. instructions are You Close window ok

i want window and the window title is Down Counter.
window left = 350.
Window width = 250. and window height = 250.
i want textbox and textbox top = 30. and textbox back color = {0,255,0}.
the textbox name is down_Text1.
i want button and button caption equal Count. 
The button top = 70. and button name = down_btn1. 
down_btn1 mouseclick. instructions are
        down_text1. textbox selected
        textbox value to [num1]. and textbox value from [num1]-(1).
end of instructions
i want button and button caption equal Close. and the button top = 130. and 
button name = down_btn2. and the down_btn2 mouseclick. instructions are You Close window ok

"downcounter.nova" file instructions must done
"upcounter.nova" file instructions must done
 
The application title is "Counter (2)"
 
I want window 
The window title is "Counter2"
The window backcolor is {255,255,255}.
The window name is the main window.
 
I want menubar 
I want menu popup and menu popup caption is "File"
        I want menu item and the menu item caption is "Up Counter"
        The menu item name is myitem1.
        myitem1 mouseclick. instructions are
               myup. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Down Counter"
        The menu item name is myitem2.
        myitem2 mouseclick. instructions are
               mydown. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Exit"
        The menu item name is myitem3.
        myitem3 mouseclick. instructions are
               You close application
        End of instructions
 
 
I want statusbar and i want status item and the status item caption is Ready.
 
You maximize window

myup. instructions are
 
i want window and the window title is Up Counter.
Window width = 250. and window height = 250. and window top = 100.
The window parent is the main window.
 
i want textbox and textbox top = 30. and textbox back color = {0,255,0}.
the textbox name is up_text1.
 
i want button and button caption equal Count. 
The button top = 70. and button name = up_btn1. 
 
up_btn1 mouseclick. instructions are
        up_text1. textbox selected
        textbox value to [num1]. and textbox value from [num1]+(1).
end of instructions
 
i want button and button caption equal Close.
the button top = 130. and button name = up_btn2. 
the up_btn2 mouseclick. instructions are You Close window ok
 
ok

mydown. instructions are
 
i want window and the window title is Down Counter.
window top = 100. and window left = 350.
Window width = 250. and window height = 250.
 
The window parent is the main window.
 
i want textbox and textbox top = 30. and textbox back color = {0,255,0}.
the textbox name is down_Text1.
 
i want button and button caption equal Count. 
The button top = 70. and button name = down_btn1. 
 
down_btn1 mouseclick. instructions are
        down_text1. textbox selected
        textbox value to [num1]. and textbox value from [num1]-(1).
end of instructions
 
i want button and button caption equal Close. 
the button top = 130. and button name = down_btn2. 
the down_btn2 mouseclick. instructions are You Close window ok
 
ok

"sumapp.nova" file instructions must done
"minapp.nova" file instructions must done
"mulapp.nova" file instructions must done
"divapp.nova" file instructions must done

Set Window Auto Show Off
 
I want window and the window title is Sum. 
Window top = 20. and window left = 50.
Window width = 250. and Window height = 250.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = sum_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = sum_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = sum_btn1.
sum_btn1 mouseclick. instructions are
        sum_txt1. textbox selected and store textbox value to [num1].
        sum_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]+[num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = Sum_btnClose.
sum_btnclose mouseclick. instructions are you close window ok
 
You Show Window

set window auto show off
 
I want window and the window title is Min.
Window top = 20. and window left = 350.
Window width = 250. and Window height = 250.
Window backcolor = {255,0,0}.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = min_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = min_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = min_btn1.
min_btn1 mouseclick. instructions are
        min_txt1. textbox selected and store textbox value to [num1].
        min_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]-[num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = min_btnClose.
min_btnclose mouseclick. instructions are you close window ok
 
you show window

set window auto show off
 
I want window and the window title is Mul. 
Window top = 300. and window left = 50.
Window width = 250. and Window height = 250.
Window Back Color = {0,255,0}.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = mul_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = mul_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = mul_btn1.
mul_btn1 mouseclick. instructions are
        mul_txt1. textbox selected and store textbox value to [num1].
        mul_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]x[num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = mul_btnClose.
mul_btnclose mouseclick. instructions are you close window ok
 
you show window

Set Window Auto Show off
 
I want window and the window title is Div.
Window top = 300. and window left = 350.
Window width = 250. and Window height = 250.
Window Back Color = {0,0,255}.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = div_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = div_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = btn1.
btn1 mouseclick. instructions are
        div_txt1. textbox selected and store textbox value to [num1].
        div_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]/[num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = btnClose.
btnclose mouseclick. instructions are you close window ok
 
You Show Window
 

 
 

 
Application Files
-------------------
        1 - MathApp2.nova
        2 - SumApp.nova
        3 - MinApp.nova
        4 - MulApp.nova
        5 - DivApp.nova

"sumapp.nova" file instructions must done
"minapp.nova" file instructions must done
"mulapp.nova" file instructions must done
"divapp.nova" file instructions must done
 
The application title is "Math (2)"
 
I want window 
The window title is "Math2"
The window backcolor is {255,255,255}.
The window name is the main window.
 
I want menubar 
I want menu popup and menu popup caption is "File"
        I want menu item and the menu item caption is "Sum (+)"
        The menu item name is myitem1.
        myitem1 mouseclick. instructions are
               mysum. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Min (-)"
        The menu item name is myitem2.
        myitem2 mouseclick. instructions are
               mymin. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Mul (x)"
        The menu item name is myitem3.
        myitem3 mouseclick. instructions are
               mymul. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Div (/)"
        The menu item name is myitem4.
        myitem4 mouseclick. instructions are
               mydiv. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Exit"
        The menu item name is myitem5.
        myitem5 mouseclick. instructions are
               You close application
        End of instructions
 
 
I want statusbar and i want status item and the status item caption is Ready.
 
You maximize window

mysum. instructions are
 
Set Window Auto Show Off
 
I want window and the window title is Sum. 
Window top = 20. and window left = 50.
Window width = 250. and Window height = 250.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = sum_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = sum_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = sum_btn1.
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = Sum_btnClose.
 
The window parent is the main window.
You Show Window
 
end of instructions
 
sum_btn1 mouseclick. instructions are
        sum_txt1. textbox selected and store textbox value to [num1].
        sum_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]+[num2].
End of instructions
 
sum_btnclose mouseclick. instructions are you close window ok

mymin. instructions are
 
set window auto show off
 
I want window and the window title is Min.
Window top = 20. and window left = 350.
Window width = 250. and Window height = 250.
Window backcolor = {255,0,0}.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = min_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = min_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = min_btn1.
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = min_btnClose.
 
The window parent is the main window.
you show window
 
end of instructions
 
min_btn1 mouseclick. instructions are
        min_txt1. textbox selected and store textbox value to [num1].
        min_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]-[num2].
End of instructions
 
min_btnclose mouseclick. instructions are you close window ok

mymul. instructions are
 
set window auto show off
 
I want window and the window title is Mul. 
Window top = 300. and window left = 50.
Window width = 250. and Window height = 250.
Window Back Color = {0,255,0}.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = mul_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = mul_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = mul_btn1.
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = mul_btnClose.
 
The window parent is the main window.
you show window
 
end of instructions
 
mul_btn1 mouseclick. instructions are
        mul_txt1. textbox selected and store textbox value to [num1].
        mul_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]x[num2].
End of instructions
 
 
mul_btnclose mouseclick. instructions are you close window ok

mydiv. instructions are
 
Set Window Auto Show off
 
I want window and the window title is Div.
Window top = 300. and window left = 350.
Window width = 250. and Window height = 250.
Window Back Color = {0,0,255}.
 
I want label and the label caption is Number (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Number (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = div_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = div_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = btn1.
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = btnClose.
 
The window parent is the main window.
You Show Window
 
end of instructions
 
btn1 mouseclick. instructions are
        div_txt1. textbox selected and store textbox value to [num1].
        div_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1]/[num2].
End of instructions
 
 
btnclose mouseclick. instructions are you close window ok
 
 

 
 
Application Files
-------------------
        
        1 - LogicApp.nova
        2 - AndApp.nova
        3 - OrApp.nova
        4 - NotApp.nova

"andapp.nova" file instructions must done
"orapp.nova" file instructions must done
"notapp.nova" file instructions must done

Set Window Auto Show Off
 
I want window and the window title is And. 
Window top = 20. and window left = 350.
Window width = 250. and Window height = 250.
 
I want label and the label caption is Value (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Value (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = log_and_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = log_and_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = log_and_btn1.
 
log_and_btn1 mouseclick. instructions are
        log_and_txt1. textbox selected and store textbox value to [num1].
        log_and_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1] and [num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = log_and_btnClose.
log_and_btnclose mouseclick. instructions are you close window ok
 
You Show Window

Set Window Auto Show Off
 
I want window and the window title is OR. 
Window top = 20. and window left = 50.
Window width = 250. and Window height = 250.
 
I want label and the label caption is Value (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Value (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = OR_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = OR_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = OR_btn1.
OR_btn1 mouseclick. instructions are
        OR_txt1. textbox selected and store textbox value to [num1].
        OR_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1] OR [num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = OR_btnClose.
OR_btnclose mouseclick. instructions are you close window ok
 
You Show Window

Set Window Auto Show Off
 
I want window and the window title is Not. 
Window top = 300. and window left = 50.
Window width = 250. and Window height = 250.
 
I want label and the label caption is Value.
Label top = 50. and label width = 80.
 
I want textbox and the textbox name = Not_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = Not_btn1.
Not_btn1 mouseclick. instructions are
        Not_txt1. textbox selected and store textbox value to [num1].
        The window title from not [num1].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = Not_btnClose.
Not_btnclose mouseclick. instructions are you close window ok
 
You Show Window
 

 
 
Application Files
-------------------
 
        1 - LogicApp2.nova
        2 - AndApp.nova
        3 - OrApp.nova
        4 - NotApp.nova

"andapp.nova" file instructions must done
"orapp.nova" file instructions must done
"notapp.nova" file instructions must done
 
The application title is "Logic (2)"
 
I want window 
The window title is "Logic2"
The window backcolor is {255,255,255}.
The window name is the main window.
 
I want menubar 
I want menu popup and menu popup caption is "File"
        I want menu item and the menu item caption is "And"
        The menu item name is myitem1.
        myitem1 mouseclick. instructions are
               myand. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Or"
        The menu item name is myitem2.
        myitem2 mouseclick. instructions are
               myor. instructions must done
        End of instructions
        I want menu item and the menu item caption is "Not"
        The menu item name is myitem3.
        myitem3 mouseclick. instructions are
               mynot. instructions must done
        End of instructions
 
        I want menu item and the menu item caption is "Exit"
        The menu item name is myitem4.
        myitem4 mouseclick. instructions are
               You close application
        End of instructions
 
 
I want statusbar and i want status item and the status item caption is Ready.

myand. instructions are
 
Set Window Auto Show Off
 
I want window and the window title is And. 
Window top = 20. and window left = 350.
Window width = 250. and Window height = 250.
 
I want label and the label caption is Value (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Value (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = log_and_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = log_and_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = log_and_btn1.
 
log_and_btn1 mouseclick. instructions are
        log_and_txt1. textbox selected and store textbox value to [num1].
        log_and_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1] and [num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = log_and_btnClose.
log_and_btnclose mouseclick. instructions are you close window ok
 
The window parent is the main window.
You Show Window
 
end of instructions

myor. instructions are
 
Set Window Auto Show Off
 
I want window and the window title is OR. 
Window top = 20. and window left = 50.
Window width = 250. and Window height = 250.
 
I want label and the label caption is Value (1).
Label top = 50. and label width = 80.
 
I want label and the label caption is Value (2).
Label top = 100. and label width = 80.
 
I want textbox and the textbox name = OR_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want textbox and the textbox name = OR_txt2.
Textbox top = 100. and textbox left = 100.and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 150. and button name = OR_btn1.
OR_btn1 mouseclick. instructions are
        OR_txt1. textbox selected and store textbox value to [num1].
        OR_txt2. textbox selected and store textbox value to [num2].
        The window title from [num1] OR [num2].
End of instructions
 
 
I want button and button caption = Close.
Button top = 150. and button left = 130. and button name = OR_btnClose.
OR_btnclose mouseclick. instructions are you close window ok
 
The window parent is the main window.
You Show Window
 
end of instructions

mynot. instructions are
 
Set Window Auto Show Off
 
I want window and the window title is Not. 
Window top = 270. and window left = 50.
Window width = 250. and Window height = 200.
 
I want label and the label caption is Value.
Label top = 50. and label width = 80.
 
I want textbox and the textbox name = Not_txt1.
Textbox top = 50. and textbox left = 100. and textbox width = 50.
 
I want button and button caption = do operation.
Button top = 100. and button name = Not_btn1.
Not_btn1 mouseclick. instructions are
        Not_txt1. textbox selected and store textbox value to [num1].
        The window title from not [num1].
End of instructions
 
 
I want button and button caption = Close.
Button top = 100. and button left = 130. and button name = Not_btnClose.
Not_btnclose mouseclick. instructions are you close window ok
 
The window parent is the main window.
You Show Window
 
end of instructions
 

 
Sample Files
--------------
 
        1 - CounterRange.nova
        2 - CounterRange2.nova

:note: "application settings"
set window auto show off
set label transparent on
The application title is "Counter Range"
 
:note: "application window"
I want window and the window title is "Counter Range"
window width = 370. and window height = 360.
the window back color = {255,255,255}.
 
:note: "window controls"
i want label and label caption is "From"
i want textbox and textbox left is 50. and the textbox name is text1.
the textbox value is 1.
i want label and label caption is "To" and the label top is 50.
i want textbox and textbox left is 50. and the textbox name is text2.
the textbox value is 10.
the textbox top is 50.
i want listbox and listbox top is 100.
i want button and button caption is "Count Forward"
the button top is 100. and the button left is 230.
the button name is btn1.
 
:note: "application task"
btn1 mouseclick. instructions are
        i want counter 
        text1. textbox selected and textbox value to [num1].
        text2. textbox selected and textbox value to [num2].
        get the counter start from [num1].
        get the counter end from [num2].
        the counter step is 1.
        the counter name is mycount1.
        you use counter 
        mycount1 change. instructions are
               counter value to [myvalue]. 
               listbox must add from [myvalue].
        end of instructions
end of instructions
 
You Show Window

:note: "application settings"
set window auto show off
set label transparent on
The application title is "Counter Range 2"
 
:note: "application window"
I want window and the window title is "Counter Range"
window width = 370. and window height = 360.
the window back color = {255,255,255}.
 
:note: "window controls"
i want label and label caption is "From"
i want textbox and textbox left is 50. and the textbox name is text1.
the textbox value is 10.
i want label and label caption is "To" and the label top is 50.
i want textbox and textbox left is 50. and the textbox name is text2.
the textbox value is 1.
the textbox top is 50.
i want listbox and listbox top is 100.
i want button and button caption is "Count backward"
the button top is 100. and the button left is 230.
the button name is btn1.
 
:note: "application task"
btn1 mouseclick. instructions are
        i want counter 
        text1. textbox selected and textbox value to [num1].
        text2. textbox selected and textbox value to [num2].
        get the counter start from [num1].
        get the counter end from [num2].
        the counter step is -1.
        the counter name is mycount1.
        you use counter 
        mycount1 change. instructions are
               counter value to [myvalue]. 
               listbox must add from [myvalue].
        end of instructions
end of instructions
 
You Show Window

:note: "application settings"
set window auto show off
set label transparent on
The application title is "Dynamic Objects"
 
:note: "application window"
I want window and the window title is "Dynamic Objects"
window width = 450. and window height = 500.
the window back color = {255,255,255}.
 
:note: "window controls"
i want label and label caption is "Enter Number"
i want textbox and textbox left is 100. and the textbox name is text1.
 
i want button and button caption is "Create"
the button left is 320. and the button name is btn1.
 
:note: "application task"
btn1 mouseclick. instructions are
        text1. textbox selected and textbox value to [num1].
        i want counter 
        the counter start is 1.
        get the counter end from [num1].
        the counter step is 1.
        the counter name is mycount1.
        [theleft]. = (30). and you use counter 
        [theleft]. = (150). and you use counter 
        [theleft]. = (270). and you use counter 
        mycount1 change. instructions are
               counter value to [myvalue]. 
               [mytop]. = [myvalue] x (50).
               i want button
               the button caption from [myvalue].
               the button top from [mytop].
               the button left from [theleft].
               the button backcolor is {255,255,255}.
               the button name is dynamicbutton.
               dynamicbutton mouseclick. instructions are
                       the button backcolor is {255,255,0}.
               end of instructions
        end of instructions
end of instructions
 
You Show Window
 
 

 
Sample Files
--------------
 
        1 - Case.nova
        2 - Cases.nova

:note: "application settings"
set window auto show off
set label transparent on
The application title is "Case Sample"
 
:note: "application window"
I want window and the window title is "Counter Sensitive to number 3"
window width = 370. and window height = 360.
the window back color = {255,255,255}.
 
:note: "window controls"
i want label and label caption is "From"
i want textbox and textbox left is 50. and the textbox name is text1.
the textbox value is 1.
i want label and label caption is "To" and the label top is 50.
i want textbox and textbox left is 50. and the textbox name is text2.
the textbox value is 10.
the textbox top is 50.
i want listbox and listbox top is 100.
i want button and button caption is "Count Forward"
the button top is 100. and the button left is 230.
the button name is btn1.
 
:note: "application task"
btn1 mouseclick. instructions are
        i want counter 
        text1. textbox selected and textbox value to [num1].
        text2. textbox selected and textbox value to [num2].
        get the counter start from [num1].
        get the counter end from [num2].
        the counter step is 1.
        the counter name is mycount1.
        you use counter 
        mycount1 change. instructions are
               counter value to [myvalue]. 
               listbox must add from [myvalue].
               [mytest]. = [myvalue] isequal (3).
               mytest true. instructions are
                       listbox must add item "this is number three"
               end of instructions
        end of instructions
end of instructions
 
You Show Window

:note: "application settings"
set window auto show off
set label transparent on
The application title is "Cases Sample"
 
:note: "application window"
I want window and the window title is "Cases"
window width = 370. and window height = 360.
the window back color = {0,0,100}.
 
:note: "window controls"
i want label and label caption is "From"
the label fore color is {255,255,255}.
i want textbox and textbox left is 50. and the textbox name is text1.
the textbox value is 1.
i want label and label caption is "To" and the label top is 50.
the label fore color is {255,255,255}.
i want textbox and textbox left is 50. and the textbox name is text2.
the textbox value is 5.
the textbox top is 50.
i want listbox and listbox top is 100.
i want button and button caption is "Count Forward"
the button top is 100. and the button left is 230.
the button name is btn1.
 
:note: "application task"
btn1 mouseclick. instructions are
        i want counter 
        text1. textbox selected and textbox value to [num1].
        text2. textbox selected and textbox value to [num2].
        get the counter start from [num1].
        get the counter end from [num2].
        the counter step is 1.
        the counter name is mycount1.
        you use counter 
        mycount1 change. instructions are
               counter value to [myvalue]. and [mytest]. = [myvalue].
               :note: Cases.
               mytest 1. instructions are [myvalue]. = (One ) [myvalue]. ok
               mytest 2. instructions are [myvalue]. = (Two ) [myvalue]. ok
               mytest 3. instructions are [myvalue]. = (Three ) [myvalue]. ok
               mytest 4. instructions are [myvalue]. = (Four ) [myvalue]. ok
               mytest 5. instructions are [myvalue]. = (Five ) [myvalue]. ok
               listbox must add from [myvalue].
        end of instructions
end of instructions
 
You Show Window

The application title is "Check Answer"
Set window auto show off
 
I want window and the window title is "Test"
Window width = 730. and window height = 530.
 
I want label 
The label width is 700. and label height is 120.
The label font size is 20. 
The label back color = {255,255,255}.
The label caption is 
"
 Who is the creator of 
 Supernova Programming Language ?
"
 
I want listbox and listbox top is 150.
Listbox width is 700. and listbox height is 250.
The listbox must add item "Gudio"
The listbox must add item "Mahmoud"
The listbox must add item "Matz"
The listbox font size is 15.
 
I want button and the button top is 450.
The button left is 240. and button caption = "Check Answer"
The button name is btn1.
The button back color is {255,255,255}.
 
I want button and the button top is 450.
The button left is 360. and button caption = "End Application"
The button name is btnclose.
The button fore color is {255,255,255}.
The button back color is {255,0,0}.
btnclose mouseclick. instructions are you close application ok
 
You show window
 
btn1 mouseclick. instructions are
        The listbox value to [x].
        [mytest]. = [x] isequal (2). 
        mytest true. instructions are 
               The label caption is 
               "
                       True Answer
               " ok
        mytest false. instructions are 
               The label caption is 
               "
                       False Answer
               " ok
end of instructions
 
 

 
Sample Files
--------------
 
        1 - InfiniteLoop.nova
        2 - UnderControl.nova
        3 - Processing.nova

The application title is "Infinite Loop"
I want window contains listbox and the window title is "Infinite Loop"
the window name is mywin.
 
I want button and button caption is "Close"
the button name is "myclose" and the button left is 300.
myclose mouseclick. instructions are 
        you close window
end of instructions
 
[y]. = (0).
[x]. = (0).
 
[test]. = [y] isequal (1).
test false. instructions are
        [x]. = [x]+(1).
        listbox must add from [x].
        do windows events
        [test]. = [y] isequal (1).
end of instructions

The application title is "Loop Under Control"
I want window contains listbox and the window title is "Loop Under Control"
the window name is mywin.
 
I want button and button caption is "Close"
the button name is "myclose" and the button left is 300.
myclose mouseclick. instructions are 
        you close window
end of instructions
 
I want button and button caption is "Stop"
the button name is "mystop" and the button left is 300.
the button top is 80.
mystop mouseclick. instructions are 
        [y]. = (10000).
end of instructions
 
 
[y]. = (0).
 
[test]. = [y] isequal (10000).
test false. instructions are
        [y]. = [y]+(1).
        listbox must add from [y].
        do windows events
        [test]. = [y] isequal (10000).
end of instructions

The application title is "Application will end after some processing"
 
[y]. = (0).
 
myloop. instructions must done
myloop. instructions are
        do windows events
        [y]. = [y]+(1).
        myloop. instructions must done
end of instructions
 
y 100000. instructions are You close application ok

i want window and the window title is Not.
the window top is 50.
I WANT WINDOW AND THE WINDOW TITLE IS Case.
the window top is 100.
I WaNt WiNdOw AnD ThE WiNdOw TiTlE Is Sensitive.
the window top is 150.

i       wa      nt window       and the win   dow title is Not Tab Sensitive.

i want window and the window title is Not.
The window top is 50.
iwantwindowandthewindowtitleisSpace.
The window top is 100.
i w a n t w i n d o w a n d t h e w i n d o w t i t l e i s Sensitive .
The window top is 150.

i want window and the window title is Not.
The window top is 50.
i
w a n t
w i n d o w
a n d
t h e
w i n d o w
t i t l e
is Line.
The window top is 100.
i
w
a
n
t
w i n d o w
a
n
d
t h e 
w i n
d o w
t i t 
l e i s Sensitive.
The window top is 150.

I want window
The window title is Hello [1].
The window top is 50.
I want window 
The window title is "Hello...[2]"
The window top is 80.
I want window 
The window title is 'Hello...[3]'
The window top is 110.
I want window 
The window title is '"Hello...[4]"'
The window top is 140.
I want window 
The window title is "'Hello...[5]'"
The window top is 170.

I want window contains listbox and window title is is greater than.
 
test true. instructions are the listbox must add item True. ok
test false. instructions are the listbox must add item False. ok
 
[v2]. = (20).
[v1]. = (25). and [test]. = [v1] < [v2].
[v1]. = (5).  and [test]. = [v1] < [v2].
[v1]. = (15). and [test]. = [v1] < [v2].
[v1]. = (28). and [test]. = [v1] < [v2].

I want window contains listbox and window title is is greater than.
the window name is win1.
 
test true. instructions are the listbox must add item True. ok
test false. instructions are the listbox must add item False. ok
 
[v2]. = (20).
[v1]. = (25). and [test]. = [v1] > [v2].
[v1]. = (5).  and [test]. = [v1] > [v2].
[v1]. = (15). and [test]. = [v1] > [v2].
[v1]. = (28). and [test]. = [v1] > [v2].

I want window contains listbox and window title is is less or Equal.
 
test true. instructions are the listbox must add item True. ok
test false. instructions are the listbox must add item False. ok
 
[v2]. = (20).
[v1]. = (25). and [test]. = [v1] <= [v2].
[v1]. = (5).  and [test]. = [v1] <= [v2].
[v1]. = (21). and [test]. = [v1] <= [v2].
[v1]. = (20). and [test]. = [v1] <= [v2].

I want window contains listbox and window title is is greater or Equal.
 
test true. instructions are the listbox must add item True. ok
test false. instructions are the listbox must add item False. ok
 
[v2]. = (20).
[v1]. = (25). and [test]. = [v1] >= [v2].
[v1]. = (5).  and [test]. = [v1] >= [v2].
[v1]. = (21). and [test]. = [v1] >= [v2].
[v1]. = (20). and [test]. = [v1] >= [v2].

i want window contains editbox
[mytest]. = (3).
[myif]. = [mytest] is equal (3).
 
myif true. instructions are
the window title is wow.
end of instructions

i want window contains editbox
[mytest]. = (3).
[myif]. = [mytest] != (4).
 
myif true. instructions are
the window title is wow.
end of instructions

I want window and the window title is Precedence.
The window height is 300. and window back color = {30,200,100}.
I want listbox and the listbox name is mylist1.
[v1]. = (3)+(15)x(3).
listbox must add from [v1].
[v1]. = (3)+(15)x(3)+(4)x(12).
listbox must add from [v1].
[v2]. = (3).
[v1]. = (6)+[v2]x(15).
listbox must add from [v1].
[v1]. = (6)x(15).
listbox must add from [v1].
[v1]. = (6)x(15)x(3).
listbox must add from [v1].

i want window contains listbox
 
[loop]. = [x] < (10). and loop true. instructions are
        [x]. = [x] + (1).
        listbox must add from [x].
        [loop]. = [x] < (10). 
end of instructions

i want window contains listbox
 
[x]. = (10).
[loop]. = [x] >= (10) and [x] <= (100). and loop true. instructions are
        listbox must add from [x].
        [x]. = [x] + (1).
        [loop]. = [x] >= (10) and [x] <= (100).
end of instructions

i want window contains listbox
 
[mystart]. = (10). and [myend]. = (100). and [x]. = [mystart].
[loop]. = [x] >= [mystart] and [x] <= [myend]. 
loop true. instructions are
        listbox must add from [x].
        [x]. = [x] + (1).
        [loop]. = [x] >= [mystart] and [x] <= [myend].
end of instructions

i want window contains listbox
 
listbox must add item "test using values"
 
[x]. = (True) and (False).
listbox must add from [x].
 
[x]. = (True) or (False).
listbox must add from [x].
 
[x]. = not (False).
listbox must add from [x].
 
[x]. = not (True).
listbox must add from [x].
 
[x]. = (True) or not (True).
listbox must add from [x].
 
[x]. = (True) and not (True).
listbox must add from [x].
 
listbox must add item "test using variables"
 
[a]. = (True). [b]. = (False).
 
[x]. = [a] and [b].
listbox must add from [x].
 
[x]. = [a] or [b].
listbox must add from [x].
 
[x]. = not [b].
listbox must add from [x].
 
[x]. = not [a].
listbox must add from [x].
 
[x]. = [a] or not [a].
listbox must add from [x].
 
[x]. = [a] and not [a].
listbox must add from [x].

i want window contains listbox
the window title is the test is true when   5 < thevalue < 10.
 
i want textbox and i want button
the button left is 300.
the button caption is test value.
the button name is btn1.
the listbox top is 50.
 
btn1 mouseclick. instructions are
        store the textbox value to [x].
        [mytest]. = [x] > (5) and [x] < (10).
ok
 
mytest true. instructions are
listbox  must add item True.
ok
 
mytest false. instructions are
listbox  must add item False.
ok

I want window and the window title is Assignment.
The window height is 300. and window back color = {30,200,100}.
I want listbox and the listbox name is mylist1.
i want listbox and the listbox name is mylist2.
listbox left is 250.
[v1]. is ( Hello )( World ).
[v2]. = (15)x(3).
[v3]. equal (Country).
[v4]. = (Hello)[v1].
[v5]. = (12) and (7) or (1) not (13).
[v6]. = | (1) [One] (2) [Two] |.
[v7]. = (Hello )[GoodName].
mylist2. listbox selected
listbox must add item "[v1]. is ( Hello )( World )."
listbox must add item "[v2]. = (15)x(3)."
listbox must add item "[v3]. equal (Country)."
listbox must add item "[v4]. = (Hello)[v1]."
listbox must add item "[v5]. = (12) and (7) or (1) not (13)."
listbox must add item "[v6]. = | (1) [One] (2) [Two] |."
listbox must add item "[v7]. = (Hello )[GoodName]."
mylist1. listbox selected
listbox must add from [v1].
listbox must add from [v2].
listbox must add from [v3].
listbox must add from [v4].
listbox must add from [v5].
listbox must add from [v6].
listbox must add from [v7].

Words ignored by the compiler
-------------------------------
 
1 - (The)
Example: The window title is hello.
        **OR**
         Window title is hello.
2 - (And)
        I want window and window title is wow.
        **OR**
        I want window window title is wow.
3 - (Get)
        [mytitle] = (Hello World).
        window title from [mytitle].
        **OR**
        [mytitle] = (Hello World).
        Get window title from [mytitle].
4 - (Store)
        window title to [X].
        **OR**
        Store window title to [X].

Words with the same effect
----------------------------
 
1 - (Want)  and (See) 
    Example : I want window
              **OR**
              I see window
2 - (Is), (Equal) and (=)
    Example : Window title is wow.
              **OR**
              Window title equal wow.
              **OR**
              Window title = wow.
3 - (Contains) and (I want)
    Example : I want window 
              I want listbox
              **OR**
              I want window contains listbox
 
4 - (OK) and (End of instructions)
    Example : 
              win1 mouseclick. instructions are
                       You close window
              End of instructions
              **OR**
              win1 mouseclick. instructions are
                       You close window
              ok
            
5 - (You) and (Please)
    Example : 
              You close window
              **OR**
              Please close window

Set window auto show off
 
Application title = Do Statements.
 
i want window contains listbox
window title = Do Statements.
Window Width = 270.  listbox Width = 250.
Window Height = 500. listbox Height = 450.
listbox font size = 14.
listbox back color = {20,255,100}.
 
[x]. = (1). and do while [x] <= (7).
                       listbox must add from [x].
                       do if [x] == (5).
                               [t]. = .
                               [y]. = (1). and do while [y] <= (5).
                                                     [t]. = [t] [y].
                                                     listbox must add from [t].
                                                     [y]. = [y] + (1).
                                              end while
                       end if
                       [x]. = [x] + (1).
               end while
               [t]. = .
               [y]. = (1). and do while [y] <= (7).
                                      [t]. = [t] [y].
                                      listbox must add from [t].
                                      [y]. = [y] + (1).
                                      do if [y] == (6).
                                              listbox must add item ***********.
                                      end if
                               end while
 
You show window

application title = "Do Function"
 
do file "mylib.nova"
 
do procedure myuserinterface.
window title = "Do Function"
 
[input]. = (5). do function myfunc. listbox must add from [output].
[input]. = (3). do function myfunc2. listbox must add from [output].
 
You show window
 
Function myfunc.
        [output]. = [input]x[input].
End function
 
Function myfunc2. and [output]. = [input] x (2). ok

procedure myuserinterface.
 
        i want window contains listbox
        window height = 450. 
        listbox height = 400.
        window width = 230. 
        window back color = {255,255,255}. 
        
end procedure

Application title = StrLen.
 
I want window contains textbox and window title = Get String Length.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = get string length. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = len [mytext].
        label caption from [myvar].
end of instructions

Application title = StrLeft.
 
I want window contains textbox and window title = Get Sub String From Left.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Get 5 letters from left. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext]. 
        [mytext]. = (5) left [mytext]. 
        label caption from [mytext].
end of instructions

Application title = StrLeft2.
 
I want window contains textbox and window title = Get Sub String From Left.
the textbox name is text1.
 
I want textbox and textbox top is 50.
the textbox name is text2.
 
I want label and label top is 100.
 
I want button and button name is btn1. and button left = 300.
Button caption = Get n letters from left. and button width = 150.
btn1 mouseclick. instructions are
        text1. textbox selected and textbox value to [mytext1]. 
        text2. textbox selected and textbox value to [mytext2]. 
        [mytext]. = [mytext2] left [mytext1]. 
        label caption from [mytext].
end of instructions
 
text2 change. instructions are
        textbox value to [mytext]. 
        the button caption from (Get ) [mytext] ( letters from left).
end of instructions

Application title = StrRight.
 
I want window contains textbox and window title = Get Sub String From Right.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Get 5 letters from right. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [mytext]. = (5) right [mytext].
        label caption from [mytext].
end of instructions

Application title = StrRight2.
 
I want window contains textbox and window title = Get Sub String From Right.
the textbox name is text1.
 
I want textbox and textbox top is 50.
the textbox name is text2.
 
I want label and label top is 100.
 
I want button and button name is btn1. and button left = 300.
Button caption = Get n letters from Right. and button width = 150.
btn1 mouseclick. instructions are
        text1. textbox selected and textbox value to [mytext1]. 
        text2. textbox selected and textbox value to [mytext2]. 
        [mytext]. = [mytext2] right [mytext1]. 
        label caption from [mytext].
end of instructions
 
text2 change. instructions are
        textbox value to [mytext]. 
        the button caption from (Get ) [mytext] ( letters from right).
end of instructions

Application title = StrAlltrim.
 
I want window contains textbox and window title = Alltrim.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Alltrim. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = Alltrim [mytext].
        label caption from [myvar].
end of instructions

Application title = StrRtrim.
 
I want window contains textbox and window title = Rtrim.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Rtrim. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = Rtrim [mytext].
        label caption from [myvar].
end of instructions

Application title = StrLtrim.
 
I want window contains textbox and window title = Ltrim.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Ltrim. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = Ltrim [mytext].
        label caption from [myvar].
end of instructions

Application title = StrUpper.
 
I want window contains textbox and window title = Upper.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Upper. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = Upper [mytext].
        label caption from [myvar].
end of instructions

Application title = StrLower.
 
I want window contains textbox and window title = Lower.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Lower. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = Lower [mytext].
        label caption from [myvar].
end of instructions

Application title = StrReplicate.
 
I want window contains textbox and window title = Replicate String.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Replicate String. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext]. 
        [mytext]. = (3) Replicate [mytext]. 
        label caption from [mytext].
end of instructions

Application title = StrReplicate2.
 
I want window contains textbox and window title = Replicate String.
the textbox name is text1.
 
I want textbox and textbox top is 50.
the textbox name is text2.
 
I want label and label top is 100. and label width = 400.
 
I want button and button name is btn1. and button left = 300.
Button caption = Replicate string n times. and button width = 150.
btn1 mouseclick. instructions are
        text1. textbox selected and textbox value to [mytext1]. 
        text2. textbox selected and textbox value to [mytext2]. 
        [mytext]. = [mytext2] replicate [mytext1]. 
        label caption from [mytext].
end of instructions
 
text2 change. instructions are
        textbox value to [mytext]. 
        the button caption from (Replicate String ) [mytext] ( times).
end of instructions

Application title = StrInside.
 
I want window contains textbox and window title = Char Inside String.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Get Char Inside String. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext]. 
        [mytext]. = (3) Inside [mytext]. 
        label caption from [mytext].
end of instructions

Application title = StrInside2.
 
I want window contains textbox and window title = Get Char n Inside String.
the textbox name is text1.
 
I want textbox and textbox top is 50.
the textbox name is text2.
 
I want label and label top is 100. and label width = 400.
 
I want button and button name is btn1. and button left = 300.
Button caption = Get Char n Inside String. and button width = 150.
btn1 mouseclick. instructions are
        text1. textbox selected and textbox value to [mytext1]. 
        text2. textbox selected and textbox value to [mytext2]. 
        [mytext]. = [mytext2] Inside [mytext1]. 
        label caption from [mytext].
end of instructions
 
text2 change. instructions are
        textbox value to [mytext]. 
        the button caption from (Get Char ) [mytext] ( Inside String).
end of instructions

Application title = StrInside3.
 
I want window contains textbox and window title = Letters Inside String.
 
I want listbox and listbox top is 100. 
 
I want button and button name is btn1. and button left = 300.
Button caption = Letters Inside String. and button width = 150.
btn1 mouseclick. instructions are
        the textbox value to [mytext1]. 
        [mysize]. = len [mytext1].
        [x]. = (1). do while [x] <= [mysize].
               [mytext]. = [x] Inside [mytext1]. 
               listbox must add from [mytext].
               [x]. = [x] + (1).
        end while
end of instructions

Application title = StrAt.
 
I want window contains textbox and window title = Get Pos of Sub String.
the textbox name is text1.
 
I want textbox and textbox top is 50.
the textbox name is text2.
 
I want label and label top is 100. and label width = 400.
 
I want button and button name is btn1. and button left = 300.
Button caption = Get Pos of Sub String. and button width = 150.
btn1 mouseclick. instructions are
        text1. textbox selected and textbox value to [mytext1]. 
        text2. textbox selected and textbox value to [mytext2]. 
        [mytext]. = [mytext2] at [mytext1]. 
        label caption from [mytext].
end of instructions

Application title = StrSubStr.
 
I want window contains textbox and window title = Get Sub String.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Get Sub String. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = (3:5) substr [mytext].
        label caption from [myvar].
end of instructions

Application title = StrSubStr2.
 
I want window contains textbox and window title = Get Sub String.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Get Sub String. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [x1]. = (5).
        [x2]. = (5).
        [range]. = [x1](:)[x2].
        [myvar]. = [range] substr [mytext].
        label caption from [myvar].
end of instructions

Application title = StrTransform.
 
I want window contains textbox and window title = Transform.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = Sub String Transform. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [myvar]. = (nova:*nova*) transform [mytext].
        label caption from [myvar].
end of instructions

Application title = StrTransform.
 
I want window contains textbox and window title = Transform.
textbox name is text1.
textbox value is wow nova wow.
 
I want label and label top is 150. and label width = 400.
 
I want textbox and textbox top = 50.
textbox name is text2.
textbox value is nova.
 
I want textbox and textbox top = 100.
textbox name is text3.
textbox value is *nova*.
 
I want button and button name is btn1. and button left = 300.
button caption = Sub String Transform. and button width = 150.
btn1 mouseclick. instructions are
        text1. textbox selected and textbox value to [mytext].
        text2. textbox selected and textbox value to [str1].
        text3. textbox selected and textbox value to [str2].
        [myvar]. = [str1](:)[str2] transform [mytext].
        label caption from [myvar].
end of instructions

Application title = The Date.
 
I want window and window title = The Date.
window back color = {255,255,255}.
window width = 330.  window height = 150.
 
I want label and label caption from the date.
The label font size = 40. and label width = 300. 
label height = 100.

Application title = The Day.
 
I want window and window title = The Day.
window back color = {255,255,255}.
window width = 330.  window height = 150.
 
I want label and label caption from the Day.
The label font size = 40. and label width = 300. 
label height = 100.

Application title = The Month.
 
I want window and window title = The Month.
window back color = {255,255,255}.
window width = 330.  window height = 150.
 
I want label and label caption from the Month.
The label font size = 40. and label width = 300. 
label height = 100.

Application title = The Seconds.
 
I want window and window title = The Seconds.
window back color = {155,155,155}.
window width = 330.  window height = 150.
 
I want label and label caption from the seconds.
The label font size = 40. and label width = 300. 
label height = 100.

Application title = The Time.
 
I want window and window title = The Time.
window back color = {155,155,155}.
window width = 330.  window height = 150.
 
I want label and label caption from the time.
The label font size = 40. and label width = 300. 
label height = 100.

Application title = The Seconds.
 
I want window and window title = The Seconds.
window back color = {5,155,255}.
window width = 330.  window height = 250.
window name = win1.
 
I want label 
The label font size = 40. and label width = 300. 
label height = 100.
 
I want button and button caption = Close.
the button name is btn1.
button top = 150. and button left = 150.
 
do while (True).
        label caption from (   ) the Seconds.
        [x]. = the seconds. and do while "the seconds - [x] < (0.1)"
                                      do windows events
                               end while 
end while
 
btn1 mouseclick. instructions are
        You close application
end of instructions

Application title = The Time.
 
I want window and window title = The Time.
window back color = {5,155,255}.
window width = 330.  window height = 250.
window name = win1.
 
I want label 
The label font size = 40. and label width = 300. 
label height = 100.
 
I want button and button caption = Close.
the button name is btn1.
button top = 150. and button left = 150.
 
do while (True).
        label caption from (   ) the time.
        [x]. = the seconds. and do while the seconds - [x] < (1).
                                      do windows events
                               end while 
end while
 
btn1 mouseclick. instructions are
        You close application
end of instructions

Application title = Hello!!.
 
I want window and window title = Hello!!.
Window back color = {5,155,255}.
Window width = 330.  window height = 250.
Window name = win1.
 
I want button and button caption = Be my friend , click to say yes !!.
The button top = 20. button width = 300.
The button name = btn1.
 
I want button the button top = 80.
Button caption = . and the button name = btn2.
 
I want button the button top = 130.
Button caption = . and the button name = btn3.
 
 
btn1 mouseclick. instructions are
        Btn2. button selected and button caption = Really !! ? .
End of instructions    
 
 
btn2 mouseclick. instructions are
Do while (True).
        Btn3. button selected and button caption = Hurrah.
        [x]. = the seconds. and do while "the seconds - [x] < (0.5)"
                                      Do windows events
                               End while 
        Btn3. button selected and button caption = .
        [x]. = the seconds. and do while "the seconds - [x] < (0.5)"
                                      Do windows events
                               End while 
End while
End of instructions
 
btn3 mouseclick. instructions are
        You close window
End of instructions

Application title = "Array"
I want window contains listbox and the window title is Array.
listbox height = 500. 
window height = 550. window width = 230.
 
[x]. = (1). and Do while [x] <= (10).
                       [myarray]\[x]. = [x] x [x].
                       [x]. = [x] + (1).
               End while
 
listbox must add item Using the first method.
 
listbox must add from [myarray-1].
listbox must add from [myarray-2].
listbox must add from [myarray-3].
listbox must add from [myarray-4].
listbox must add from [myarray-5].
listbox must add from [myarray-6].
listbox must add from [myarray-7].
listbox must add from [myarray-8].
listbox must add from [myarray-9].
listbox must add from [myarray-10].
 
listbox must add item Using the second method.
 
listbox must add from [myarray]\(1).
listbox must add from [myarray]\(2).
listbox must add from [myarray]\(3).
listbox must add from [myarray]\(4).
listbox must add from [myarray]\(5).
listbox must add from [myarray]\(6).
listbox must add from [myarray]\(7).
listbox must add from [myarray]\(8).
listbox must add from [myarray]\(9).
listbox must add from [myarray]\(10).
 
listbox must add item Using the third method.
 
[x]. = (1). and Do while [x] <= (10).
                       listbox must add from [myarray]\[x].
                       [x]. = [x] + (1).
               End while

Application title = "Array2"
I want window and the window title is Array2.
Window width = 350. window height = 300.
 
i want button and button caption = close. and button name = btn1.
button top = 230. and button width = 330.
btn1 mouseclick. instructions are you close window ok
 
i want listbox and the listbox left = 10. and listbox name = list1.
listbox width = 100.
 
i want listbox and the listbox left = 120. and listbox name = list2.
listbox width = 100.
 
i want listbox and the listbox left = 240. and listbox name = list3.
listbox width = 100.
 
[x]. = (1). and Do while [x] <= (10).
                       [myarray]\[x]\(1). = [x].
                       [myarray]\[x]\(2). = [x] x [x].
                       [myarray]\[x]\(3). = [x] x [x] x [x].
                       [x]. = [x] + (1).
               End while
 
[x]. = (1). and Do while [x] <= (10).
                       list1. listbox selected 
                       listbox must add from [myarray]\[x]\(1).
                       list2. listbox selected 
                       listbox must add from [myarray]\[x]\(2).
                       list3. listbox selected 
                       listbox must add from [myarray]\[x]\(3).
                       [x]. = [x] + (1).
               End while

Application title = GetVariable.
 
I want window contains textbox and window title = GetVariable.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = GetVariable. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        label caption from get variable (mytext).
end of instructions

Application title = DoFunction.
 
I want window contains textbox and window title = DoFunction.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = DoFunction. and button width = 150.
btn1 mouseclick. instructions are
        label caption from do function (myfunc).
end of instructions
 
function myfunc.
        textbox value to [mytext].
        [output]. = [mytext] x [mytext].
end function

Application title = Pointer2Variable.
 
I want window contains textbox and window title = Pointer2Variable.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = GetVariable. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        [mytext]. = Alltrim [mytext].
        [myselector]. = (mytext).
        label caption from get variable [myselector].
end of instructions

Application title = Pointer2Function.
 
I want window contains textbox and window title = Pointer2Function.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = DoFunction. and button width = 150.
btn1 mouseclick. instructions are
        [myfunctionname]. = (myfunc).
        label caption from do function [myfunctionname].
end of instructions
 
function myfunc.
        textbox value to [mytext].
        [output]. = [mytext] x [mytext].
end function

Application title = DoFunction2.
 
I want window contains textbox and window title = DoFunction2.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = DoFunction. and button width = 150.
btn1 mouseclick. instructions are
        label caption from do function (myfunc) + do function (myfunc).
end of instructions
 
function myfunc.
        textbox value to [mytext].
        [output]. = [mytext] x [mytext].
end function

Application title = GetVariable2.
 
I want window contains textbox and window title = GetVariable2.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = GetVariable. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [mytext].
        label caption from get variable (mytext) x get variable(mytext).
end of instructions

Application title = NoRecursive.
 
I want window contains textbox and window title = NoRecursive.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = DoFunction. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [input].
        label caption from do function (myfunc).
end of instructions
 
function myfunc.       
        [output]. = [input].
        do while [input] > (1).
               [input]. = [input] - (1).
               [output]. = [output] x [input].
        end while
end function

Application title = Recursive.
 
I want window contains textbox and window title = Recursive.
Window height = 130.
 
I want label and label top is 50.
 
I want button and button name is btn1. and button left = 300.
button caption = DoFunction. and button width = 150.
btn1 mouseclick. instructions are
        textbox value to [input].
        label caption from do function (myfunc). 
end of instructions
 
function myfunc.
        [output]. = [output] x [input].
        [input]. = [input] - (1).
        do if [input] > (1).
               do function myfunc.
        end if
end function

I want window 
The window title is Looking To The future.
I want listbox and the listbox top = 60.
window width = 700. and listbox width = 650.
The listbox must add item Supernova know that any variable may exist at any time in the future.
The listbox must add from [x].
The listbox must add item Supernova suggest that the initial [x] value is (1) when you write [x] x (5).
The listbox must add from [x] x (5).
The listbox must add item Supernova suggest that the initial [x] value is (0) when you write [x] + (5).
The listbox must add from [x] + (5).

I want window contains button
Button name is btn1. and button caption = Multiply.
The window title is Looking To The future.
 
I want listbox and the listbox top = 60.
 
Btn1 mouseclick. instructions are
:note: "Using [X] in the right side without 
        declaration and/or assigning a value to it.
        [x] automatically take the value of (1) because there are
        Multiply operation (x)"
 
        [x]. = [x] x (5).
        
        The listbox must add from [x].
 
End of instructions

(15). decimal places allowed
 
I want window contains button
Button name is btn1. and button caption = Division.
The window title is Looking To The future.
 
I want listbox and the listbox top = 60.
 
Btn1 mouseclick. instructions are
:note: "Using [X] in the right side without 
        declaration and/or assigning a value to it.
        [x] automatically take the value of (1) because there are
        Division operation (/)"
 
        [x]. = [x] / (5).
        
        The listbox must add from [x].
 
End of instructions

I want window contains button
Button name is btn1. and button caption = Create button.
The window title is Looking To The future.
Window width = 700.
 
:note: "Btn2 event before creating btn2 !!!"
Btn2 mouseclick. instructions are
        I want window and window title is wow.
End of instructions
 
:note: " x = 450 event before creating [x] !!!"
X 450. instructions are
        btn1. button selected
        The button caption is Close.
end of instructions
 
:note: " x = 600 event before creating [x] !!!"
X 600. instructions are you close application ok
 
Btn1 mouseclick. instructions are
:note: "Using [X] in the right side without 
        declaration and/or assigning a value to it.
        [x] automatically take the value of (0) because there are
        sum operation (+)"
 
        [x]. = [x] + (150).
 
        I want  button and the button name is btn2. 
        button left from [x].
 
End of instructions

Windows
---------
 
* Application title is ....data as value....
 
* You close application
 
* Do windows events
 
* Set window auto show on
 
* Set window auto show off
 
* Set window resize on
 
* Set window resize off
 
* Set window modal on
 
* Set window modal off
 
* I want window
 
* Window title is ....data as value....
 
* Window direction is right to left
 
* Window back color is ....data as value....
 
* Window top is ....data as value....
 
* Window left is ....data as value....
 
* Window width is ....data as value....
 
* Window height is ....data as value....
 
* You maximize window
 
* You minimize window
 
* You centre window
 
* You show window
 
* You hide window
 
* You close window
 
* Window name is ....data as value....
 
* ....data as value.... window selected
 
* Window parent is ....data as value....
 
* Window title from ....data as expression....
 
* Window title to ....data as expression....
 
* Window Handle to ....data as expression....
 
* Window top to ....data as expression....
 
* Window left to ....data as expression....
 
* Window Width to ....data as expression....
 
* Window Height to ....data as expression....
 
* Window top from ....data as expression....
 
* Window left from ....data as expression....
 
* Window Width from ....data as expression....
 
* Window Height from ....data as expression....
 
Window Events
---------------
 
        move
        gotfocus
        lostfocus
        mouseclick
        mousemove
        resize
        maximize
        minimize
        release

Controls
----------
 
[1] Label
 
[2] Textbox
 
[3] Button
 
[4] Editbox
 
[5] Listbox
 
[6] Combobox
 
[7] Checkbox
 
[8] Progressbar
 
[9] Slider
 
[10] Image
 
[11] DatePicker
 
[12] HyperLink
 
[13] Spinner
 
[14] Statusbar
 
[15] Menubar

Label
-------
 
* I want label
 
* Label caption is ....data as value.... 
 
* Label top is ....data as value....
 
* Label left is ....data as value....
 
* Label width is ....data as value....
 
* Label height is ....data as value....
 
* Label name is ....data as value....
 
* Label font name is ....data as value....
 
* Label font size is ....data as value....
 
* Label fore color is ....data as value....
 
* Label back color is ....data as value....
 
* Label font bold is ....data as value....
 
* Label font italic is ....data as value....
 
* Label font underline is ....data as value....
 
* Label font strickout is ....data as value....
 
* Set label transparent on 
 
* Set label transparent off
 
* ....data as value.... label selected
 
* Label caption from ....data as expression....
 
* Label caption to ....data as expression....
 
* Label Top to ....data as expression....
 
* Label Left to ....data as expression....
 
* Label Width to ....data as expression....
 
* Label Height to ....data as expression....
 
* Label Top from ....data as expression....
 
* Label Left from ....data as expression....
 
* Label Width from ....data as expression....
 
* Label Height from ....data as expression....
 
Label Events
--------------
 
        mouseclick

Textbox
---------
 
* I want textbox
 
* Textbox value is ....data as value....
 
* Textbox top is ....data as value....
 
* Textbox left is ....data as value....
 
* Textbox width is ....data as value....
 
* Textbox height is ....data as value....
 
* Textbox name is ....data as value....
 
* Textbox font name is ....data as value....
 
* Textbox font size is ....data as value....
 
* Textbox fore color is ....data as value....
 
* Textbox back color is ....data as value....
 
* Textbox font bold is ....data as value.... 
 
* Textbox font italic is ....data as value....
 
* Textbox font underline is ....data as value....
 
* Textbox font strickout is ....data as value....
 
* ....data as value.... Textbox selected
 
* Textbox value from ....data as expression....
 
* Textbox value to ....data as expression....
 
Textbox Events
----------------
 
        gotfocus
        lostfocus
        change
        enter

Button
--------
 
* I want button
 
* Button caption is ....data as value....
 
* Button top is ....data as value....
 
* Button left is ....data as value....
 
* Button width is ....data as value....
 
* Button height is ....data as value....
 
* Button name is ....data as value....
 
* Button font name is ....data as value....
 
* Button font size is ....data as value....
 
* Button fore color is ....data as value....
 
* Button back color is ....data as value....
 
* Button font bold is ....data as value....
 
* Button font italic is ....data as value....
 
* Button font underline is ....data as value....
 
* Button font strickout is ....data as value....
 
* Button picture is ....data as value.... 
 
* ....data as value.... Button selected
 
* Button caption from ....data as expression....
 
* Button caption to ....data as expression....
 
* Button top to ....data as expression....
 
* Button left to ....data as expression....
 
* Button Width to ....data as expression....
 
* Button Height to ....data as expression....
 
* Button top from ....data as expression....
 
* Button left from ....data as expression....
 
* Button Width from ....data as expression....
 
* Button Height from ....data as expression....
 
Button Events
---------------
 
        mouseclick

Editbox
---------
 
* I want editbox
 
* Editbox value is ....data as value....
 
* Editbox top is ....data as value....
 
* Editbox left is ....data as value....
 
* Editbox width is ....data as value....
 
* Editbox height is ....data as value....
 
* Editbox name is ....data as value....
 
* Editbox font name is ....data as value....
 
* Editbox font size is ....data as value....
 
* Editbox fore color is ....data as value....
 
* Editbox back color is ....data as value....
 
* Editbox font bold is ....data as value.... 
 
* Editbox font italic is ....data as value....
 
* Editbox font underline is ....data as value....
 
* Editbox font strickout is ....data as value....
 
* ....data as value.... Editbox selected
 
* Editbox value from ....data as expression....
 
* Editbox value to ....data as expression....
 
* Editbox Top to ....data as expression....
 
* Editbox Left to ....data as expression....
 
* Editbox Width to ....data as expression....
 
* Editbox Height to ....data as expression....
 
* Editbox Top from ....data as expression....
 
* Editbox Left from ....data as expression....
 
* Editbox Width from ....data as expression....
 
* Editbox Height from ....data as expression....
 
 
Editbox Events
----------------
 
        gotfoucs
        lostfoucs
        change

Listbox
---------
 
* I want listbox
 
* Listbox value is ....data as value....
 
* Listbox top is ....data as value....
 
* Listbox left is ....data as value....
 
* Listbox width is ....data as value....
 
* Listbox height is ....data as value....
 
* Listbox name is ....data as value....
 
* Listbox font name is ....data as value....
 
* Listbox font size is ....data as value.... 
 
* Listbox fore color is ....data as value....
 
* Listbox back color is ....data as value....
 
* Listbox font bold is ....data as value....
 
* Listbox font italic is ....data as value....
 
* Listbox font underline is ....data as value....
 
* Listbox font strickout is ....data as value....
 
* ....data as value.... Listbox selected
 
* Listbox must add item  ....data as value....
 
* Listbox must add from ....data as expression....
 
* Listbox value from ....data as expression....
 
* Listbox value to ....data as expression....
 
Listbox Events
----------------
 
        gotfoucs
        lostfocus
        change
        doubleclick

Listbox
---------
 
* I want listbox
 
* Listbox value is ....data as value....
 
* Listbox top is ....data as value....
 
* Listbox left is ....data as value....
 
* Listbox width is ....data as value....
 
* Listbox height is ....data as value....
 
* Listbox name is ....data as value....
 
* Listbox font name is ....data as value....
 
* Listbox font size is ....data as value.... 
 
* Listbox fore color is ....data as value....
 
* Listbox back color is ....data as value....
 
* Listbox font bold is ....data as value....
 
* Listbox font italic is ....data as value....
 
* Listbox font underline is ....data as value....
 
* Listbox font strickout is ....data as value....
 
* ....data as value.... Listbox selected
 
* Listbox must add item  ....data as value....
 
* Listbox must add from ....data as expression....
 
* Listbox value from ....data as expression....
 
* Listbox value to ....data as expression....
 
Listbox Events
----------------
 
        gotfoucs
        lostfocus
        change
        doubleclick

Combobox
----------
 
* I want combobox
 
* Combobox value is ....data as value....
 
* Combobox top is  ....data as value....
 
* Combobox left is  ....data as value....
 
* Combobox width is  ....data as value....
 
* Combobox height is  ....data as value....
 
* Combobox name is  ....data as value....
 
* Combobox fontname is  ....data as value....
 
* Combobox fontsize is  ....data as value....
 
* Combobox forecolor is ....data as value....
 
* Combobox backcolor is ....data as value....
 
* Combobox fontbold is  ....data as value....
 
* Combobox fontitalic is  ....data as value....
 
* Combobox fontunderline is  ....data as value....
 
* Combobox fontstrickout is  ....data as value....
 
*  ....data as value.... Combobox selected
 
* Combobox must add item  ....data as value....
 
* Combobox must add from ....data as expression....
 
* Combobox value from ....data as expression....
 
* Combobox value to ....data as expression....
 
 
Combobox Events
-----------------
 
        gotfocus
        lostfocus
        change

Checkbox
----------
 
* I want checkbox
 
* Checkbox value is ....data as value....
 
* Checkbox top is ....data as value....
 
* Checkbox left is ....data as value....
 
* Checkbox width is ....data as value.... 
 
* Checkbox height is ....data as value....
 
* Checkbox name is ....data as value....
 
* Checkbox font name is ....data as value....
 
* Checkbox font size is ....data as value....
 
* Checkbox fore color is ....data as value.... 
 
* Checkbox back color is ....data as value....
 
* Checkbox font bold is ....data as value.... 
 
* Checkbox font italic is ....data as value.... 
 
* Checkbox font underline is ....data as value....
 
* Checkbox font strickout is ....data as value.... 
 
* ....data as value.... Checkbox selected
 
* Checkbox caption is ....data as value....
 
Checkbox Events
-----------------
 
        gotfocus
        lostfocus
        change

Slider
--------
 
* I want slider
 
* Slider value is ....data as value....
 
* Slider top is ....data as value....
 
* Slider left is ....data as value....
 
* Slider width is ....data as value....
 
* Slider height is ....data as value....
 
* Slider name is ....data as value.... 
 
* ....data as value.... slider selected
 
* Slider range minimum is ....data as value....
 
* Slider range maximum is ....data as value....
 
Slider Events
---------------
 
        change
        scroll

Picture
---------
 
* I want picture
 
* Picture file is ....data as value....
 
* Picture top is  ....data as value....
 
* Picture left is  ....data as value....
 
* Picture width is  ....data as value....
 
* Picture height is  ....data as value....
 
* Picture name is  ....data as value....
 
* ....data as value.... Picture selected
 
Picture Events
----------------
 
        mouseclick

DatePicker
------------
 
* I want datepicker  
 
* Datepicker value is ....data as value....
 
* Datepicker top is  ....data as value....
 
* Datepicker left is  ....data as value....
 
* Datepicker width is  ....data as value....
 
* Datepicker height is  ....data as value....
 
* Datepicker name is  ....data as value.... 
 
* ....data as value.... datepicker selected
 
* Datepicker fore color is  ....data as value....
 
* Datepicker back color is  ....data as value....
 
* Datepicker font name is  ....data as value....
 
* Datepicker font size is  ....data as value....
 
* Datepicker font bold is  ....data as value....
 
* Datepicker font italic is  ....data as value....
 
* Datepicker font underline is  ....data as value....
 
* Datepicker font strickout is  ....data as value....
 
Datepicker Events
-------------------
 
        gotfocus
        lostfocus
        change
        enter

HyperLink
-----------
 
* I want hyperlink
 
* Hyperlink caption is ....data as value....
 
* Hyperlink top is ....data as value....
 
* Hyperlink left is ....data as value....
 
* Hyperlink width is ....data as value....
 
* Hyperlink height is ....data as value.... 
 
* Hyperlink name is ....data as value....
 
* Hyperlink font name is ....data as value....
 
* Hyperlink font size is ....data as value.... 
 
* Hyperlink fore color is ....data as value....
 
* Hyperlink back color is ....data as value....
 
* Hyperlink font bold is ....data as value....
 
* Hyperlink font italic is ....data as value....
 
* Hyperlink font underline is ....data as value....
 
* Hyperlink font strickout is ....data as value....
 
* Set hyperlink transparent on 
 
* Set hyperlink transparent off
 
* ....data as value.... hyperlink selected
 
* Hyperlink address is ....data as value....

Spinner
---------
 
* I want spinner
 
* Spinner value is ....data as value....
 
* Spinner top is ....data as value....
 
* Spinner left is ....data as value....
 
* Spinner width is ....data as value....
 
* Spinner height is ....data as value....
 
* Spinner name is ....data as value....
 
* ....data as value.... Spinner selected 
 
* Spinner fore color is ....data as value....
 
* Spinner back color is ....data as value....
 
* Spinner font name is ....data as value....
 
* Spinner font size is ....data as value....
 
* Spinner font bold is ....data as value....
 
* Spinner font italic is ....data as value....
 
* Spinner font underline is ....data as value....
 
* Spinner font strickout is ....data as value....
 
* Spinner range minimum is ....data as value....
 
* Spinner range maximum is ....data as value....
 
Spinner Events
----------------
 
        gotfocus
        lostfocus
        change

Statusbar
-----------
 
* I want statusbar
 
* Statusbar font name is ....data as value....
 
* Statusbar font size is ....data as value....
 
* Statusbar font bold is ....data as value....
 
* Statusbar font italic is ....data as value.... 
 
* Statusbar font underline is ....data as value....
 
* Statusbar font strickout is ....data as value....
 
* I want status item
 
* I want status clock
 
* I want status date
 
* I want status keyboard
 
* Status item caption is ....data as value....
 
* Status item width is ....data as value....
 
* You show statusbar

Menubar
---------
 
* I want menubar
 
* I want menu popup
 
* Menu popup caption is ....data as value....
 
* I want menu item
 
* Menu item caption is ....data as value....
 
* Menu item name is ....data as value....
 
Menu Item Events
------------------
 
        mouseclick

set window autoshow off
 
I want window and The Window Name is win1.
The window title is Just move me to see what will happen!.
Window top is 50. and window left is 50.
Window width is 350. and window height is 100.
The window back color is {55,155,205}. and you show window
 
I want window and The Window Name is win2.
The window title is Oh what will happen to me ?!.
The window back color is {255,205,175}.
Window top is 250. and window left is 250.
Window width is 350. and window height is 100. and You show window
 
win1 move. instructions are
        win1. window selected and The window title is "window is moved!!!."
        win2. window selected and The window backcolor is {0,0,0}.
        The window title is Oh no, i hate the BLACK color mmmmm.
end of instructions
 
win1 gotfocus. instructions are
        The window title is Wow i have the focus.
end of instructions
 
win1 lostfocus. instructions are
        The window title is Oh no i have lost the focus.
end of instructions
 
win1 mouseclick. instructions are
        The window title is WOw the window is Clicked!.
end of instructions
 
win1 mousemove. instructions are
        The window title is WOw the mouse is Moved!.
end of instructions
 
win1 resize. instructions are
        The window title is WOw the window is Resized!.
end of instructions
 
win2 maximize. instructions are
        The window title is Maximized!.
end of instructions
 
win2 minimize. instructions are
        The window title is Minimized!.
end of instructions

I want window 
The window title is "Label and Button" and The window height is 100.
 
I want label and the label caption is "Label"
I want button and the button caption is "Button"
 
The label left is 50. and the button left is 250.
The label width is 200. and the button width is 200.
 
The label name is lbl1. and lbl1 mouseclick. instructions are
        The button caption is message form label click.
end of instructions
 
The button name is btn1. and btn1 mouseclick. instructions are
        The label caption is message form button click.
end of instructions

Set window auto show off
 
I want window and the window title is "Label and two Buttons"
The window width is 250. and the window height is 200. 
The window backcolor is {100,200,250}.
 
I want button and the button caption is One (1).
The button top is 100. and the button left is 10.
The button width is 100. and the button height is 50.
The button name is btn1.
The button forecolor is {0,0,255}.
The button font bold is true.
 
I want button and the button caption is Two (2).
The button top is 100. and the button left is 130.
The button width is 100. and the button height is 50.
The button name is btn2.
The button forecolor is {0,0,255}.
The button font bold is true.
 
I want label and the label height is 40. 
the label top is 30. the label left is 70.
The label font name is arial. and the label font size is 30.
The label forecolor is {255,0,0}. and the label backcolor is {255,255,255}.
The label font bold is true.
The label font italic is true.
The label font under line is true.
The label font strick out is true.
 
You show window
 
btn1 mouseclick. instructions are
        The label caption is One.
end of instructions
 
btn2 mouseclick. instructions are
        The label caption is Two.
end of instructions

Set window auto show off
 
I want window and the window title is "Label and Three Buttons"
The window width is 370. and the window height is 200.
The window back color is {170,180,190}. 
 
I want label and the label height is 40. 
The label name is lbl1.
the label top is 30. the label left is 130.
The label font name is arial. and the label font size is 30.
The label backcolor is {0,255,0}.
The label font bold is true.
The label font italic is true.
The label font under line is true.
The label font strick out is true.
 
I want button and the button caption is Red.
The button top is 100. and the button left is 10.
The button width is 100. and the button height is 50.
The button name is btn1.
The button forecolor is {0,0,255}.
The button font bold is true.
 
I want button and the button caption is Green.
The button top is 100. and the button left is 130.
The button width is 100. and the button height is 50.
The button name is btn2.
The button forecolor is {0,0,255}.
The button font bold is true.
 
I want button and the button caption is Blue.
The button top is 100. and the button left is 250.
The button width is 100. and the button height is 50.
The button name is btn3.
The button forecolor is {0,0,255}.
The button font bold is true.
 
You show window
 
btn1 mouseclick. instructions are
the label backcolor is {255,0,0}.
end of instructions
 
btn2 mouseclick. instructions are
the label backcolor is {0,255,0}.
end of instructions
 
btn3 mouseclick. instructions are
lbl1. label selected
the label backcolor is {0,0,255}.
end of instructions

set window auto show off
 
I want window and the window title is "checkbox"
The window back color is {100,40,200}.
The window width is 260.
The window height is 200.
 
I want checkbox and the checkbox name is mycheck.
The checkbox top is 50. and the checkbox left is 10.
The checkbox width is 200. and the checkbox height is 30.
The checkbox font name is "arial"
The checkbox font size is 14.
The checkbox forecolor is {255,255,255}.
The checkbox backcolor is {50,200,155}.
The checkbox caption is "Checkbox"
 
I want button and the button caption is On (1).
The button top is 100. and the button left is 10.
The button width is 100. and the button height is 50.
The button name is btn1.
The button forecolor is {0,0,255}.
The button font bold is true.
 
I want button and the button caption is Off (0).
The button top is 100. and the button left is 130.
The button width is 100. and the button height is 50.
The button name is btn2.
The button forecolor is {0,0,255}.
The button font bold is true.
 
You show window
 
btn1 mouseclick. instructions are
        The checkbox value is true.
end of instructions
 
btn2 mouseclick. instructions are
        The checkbox value is false.
end of instructions

Determine color by it's name
------------------------------
 
Example:-
 
        The label fore color is white.
        The label back color is red.
 
               Color           Value
        -------------------------------------------
               aqua           {0,255,255}
               black          {0,0,0}
               blue           {0,0,255}
               darkgray       {128,128,128}
               fuchsia        {255,0,255}
               gray           {128,128,128}
               green          {0,128,0}
               lime           {0,255,0}
               lightgray      {192,192,192}
               maroon          {128,0,0}
               navy           {0,0,128}
               purple         {128,0,128}
               red            {255,0,0}
               silver         {192,192,192}
               teal           {128,128,0}
               white          {255,255,255}
               yellow         {255,255,0}

i want window and the window title is hello.
the window back color is blue.
the window width = 350. and the window height = 200.
 
i want label and the label caption is Welcome.
the label font size is 50.
the label width is 300. and the label height is 80.
the label fore color is white.
the label back color is blue.
 
i want button and the button caption is close.
the button top is 100. and the button left is 20.
the button width is 300. and the button name is btn1.
the button fore color is purple.
the button back color is white.
 
Btn1 MouseClick. instructions are
        You close window
end of instructions

set window auto show off 
 
i want window and the window name is basewin.
The window title is The main window. 
You maximize window and You show window
 
I want window and the window name is mywin.
mywin init. instructions must done and you show window
 
mywin init. instructions are
mywin. window selected
the window top is 50. and the window left is 50.
the window width is 200. and the window height is 200.
the window title is wow. and the window back color is {255,0,0}.
end of instructions
 
mywin mouseclick. instructions are 
I want window and the window name is mywin.
mywin init. instructions must done and you show window
end of instructions
 
mywin maximize. instructions are 
the window title is Maximize!!.
end of instructions

I want window 
The window title is "Textbox"
The window width is 230. and the window height is 130.
 
I want textbox and mytext init. instructions must done
 
I want textbox and mytext init. instructions must done
The textbox top is 50.
 
mytext init. instructions are
The textbox name is mytext.
The textbox font name is "arial" 
The textbox font size is 14.
The textbox fore color is {0,0,255}.
The textbox back color is {100,255,100}.
end of instructions
 
mytext lostfocus. instructions are
        The textbox fore color is {50,100,150}.
        The textbox back color is {255,255,255}.
end of instructions
 
mytext gotfocus. instructions are
        The textbox fore color is {255,255,255}.
        The textbox back color is {50,100,150}.
end of instructions

set window auto show off
 
I want window and the window title is "Editbox"
The window height is 520. and the window width is 440.
 
I want editbox and myeditbox init. instructions must done
the editbox backcolor is {100,200,250}.
the editbox value is "Welcome"
 
I want editbox and myeditbox init. instructions must done
the editbox left is 220.
the editbox value is "How r u ?"
 
I want editbox and myeditbox init. instructions must done
the editbox top is 220.
the editbox value is "Thank u"
 
I want editbox and myeditbox init. instructions must done
the editbox top is 220. and the editbox left is 220.
the editbox backcolor is {250,200,100}.
the editbox value is "I am fine !!"
 
I want button and the button top is 440.
The button height is 30. and the button width is 410.
The button caption is "Close"
The button name is mybtn.
 
you show window
 
mybtn mouseclick. instructions are
        you close window
end of instructions
 
myeditbox init. instructions are
        The editbox name is myeditbox.
        The editbox font name is "arial"
        The editbox font size is 14.
end of instructions
 
myeditbox change. instructions are
        The editbox back color is {50,100,150}.
        The editbox fore color is {255,255,255}.
end of instructions

Set window auto show off
 
I want window and the window title is "Listbox"
The window width is 500.
The window height is 330.
 
I want label and the label top is 210.
The label width is 300. 
The label font name is "Arial" 
The label font size is 14.
 
I want button and the button caption is Close.
The button name is mybtn. and the button top is 250.
 
I want listbox and mylist init. instructions must done
 
I want listbox and mylist init. instructions must done
The listbox left is 230.
 
I want listbox and mylist init. instructions must done
The listbox left is 460.
 
You maximize window and you show window
 
mylist init. instructions are
The listbox name is mylist.
The listbox font name is "arial"
The listbox font size is 14.
The listbox must add item One   (1).
The listbox must add item Two   (2).
The listbox must add item Three (3).
The listbox must add item Four  (4).
The listbox must add item Five  (5).
The listbox value is 3.
end of instructions
 
mylist change. instructions are
        The label caption is "listbox value changed."
end of instructions
 
mylist gotfocus. instructions are
        The listbox forecolor is {255,255,255}.
        The listbox backcolor is {255,0,0}.
end of instructions
 
mylist lostfocus. instructions are
        The listbox forecolor is {0,0,0}.
        The listbox backcolor is {255,255,255}.
end of instructions
 
mybtn mouseclick. instructions are
        You close window
end of instructions

Set window auto show off
 
I want window and the window title is "combobox"
The window width is 500.
The window height is 330.
 
I want label and the label top is 210.
The label width is 300. 
The label font name is "Arial" 
The label font size is 14.
 
I want button and the button caption is Close.
The button name is mybtn. and the button top is 250.
 
I want combobox and mycombo init. instructions must done
 
I want combobox and mycombo init. instructions must done
The combobox left is 230.
 
I want combobox and mycombo init. instructions must done
The combobox left is 460.
 
You maximize window and you show window
 
mycombo init. instructions are
The combobox name is mycombo.
The combobox width is 200.
The combobox height is 200.
The combobox font name is "arial"
The combobox font size is 14.
The combobox must add item One   (1).
The combobox must add item Two   (2).
The combobox must add item Three (3).
The combobox must add item Four  (4).
The combobox must add item Five  (5).
The combobox value is 3.
end of instructions
 
mycombo change. instructions are
        The label caption is "combobox value changed."
end of instructions
 
mycombo gotfocus. instructions are
        The combobox forecolor is {255,255,255}.
        The combobox backcolor is {255,0,0}.
end of instructions
 
mycombo lostfocus. instructions are
        The combobox forecolor is {0,0,0}.
        The combobox backcolor is {255,255,255}.
end of instructions
 
mybtn mouseclick. instructions are
        You close window
end of instructions

Set window auto show off
 
I want window and the window title is "checkbox"
The window width is 500.
The window height is 330.
 
I want label and the label top is 210.
The label width is 300. 
The label font name is "Arial" 
The label font size is 14.
 
I want button and the button caption is Close.
The button name is mybtn. and the button top is 250.
 
I want checkbox and mycheck init. instructions must done
 
I want checkbox and mycheck init. instructions must done
The checkbox left is 230.
 
I want checkbox and mycheck init. instructions must done
The checkbox left is 460.
 
You maximize window and you show window
 
mycheck init. instructions are
The checkbox name is mycheck.
The checkbox width is 200.
The checkbox height is 200.
The checkbox font name is "arial"
The checkbox font size is 14.
end of instructions
 
mycheck change. instructions are
        The label caption is "checkbox value changed."
end of instructions
 
mycheck gotfocus. instructions are
        The checkbox forecolor is {255,255,255}.
        The checkbox backcolor is {255,0,0}.
end of instructions
 
mycheck lostfocus. instructions are
        The checkbox forecolor is {0,0,0}.
        The checkbox backcolor is {255,255,255}.
end of instructions
 
mybtn mouseclick. instructions are
        You close window
end of instructions

i want window and the window title is Execute file.
the window back color is {255,0,0}.
 
i want button and the button caption is Run "welcome2.nova"
the button top is 60. and the button left is 20.
the button width is 300. and the button name is btn1.
 
i want button and the button caption is Run "open test.jpg"
the button top is 100. and the button left is 20.
the button width is 300. and the button name is btn2.
 
Btn1 MouseClick. instructions are
        :note: " execute file command parameter is data as value"
        execute file "..\..\test\welcome2.nova"
end of instructions
 
Btn2 MouseClick. instructions are
        :note: " execute from command parameter is data as expression"
        execute from "(..\..\test\test.jpg)"
end of instructions

i want window and the window title is memory to file.
the window back color is purple.
 
i want button and the button caption is Run "create test.txt"
the button top is 60. and the button left is 20.
the button width is 300. and the button name is btn1.
the button back color is white.
 
Btn1 MouseClick. instructions are
[mystr]. = "(Hello
How are you ?
I hope that you are fine.
bye.)"
[mystr]. memory to file "(test.txt)"
end of instructions

i want window contains editBOX
the window title is file to memory.
the window back color is purple.
 
i want button and the button caption is Run "read test2.txt"
the button top is 260. and the button left is 20.
the button width is 300. and the button name is btn1.
the button back color is white.
 
Btn1 MouseClick. instructions are
        "(test2.txt)" file to memory [x].
        editbox value FROM [x].
end of instructions

i want window contains listbox
the window title is file to memory2.
the window back color is purple.
 
i want button and the button caption is Run "read test2.txt"
the button top is 260. and the button left is 20.
the button width is 300. and the button name is btn1.
the button back color is white.
 
Btn1 MouseClick. instructions are
"(test2.txt)" file to memory [x].
[lineend]. = (
).
        [mymax]. = len [x].
        [myline]. = .
        [y]. = (1). 
        do while [y] <= [mymax].
               [myadd]. = [y] inside [x].
               [myline]. = [myline] [myadd].
               [mycheck]. = (2) right [myline].
               do if  [mycheck] == [lineend] or [y] == [mymax].
                       listbox must add from [myline].                                      
                       [myline]. = .
               end if
               [y]. = [y] + (1).
        end while
end of instructions

i want window and the window title is file to open.
[x]. file to open
the window title from [x].

i want window and the window title is file to save.
[x]. file to save
the window title from [x].

i want window and the window title is file to open2.
[x]. file to open
 
[check]. = [x] == ().
do if [check].
        the window title is no file selected.
end if
do if not [check].
        the window title from [x].
end if

The application title is "Delivery"
Set window auto show off
Set window resize off
 
[myarray]. = (3).
[myarray]\(1). = (Tea).
[myarray]\(2). = (Cafe).
[myarray]\(3). = (Sandwich).
 
I want window and the window title is "Delivery"
Window width = 730. and window height = 530.
 
I want label 
The label width is 700. and label height is 120.
The label font size is 20. 
The label back color = white.
The label caption is 
"       
        What do you want ?
"
 
I want label and label top is 140.
label caption is Title :.
label font name is "arial"
label font size is "14"
 
I want textbox
textbox left is 80.
textbox top is 140.
textbox width is 500.
textbox font name is arial.
textbox font size is 14.
 
I want button
button top is 140.
button left is 600.
button caption is Search.
button font name is arial.
button font size is 14.
button name is BtnSearch.
 
I want listbox and listbox top is 180.
Listbox width is 700. and listbox height is 250.
The listbox font name is arial.
The listbox font size is 14.
 
[x]. = (1). and do while [x] <= [myarray].
The listbox must add from [myarray]\[x].
[x]. = [x] + (1).
end while
 
I want button and the button top is 450.
The button left is 240. and button caption = "Ok"
The button name is btn1.
The button back color is white.
 
I want button and the button top is 450.
The button left is 360. and button caption = "Close"
The button name is btnclose.
The button fore color is white.
The button back color is red.
btnclose mouseclick. instructions are you close application ok
 
listbox value is 1.
 
You centre window and You show window
 
btn1 mouseclick. instructions are
        The listbox value to [x].
        do if not [x] == (0).
               [myitem]. = [myarray]\[x].
               [mystr]. = "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myitem] (
-------------------------------------------------------------------)"
               [mystr]. memory to file "(delivery.txt)"
               execute file "delivery.txt"
        end if
end of instructions
 
btn search mouse click. instructions are
        textbox value to [mystr].
        [mystr]. = lower [mystr].
        [x]. = (1). 
        do while [x] <= [myarray].
               [myitem]. = lower [myarray]\[x].
               [check]. = [mystr] at [myitem].
               do if not [check] == (0).
                       listbox value from [x].
               end if
               [x]. = [x] + (1).
        end while
end of instructions

The application title is "Delivery2"
Set window auto show off
Set window resize off
 
[myarray]. = (3).
[myarray]\(1). = (Tea).
[myarray]\(2). = (Cafe).
[myarray]\(3). = (Sandwich).
 
I want window and the window title is "Delivery"
Window width = 730. and window height = 530.
 
I want label 
The label width is 700. and label height is 120.
The label font size is 20. 
The label back color = white.
The label caption is 
"       
        What do you want ?
"
 
I want label and label top is 140.
label caption is Title :.
label font name is "arial"
label font size is "14"
 
I want textbox
textbox left is 80.
textbox top is 140.
textbox width is 500.
textbox font name is arial.
textbox font size is 14.
textbox name is text1.
 
I want listbox and listbox top is 180.
Listbox width is 700. and listbox height is 250.
The listbox font name is arial.
The listbox font size is 14.
 
[x]. = (1). and do while [x] <= [myarray].
The listbox must add from [myarray]\[x].
[x]. = [x] + (1).
end while
 
I want button and the button top is 450.
The button left is 240. and button caption = "Ok"
The button name is btn1.
The button back color is white.
 
I want button and the button top is 450.
The button left is 360. and button caption = "Close"
The button name is btnclose.
The button fore color is white.
The button back color is red.
btnclose mouseclick. instructions are you close application ok
 
listbox value is 1.
 
You centre window and You show window
 
btn1 mouseclick. instructions are
        The listbox value to [x].
        do if not [x] == (0).
               "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myarray]\[x] (
-------------------------------------------------------------------)"
               memory to file "(delivery.txt)"
               execute file "delivery.txt"
        end if
end of instructions
 
text1 change. instructions are
        textbox value to [mystr].
        [mystr]. = lower [mystr].
        [x]. = (1). 
        do while [x] <= [myarray].
               [myitem]. = lower [myarray]\[x].
               [check]. = [mystr] at [myitem].
               do if not [check] == (0).
                       listbox value from [x].
               end if
               [x]. = [x] + (1).
        end while
end of instructions

What is new in Delivery2.nova ?
 
1 - Interactive search (NO SEARCH BUTTON)
 
2 - Report Generation code changed  
    From :-
               [myitem]. = [myarray]\[x].
               [mystr]. = "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myitem] (
-------------------------------------------------------------------)"
               [mystr]. memory to file "(delivery.txt)"
 
   To :-
 
        "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myarray]\[x] (
-------------------------------------------------------------------)"
               memory to file "(delivery.txt)"

I want window 
The window title is "Call Dll - Play Sound , File Sample.wav"
 
[myarray]. = (3).
[myarray]\(1)\(1). = (string). [myarray]\(1)\(2). = "(sample.wav)"
[myarray]\(2)\(1). = (number). [myarray]\(2)\(2). = (0).
[myarray]\(3)\(1). = (number). [myarray]\(3)\(2). = (0).
"(winmm.dll)" Dll Library to use
"PlaySound" dll function to call with parameters "myarray"

Sound Player Library (SoundPlayerLib.nova)
--------------------------------------------
 
        1 - Source Code 
               1.1 - SoundPlayerLib.nova 
               1.2 - SoundPlayerLibDemo.nova
 
Sound Player Library procedures
---------------------------------
 
        * MySoundOpen  [input]. = "(filename.mp3)"
        * MySoundPlay
        * MySoundPause
        * MySoundResume
        * MySoundClose

Procedure MySoundOpen.
[temparray]. = (4).
[temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(open ")[input](" type mpegvideo alias MediaFile)'
[temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(nil)'
[temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(0)'
[temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
"(winmm.dll)" Dll Library to use
"mciSendString" dll function to call with parameters "temparray"
end procedure
 
Procedure MySoundPlay.
 
[temparray]. = (4).
[temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(play MediaFile)'
[temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(nil)'
[temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(0)'
[temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
"(winmm.dll)" Dll Library to use
"mciSendString" dll function to call with parameters "temparray"
 
end procedure
 
Procedure MySoundPause.
 
[temparray]. = (4).
[temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(pause MediaFile)'
[temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(nil)'
[temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(0)'
[temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
"(winmm.dll)" Dll Library to use
"mciSendString" dll function to call with parameters "temparray"
 
end procedure
 
Procedure MySoundClose.
 
[temparray]. = (4).
[temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(close MediaFile)'
[temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(nil)'
[temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(0)'
[temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
"(winmm.dll)" Dll Library to use
"mciSendString" dll function to call with parameters "temparray"
 
end procedure
 
Procedure MySoundResume.
 
[temparray]. = (4).
[temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(resume MediaFile)'
[temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(nil)'
[temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(0)'
[temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
"(winmm.dll)" Dll Library to use
"mciSendString" dll function to call with parameters "temparray"
 
end procedure

Application title is Sound Player Library Demo. 
 
do file "SoundPlayerLib.nova"
 
I want window 
The window title is "Sound Player Library Demo"
 
i want button and button caption is "open test.mp3" and button top is 50.
button name is btn1.
 
i want button and button caption is play. and button top is 100.
button name is btn2.
 
i want button and button caption is pause. and button top is 150.
button name is btn3.
 
i want button and button caption is resume. and button top is 200.
button name is btn4.
 
i want button and button caption is close. and button top is 250.
button name is btn5.
 
btn1 mouse click. instructions are
        [input]. = "(test.mp3)" and do procedure MySoundOpen.
end of instructions
 
btn2 mouse click. instructions are
        do procedure MySoundPlay.
end of instructions
 
btn3 mouse click. instructions are
        do procedure MySoundPause.
end of instructions
 
btn4 mouse click. instructions are
        do procedure MySoundResume.
end of instructions
 
btn5 mouse click. instructions are
        do procedure MySoundClose.
end of instructions

Sound Recorder Library (SoundRecorderLib.nova)
------------------------------------------------
 
        1 - Source Code 
               1.1 - SoundRecorderLib.nova 
               1.2 - SoundRecorderLibDemo.nova
 
Sound Recorder Library procedures
-----------------------------------
 
        * MySoundRecord
        * MySoundSave  [input]. = "(filename.wav)"

Procedure MySoundrecord.
 
        "(winmm.dll)" Dll Library to use
 
        [temparray]. = (4).
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(open new Type waveaudio Alias recsound)'
        [temparray]\(2)\(1). = (string). [temparray]\(2)\(2). = '()'
        [temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(0)'
        [temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
        "mciSendString" dll function to call with parameters "temparray"
 
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(record recsound)'
        "mciSendString" dll function to call with parameters "temparray"
 
End procedure
 
Procedure MySoundSave.
 
        "(winmm.dll)" Dll Library to use
 
        [temparray]. = (4).
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(save recsound ) [input]'
        [temparray]\(2)\(1). = (string). [temparray]\(2)\(2). = '()'
        [temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(0)'
        [temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
        "mciSendString" dll function to call with parameters "temparray"
 
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(close recsound)'
        "mciSendString" dll function to call with parameters "temparray"
 
End procedure

Application title is Sound Recorder Library Demo. 
 
do file "SoundRecorderLib.nova"
 
I want window 
The window title is "Sound Recorder Library Demo"
 
i want button and button caption is "Record" and button top is 50.
button name is btn1.
 
btn1 mouse click. instructions are
        do procedure MySoundRecord.
end of instructions
 
i want button and button caption is "Save to test.wav" and button top is 100.
button name is btn2.
 
btn2 mouse click. instructions are
        [input]. = "(test.wav)" do procedure MySoundSave.
end of instructions

Movie Player Library (MoviePlayerLib.nova)
--------------------------------------------
 
        1 - Source Code 
               1.1 - MoviePlayerLib.nova 
               1.2 - MoviePlayerLibDemo.nova
 
Movie Player Library procedures
---------------------------------
 
        * MyMovieOpen  
               [input] : filename.avi
               [input2]: Alias  , MyMovie for example
                [input3]: window handle , use command (Window handle to)
        * MyMoviePlay
               [input] : Alias
               [input2] : Movie region as : left top width height
        * MyMoviePause
               [input] : Alias
        * MyMovieResume
               [input] : Alias , MyMovie for example
        * MyMovieClose 
               [input] : Alias , MyMovie for example

Procedure MyMovieOpen.
 
        :note: " [input] = filename.avi  [input2] = Alias  [input3] = window handle"
 
        "(winmm.dll)" Dll Library to use
 
        [temparray]. = (4).
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(open ")[input](" type AVIvideo  alias ) [input2] ( style child parent ) [input3]'
        [temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(0)'
        [temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(128)'
        [temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
        "mciSendString" dll function to call with parameters "temparray"
 
end procedure
 
Procedure MyMoviePlay.
 
        :note: " [input] = Alias  [input2] = movie region entered as left top width height"
 
        "(winmm.dll)" Dll Library to use
 
        [temparray]. = (4).
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(put ) [input] ( window client at ) [input2]'
        [temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(0)'
        [temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(128)'
        [temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
        "mciSendString" dll function to call with parameters "temparray"
 
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(play ) [input]'
        "mciSendString" dll function to call with parameters "temparray"
 
End procedure
 
Procedure MyMoviePause.
 
        :note: " [input] = Alias "
 
        "(winmm.dll)" Dll Library to use
 
        [temparray]. = (4).
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(pause ) [input]'
        [temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(0)'
        [temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(128)'
        [temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
        "mciSendString" dll function to call with parameters "temparray"
 
End procedure
 
Procedure MyMovieResume.
 
        :note: " [input] = Alias "
 
        "(winmm.dll)" Dll Library to use
 
        [temparray]. = (4).
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(resume ) [input]'
        [temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(0)'
        [temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(128)'
        [temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
        "mciSendString" dll function to call with parameters "temparray"
 
 
End procedure
 
Procedure MyMovieClose.
 
        :note: " [input] = Alias "
 
        "(winmm.dll)" Dll Library to use
 
        [temparray]. = (4).
        [temparray]\(1)\(1). = (string). [temparray]\(1)\(2). = '(close ) [input]'
        [temparray]\(2)\(1). = (number). [temparray]\(2)\(2). = '(0)'
        [temparray]\(3)\(1). = (number). [temparray]\(3)\(2). = '(128)'
        [temparray]\(4)\(1). = (number). [temparray]\(4)\(2). = '(0)'
 
        "mciSendString" dll function to call with parameters "temparray"
 
End procedure

Application title is Movie Player Library Demo. 
 
do file "MoviePlayerLib.nova"
 
I want window and window back color is white. and window width is 700.
The window title is "Movie Player Library Demo"
 
i want button and button caption is "open test.avi" and button top is 50.
button name is btn1.
 
i want button and button caption is play. and button top is 100.
button name is btn2.
 
i want button and button caption is pause. and button top is 150.
button name is btn3.
 
i want button and button caption is resume. and button top is 200.
button name is btn4.
 
i want button and button caption is close. and button top is 250.
button name is btn5.
 
btn1 mouse click. instructions are
        [input]. = "(test.avi)"
        [input2]. = (mymovie).
        window handle to [input3].
        do procedure MyMovieOpen.
end of instructions
 
btn2 mouse click. instructions are
        [input]. = (mymovie).
        [input2]. = (150 10 400 300).
        do procedure MyMoviePlay.
end of instructions
 
btn3 mouse click. instructions are
        [input]. = (mymovie). and do procedure MyMoviePause.
end of instructions
 
btn4 mouse click. instructions are
        [input]. = (mymovie). and do procedure MyMovieResume.
end of instructions
 
btn5 mouse click. instructions are
        [input]. = (mymovie). and do procedure MyMovieClose.
end of instructions

I want window and the window title is COM Test.
I want button and button caption is Open Word Application. button width = 150.
button name = btn1.
I want button and button caption is Hide Word.
button name = btn2. and button left = 200.
I want button and button caption is Show Word.
button name = btn3. and button left = 350.
procedure btn1 mouse click.
[myobj]. COM Object to create of type "(Word.Application)"
[myobj]. COM Object to use
"(Documents:Add)" COM method to call with parameters nothing.
(visible). COM Property to set (1).
endprocedure
procedure btn2 mouse click.
[myobj]. COM Object to use and (visible). COM Property to set (0).
endprocedure
procedure btn3 mouse click.
[myobj]. COM Object to use and (visible). COM Property to set (1).
endprocedure

I want window contains LISTBOX and the window title is Using ADODB.
Window width = 600.  and WINDOW HEIGHT = 500.
Window back color is white.
Listbox width = 350. and LISTBOX HEIGHT = 450.
Listbox back color is silver.
Listbox fore color is Black.
Listbox font name is arial.
Listbox font size is 14.
I want button and button caption is Test ADODB.
Button name = btn1. and button LEFT = 400. and button width = 150.
procedure btn1 mouse click.
:Note: " Connect to the
Database Test.MDB"
[MYCON]. COM OBJECT TO CREATE OF TYPE "(ADODB.Connection)"
[MYCON]. COM Object to use
[MYARRAY]. = (1).
[MYARRAY]\(1)\(1). = (string).
[MYARRAY]\(1)\(2). = '(Provider=MSDASQL.1;Persist
Security Info=False;Extended Properties="dsn=MS Access
Database;uid=";Initial Catalog=test.mdb)'
"(OPEN)" COM method to call with parameters MYARRAY.
:Note: " Open Table
MainTable"
[MYRS]. COM OBJECT TO CREATE OF TYPE "(ADODB.Recordset)"
[MYRS]. COM Object to use
(CursorType). COM Property to set (3).
(LockType). COM Property to set (3).
(ActiveConnection). COM Property to set [MYCON].
[MYARRAY]. = (1).
[MYARRAY]\(1)\(1). = (String).
[MYARRAY]\(1)\(2). = '(Select *
from MainTable)'
"(OPEN)" COM method to call with parameters MYARRAY.
:Note: " Delete All
Records"
'(RECORDCOUNT)' COM PROPERTY TO GET [MYMAX].
doif [mymax] > (0).
[X]. = (1).
DoWhile [x] <= [MYMAX].
"(movefirst)" COM method to call with parameters .
"(delete)" COM method to call with parameters .
"(update)" COM method to call with parameters .
[x]. = [x] + (1).
endwhile
endif
:Note: " Add 10 Records
"
[X]. = (1).
DoWhile [x] <= (10).
"(AddNew)" com method to call with parameters .
'|fields:item("Number"):value|' COM PROPERTY TO SET [x].
'|fields:item("Square"):value|' COM PROPERTY TO SET [x] x [x].
"(UPDATE)" COM method to call with parameters .
[x]. = [x] + (1).
EndWhile
:Note: " Show All Records
"
"(movefirst)" COM method to call with parameters .
'(RECORDCOUNT)' COM PROPERTY TO GET [MYMAX].
listbox must add item --------------------------.
listbox must add from (Records
Count = ) [MYMAX].
listbox must add item --------------------------.
listbox must add item
Number
Square.
listbox must add item --------------------------.
[X]. = (1).
DoWhile [x] <= [MYMAX].
'|fields:item("Number"):value|' COM PROPERTY TO GET [V1].
'|fields:item("Square"):value|' COM PROPERTY TO GET [V2].
Listbox must add from [v1] (
)
[v2].
"(movenext)" COM method to call with parameters .
[x]. = [x] + (1).
EndWhile
:Note: " Close Recordset"
"(CLOSE)" COM method to call with parameters .
:Note: " Close Connection"
[MYCON]. COM Object to use and "(CLOSE)" COM method to call with parameters .
endprocedure

i want window and the window title is Loop Array 100.
 
[mytime1]. = the seconds.
 
[x]. = (1). and do while [x] <= (100).
                       [myarray]\[x]. = [x] x [x].
                       [x]. = [x] + (1).
                       do windows events
               end while
 
i want textbox AND the textbox value from [myarray]\(100).
 
[mytime2]. = the seconds.
 
i want textbox and the textbox value from [mytime2]-[mytime1].
 
the textbox top is 50.

i want window and the window title is Loop Array 1,000.
 
[mytime1]. = the seconds.
 
[x]. = (1). and do while [x] <= (1000).
                       [myarray]\[x]. = [x] x [x].
                       [x]. = [x] + (1).
                       do windows events
               end while
 
i want textbox and the textbox value from [myarray]\(1000).
 
[mytime2]. = the seconds.
 
i want textbox and the textbox value from [mytime2]-[mytime1].
 
the textbox top is 50.

i want window and the window title is Loop Array 10,000.
 
[mytime1]. = the seconds.
 
[x]. = (1). and do while [x] <= (10000).
                       [myarray]\[x]. = [x] x [x]. 
                       [x]. = [x] + (1).
                       do windows events
               end while
 
i want textbox and the textbox value from [myarray]\(10000).
 
[mytime2]. = the seconds.
 
i want textbox and the textbox value from [mytime2]-[mytime1].
 
the textbox top is 50.

i want window and the window title is Loop Array 100,000.
 
[mytime1]. = the seconds.
 
[x]. = (1). and do while [x] <= (100000).
                       [myarray]\[x]. = [x] x [x]. 
                       [x]. = [x] + (1).
                       do windows events
               end while
 
i want textbox and the textbox value from [myarray]\(100000).
 
[mytime2]. = the seconds.
 
i want textbox and the textbox value from [mytime2]-[mytime1].
 
the textbox top is 50.

i want window and the window title is Loop Array 1,000,000.
 
[mytime1]. = the seconds.
 
[x]. = (1). and do while [x] <= (1000000).
                       [myarray]\[x]. = [x] x [x]. 
                       [x]. = [x] + (1).
                       do windows events
               end while
 
i want textbox and the textbox value from [myarray]\(1000000).
 
[mytime2]. = the seconds.
 
i want textbox and the textbox value from [mytime2]-[mytime1].
 
the textbox top is 50.

i want window and the window title is Loop10000.
 
[mytime1]. = the seconds.
 
[x]. = (1). and do while [x] <= (10000).
                       [Y]. = [X] x [X]. 
                       [x]. = [x] + (1).
                       do windows events
               end while
 
i want textbox and the textbox value from [Y].
 
[mytime2]. = the seconds.
 
i want textbox and the textbox value from [mytime2]-[mytime1].
 
the textbox top is 50.

Error Messages
----------------
 
   1) : Unexpected End IF Statement - Do IF Statement is required.
   2) : Unclosed Do IF Statement structure- End IF Statement is required.
   3) : Unexpected End While Statement - Do While Statement is required.
   4) : Unclosed Do While Statement structure- End While Statement is required.
   5) : General Syntax Error.
   6) : Command Error, The Grammer is TRUE but the Command is undefined.
   7) : Expression Error [Variable] is expected.
   8) : Expression Error (Value) is expected.
   9) : General Expression Error.
  10) : Expression Error, Cann't determine expression result.
  11) : Bad GUI Command (No Window Defined).
  12) : Bad GUI Command (No Object Defined).
  13) : Unexpected OK/End Function/End Procedure/End Of Instructions Statement
  14) : Unclosed Procedure/.....Instructions Are/Function Statement structure

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
[X]. = (1).
 
DO IF [X] = (1).
DO IF [X] = (1).
DO IF [X] = (1).
endif
DO IF [X] = (1).
DO IF [X] = (1).

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
 
endif
endif
 
do if [x] = (1).
endif
 
endif
endif

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
 
endif
do if [x] = (1).

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
[X]. = (1).
DO IF [X] = (1).

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
 
endif

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
[X]. = (1).
 
DO While [X] = (1).
DO While [X] = (1).
DO While [X] = (1).
endWhile
DO While [X] = (1).
DO While [X] = (1).

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
 
endWhile
endWhile
 
do While [x] = (1).
endWhile
 
endWhile
endWhile

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
 
endwhile
do while [x] = (1).

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
[X]. = (1).
DO While [X] = (1).

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
 
endwhile

Application title = Error.
 
I want window and window title = Error.
 
what

Application title = Error.
 
I want window and window title = Error.
 
You show listbox

Application title = Error.
 
I want window and window title from [x.

Application title = Error.
 
I want window and window title from (5.

Application title = Error.
 
I want window and window title from wow.

Application title = Error.
 
I want window and window title from + (5).

Application title = Error.
 
I want window and window title from (100) / (0).

the window title is wow.

i want window
the button caption is wow.

the textbox value is wow.

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
end of instructions

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
function wow.

Application title = Error.
 
I want window and window title = Error.
Window height = 130.
 
End function
 
function wow.

Supernova Programming Language Grammar
----------------------------------------
 
* The Language is not Case/Space/Line/Tab sensitive
* The Token is a one character (Letter/Number/....etc). 
* The Grammer is ***Context Sensitive***
 
S       read as  Statement and it is the StartUp Symbol
->      read as  May be replaced by
P       read as (Pronouns + some other tokens ) Class 
V       read as (Verbs + some other tokens ) Class 
C       read as (Classes + some other tokens ) Class 
I       read as (Instructions + some other tokens ) Class 
A       read as (Attributes + some other tokens ) Class 
D       read as (Data as value or Data as Expression )
(....)  read as (Real Stack Tokens without Classification and without data)
OPCode  read as Operation Code related to a command in the language

The Basic Context Controlling Rules
-------------------------------------
 
S -> SI         Rule 1
S -> SPVC       Rule 2
S -> SCAVD     Rule 3  
S -> SDI       Rule 4
S -> SDVD      Rule 5
 
Since the token is one Character classification ( I, P, V, C, A & D)
is used to manage them
 
Also there are switches determine the next class
i.e. Classes are context sensitive
 
1 - I may comes only after S or D  (See Rules 1 and 4)
2 - P may comes only after S (See Rule 2)
3 - V may comes only after P, A or D (See Rules 2,3 and 5)
4 - C may comes only after V or S (See Rules 2 and 3)
5 - A may comes only after C (See Rule 3)
 
i.e. In the start of tokens classification, the expected token class
is I,P,C or D.
 
Last accepted class              Next class must be
        S                           I,P,C OR D
        I                             → S
        P                             → V
        C                             S OR A
        A                             → V
        D                            S, I OR V
        V                             C OR D