/* Knopfler */

#include <string.h>
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
#include "swis.h"
#include "bbc.h"
#include "kernel.h"

char string[255];
int  num;

FILE *file;

void write_string(void)
{
   int len = strlen(string);
   int i;

   fputc(0x00, file);
   fputc(len, file);

   for (i=len-1;i>=0;i--)
   {
      fputc(string[i], file);
   }
}


void write_word(void)
{
   fputc(0x40, file);
   fputc((0xff & (num >> 24)), file);
   fputc((0xff & (num >> 16)), file);
   fputc((0xff & (num >> 8)), file);
   fputc((0xff & num), file);
}

int main()
{
   if (( file = fopen("<CastAWoteA$Dir>.Data.Data","w") ) == NULL)
   {
      /* If unsuccessful, barf tidily */
      printf("\nERROR! ");
      printf("Sorry, the CastAWote data file cannot be opened. Aborting...\n");
      exit(1);
   }

   strcpy(string,"*** > (DAOL TON OD) relfponK - 00.3 etoWAtsaC < ***");
   write_string();
   num = 5;
   write_word();
   strcpy(string,"");
   write_string();
   strcpy(string,"<bbsname> @ 2:254/86.1");
   write_string();
   num = 3;
   write_word();
   strcpy(string,"12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678");
   write_string();
   strcpy(string,"Knopfler 1.00 0000000000000000");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"Option 1");
   write_string();
   num = 1;
   write_word();
   strcpy(string,"Option 2");
   write_string();
   num = 2;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();

   strcpy(string,"Helen Rayner");
   write_string();
   strcpy(string,"<bbsname> @ 2:254/86.1");
   write_string();
   num = 7;
   write_word();
   strcpy(string,"?");
   write_string();
   strcpy(string,"Knopfler 1.00");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"Hello Richard Sargeant");
   write_string();
   strcpy(string,"Option 1");
   write_string();
   num = 1;
   write_word();
   strcpy(string,"Option 2");
   write_string();
   num = 2;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"Option 4");
   write_string();
   num = 4;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();

   strcpy(string,"Anonymous");
   write_string();
   strcpy(string,"<bbsname> @ 2:254/86.1");
   write_string();
   num = 7;
   write_word();
   strcpy(string,"The question");
   write_string();
   strcpy(string,"Knopfler 1.00 0000000000000000");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"Option 1");
   write_string();
   num = 1;
   write_word();
   strcpy(string,"Option 2");
   write_string();
   num = 2;
   write_word();
   strcpy(string,"Option 3");
   write_string();
   num = 3;
   write_word();
   strcpy(string,"");
   write_string();
   num = 4;
   write_word();
   strcpy(string,"");
   write_string();
   num = 5;
   write_word();
   strcpy(string,"");
   write_string();
   num = 6;
   write_word();
   strcpy(string,"");
   write_string();
   num = 7;
   write_word();
   strcpy(string,"");
   write_string();
   num = 8;
   write_word();


   strcpy(string,"???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????");
   write_string();
   strcpy(string,"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@");
   write_string();
   strcpy(string,"###############################################################################################################################################################################################################################################################");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888");
   write_string();
   num = 36624;
   write_word();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"");
   write_string();
   num = 0;
   write_word();
   strcpy(string,"elif fo dnE");
   write_string();
}
