test3.cpp

eC++编译器源码

#include <List.h>
#include <stdio.h>
#include <SYSTEM.h>
#include <HexDump.h>

void main(void)
{List x; int i; long l; ADDRESS a;
  x=Open("foo");
  Field(x, 0, "one");
  for ( ;; ) {
    if (scanf("%ld", l)!=1) HALT;
    Store(x, 0, ADDRESS(l));
    a = Load(x, 0);
    Dump(a);
    printf("----%ld\n", a);
    if (scanf("%i", i)!=1) HALT;
  };
  Close(x);
};