%Frogger!
View.Set("Offscreenonly, graphics:maxx;maxxy, position:center;center, title: Frogger")
var frog1_x, frog1_y, frog1_xr, frog1_yr : int %My frog's cordinates
var chars : array char of boolean % Has to be here...
var level : int % Defines what level we are on
var continue : string  %Allows the user to continue
var mainmenu : boolean % Variable to help me tell wether or not to bring up a mian menu
var mainmenu_continue : string % Varriable to toggle main menu
var fontTNR : int % My font Times New Roman
frog1_x := 25  %Frog X
frog1_y := 25  % Frog Y
frog1_xr := 20 % Frog X radius
frog1_yr := 10 % Frog y radius
level := 1  % level
mainmenu := true
continue := "a"  %Var to continue or not
loop % Main Loop
    loop % Main menu bug proof loop
        if mainmenu = true then % Toggles main menu
            fontTNR := Font.New ("TimeNewRoman:18")
            Font.Draw ("Welcome to Frogger!", maxx div 2, maxy div 2 + 35, fontTNR, green)
            fontTNR := Font.New ("TimeNewRoman:12")
            delay (1000)
            Font.Draw ("To continue, type 'r' !", maxx div 2 + 15, maxy div 2, fontTNR, red)
            locatexy (maxx div 2 + 20, maxy div 2 - 15)
            get mainmenu_continue  %Asks if they'd like to continue (types r)
        else %If main menu is false it exits the mainmenu loop
        exit
        end if
        if mainmenu_continue = "r" then
            mainmenu := false  %If you typed 'r' it changes mainmenu to false
            cls
            exit %exits the loop
        else %If you typed anything else...
            cls
            put "That is an invalid answer!"
            delay (2000)
            cls
        end if  %Repeats loop after telling you that that is an invalid answer.
    end loop
    Input.KeyDown (chars)
        if chars ('d') then  %Frog moving to the right
            frog1_x += + 1
            delay(2)
        end if
        if chars (KEY_RIGHT_ARROW) then %^
            frog1_x += + 1
            delay (2)
        end if
        if chars (KEY_LEFT_ARROW) then % Frog moving to the left
            frog1_x += - 1
            delay (2)
        end if
        if chars ('a') then % ^
            frog1_x += -1
            delay (2)
        end if
        if chars (KEY_ENTER) then % Resets the frogs position to the starting  position
            frog1_x := 25
            frog1_y := 25
        end if
        if chars (KEY_UP_ARROW) then % Moves the frog up
            frog1_y += +1
            delay (2)
        end if
        if chars ('w') then % ^
            frog1_y += +1
            delay (2)
        end if
        if chars ('s') then % Moves the frog down
            frog1_y += -1
            delay (2)
        end if
        if chars (KEY_DOWN_ARROW) then % ^
            frog1_y += -1
            delay (2)
        end if
    loop
        if frog1_y >= 390 then  %If you get to the top it tells you that you win
        cls
            put "You win! Type 'c' to conintue!"
            get continue
    View.Update
        else
        exit
        end if
        if continue = "c" then
            cls
            level += + 1 %if you won and typed c it changes your level
            exit
        else   
        end if
    end loop
    if frog1_x <= 30 then % Left border
        frog1_x += 1
    end if
    if frog1_y <= 25 then % bottom border
        frog1_y += 1
    end if
    if frog1_x >= 620 then % right border
        frog1_x += -1
    end if 
    cls
    put "Level:", level %Current level
    colorback(0) put "Frog1_x:", frog1_x, " Frog1_y:", frog1_y %Frog cordinates (Helps to see it while programming)
    drawfilloval (frog1_x, frog1_y, frog1_xr, frog1_yr, green) %Frog
    View.Update
end loop % end of main loop

View.Set ("Offscreenonly")
var o_x, o_y : real := 25
var chars : array char of boolean
var directionx, directiony, speed : real
directionx := 1.2
directiony := 1
speed := +1.86543
loop
cls
Input.KeyDown (chars)
if chars ('d') then
    o_x := o_x + (directionx * speed)
end if
put "o_x:", o_x
drawfilloval (round (o_x), round (o_y), 10, 10, blue)
View.Update
delay (10)
end loop

var my_array : array 1 .. 5 of string := init ( "Hello", "World", "This", "is", "array" )

for i : 1 .. 5 % could also be lower(my_array) .. upper(my_array) if your bounds are different
    put my_array(i)
end for

put "Hello"
put "World"
put "This"
put "is"
put "verbose"