Sorry your browser is not supported!

rem Dim the array
dim array$(4)

rem Check if array exist
if file exist("array")
  load array "array",array$(0)

rem If not...
else

    print " No array found. Input a new one:"

    rem Input the array
    input " 1. ",array$(1)
    input " 2. ",array$(2)
    input " 3. ",array$(3)
    input " 4. ",array$(4)

    rem Save the array
    save array "array",array$(0)

    rem Wait until a key is pressed, then exit
    print " PRESS ANY KEY TO EXIT."

    wait key

    end

endif

rem If the array has been found...
do

cls

print " The array has been found."

rem Veiw the array
print " ",array$(1)
print " ",array$(2)
print " ",array$(3)
print " ",array$(4)

print " Do you wish to enter a new one? Y/N"

rem If you want to make a new array:
if inkey$()="y"

    rem Input it...
    input " 1. ",array$(1)
    input " 2. ",array$(2)
    input " 3. ",array$(3)
    input " 4. ",array$(4)

    rem ... and then save it
    save array "array",array$(0)

    rem A key is pressed: The program exists
    print " PRESS ANY KEY TO EXIT."

    wait key

    end

endif

rem Ok, you want to keep the array
if inkey$()="n"

  rem Just exit
  print " PRESS ANY KEY TO EXIT."

  wait key

  end

endif

loop

input "How many members to add?" ,num
type member
name as string
address as string
phone as integer
endtype

dim membersarray$(num) as member
for x=1 to num
input "Name: " ,membersarray$(x).name
input "Address: " ,membersarray$(x).address
input "Phone: " ,membersarray$(x).phone
next x

cls

print "This is the data you typed in..."
for p=1 to num
   print membersarray$(p).name
   print membersarray$(p).address
   print membersarray$(p).phone
next p
print "Would you like to save this array to 'info.dat'?"
input "Y/N?" ,arraysave$
if arraysave$ = "y"
save array "required/info.dat", membersarray$(num) <====problem
print "You saved the array"
endif
if arraysave$ = "n"
print "You did not save the array"
endif

input "How many members to add?" ,num

dim membersarray$(num,3)
for x=1 to num
input "Name: " ,membersarray$(x,1)
input "Address: " ,membersarray$(x,2)
input "Phone: " ,membersarray$(x,3)
next x

cls

print "This is the data you typed in..."
for p=1 to num
   for dataNum = 1 to 3
      print membersarray$(p,dataNum)
   next
next p
print "Would you like to save this array to 'info.dat'?"
input "Y/N?" ,arraysave$
if arraysave$ = "y"
save array "required/info.dat", membersarray$(num,3)
print "You saved the array"
endif
if arraysave$ = "n"
print "You did not save the array"
endif

case 1
print "Option 1 chosen"
if file exist("required/info.dat") = 0 then print "File 'info.dat' not found in required directory!"
if file size("required/info.dat") = 0 then print "File is empty, will not read data!"
input "How many members to load?" ,num2
load array "required/info.dat", membersarray$(num2,3)
dim membersarray$(num2,3)
print "Array loaded"
print "Show data?"
input "Y/N?" ,arrayload$
if arrayload$ = "y"



print "This is the data you typed in..."
for p=1 to num2
   for dataNum = 1 to 3
      print membersarray$(p,dataNum)
   next
next p


else
print "You decided not to show the data"
endif
endcase

dim array(2)

load array "required/info.dat", membersarray$(0)