codice:
  
  ' Salvataggio
  dim xFile as integer
 
  xFile=freefile
  open "miofile.txt" for output as xFile
  print #xFile, Label1.caption
  print #xFile, Label2.caption
  print #xFile, Label3.caption
  ' etc...
  ' etc...
  close xFile

  ' Caricamento

  dim xFile as integer
  dim Linea as string

  xFile=freefile
  open "miofile.txt" for input as xFile
  line input #xFile, Linea
  Label1.caption=Linea
  line input #xFile, Linea
  Label2.caption=Linea
  line input #xFile, Linea
  Label3.caption=Linea
  ' etc...
  ' etc...
  close xFile