Sorry your browser is not supported!

do

set cursor 0,0
print "Press F1 to print Hello World"

if keystate(59) = 1
   print "Hello World!"
endif

loop

set cursor 0,0
print "Press F1 to print Hello World"

a$ = "Hello World!"

do
if keystate(59) = 1
   print a$
endif

if keystate(59) = 0
   cls a$
endif

loop

set cursor 0,0
print "Press F1 to print Hello World"
a$ = "Hello World!"

do
if keystate(59) = 1
set cursor 0,0
   print a$
endif

if keystate(59) = 0
   cls
endif
loop

do
print "Hello
loop

`Sync means "update the screen" - we want to update the screen.
sync on
`This means that if the computer is fast enough, run through the loop 60 times a second.
sync rate 60

`Our variable for printing.  More descriptive names SO help in the long run.
Welcome$ = "Hello World!"


`Start of our do/loop.  Everything in here happens many times a second (60).
do

   `Clean the screen every loop.
   cls

   `position the printing cursor in the top left - play with these numbers if you like.
   set cursor 0,0

   `Every loop, print out the instructions.
   print "Press (and hold) F1 to say hello."


   `Check to see if F1 is pressed.
   if keystate(59) = 1
      print Welcome$
   endif

   `Note, we don't need to check to see if we're NOT pressing F1
   `Because if we're not pressing it, it never gets printed and
   `the screen stays black from the 'cls'.

   `This commant tells the program to update the screen!
   sync
loop

set cursor 0,0
print "Press F1 to print Hello World"
a$ = "Hello World!"

do
if keystate(59) = 1
set cursor 0,0
   print a$
endif

if keystate(59) = 0
   cls
endif
loop

make object box 1,1,1,1: color object 1,rgb(255,200,200)

sync on:do

IF upkey()= 1 then box1#=box1#+0.5
IF downkey()= 1 then box1#=box1#-0.5

sync:loop

make object box 1,1,1,1: color object 1,rgb(255,200,200)

sync on:do

IF upkey()= 1 then box1#=box1#+0.5
IF downkey()= 1 then box1#=box1#-0.5

sync:loop

make object box 1,1,1,1: color object 1,rgb(255,200,200)

sync on:do

box1#=object position y(1) : `added this line (tells comp what the hell box1# is.)

IF upkey()= 1 then box1#=box1#+0.5
IF downkey()= 1 then box1#=box1#-0.5

sync:loop 

set cursor 0,0
print "Press F1 to print Hello World"
a$ = "Hello World!"

do
if keystate(59) = 1
set cursor 0,0
   print a$
endif

if keystate(59) = 0
   cls
endif
loop

a$ = "Hello World!"

do
set cursor 0,0
print "Press F1 to print Hello World"

if keystate(59) = 1
   if hello_world=0 : `where hello_world is to tell you if "hello world" is true\displayed (1) or false/deleted (0)
      set cursor 0,20
      print a$
      hello_world=1 : `tells comp that "hello world" is now displayed
   else
      cls
      hello_world=0 : `tells comp that "hello world" is now deleted
   endif
endif

wait 100 : `optional wait to stop it from appearing dissapearing too fast
sync
loop

`set cursor works like...... set cursor x,y
`where x is the distance across the screen
`and y is the distance down the screen

make object box 1,1,1,1: color object 1,rgb(255,200,200)

sync on:do

box1#=object position y(1) : `added this line (tells comp what the hell box1# is.)

IF upkey()= 1 then box1#=box1#+0.5
IF downkey()= 1 then box1#=box1#-0.5

sync:loop 

make object box 1,1,1,1: color object 1,rgb(255,255,100)

sync on:do
hide mouse:sync rate 40

box1#=object position y(1)

IF upkey()= 1 then box1#=box1#+5
IF downkey()= 1 then box1#=box1#-5

position object 1,0,0,box1#
position camera 0,10,-10:point camera 0,0,0
sync:loop