Sorry your browser is not supported!

a$ = " "
b$ = ""
c$ = ""
d$ = ""
f$ = ""
e$ = ""
g$ = ""
h$ = ""
j$ = ""
`Add more if needed

input a$
input b$
input C$
input d$
input f$
input e$
input g$
input h$
input j$


do
if spacekey() = 1 then save = 1
if controlkey() = 1 then load = 1
loop

if save = 1
cls
Print "Make sure you include the extension like .txt or .bmp for example!"
print "Make sure it's valid or the conversation maker will not work!"
input "Save Path: ";save$
open to write 1,save$
if file exist(save$) = 1 then delete file save$
write string 1,a$
write string 1,b$
write string 1,c$
write string 1,d$
write string 1,e$
write string 1,f$
write string 1,g$
write string 1,h$
write string 1,j$
close file 1
wait key
endif

if load = 1
cls
input "Load Path: ";load$
wait key
open to read 1,save$
read string 1,a$
read string 1,b$
read string 1,c$
read string 1,d$
read string 1,e$
read string 1,f$
read string 1,g$
read string 1,h$
read string 1,j$
Print a$
Print b$
Print c$
Print d$
Print e$
Print f$
Print g$
Print h$
Print j$

close file 1
endif

do

if upkey()=1 then save=1 : exit

loop

a$ = " "
b$ = ""
c$ = ""
d$ = ""
f$ = ""
e$ = ""
g$ = ""
h$ = ""
j$ = ""
`Add more if needed

input a$
input b$
input C$
input d$
input f$
input e$
input g$
input h$
input j$


do
if spacekey() = 1 then save = 1 : gosub save_load
if controlkey() = 1 then load = 1 : gosub save_load
loop
save_load
if save = 1
cls
Print "Make sure you include the extension like .txt or .bmp for example!"
print "Make sure it's valid or the conversation maker will not work!"
input "Save Path: ";save$
open to write 1,save$
if file exist(save$) = 1 then delete file save$
write string 1,a$
write string 1,b$
write string 1,c$
write string 1,d$
write string 1,e$
write string 1,f$
write string 1,g$
write string 1,h$
write string 1,j$
close file 1
save=0
wait key
endif

if load = 1
cls
input "Load Path: ";load$
wait key
open to read 1,save$
read string 1,a$
read string 1,b$
read string 1,c$
read string 1,d$
read string 1,e$
read string 1,f$
read string 1,g$
read string 1,h$
read string 1,j$
Print a$
Print b$
Print c$
Print d$
Print e$
Print f$
Print g$
Print h$
Print j$

close file 1
load=0
endif
return

save=0 : `take this bit of code out towards the end of yoursave code
load=0 : ` do the same in your load code

dim Tex$(8)

for t=0 to 8
 input "Enter String "+str$(t+1)+": ";a$
 Tex$(t)=a$
next t

a=1
do

 if a=1
  cls:a=0
  print "Press (SPACEBAR) to save array."
  print "Press (CTRL) to load array."
  print " "
  print "Current Array:"
  print " "
  for t=0 to 8
   print "Tex$("+str$(t)+") = ";
   print Tex$(t)
  next t
 endif

 if spacekey()
  cls:a=1
  Print "Make sure you include the extension like .txt or .bmp for example!"
  print "Make sure it's valid or the conversation maker will not work!"
  input "Save Path: ";save$
  save array save$,Tex$(0)
 endif

 if controlkey()
  cls:a=1
  input "Load Path: ";load$
  if file exist(load$)
   load array load$,Tex$(0)
   else: print "File does not exist.":wait key
  endif
 endif

loop