Sorry your browser is not supported!

Type Playerdata
	guesses as integer
	name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
	High(n).guesses = 10
	High(n).name = "Empty"
Next n
Global player as Playerdata

Function Highscore()
	n = 10
	While High(n).guesses >= player.guesses
		dec n
	Endwhile
	Insertposition = n
		For x = 1 To Insertposition Step 1
			high(x-1).guesses = high(x).guesses
			high(x-1).name = high(x).name
		Next
		high(Insertposition).guesses = player.guesses
		high(Insertposition).name = player.name
	
	For z = 1 to 10
		Print High(z).name, " - ", High(z).guesses, " Guesses"
	Next z
Wait Key
Endfunction

Type Playerdata
    guesses as integer
    name as string
EndType

Dim High(10) As Playerdata
player as Playerdata

For n = 1 to 10
    High(n).guesses = 10
    High(n).name = "Empty"
Next n

do
    cls
    print "BEST SCORES"
    print ""
    
    for n = 1 to 10
        print High(n).guesses;"  ";High(n).name        
    next n
    
    print ""
    input "How many guesses did it take you? ";player.guesses
    print ""
    
    ` the first half of this if test is when the player made
    ` a lower score than the highest score on the board
    if player.guesses<High(10).guesses
        print "You made the scoreboard!"
        input "What is your name? ";player.name
        ` find the correct spot to insert the score        
        for n=1 to 10
            if player.guesses<High(n).guesses
                array insert at element High(n).guesses, n
                High(n).guesses = player.guesses
                High(n).name = player.name                
                ` if we found the spot, then exit the for/next loop
                exit
            endif
        next n                
    ` this second part happens when the player did not
    ` make a lower score than the highest score on the board
    else
        print "You did not make the scoreboard, sorry"
    endif
    print ""
    print "Hit any key to continue"
    wait key
loop    

` To save
if open datafile to write(1, "Hiscore.dat") = 1
   save array to datafile high(), 1
   close datafile 1
else
   ` report that the hiscores could not be saved
endif

` To read
if open datafile to read(1, "Hiscore.dat") = 1
   load array from datafile high(), 1
   close datafile 1
else
   ` report that the hiscores could not be loaded
   ` or initialise to default hiscore values (no file = no hiscores?)
endif

Function Highscore()
Cls
open datafile to write 1, "Hiscore.dat"
   save array to datafile high(), 1
close datafile 1
   
open datafile to read 1, "Hiscore.dat" 
   load array from datafile high(), 1
close datafile 1

	For n = 1 To 10
		Print High(n).name, " - "; High(n).guesses
	Next n
	Print ""
	Print "Press Any Key To Continue..."
Menu()
Endfunction

#constant HIGHSCORE_FILENAME        "hiscore.dat"

type HighScore_t
    Name as string
    Score as integer
endtype

dim HighScore(9) as HighScore_t

LoadHighScore()

do
    cls
    DisplayHighScore()
    
    input "Enter name: ", Name$
    if Name$ = "quit" then exit
    
    input "Enter score: ", Score
    
    ` Check if needs to go onto the high score table
    if Score > HighScore(9).Score
        ` Add to the high score table and sort into place
        HighScore(9).Name = Name$
        HighScore(9).Score = Score
        sort array HighScore(), -2  ` Sort into descending score order
    endif
loop
SaveHighScore()

end

function DisplayHighScore()
    for i = 0 to 9
        text 400, i * 16, HighScore(i).Name
        text 500, i * 16, padleft$( str$(HighScore(i).Score), "0", 8 )
    next
endfunction

function LoadHighScore()
    if open datafile to read( 1, HIGHSCORE_FILENAME) = 1
        load array from datafile HighScore(), 1
        close datafile 1
    else
        Score = 100
        for i = 0 to 9
            HighScore(i).Score = Score
            HighScore(i).Name = padleft$("", chr$(64+i), 8)
            dec Score, 10
        next
    endif
endfunction

function SaveHighScore()
    if open datafile to write(1, HIGHSCORE_FILENAME) = 1
        save array to datafile HighScore(), 1
        close datafile 1
    endif
endfunction

Randomize Timer()
Global a
Global playername as string

Type Playerdata
	guesses as integer
	name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
	High(n).guesses = 10
	High(n).name = "Empty"
Next n
Global player as Playerdata

Do
Menu()
Loop

Function Game()
	Getnumber()
	Getinput()
End
Endfunction

Function Getnumber()
a = RND(99) + 1
Endfunction

Function Getinput()
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
	Input "Guess A Number: "; b
	
	If a = b
		Print "Well done you guessed correct"
		Print "It took you "; player.guesses ;" guesses to get it right " ; player.name
		Print "Press 's' to save to high scores"
		Print "Press 'h' to view high scores"
		Print "Do you wish to play again y - yes, n - no"
		For n = 1 To 10
			If player.guesses < High(n).guesses
				array insert at element High(n).guesses, n
				High(n).guesses = player.guesses
				High(n).name = player.name
				Exit
			Endif
		Next n
	
		While NOT Keystate(21) = 0 OR Keystate(49) = 0 OR Keystate(31) = 0 OR Keystate(35) = 0
			If Keystate(21) = 1 then Game()
			If Keystate(49) = 1 then Exit
			If Keystate(31) = 1 then Save()
			If Keystate(35) = 1 then Highscore()
		EndWhile
		Exit
	Endif
	
	If a < b 
		Print "Too High, Guess Again"
	Endif
	
	If a > b 
		Print "Too Low Guess Again"
	Endif
Inc player.guesses
Loop 	
Endfunction

Function Highscore()
Cls
If open datafile to write (1, "Hiscore.dat") = 1
   save array to datafile high(), 1
close datafile 1
EndIf
   
If open datafile to read (1, "Hiscore.dat") = 1
   load array from datafile high(), 1
close datafile 1
EndIf

	For n = 1 To 10
		Print High(n).name, " - "; High(n).guesses
	Next n
	Print ""
	Print "Press Any Key To Continue..."
Menu()
Endfunction

Function Menu()
	Print "Press G, for game: "
	Print "Press H, for Highscore: "
	While Keystate(34) = 0 OR Keystate(35) = 0
			If Keystate(34) = 1
				Game()
			Endif
			If Keystate(35) = 1
				Highscore()
				Menu()
			Endif 
	Endwhile
	
Endfunction

Randomize Timer()
Global a

Type Playerdata
	guesses as integer
	name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
	High(n).guesses = 10
	High(n).name = "Empty"
Next n
Global player as Playerdata

Do
	Getnumber()
	Menu()
Loop

Function Getnumber()
a = RND(99) + 1
Game()
Endfunction

Function Game()
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
	Input "Guess A Number: "; b
	
	If a = b
		Print "Well done you guessed correct"
		Print "It took you "; player.guesses ;" guesses to get it right " ; player.name

		For n = 1 To 10
			If player.guesses < High(n).guesses
				array insert at element High(n).guesses, n
				High(n).guesses = player.guesses
				High(n).name = player.name
			Endif
			Exit
		Next n
		If open datafile to write (1, "Hiscore.dat") = 1
   			save array to datafile high(), 1
   			close datafile 1
		Else
  			Print "Error: Highscores could not be saved"
		Endif

		Menu()
	Endif
	
	If a < b 
		Print "Too High, Guess Again"
	Endif
	
	If a > b 
		Print "Too Low Guess Again"
	Endif
Inc player.guesses
Loop 	
Endfunction

Function Highscore()
Cls
	For n = 1 To 10
		Print High(n).name, " - "; High(n).guesses
	Next n
	Print ""
	Print "Press Any Key To Continue..."
Menu()
Endfunction

Function Menu()
	Print "Press G, for Game: "
	Print "Press H, for Highscore: "
	Print "Press Q to Quit: "
	While NOT Keystate(34) = 0 OR Keystate(16) = 0 OR Keystate(35) = 0
		If Keystate(34) = 1 then Getnumber()
		If Keystate(16) = 1 then End
		If Keystate(35) = 1 then Highscore()
	EndWhile
Endfunction

dim high(10)
If open datafile to write(1, "Hiscore.dat") = 1
  save array to datafile high(), 1
  close datafile 1
  Print "Array saved"
Else
  Print "Error: Highscores could not be saved"
Endif
print ""
print "hit any key to exit"
wait key

#constant HIGHSCORE_FILENAME        "hiscore.dat"

type HighScore_t
    Name as string
    Score as integer
endtype

dim HighScore(9) as HighScore_t

LoadHighScore()

do
    cls
    DisplayHighScore()
    
    input "Enter name: ", Name$
    if Name$ = "quit" then exit
    
    input "Enter score: ", Score
    
    ` Check if needs to go onto the high score table
    if Score > HighScore(9).Score
        ` Add to the high score table and sort into place
        HighScore(9).Name = Name$
        HighScore(9).Score = Score
        sort array HighScore(), -2  ` Sort into descending score order
    endif
loop
SaveHighScore()

end

function DisplayHighScore()
    for i = 0 to 9
        text 400, i * 16, HighScore(i).Name
        text 500, i * 16, padleft$( str$(HighScore(i).Score), "0", 8 )
    next
endfunction

function LoadHighScore()
    if open datafile to read( 1, HIGHSCORE_FILENAME) = 1
        load array from datafile HighScore(), 1
        close datafile 1
    else
        Score = 100
        for i = 0 to 9
            HighScore(i).Score = Score
            HighScore(i).Name = padleft$("", chr$(64+i), 8)
            dec Score, 10
        next
    endif
endfunction

function SaveHighScore()
    if open datafile to write(1, HIGHSCORE_FILENAME) = 1
        save array to datafile HighScore(), 1
        close datafile 1
    endif
endfunction

For n = 1 To 10
			If player.guesses < High(n).guesses
				array insert at element High(n).guesses, n
				High(n).guesses = player.guesses
				High(n).name = player.name
			Endif
			Exit
		Next n

Randomize Timer()
Global a
Global playername as string

Type Playerdata
    guesses as integer
    name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
    High(n).guesses = 10
    High(n).name = "Empty"
Next n
Global player as Playerdata

Do
Menu()
Loop

Function Game()
    Getnumber()
    Getinput()
End
Endfunction

Function Getnumber()
a = RND(99) + 1
Endfunction

Function Getinput()
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
    Input "Guess A Number: "; b
    
    If a = b
        Print "Well done you guessed correct"
        Print "It took you "; player.guesses ;" guesses to get it right " ; player.name
        Print "Press 's' to save to high scores"
        Print "Press 'h' to view high scores"
        Print "Do you wish to play again y - yes, n - no"
        For n = 1 To 10
            If player.guesses < High(n).guesses
                array insert at element High(n).guesses, n
                High(n).guesses = player.guesses
                High(n).name = player.name
                array delete element High(),11
                Exit
            Endif
        Next n
    
        While NOT Keystate(21) = 0 OR Keystate(49) = 0 OR Keystate(31) = 0 OR Keystate(35) = 0
            If Keystate(21) = 1 then Game()
            If Keystate(49) = 1 then Exit
            If Keystate(31) = 1 then Save()
            If Keystate(35) = 1 then Highscore()
        EndWhile
        Exit
    Endif
    
    If a < b 
        Print "Too High, Guess Again"
    Endif
    
    If a > b 
        Print "Too Low Guess Again"
    Endif
Inc player.guesses
Loop     
Endfunction

Function Save()
Cls
If open datafile to write (1, "Hiscore.dat") = 1
   save array to datafile High(), 1
close datafile 1
EndIf
Menu()
Endfunction

Function Highscore()
Cls   
If open datafile to read (1, "Hiscore.dat") = 1
   load array from datafile High(), 1
close datafile 1
EndIf

    For n = 1 To 10
        Print High(n).name, " - "; High(n).guesses
    Next n
    Print ""
    Print "Press Any Key To Continue..."
Menu()
Endfunction

Function Menu()
    Print "Press G, for game: "
    Print "Press H, for Highscore: "
    While Keystate(34) = 0 OR Keystate(35) = 0
            If Keystate(34) = 1
                Game()
            Endif
            If Keystate(35) = 1
                Highscore()
                Menu()
            Endif 
    Endwhile
    
Endfunction

Randomize Timer()
Global a

Type Playerdata
	guesses as integer
	name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
	High(n).guesses = 10
	High(n).name = "Empty"
Next n
Global player as Playerdata

Do
	Getnumber()
	Menu()
Loop

Function Getnumber()
a = RND(99) + 1
Game()
Endfunction

Function Game()
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
	Input "Guess A Number: "; b
	
	If a = b
		Print "Well done you guessed correct"
		Print "It took you "; player.guesses ;" guesses to get it right " ; player.name

		For n = 1 To 10
			If player.guesses < High(n).guesses
				array insert at element High(n).guesses, n
				High(n).guesses = player.guesses
				High(n).name = player.name
			  Exit
			Endif
		Next n
		If open datafile to write (1, "Hiscore.dat") = 1
   			save array to datafile high(), 1
   			close datafile 1
		Else
  			Print "Error: Highscores could not be saved"
		Endif

		Menu()
	Endif
	
	If a < b 
		Print "Too High, Guess Again"
	Endif
	
	If a > b 
		Print "Too Low Guess Again"
	Endif
Inc player.guesses
Loop 	
Endfunction

Function Highscore()
Cls
If open datafile to read (1, "Hiscore.dat") = 1
   load array from datafile High(), 1
close datafile 1
EndIf

	For n = 1 To 10
		Print High(n).name, " - "; High(n).guesses
	Next n
	Print ""
	Print "Press Any Key To Continue..."
Menu()
Endfunction

Function Menu()
	Print "Press G, for Game: "
	Print "Press H, for Highscore: "
	Print "Press Q to Quit: "
	While NOT Keystate(34) = 0 OR Keystate(16) = 0 OR Keystate(35) = 0
		If Keystate(34) = 1 then Getnumber()
		If Keystate(16) = 1 then End
		If Keystate(35) = 1 then Highscore()
	EndWhile
Endfunction

Randomize Timer()
Global a

Type Playerdata
	guesses as integer
	name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
	High(n).guesses = 10
	High(n).name = "Empty"
Next n
Global player as Playerdata

Do
	Getnumber()
	Menu()
Loop

Function Getnumber()
a = RND(99) + 1
Game()
Endfunction

Function Game()
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
	Input "Guess A Number: "; b
	
	If a = b
		Print "Well done you guessed correct"
		Print "It took you "; player.guesses ;" guesses to get it right " ; player.name

		For n = 1 To 10
			If player.guesses < High(n).guesses
				array insert at element High(n).guesses, n
				High(n).guesses = player.guesses
				High(n).name = player.name
				Array Delete Element High(), 11
			  Exit
			Endif
		Next n
		If open datafile to write (1, "Hiscore.dat") = 1
   			save array to datafile high(), 1
   			close datafile 1
		Else
  			Print "Error: Highscores could not be saved"
		Endif

		Menu()
	Endif
	
	If a < b 
		Print "Too High, Guess Again"
	Endif
	
	If a > b 
		Print "Too Low Guess Again"
	Endif
Inc player.guesses
Loop 	
Endfunction

Function Highscore()
Cls
If open datafile to read (1, "Hiscore.dat") = 1
   load array from datafile High(), 1
close datafile 1
EndIf

	For n = 1 To 10
		Print High(n).name, " - "; High(n).guesses
	Next n
	Print ""
	Print "Press Any Key To Continue..."
Menu()
Endfunction

Function Menu()
	Print "Press G, for Game: "
	Print "Press H, for Highscore: "
	Print "Press Q to Quit: "
	While NOT Keystate(34) = 0 OR Keystate(16) = 0 OR Keystate(35) = 0
		If Keystate(34) = 1 then Getnumber()
		If Keystate(16) = 1 then End
		If Keystate(35) = 1 then Highscore()
	EndWhile
Endfunction

`DB Sound Creator by Ric, and:

`Tommy S - Original waveform code
`Green Gandalf - Memblock format
`Lampton Worm - Load/Save format
`Lampton Worm/Raven - Real time parameter editor
`Xtom - GUI/parameter editor


createsound("sound effect",1,2995,2000,8000,0.02,0.1,0.60,3,0.64,5,10)
createsound("explosion",2,6200,200,2000,20,0.2,0,0,0,0,10)
createsound("explosion2",3,1200,600,3000,10,0.1,0,0,0,0,10)
createsound("powerup",4,800,700,8000,-0.02,0.2,0,0,0,0,10)
createsound("warning",5,800,1000,6000,0.5,0.1,0,0,0,0,5)
createsound("vibrato1",6,500,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("vibrato2",7,400,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("vibrato3",8,600,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("bass hit",9,30,50,16000,0.00,1.5,.0,0,0,0,100)
createsound("hihat",10,800,40,5000,60.06,2.2,.1,0,0,0,10)
createsound("door knock",11,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10)
createsound("vinyl scratch",12,500,80,8000,0.06,0.2,.1,0,0,0,10)
createsound("cb1",13,250,50,2500,0.00001,0.1,4.0,0.4,0,0,10)
createsound("cb2",14,500,50,2500,0.00001,0.1,4.0,0.4,0,0,10)
createsound("cb3",15,437.5,150,1500,0.0001,0.1,0.0,4.0,0.4,0,10)
createsound("cb4",16,573.75,150,1500,0.0,0.1,4.0,0.4,0,0,10)
createsound("bubble burst",17,50,80,6000,-.4,2.0,0.1,10,1.2,0.2,10)

set text font "arial"
set text size 16
do
text 0,0,"Press keys 1 upwards:"
text 0,20,"1: sound effect"
text 0,40,"2: explosion1"
text 0,60,"3: explosion2"
text 0,80,"4: powerup"
text 0,100,"5: warning"
text 0,120,"6: vibrato"
text 0,140,"7: bass hit"
text 0,160,"8: hihat"
text 0,180,"9: door knock"
text 0,200,"0: vinyl scratch"
text 0,220,"-: cowbell"
text 0,240,"+: bubble burst"

if keystate(2)=1  then play sound 1:wait 300
if keystate(3)=1  then play sound 2:wait 300
if keystate(4)=1  then play sound 3:wait 300
if keystate(5)=1  then play sound 4:wait 300
if keystate(6)=1  then play sound 5:wait 300
if keystate(7)=1  then play sound 6:play sound 7:play sound 8:wait 300
if keystate(8)=1  then play sound 9:wait 300
if keystate(9)=1  then play sound 10:wait 300
if keystate(10)=1  then play sound 11:wait 300
if keystate(11)=1  then play sound 12:wait 300
if keystate(12)=1  then play sound 13:play sound 14:play sound 15:play sound 16:wait 300
if keystate(13)=1  then play sound 17:wait 300
loop




function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)

outWord as word
dword1 as dword: dword2 as dword: dword3 as dword: dword4 as dword
dword5 as dword: dword6 as dword: dword7 as dword

samples=int((length#/1000)*44100)

if memblock exist(1) then delete memblock 1
make memblock 1,samples*2+28

` write 28 memblock header bytes
dword1=1      ` gg query: is this the number of channels?
dword2=2      ` gg query: is this the number of bytes per sample?
dword3=22050  ` gg query: seems to be half the number of samples per second - why?
dword4=88200  ` gg query: is this the number of bytes per second?
dword5=4      ` gg query: what does this represent?
dword6=16     ` gg query:     (ditto)            ?
dword7=0      ` gg query:     (ditto)            ?

position=0
write memblock dword 1, position, dword1 : inc position,4
write memblock dword 1, position, dword2 : inc position,4
write memblock dword 1, position, dword3 : inc position,4
write memblock dword 1, position, dword4 : inc position,4
write memblock dword 1, position, dword5 : inc position,4
write memblock dword 1, position, dword6 : inc position,4
write memblock dword 1, position, dword7 : inc position,4

rem generate and write wave
riseinloudness#=loudness#
for x=1 to samples
  outInteger=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#)))*3.0
  if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
  if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
  outWord=outInteger
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#

  if fallinloudness#<loudness#
    inc fallinloudness#,decay#
  endif

  if riseinloudness#>0
    dec riseinloudness#,attack#
  endif

  write memblock word 1, position, outWord : inc position,2
next x

if sound exist(soundnumber)=1 then delete sound soundnumber

make sound from memblock 999, 1 ` assumes you won't need sound number 999!
clone sound soundnumber, 999
delete sound 999

` memblock no longer required
delete memblock 1

endfunction

Randomize Timer()
Global a

Type Playerdata
	guesses as integer
	name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
	High(n).guesses = 10
	High(n).name = "Empty"
Next n
Global player as Playerdata

Do
	Getnumber()
	Menu()
Loop

Function Getnumber()
a = RND(99) + 1
Game()
Endfunction

Function Game()
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
	Input "Guess A Number: "; b
	
	If a = b
		Print "Well done you guessed correct"
		Print "It took you "; player.guesses ;" guesses to get it right " ; player.name

		For n = 1 To 10
			If player.guesses < High(n).guesses
				array insert at element High(n).guesses, n
				High(n).guesses = player.guesses
				High(n).name = player.name
				Array Delete Element High(), 11
				`Array Delete Element High(11).name, 11
				Exit
			Endif
		Next n
	Remstart If open datafile to write (1, "Hiscore.dat") = 1
   			save array to datafile high(), 1
   			close datafile 1
		Else
  			Print "Error: Highscores could not be saved"
	Remend Endif

		Menu()
	Endif
	
	If a < b 
		Print "Too High, Guess Again"
	Endif
	
	If a > b 
		Print "Too Low Guess Again"
	Endif
Inc player.guesses
Loop 	
Endfunction

Function Highscore()
Cls
Remstart If open datafile to read (1, "Hiscore.dat") = 1
   			load array from datafile High(), 1
			close datafile 1
Remend 	 EndIf

	For n = 1 To 10
		Print High(n).name, " - "; High(n).guesses
	Next n
	Print ""
	Print "Press Any Key To Continue..."
Menu()
Endfunction

Function Menu()
	Print "Press G, for Game: "
	Print "Press H, for Highscore: "
	Print "Press Q to Quit: "
	While NOT Keystate(34) = 0 OR Keystate(16) = 0 OR Keystate(35) = 0
		If Keystate(34) = 1 then Getnumber()
		If Keystate(16) = 1 then End
		If Keystate(35) = 1 then Highscore()
	EndWhile
Endfunction

Randomize Timer()
Global a

Type Playerdata
	guesses as integer
	name as string
EndType

Global Dim High(10) As Playerdata
For n = 1 to 10
	High(n).guesses = 10
	High(n).name = "Empty"
Next n
Global player as Playerdata

Do
	Getnumber()
	Menu()
Loop

Function Getnumber()
a = RND(99) + 1
Game()
Endfunction

Function Game()
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
	Input "Guess A Number: "; b
	
	If a = b
		Print "Well done you guessed correct"
		Print "It took you "; player.guesses ;" guesses to get it right " ; player.name

	For n = 1 To 10
         If player.guesses < High(n).guesses
            array insert at element High(n).guesses, n
            High(n).guesses = player.guesses
            High(n).name = player.name
            Array Delete Element High(), 11
            Exit
         Endif
      Next n
   If Open datafile to write (1, "Highscore.dat") =	 1
   			save array to datafile high(), 1
   			close datafile 1
		 Else
		   Open Datafile to append 1, "Highscore.dat"
		   save array to datafile high(), 1
     close datafile 1
	  Endif
	Menu()
	Endif
	
	If a < b 
		Print "Too High, Guess Again"
	Endif
	
	If a > b 
		Print "Too Low Guess Again"
	Endif
Inc player.guesses
Loop 	
Endfunction

Function Highscore()
Cls
open datafile to read 1, "Highscore.dat"
load array from datafile High(), 1
close datafile 1

	For n = 1 To 10
		Print High(n).name, " - "; High(n).guesses
	Next n
	Print ""
	Print "Press Any Key To Continue..."
Menu()
Endfunction

Function Menu()
	Print "Press G, for Game: "
	Print "Press H, for Highscore: "
	Print "Press Q to Quit: "
	While NOT Keystate(34) = 0 OR Keystate(16) = 0 OR Keystate(35) = 0
		If Keystate(34) = 1 then Getnumber()
		If Keystate(16) = 1 then End
		If Keystate(35) = 1 then Highscore()
	EndWhile
Endfunction

` Declare and initialize your data
Randomize Timer()

Type Playerdata
    guesses as integer
    name as string
EndType

Dim High(10) As Playerdata

For n = 1 to 10
    High(n).guesses = 10
    High(n).name = "Empty"
Next n

Global player as Playerdata

` Check to see if the high score file exists,
` if it does, then open it up and read in the data.
if file exist ("Highscore.dat")
    open datafile to read 1, "Highscore.dat"
    load array from datafile High(), 1
    close datafile 1
endif

` ********* MAIN PROGRAM LOOP ****************
Do
    cls
    Print ""
    Print "Press G, for Game: "
    Print "Press H, for Highscore: "
    Print "Press Q to Quit: "
    
    ` This loop waits for a keypress, then
    ` calls the game or highscore functions,
    ` or ends the program.
    c=0
    while c = 0
        c = scancode()
    endwhile
        
    if c=34 then Game()
    
    If c=35 then HighScore()
    
    If c=16 then End                
    
Loop
` ********************************************

Function Game()
a = RND(99) + 1
Wait 50
Cls
player.guesses = 1
Input "Enter Your Name: " ; player.name
Do
    Input "Guess A Number: "; b
    
    If a = b
        Print "Well done you guessed correct"
        Print "It took you "; player.guesses ;" guesses to get it right " ; player.name

        For n = 1 To 10
             If player.guesses < High(n).guesses
                array insert at element High(n).guesses, n
                High(n).guesses = player.guesses
                High(n).name = player.name
                Array Delete Element High(), 11
                exit
             Endif
        Next n
        
        If Open datafile to write (1, "Highscore.dat") = 1
            save array to datafile high(), 1
            close datafile 1
        endif
        print ""
        print "Press Any Key To Continue..."
        wait key
        exitfunction
    endif
        
    If a < b then Print "Too High, Guess Again" 
    If a > b then Print "Too Low Guess Again"    
    Inc player.guesses
Loop     
Endfunction

Function Highscore()
    cls
    print ""
    For n = 1 To 10
        Print High(n).name, " - "; High(n).guesses
    Next n
    Print ""
    Print "Press Any Key To Continue..."
    wait key
Endfunction

Randomize Timer()

Type Playerdata
    guesses as integer
    name as string
EndType

Global Dim High(10) As Playerdata

` If there's a highscore file, load it.
` Only need to load the file once, because it's stored in memory.
if open datafile to read(1, "Highscore.dat") = 1
    load array from datafile High(), 1
    close datafile 1
Else
    ` Otherwise, build a default
    For n = 1 to 10
        High(n).guesses = 10
        High(n).name = "Empty"
    Next n
endif

Global player as Playerdata

Do
    Menu()
Loop


Function Menu()
    Print "Press G, for Game: "
    Print "Press H, for Highscore: "
    Print "Press Q to Quit: "
    
    ` Wait for one of the selections to be made
    While Keystate(34) = 0 and Keystate(16) = 0 and Keystate(35) = 0
    EndWhile

    ` Execute the user selection    
    If Keystate(16) = 1 then End
    If Keystate(34) = 1 then Game()
    If Keystate(35) = 1 then Highscore()
Endfunction


Function Game()
    Cls
    
    ` Pick the random number
    Chosen = RND(99) + 1

    ` Wait for keypress to end
    while scancode() <> 0
    endwhile
    
    ` Clear away anything held in the input buffer
    clear entry buffer
    
    ` Get the players name
    Input "Enter Your Name: " ; player.name

    player.guesses = 1
    Repeat
        Input "Guess A Number: "; Guess
        
        If Chosen = Guess
            Print "Well done you guessed correct"
            Print "It took you "; player.guesses; " guesses to get it right "; player.name

            ` Don't need to search - if the score is better than the worst one, just overwrite it
            ` and re-sort the array. For the same reason, no need to insert/delete either.
            If player.guesses < High(10).guesses
                ` As 'player' and the highscore table use the same UDT,
                ` can simply assign one to the other.
                High(10) = player
                sort array range High(), 1, 10, 1       ` Sort items 1 to 10, by field 1 (guesses)
                                                        ` Would be simpler if you used 0 to 9 instead!
            Endif
            ` Update the highscore file
            If Open datafile to write (1, "Highscore.dat") = 1
                save array to datafile high(), 1
                close datafile 1
            Endif
        Endif
        
        If Chosen < Guess 
            Print "Too High, Guess Again"
        Endif
        
        If Chosen > Guess 
            Print "Too Low Guess Again"
        Endif
        Inc player.guesses
    Until Chosen = Guess
Endfunction


Function Highscore()
    ` Wait for keypress to end
    while scancode() <> 0
    endwhile
    
    Cls
    For n = 1 To 10
        Print High(n).name, " - "; High(n).guesses
    Next n
    Print
Endfunction

 
c=0
    while c = 0
        c = scancode()
    endwhile
        
    if c=34 then Game()
    
    If c=35 then HighScore()
    
    If c=16 then End