>
>--------8<--------8<--------8<--------8<--------8<--------8<--------8<--------
>
>#include <aes.h>
>#include <tos.h>
>#include <stdio.h>
>#include <string.h>
>
>#include "transprt.h"
>
>
>long    get_stik_cookie (void);
>
>DRV_LIST  *stik_drivers;
>
>char  not_there[] = "[1][ |  STiK is not loaded or enabled !   ][ Hmmm ]";
>char  corrupted[] = "[1][ |  STiK structures corrupted !   ][ Fuck ]";
>char  nologstik[] = "[1][ |  LogSTiK was not installed !   ][ Ooops ]";
>char  destroyed[] = "[3][ |  LogSTiK debugging tool    | |    removed ...][ Okay ];
>
>
>
>void  main()
>
>{
>   appl_init();
>
>   stik_drivers = (DRV_LIST *) Supexec (get_stik_cookie);
>
>   if (stik_drivers == 0L) {
>        form_alert (1, not_there);
>        return;
>      }
>   if (strcmp (stik_drivers->magic, MAGIC) != 0) {
>        form_alert (1, corrupted);
>        return;
>      }
>
>   if ((long) (*stik_drivers->get_dftab) ("SELF_DESTRUCT") == 'OkOk')
>        form_alert (1, destroyed);
>     else
>        form_alert (1, nologstik);
>
>   appl_exit();
> }
>
>
>long  get_stik_cookie()
>
>{
>   long  *work;
>
>   for (work = * (long **) 0x5a0L; *work != 0L; work += 2)
>        if (*work == 'STiK')
>             return (*++work);
>
>   return (0L);
> }
>
>--------8<--------8<--------8<--------8<--------8<--------8<--------8<--------
>
>Not much that can go wrong !?!
