dbase.c (plain text)
// Database Sample
string data[10];
int ndata;

read() {
   int i;

   puts("Open succeeded, reading values\n");

   // read the data
   while (dbpos() >= 0)
      data[ndata++] = dbread('s');

   // output the data
   puts("Number entries: "+ndata+"\n");
   for (i=0;i<ndata;i++)
      puts("\x95 "+data[i]+"\n");

   // check the backup status
   if (dbbackup(2))
      puts("Database backup bit set\n");
   else
      puts("Database backup bit NOT set\n");

   // delete the database
   puts("Deleting DB 'TestDB'\n");
   dbdelete();
}

write() {
   puts("Open failed, creating new database\n");

   // attempt to create a new database
   if (!dbcreate("TestDB")) {
      puts("Database creation failed!\n");
      return;
   }

   // get values
   puts("Enter up to 10 values\n");
   while (data[ndata]=gets("Value #"+(ndata+1))) {
      // write data
      dbwrite(data[ndata]);
      puts("\x95Wrote '"+data[ndata]+"'\n");
      ndata++;
   }

   if (confirm("Set backup bit?"))
      dbbackup(1);

   // close the database
   dbclose();
}

main() {
   title("Database Sample");
   clear();
   puts("Opening DB 'TestDB'\n");
   if (dbopen("TestDB"))
      read();
   else
      write();
}