Sorry your browser is not supported!

turn = 1

do
	if mouseclick()=1 and turn = 1
		turn = 0
		print "mouse"
	endif
	
	wait key
	cls
	turn = 1

loop	

turn = 1

do
   repeat
      if mouseclick()=1 and turn = 1
         turn = 0
         print "mouse"
      endif
   until scancode()<>0

   cls
   turn = 1

loop

turn = 1

do
   repeat
      if mouseclick()=1 and turn = 1
         turn = 0
         input "type something,",keyInput
         nextTurn = 1
      endif
   until scancode()<>0

print "press space"

	wait key
   
   repeat
   		if nextTurn = 1
   			nextturn = 0
   			turn = 1
   			print "Thanks for typing, ",keyInput
   		endif
   	until scancode()<>0

	print "press space"
	
	cls

loop

do

  print "Press space to type name"
  do
    if spacekey()=1 then exit
  loop
  input "What is your name?",name$

  print "Press space to read greeting"
  do
    if spacekey()=1 then exit
  loop
  print "Hello, ";name$;"!"

  print "Press any key"
  wait key
  cls

loop

turn = 1

do
   repeat
      if mouseclick()=1 and turn = 1
         turn = 0
         print turn
      endif
     if turn = 1
     	turn = 0
     else
     	if turn = 0
     		turn = 1
     	endif
     endif
   until scancode()<>0

   cls
   turn = 1

loop

Player = 1

do
	
	swap = 0
	if player = 1
		swap = 1
		inc player
	else
		if player = 2 and swap = 0
			dec player
		endif
	endif
	
	print "Player is ",player
	wait key
loop