Sorry your browser is not supported!

Dim HighScore$(10,10)
for mode=0 to 1

   rem Clear screen
   cls rgb(rnd(100),rnd(100),rnd(100))

   rem Delete file
   if file exist("data.dat") then delete file "data.dat"

   rem Write or Read..
   if mode=0

      rem Open file for writing
      open to write 1,"data.dat"

      rem Write data types
      write byte 1,1 : print 1
      write word 1,2 : print 2
      write long 1,3 : print 3
      write file 1,4 : print 4
      write float 1,5.5 : print 5.5

      rem Write matrix of strings
      for x=1 to 10
         for y=1 to 10
            a$=str$(x)+str$(y)
            HighScore$(x,y)=a$
            write string 1,a$
         next y
      next x

      rem Close file
      close file 1

      rem Rename file
      if file exist("store.dat")=0
         rename file "data.dat","store.dat"
      endif

   else

      rem Move file
      move file "store.dat","data.dat"

      rem Open file for reading
      open to read 1,"data.dat"

      rem Display data types
      read byte 1,a : print a
      read word 1,a : print a
      read long 1,a : print a
      read file 1,a : print a
      read float 1,a# : print a#

      rem Read matrix of strings
      for x=1 to 10
         for y=1 to 10
            read string 1,a$
            HighScore$(x,y)=a$
         next y
      next x

      rem Close file
      close file 1

      rem Move file back
      move file "data.dat","store.dat"

   endif

   rem Display matrix of strings
   print
   for x=1 to 10
      for y=1 to 10
         print HighScore$(x,y);" ";
      next y
      print
   next x

   rem Wait for key press
   print
   if mode=0 then print "Press Any Key To Read Data"
   if mode=1 then print "Press Any Key To Exit"
   suspend for key

next mode

rem Make an empty file if none exist
if file exist("scores.txt")=0
   make file "scores.txt"
endif

rem End of program
end

Rem make array
Dim Score(1,1)

Rem level building stuff here and there

Rem main loop
Do

 Rem all stuff in games goes here
 Rem whatever it takes to win and go to the final routine goes here
 Sync
Loop

Rem write the array to a file in the main win routine
WRITEFILE:
Save array "scores.dat",Score(1,1)

Rem load the array to read it back for the player in later program runs

Load array "scores.dat",Score(1,1)

Dim Hiscore(10)
Dim PlayerName$(10)
Filename$="HISCORE.DAT"

If File Exist(Filename$)
  Open To Read 1,Filename$
  For N=1 To 10
    Read String 1,T$: PlayerName$(N)=T$
    Read String 1,T$: Hiscore(N)=Val(T$)
  Next N
  Close File 1
Else
  Open To Write 1,Filename$
    For N=1 To 10
      Write String 1,Str$(Hiscore(N))
      Write String 1,PlayerName$(N)
    Next N
  Close File 1
Endif

Delete File FileName$
Open To Write 1,Filename$
  For N=1 To 10
    Write String 1,Str$(Hiscore(N))
    Write String 1,PlayerName$(N)
  Next N
Close File 1

Rem ------------------------
Rem View Hiscores
Rem ------------------------
HISCORES:
Cls
Load array "scores.arr",Score(10)

GoSub StartGame

Rem $$$$$$$$$$$$$$$
Rem Game Over
Rem %%%%%%%%%%%%%%%
GameOver:
Save array "scores.arr",Score(10)
Do
 Center Text 500,500,"Your final score is: "+STR$(Score)
 Center Text 500,520,"Press Enter to proceed."
 if Returnkey()=1 then GoSub MainMenu

 Sync
Loop

FOR I=1 to 10
   PRINT Names$(i)+" "+str$(scores(i))
NEXT I

Center Text 500,500,"Your final score is: "+STR$(HighScore$(1,1))

Rem ------------------------
Rem View Hiscores
Rem ------------------------
HISCORES:
Cls
Load array "scores.arr",Score(10)
FOR I=1 to 10
  Center text 500,200,"1:"+str$(Score(I))
NEXT I
Sleep 10000
GoSub StartGame

GameOver:
Save array "scores.arr",Score(10)
Do
 Center Text 500,500,"Your final score is: "+STR$(Score(1))
 Center Text 500,520,"Press Enter to proceed."
 if Returnkey()=1 then GoSub MainMenu

 Sync
Loop

Rem declare variables
Dim Score(10,10) : Gems=0 : SuperJumpPower=0 : Lives=3 : Coins=0