Sorry your browser is not supported!

Rem ***** Main Source File *****
Rem Project: #between1-10 v.2
Rem Created: Friday, December 10, 2010

cls
dim players$(10)
global picknumber

Print "Apologies, I have yet to understand how to create a program that can tell who is closest to the number."
print "You will have to guess the number exactly to win.  D:"
   
rem iput name of picker of # and 1st guesser and # value
Print "What is your name?"
Input ">" ,pick$
players$(1)=pick$             :`we can store the players names in a string array


cls
Print "Hello ",pick$, " please think of a number between 1 and 10 and type it below."
num$=""
picknumber=0
while picknumber<1 or picknumber>10       :`you need to use the val command to compare a string variable to a number
   input ">",num$                         :`indent all commands within loop commands, WHILE, IF, DO, etc.
   picknumber=val(num$)                   :`use the val command to change a string into a number
endwhile                                  :`that way it is easy to see that this WHILE command has a matching ENDWHILE command


cls
Print "Thank you, please have the person guessing your number enter their name."
Input ">", ppl1$
players$(2)=ppl$                    :`just storing player 2 name into array also, for later use


cls
print "Hello ",ppl1$, " how many people will be guessing including yourself, ",ppl1$, "."
numpeople=0
repeat
   input ">",pplz$
   numpeople=val(pplz$)
until numpeople>=1 and numpeople<=5

print "This is as far as the program runs so far..."
print "Press a key to go past this point"
wait key
`--------- You will have to continue from here --------------------------
`if you don't know some of the commands I used, highlight the command and press the f1 key
`the help files are a great way to learn about new commands




rem run program for the correct amount of people
more:
Print "please enter the number of people that will be guessing including yourself, ",ppl1$, "."
input ">" ,numppl$
cls
if numppl=1 then goto 1ppl
if numppl=2 then goto 2ppl
if numppl=3 then goto 3ppl
if numppl=4 then goto 4ppl
if numppl=5
   goto 5ppl
else 
   gosub no
endif
goto more

rem if wrong input is entered program restarts
no:
Print "You did not enter a valid response.  Would you like to return a point near where you were last?  Type y or n to answer"
input ">", noz$
if noz=y then return
if noz=n 
   goto endz
else
   gosub no
endif
goto no

1ppl:
print "1 person is guessing?  Type y or n to answer."
input ">" ,w$
cls
if w=y then goto guessing1
if w=n 
   goto more
else 
   gosub no
endif
goto 1ppl

2ppl:
print "2 people are guessing?  Type y or n to answer."
input ">" ,w$
cls
if w=y then goto guessing2
if w=n 
   goto more
else 
   gosub no
endif
goto 2ppl

3ppl:
print "3 people are guessing?  Type y or n to answer."
input ">" ,w$
cls
if w=y then goto guessing3
if w=n 
   goto more
else 
   gosub no
endif
goto 3ppl

4ppl:
print "4 people are guessing?  Type y or n to answer."
input ">" ,w$
cls
if w=y then goto guessing4
if w=n 
   goto more
else 
   gosub no
endif
goto 4ppl

5ppl:
print "5 people are guessing?  Type y or n to answer."
input ">" ,w$
cls
if w=y then goto guessing5
if w=n 
   goto more
else 
   gosub no
endif
goto 5ppl

guessing1:
Print "Enter your guess"
input ">",guess1
cls
if guess1=num then goto 1win
if guess1<>num 
   goto lose
else 
   gosub no
endif
goto guessing1

guessing2:
Print ppl1$, ", please enter your guess.  "
input ">",guess1
cls
print "Please have the second player enter their name.  "
input ">",ppl2$
cls
print "Hello ",ppl2$,".  Please enter your guess.  "
input ">",guess2
cls
if guess1=num and guess2<>num then goto 1win
if guess2=num and guess1<>num then goto 2win
if guess1<>num and guess2<> num then goto tie
if guess2=num and guess1=num
   goto tie
else 
   gosub no
endif
goto guessing2

guessing3:
Print ppl1$, ", please enter your guess.  "
input ">",guess1
cls
print "Please have the second player enter their name.  "
input ">",ppl2$
cls
print "Hello ",ppl2$,".  Please enter your guess.  "
input ">",guess2
cls
Print "Please have the third player enter their name.  "
input ">", ppl3$
cls
Print "Hello ", ppl3$, ".  Please enter your guess.  "
input ">", guess3
cls
if guess1=num and guess2<>num and guess3<>num then goto 1win
if guess2=num and guess1<>num and guess3<>num then goto 2win
if guess3=num and guess2<>num and Guess1<>num then goto 3win
if guess1<>num and guess2<>num and guess3<>num then goto tie
if guess1=num and guess2=num then goto tie
if guess1=num and guess3=num then goto tie
if guess2=num and guess3=num 
   goto tie
else 
   gosub no
endif
goto guessing3

guessing4:
Print ppl1$, ", please enter your guess.  "
input ">",guess1
cls
print "Please have the second player enter their name.  "
input ">",ppl2$
cls
print "Hello ",ppl2$,".  Please enter your guess.  "
input ">",guess2
cls
Print "Please have the third player enter their name.  "
input ">",ppl3$
cls
Print "Hello ", ppl3$, ".  Please enter your guess.  "
input ">" ,guess3
cls
Print "Please have the fourth player enter their name.  "
input ">" ,ppl4$
cls
Print "Hello ",ppl4$, ".  Please enter your guess.  "
input ">",guess4
cls
if guess1=num and guess2<>num and guess3<>num and guess4<>num then goto 1win
if guess2=num and guess1<>num and guess3<>num and guess4<>num then goto 2win
if guess3=num and guess2<>num and Guess1<>num and guess4<>num then goto 3win
if guess4=num and guess2<>num and Guess1<>num and guess3<>num then goto 4win
if guess1<>num and guess2<>num and guess3<>num and guess4<>num then goto tie
if guess1=num and guess2=num then goto tie
if guess1=num and guess3=num then goto tie
if guess2=num and guess3=num then goto tie
if guess1=num and guess4=num then goto tie
if guess2=num and guess4=num then goto tie
if guess3=num and guess4=num 
   goto tie
else 
   gosub no
endif
goto guessing4

guessing5:
Print ppl1$, ", please enter your guess.  "
input ">",guess1
cls
print "Please have the second player enter their name.  "
input ">",ppl2$
cls
print "Hello ",ppl2$,".  Please enter your guess.  "
input ">",guess2
cls
Print "Please have the third player enter their name.  "
input ">",ppl3$
cls
Print "Hello ", ppl3$, ".  Please enter your guess.  "
input ">" ,guess3
cls
Print "Please have the fourth player enter their name.  "
input ">" ,ppl4$
cls
Print "Hello ",ppl4$, ".  Please enter your guess.  "
input ">",guess4
cls
Print "Please have the fifth player enter their name.  "
Input ">",ppl5$
cls
Print "Hello ",ppl5$, ".  Please enter your guess.  "
input ">" ,guess5
cls
if guess1=num and guess2<>num and guess3<>num and guess4<>num and guess5<>num then goto 1win
if guess2=num and guess1<>num and guess3<>num and guess4<>num and guess5<>num then goto 2win
if guess3=num and guess2<>num and Guess1<>num and guess4<>num and guess5<>num then goto 3win
if guess4=num and guess2<>num and Guess1<>num and guess3<>num and guess5<>num then goto 4win
if guess5=num and guess1<>num and guess2<>num and guess3<>num and guess4<>num then goto 5win
if guess1<>num and guess2<>num and guess3<>num and guess4<>num and guess5<>num then goto tie
if guess1=num and guess2=num then goto tie
if guess1=num and guess3=num then goto tie
if guess2=num and guess3=num then goto tie
if guess1=num and guess4=num then goto tie
if guess2=num and guess4=num then goto tie
if guess3=num and guess4=num then goto tie
if guess1=num and guess5=num then goto tie
if guess2=num and guess5=num then goto tie
if guess3=num and guess5=num then goto tie 
if guess4=num and guess5=num 
   goto tie
else 
   gosub no
endif
goto guessing5

1win:
Print ppl1$, " was closest to the number.  ",ppl1$," wins!  The number was " ,num, "."
goto again

lose:
Print "Sorry, you guessed the wrong number.  The number was actually ",num, "."
goto again

2win:
Print ppl2$, " was closest to the number.  ",ppl2$," wins!  The number was " ,num, "."
goto again

3win:
Print ppl3$, " was closest to the number.  ",ppl3$," wins!  The number was " ,num, "."
goto again

4win:
Print ppl4$, " guessed to the number.  ",ppl4$," wins!  The number was " ,num, "."
goto again

5win:
Print ppl5$, " guessed the number.  ",ppl5$," wins!  The number was " ,num, "."
goto again

tie:
Print "Either 2 or more people guessed the number, or nobody did.  We have a tie.  The number was actually " ,num, "."
goto again

again:
Print "Do you want to play again?  Type y or n to answer.  "
input ">" ,again$
cls
`if again=y then goto number
if again=n
   gosub endz
else
   gosub no
endif
goto again
   
endz:
Print "End the program? Type y or n to answer.  "
input ">",endz2$
cls
if endz2=y then goto endzz
if endz2=n 
   return
else 
   gosub no
endif
goto endz

endzz:
END

set display mode 1024,768,32,1
sync on
gosub setup

menu:

do
if spacekey()=1
    gosub game
endif
sync
loop

game:

do
gosub control

sync
loop

return


control:

(player control code)

return

setup:

a=1 etc....

return

Rem num 1-10 v.3
rem 12/11/10
rem created by Tyler Kirkham
rem it may or may not work!  :)

Do
Sync on 
Sync rate 30
gosub Names 

Names:
Print "Please enter your the name of the person choosing the number."
input "> ",numpicker
Print "Hello ",numpicker, ", how many people will be guessing?"
Print "There can be 5 guessers maximum.  "
input "> ",numppl
if numppl=1 
	gosub 1guess
	if numppl=2
		gosub 2guess
		if numppl=3
			gosub 3guess
			if numppl=4
				gosub 4guess
				if numppl=5
					gosub 5guess
					if numppl>5 or numppl<1 
						gosub no
					endif
				endif
			endif
		endif
	endif
endif
sync
loop


1guess:
Print "Please enter the guesser's name.  "
input "> ",gessr1
Print "Hello ",gessr1, ".  Please enter your guess.  "
input gessr1," > " ,gess1

sync
return

2guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1
input "2> ",gessr2
Print "Hello ",gessr1, " and ",gessr2,".  Please enter your guesses.  "
input gessr1," 1> " ,gess1
input gessr2," 2> " ,gess2
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

3guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1
input "2> ",gessr2
input "3> ",gessr3
Print "Hello ",gessr1, ", ",gessr2, ", and ",gessr3,".  Please enter your guesses.  "
input gessr1," 1> " ,gess1
input gessr2," 2> " ,gess2
input gessr3," 3> " ,gess3
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

4guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1
input "2> ",gessr2
input "3> ",gessr3
input "4> ",gessr4
Print "Hello ",gessr1, ", ",gessr2, ", " ,gessr3,", and ",gessr4,".  Please enter your guesses.  "
input gessr1," 1> " ,gess1
input gessr2," 2> " ,gess2
input gessr3," 3> " ,gess3
input gessr4," 4> " ,gess4
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

5guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1
input "2> ",gessr2
input "3> ",gessr3
input "4> ",gessr4
input "5> ",gessr5
Print "Hello ",gessr1, ", ",gessr2, ", " ,gessr3,", " ,gessr4,", and ",gessr5,".  Please enter your guesses.  "
input gessr1," 1> " ,gess1
input gessr2," 2> " ,gess2
input gessr3," 3> " ,gess3
input gessr4," 4> " ,gess4
input gessr5," 5> " ,gess5
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

Rem num 1-10 v.3
rem 12/11/10
rem created by Tyler Kirkham
rem it may or may not work!  :)

Sync on 
Sync rate 30

start:
Do
gosub Names 

Names:
Print "Please enter your the name of the person choosing the number."
input "> ",numpicker$
cls
Print "Hello ",numpicker$, ", how many people will be guessing?"
Print "There can be 5 guessers maximum.  "
input "> ",numppl
cls
if numppl=1 
	gosub 1guess
	if numppl=2
		gosub 2guess
		if numppl=3
			gosub 3guess
			if numppl=4
				gosub 4guess
				if numppl=5
					gosub 5guess
					if numppl>5 or numppl<1 
						gosub endz
					endif
				endif
			endif
		endif
	endif
endif
sync
loop


1guess:
Print "Please enter the guesser's name.  "
input "> ",gessr1$
cls
Print "Hello ",gessr1$, ".  Please enter your guess.  "
input " > " ,gess1
cls

sync
return

2guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
cls
Print "Hello ",gessr1$, " and ",gessr2$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

3guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
input "3> ",gessr3$
cls
Print "Hello ",gessr1$, ", ",gessr2$, ", and ",gessr3$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
input " 3> " ,gess3
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

4guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
input "3> ",gessr3$
input "4> ",gessr4$
cls
Print "Hello ",gessr1$, ", ",gessr2$, ", " ,gessr3$,", and ",gessr4$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
input " 3> " ,gess3
input " 4> " ,gess4
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

5guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
input "3> ",gessr3$
input "4> ",gessr4$
input "5> ",gessr5$
cls
Print "Hello ",gessr1$, ", ",gessr2$, ", " ,gessr3$,", " ,gessr4$,", and ",gessr5$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
input " 3> " ,gess3
input " 4> " ,gess4
input " 5> " ,gess5
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

endz:
print "You entered an invalid response.  Go to the start of the program and try again, or end it.  "
print "Would you like to end the program or begin at the start?  Type e or s to answer"
input "> ",douwantend
if douwantend=e
	end
	if douwantend=s
		goto start
	endif
endif
rem I know i used a goto, but i do not need to return so i question the logic behind me using a gosub for this one command only.  
rem Correct me if i'm wrong...

if numppl=1 
	gosub 1guess
	if numppl=2
		gosub 2guess
		if numppl=3
			gosub 3guess
			if numppl=4
				gosub 4guess
				if numppl=5
					gosub 5guess
					if numppl>5 or numppl<1 
						gosub endz
					endif
				endif
			endif
		endif
	endif
endif

if numppl=1 then gosub 1guess
if numppl=2 then gosub 2guess
if numppl=3 then gosub 3guess
if numppl=4 then gosub 4guess
if numppl=5 then gosub 5guess
if numppl>5 or numppl<1 then gosub endz

select numppl
    case 1 : gosub 1guess : endcase
    case 2 : gosub 2guess : endcase
    case 3 : gosub 3guess : endcase
    case 4 : gosub 4guess : endcase
    case 5 : gosub 5guess : endcase
    case default : gosub endz : endcase
endselect

Do
gosub Names 

Names:

if numppl=1 
	gosub 1guess
	if numppl=2
		gosub 2guess
		if numppl=3
			gosub 3guess
			if numppl=4
				gosub 4guess
				if numppl=5
					gosub 5guess
					if numppl>5 or numppl<1 
						gosub endz
					endif
				endif
			endif
		endif
	endif
endif

select numppl
  case 1
    gosub 1guess
  endcase
  case 2
    gosub 2guess
  endcase
  case 3
    gosub 3guess
  endcase
  case 4
    gosub 4guess
  endcase
  case 5
    gosub 5guess
  endcase
  case default
    gosub endz
  endcase
endselect

` Ask for the number of people guessing
print "Please enter the number of people that will be guessing."
input "> ",MaxPeople
print ""

` Make an array for the player names
dim Player$(MaxPeople)

` Make an array for the player current guesses
dim Guess(MaxPeople)

` Go through each player
for t=1 to MaxPeople

 ` Ask for the players name
 print "Player "+str$(t)+" enter your name.  "
 input "> ",Player$(t)

 ` Ask for the players guess
 print Player$(t)+", please enter your guess.  "
 input "> ",Guess(t)
 print ""

next t

` Show all the player names and guesses
for t=1 to MaxPeople

 print "Player #"+str$(t)+" = "+Player$(t)
 print "Guess = "+str$(Guess(t))
 print ""

next t

wait key

Rem Project: Dark Basic Pro Project
Rem Created: Monday, December 13, 2010

Rem ***** Main Source File *****
rem 12/11/10
rem created by Tyler Kirkham
rem it may or may not work!  :)

Sync on 
Sync rate 30


start:

Do
gosub Names 
loop

Names:
Print "Please enter your the name of the person choosing the number."
input "> ",numpicker$
cls
Print "Hello ",numpicker$, ", how many people will be guessing?"
Print "There can be 5 guessers maximum.  "
input "> ",numppl
cls
if numppl=1 
    gosub 1guess
endif
if numppl=2 
    gosub 2guess
endif
if numppl=3
    gosub 3guess
endif
if numppl=4
    gosub 4guess
endif    
if numppl=5
    gosub 5guess
endif
if numppl>5 or numppl<1 
    gosub endz
endif
sync
return

1guess:
Print "Please enter the guesser's name.  "
input "> ",gessr1$
cls
Print "Hello ",gessr1$, ".  Please enter your guess.  "
input " > " ,gess1
cls

sync
return

2guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
cls
Print "Hello ",gessr1$, " and ",gessr2$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

3guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
input "3> ",gessr3$
cls
Print "Hello ",gessr1$, ", ",gessr2$, ", and ",gessr3$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
input " 3> " ,gess3
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

4guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
input "3> ",gessr3$
input "4> ",gessr4$
cls
Print "Hello ",gessr1$, ", ",gessr2$, ", " ,gessr3$,", and ",gessr4$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
input " 3> " ,gess3
input " 4> " ,gess4
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

5guess:
Print "Please enter the guessers' names.  "
input "1> ",gessr1$
input "2> ",gessr2$
input "3> ",gessr3$
input "4> ",gessr4$
input "5> ",gessr5$
cls
Print "Hello ",gessr1$, ", ",gessr2$, ", " ,gessr3$,", " ,gessr4$,", and ",gessr5$,".  Please enter your guesses.  "
input " 1> " ,gess1
input " 2> " ,gess2
input " 3> " ,gess3
input " 4> " ,gess4
input " 5> " ,gess5
cls
rem need a program that picks which one is closest to #... idk how to yet...

sync
return

endz:
print "You entered an invalid response.  Go to the start of the program and try again, or end it.  "
print "Would you like to end the program or begin at the start?  Type e or s to answer"
input "> ",douwantend$
if douwantend$="e"
    end
endif
if douwantend$="s"
    return
endif
rem I know i used a goto, but i do not need to return so i question the logic behind me using a gosub for this one command only.  
rem Correct me if i'm wrong... - Corrected :) You do need to return as you are starting over are you not?

` num 1-10 v.3
` 12/13/10
` by Tyler Kirkham

start:  `start the program!
Do  `main program loop

  Print "Please enter the name of the person picking the number.  "  `inputting the name of the number picker.
  input "> ",numpickr
  cls
  Print "Please enter your number.  " `input num ppl are guessing
  input "> ",num
  cls
  ` Ask for the number of people guessing
  print "Please enter the number of people that will be guessing."
  input "> ",numppl
  print ""
  
  ` Make an array for the player names
  dim Player$(numppl)
  
  ` Make an array for the players' current guesses
  dim Guess(numppl)
  
  ` Go through each player
  for t=1 to numppl
     ` Ask for the players name
    print "Player "+str$(t)+" enter your name.  "
    input "> ",Player$(t)
 
    ` Ask for the players guess
    print Player$(t)+", please enter your guess.  "
    input "> ",Guess(t)
    print ""
  next t
 
loop `lewp dis todallee mispellud proegrahm yoe! :D

endz:
print "Would you like to exit or play again?  (e/a)"
Repeat `repeat checking keys for e or a till one is pressed
  I$=Upper$(Inkey$()): Rem Read the keyboard for keypresses
Until I$="e" or I$="a"
If I$="a": ` If a was pressed
  Goto Start: ` Jump to Start label at beginning of program
  if I$="e" `if e was pressed
    End: ` End the program
  endif 
endif

dim guesscheck(5)
dim guess(5)
num=5
guess(1)=11
guess(2)=5
guess(3)=1
guess(4)=3
guess(5)=15

for t=1 to 5
guesscheck(t)=(num-guess(t))
print "guess ",guess(t)," ",guesscheck(t)
    
next t

do
    sync
LOOP

` # guessing V.1
` 12/15/10
` by Tyler Kirkham

start:  `start the program!

Do  `main program loop
  Print "Number Guessing"
  Print "Press any key to begin.  "
  wait key
  cls

  `input the range of numer you want to guess from.  
  print "What is the maximum number you want to be able to guess for.  (Guess from 1 to ?).  "  
  Input "> " ,x 
  cls
  
  Name_and_number:
  Print "Please enter the name of the person picking the number.  "  `inputting the name of the number picker.
  input "> ",numpickr
  cls
  Print "Please enter your number.  " `input num ppl are guessing
  input "> ",num
  if num>x then goto no 
  if num<1 then goto no
  cls
  
  ` Ask for the number of people guessing
  print "Please enter the number of people that will be guessing."
  input "> ",numppl
  cls
  
  ` Make an array for the player names
  dim Player$(numppl)
  
  ` Make an array for the players' current guesses
  dim Guess(numppl)
  
  `make array for guess distances from the number
  dim guessdist(numppl)
  
 Players_and_guesses:
  ` Go through each player
  for t=1 to numppl
     ` Ask for the players name
    print "Player "+str$(t)+" enter your name.  "
    input "> ",Player$(t)
    cls
 
    ` Ask for the players guess
    print Player$(t)+", please enter your guess.  "
    input "> ",Guess(t)
    cls
  next t
 
 `get the distance from the number for each guess
   for t=1 to numppl
     if num>guess(t) then gosub numbig
     if num<guess(t) then gosub numsmall
     if num=guess(t) then gosub correctnum
   next t
   
  `print out the winners by distance from number
  Print "The following guessed the correct number: "  `list ppl who guessed the num exactly
  Print "> "
  for t=1 to numppl
    if guessdist(t)=0 then print Player$(t)
  next t
  Print "Press any key to continue.  "
  wait key
  cls
  
  Print "The following were only 1 number away:  "  `list ppl 1 number away
  Print "> "
  for t= 1 to numppl 
    if guessdist(t)=1 then print player$(t)
  next t
  Print "Press any key to continue.  "
  wait key
  cls
  
  Print "The following were only 2 numbers away:  "  `list ppl 2 numbers away
  Print "> "
  for t= 1 to numppl 
    if guessdist(t)=2 then print player$(t)
  next t
  Print "Press any key to continue.  "
  wait key
  cls
  
  Print "The following were only 3 numbers away:  "  `list ppl 3 numbers away
  Print "> "
  for t= 1 to numppl 
    if guessdist(t)=3 then print player$(t)
  next t
  Print "Press any key to continue.  "
  wait key
  cls
  
  Print "The following were only 4 numbers away:  "  `list people 4 numbers away
  Print "> "
  for t= 1 to numppl 
    if guessdist(t)=4 then print player$(t)
  next t
  Print "Press any key to continue.  "
  wait key
  cls
  
  Print "The following were only 5 numbers away:  " `list ppl 5 numbers away
  Print "> "
  for t= 1 to numppl 
    if guessdist(t)=5 then print player$(t)
  next t
  Print "Press any key to continue.  "
  wait key
  cls
  
  Print "The following were over 5 numbers away.  "
  Print "> "
  for t=1 to numppl
  	if guessdist>5 then print player$(t)
  next t
  Print "Press any key to continue.  "
  wait key
  cls
  
  Print "Thank you for playing!"
  Print "Press escape to end the program, or press any other key to play again.  "
  wait key
  cls
loop `lewp dis todallee mispellud proegrahm yoe! :D

numbig:               ` get distance from number
(num-guess(t))=guessdist(t)
return

numsmall:          `get distance from number
(guess(t)-num)=guessdist(t)
return

correctnum:         `get distance from number
(guessdist(t))=0
return

no:
Print "That number is not within the range specified.  " 
Print "Press any key to re-enter your name and number.  "
wait key
goto name_and_number

numbig:               ` get distance from number
guessdist(t)=num-guess(t)
return

numsmall:          `get distance from number
guessdist(t)=guess(t)-num
return

correctnum:         `get distance from number
guessdist(t)=0
return

  `print out the winners by distance from number
  Print "--- Results ---"
  print "  "
  Print "The following guessed the correct number: "  `list ppl who guessed the num exactly
  Print "> "
  for t=1 to numppl
    if guessdist(t)=0 then print Player$(t)
  next t
  print "  "
  
  Print "The following were only 1 number away:  "  `list ppl 1 number away
  Print "> "
  for t= 1 to numppl 
    if guessdist(t)=1 then print player$(t)
  next t
  print "  "

  `print out the winners by distance from picked number
  Print "--- Results ---"
  print "  "
  print numpickr$;" picked the number ";num
  print "  "
  
  `print out distances from correct number
  for testnum=0 to x                              `check for distance from guessing number, scanning though all entries each time
    messageflag=0
    for t= 1 to numppl                            `print something about every player
      if guessdist(t)=testnum                       `if guess is this distance, then print name of this player
        if messageflag=0
          if testnum=0 then Print "The following guessed the correct number: "            `list ppl who guessed the num exactly
          if testnum=1 then Print "The following were only ";testnum;" number away:  "    `list ppl 1 number away
          if testnum>1 then Print "The following were only ";testnum;" numbers away:  "   `list ppl >1 number away
          messageflag=1
        endif
        print player$(t); " guessed ";guess(T)
        print "  "
      endif
    next t
  next testnum