/*
 *  Forget.c
 *              Copyright (C) 1986 by William E. Henning
 *
 *    You may give it away, use it in your programs, upload it wherever
 * you like, put it on P.D. program collection disks which may be copied
 * for free or a nominal charge, BUT you may not sell it for profit.
 *
 *    After changing it and recompiling it, it should be ATOMized so that
 * all hunks go to chip memory.
 */

#include "exec/types.h"
#include "exec/nodes.h"
#include "exec/lists.h"
#include "exec/ports.h"
#include "exec/libraries.h"
#include "exec/memory.h"

#define NONE '\0'

#define no "Copyright (C) 1986 by William E. Henning,Not to be sold for profit!"

int x2[] = {1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,
            65536,131072,262144,524288,1048576};
int i;
char *p;

main() {
  int i;
  char *p;

  puts(no);

  i=20;

again:
  p = (char *)AllocMem(x2[i],MEMF_FAST);
  if (p != NONE) goto again;
  i--;
  if (i > 0) goto again;

}