The La Li Lu Le Lo?

// places a bet on either red or black
// and doubles your original bet if you
// lose and repeats until you get your
// money back.
 
set display mode 320, 240, 32
backdrop on

sync on
sync rate 60
backdrop on
autocam off
set camera range 10, 10000
 
position camera 300,300, 0
xrotate camera 45
move camera -500
 
global displayData : displayData = 1

`setup
global datcnt
dim datname(datcnt) as string
dim datentry(datcnt) as string
 
`example
set_dat("hi", "greeting")
set_dat("bye", "not greeting")
 
print get_dat("hi")

//standard setup code
sync on
sync rate 30
 
 
//prepare the code holding array
dim code$(10)
 
 
//stick our code in an array
code$(1) = "print"
code$(2) = "hello!"
 
code$(3) = "print"

sync on
sync rate 30
 
make object cube 1, 10
make object cube 2, -11
color object 2, 0
set object ambience 2, 0
 
move camera -50
 
do
   turn object right 1, 2
   turn object right 2, 2