Sorry your browser is not supported!

      OPEN TO READ 1,file$

      READ WORD 1,number

     FOR x = 1 TO number
      READ STRING 1,aliment$
      READ WORD 1,nombre
      PRINT aliment$ , " : " , nombre , " kcal"
     NEXT x


      CLOSE FILE 1

`first, load the file into an array, so it can be reused.
`open the file
read word 1, number
dim aliment$(number) : `create an array for the names and calories
dim nombre(number)
for x = 1 to number
   read string 1, aliment$(x)
   read float 1, nombre(x)
next x

numbertodisplay = 10 : `number of elements to display at a time.
top = 0
do
    `print 10 lines, starting from the the the lines in 'top'
    set cursor 0,0
    for x = 0 to numbertodisplay
       print aliment$(top + x) ; nombre(top + x)
    next x
    `if u press down, and its not close enough to the bottom (should fill the screen)
    `then increase the top variables
    if downkey() and top < number - numbertodisplay then top = top + 1
   `if its not already at the top, decrease the first variables    
   if upkey() and top > 1 then top = top - 1
loop

`first, load the file into an array, so it can be reused.
`open the file
sync on
open to read 1,"viandes.dat"
read word 1, number
dim aliment$(number) : `create an array for the names and calories
dim nombre(number)
for x = 1 to number
   read string 1, aliment$(x)
   read word 1, nombre(x)
next x

numbertodisplay = 4 : `number of elements to display at a time.
top = 0
do
    `print 10 lines, starting from the the the lines in 'top'
    cls
    set cursor 0,0
    for x = 1 to numbertodisplay
       if top + x < number then print aliment$(top + x) ; "  :  " ; nombre(top + x)
    next x
    `if u press down, and its not close enough to the bottom (should fill the screen)
    `then increase the top variables
    if downkey() and top < number - numbertodisplay then top = top + 1
   `if its not already at the top, decrease the first variables
   if upkey() and top > 1 then top = top - 1
   sync
loop

SYNC ON

INPUT "Quel fichier ? ", file$
SET DISPLAY MODE 800,600,16

   OPEN TO READ 1,file$

   Rem - Met les données dans un tableau
   READ WORD 1, Number
   DIM aliment$(Number)
   DIM nombre(Number)
   FOR x = 1 TO Number
      READ STRING 1, aliment$(x)
      READ WORD 1, nombre(x)
   NEXT x

   CLOSE FILE 1

NumberToDisplay = 4 : `number of elements to display at a time.
top = 0

   DO
      Rem - Imprime un certain nombre de ligne (NumberToDisplay), à partir de "top"
      CLS
      SET CURSOR 0,0
      FOR x = 1 TO NumberToDisplay
         IF top + x < Number OR top + x = Number THEN PRINT aliment$(top + x) ; "  :  " ; nombre(top + x) ; " kcal"
         IF top + x > Number THEN PRINT aliment$(top + x - Number) ; "  :  " ; nombre(top + x - Number) ; " kcal"
      NEXT x

      Rem - Change l'élément qui est en premier (top)
      IF DOWNKEY() then top = top + 1
      IF UPKEY() THEN top = top - 1

      Rem - Permet de faire continuer, si l'on pousse plus loin que le dernier élément
      IF top > number THEN top = 0
      IF top < 0 THEN top = Number

   SYNC
   LOOP