Voting
Category
real language
Bookmarking
Language Genero 4GL
| Date: | 01/11/06 |
| Author: | Johan de Lange |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://www.fourjs.com |
| Score: |  (2.00 in 5 votes) |
# Simple Genero 4GL program consisting of beer.4gl and beer_frm.per
# www.fourjs.com
# fgl2p beer.4gl
# fglform beer_frm.per
# FGLGUI=1;export FGLGUI
# FGLSERVER=`your ip`;export FGLSERVER
# fglrun beer.42m
# beer.4gl
main
define
lyrics string,
verse string,
i smallint
close window screen
open window beer_win with form "beer_frm"
attributes(style="dialog")
for i=99 to 0 step -1
case i
when 0
let verse = "No more bottles of beer on the wall, no more bottles of beer.\n"
let verse = verse.append("Go to the store and buy some more, 99 bottles of beer on
the wall.\n")
when 1
let verse = "1 bottle of beer on the wall, 1 bottle of beer.\n"
let verse = verse.append("Take one down and pass it around, no more bottles of beer
on the wall.\n")
otherwise
let verse = sfmt("%1 bottles of beer on the wall, %1 bottles of beer.\n",i)
let verse = verse.append(sfmt("Take one down and pass it around, %1",i-1))
if i = 2 then
let verse = verse.append(" bottle")
else
let verse = verse.append(" bottles")
end if
let verse = verse.append(" of beer on the wall.\n")
end case
let lyrics = lyrics.append(verse)
display by name lyrics
end for
menu
command "Ok"
exit menu
end menu
end main
# beer_frm.per
SCHEMA FORMONLY
LAYOUT(Text="Beer Song")
VBOX
GROUP(text="Lyrics")
GRID
{
[A0 ]
[ ]
[ ]
[ ]
[ ]
[ ]
[ ]
[ ]
[ ]
[ ]
}
END
END
END
END
ATTRIBUTES
TEXTEDIT A0 = formonly.lyrics;
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments