port of 10 PRINT to C

10print.c

/*
 * port of
 * 10 PRINT CHR$(205.5+RND(1)); : GOTO 10
 * to modern-ish C
 */

#include <locale.h>
#include <wchar.h>
#include <stdlib.h>
#include <time.h>
#include <stdio.h>

#define US_IN_NS 1000
#define MS_IN_NS (1000*US_IN_NS)

int main(int argc, char** argv) {
  unsigned int seed = time(NULL);
  struct timespec ns;

  ns.tv_sec = 0;
  ns.tv_nsec = 5 * MS_IN_NS;

  setlocale(LC_ALL, "");

  while(1) {
    putwchar(0x2571 + (rand_r(&seed) & 1));
    fflush(stdout);
    nanosleep(&ns, NULL);
  }

  return 0;
}

sample-output.txt

╲╲╱╲╲╲╲╲╲╲╱╱╲╱╱╱╱╲╲╱╱╱╲╲╲╲╲╲╱╱╱╱╱╲╱╱╱╱╱╲╱╲╲╲╲╱╲╲╲╲╲╲╲╱╲╲╲╲╲╲╲╲╲╲╲╲╲╱╱╱╱╲╱╲╲╲╱╱╱╱
╱╱╲╲╲╱╱╲╲╱╲╲╲╲╱╲╲╲╲╱╲╱╱╲╱╱╱╱╲╲╲╱╲╱╱╱╱╲╲╲╲╱╱╱╲╲╲╱╲╱╲╱╲╲╱╱╲╲╲╱╱╱╲╲╲╱╱╱╱╱╱╱╱╱╱╲╲╲╱╱
╲╲╱╲╲╲╱╱╱╱╲╱╲╱╱╲╲╱╲╱╲╱╲╱╱╲╱╱╱╲╱╲╱╱╱╲╱╲╱╲╲╱╱╱╲╱╱╲╲╲╱╱╲╱╲╲╲╲╱╱╲╱╱╱╲╱╲╲╱╲╲╲╱╱╱╲╲╲╱╱
╱╱╱╱╱╲╲╲╱╱╱╲╱╲╱╱╱╲╲╲╱╲╲╱╲╲╲╱╱╲╱╱╲╲╱╱╲╲╱╱╱╲╲╲╱╱╱╲╱╲╲╱╲╱╱╱╱╱╱╱╱╲╱╱╱╱╲╱╲╲╱╱╲╱╲╱╲╲╱╱
╲╲╲╲╲╲╱╲╲╱╱╱╱╱╱╱╱╱╱╱╲╲╲╲╱╱╱╱╱╲╲╲╱╱╲╱╲╱╲╱╲╱╱╱╲╲╲╱╲╲╱╱╲╱╲╱╱╲╲╱╱╱╱╱╱╲╱╱╲╲╱╱╲╲╲╲╲╲╱╱
╱╱╱╲╱╱╱╲╲╲╲╱╲╲╱╲╲╲╱╲╱╲╱╲╱╱╱╱╲╲╲╱╱╱╲╲╱╲╲╲╲╲╲╲╱╱╱╱╱╱╱╱╲╱╱╱╱╲╱╲╲╱╱╱╲╲╲╲╱╲╲╱╲╱╲╱╱╲╲╲
╱╱╱╲╱╲╱╲╱╲╱╲╱╱╲╲╱╲╱╲╲╲╲╲╱╱╲╲╲╲╱╲╲╱╱╲╱╱╱╱╲╲╲╱╱╱╲╲╱╱╱╱╲╲╱╱╲╲╲╲╱╲╱╱╱╱╲╲╱╲╲╲╲╱╲╱╱╲╲╲
╲╱╱╱╲╲╱╱╲╱╲╲╱╲╱╲╱╲╲╱╱╱╲╱╱╲╱╲╲╱╲╱╲╱╲╱╲╱╲╲╱╲╱╱╲╲╱╲╲╱╲╲╱╲╱╱╲╲╱╲╲╱╲╱╲╱╲╱╱╱╲╱╱╲╱╲╱╱╱╱
╲╱╲╱╲╲╲╲╲╲╱╲╲╱╲╲╱╲╱╲╲╱╲╲╱╲╲╱╲╱╱╱╲╱╲╱╱╲╱╱╱╲╲╲╱╲╲╲╲╲╱╲╱╲╱╲╲╱╲╱╲╱╲╱╱╱╱╲╱╲╱╱╲╱╲╱╲╲╱╱
╲╱╱╲╱╲╱╱╲╲╲╲╲╲╱╲╲╲╱╱╱╱╲╲╲╲╱╲╱╲╲╲╱╲╱╲╱╱╲╱╲╲╲╲╲╱╲╲╱╲╲╲╱╱╲╲╱╲╱╱╲╲╱╱╱╲╱╲╱╲╱╲╱╲╲╱╱╱╱╲
╱╲╱╲╱╲╲╱╲╲╱╲╲╱╲╱╱╱╲╲╲╱╲╲╱╲╲╱╱╲╲╲╱╲╱╲╲╱╲╱╲╱╲╱╲╱╲╲╲╱╱╲╱╱╱╲╱╱╲╲╱╱╲╲╱╱╱╲╱╱╱╱╱╲╱╲╲╱╱╱
╲╱╲╲╲╱╲╱╲╲╱╲╲╲╱╲╲╲╲╱╲╲╱╲╲╲╱╲╱╲╱╲╲╱╱╲╱╲╲╱╲╲╲╲╲╲╱╲╲╲╱╱╲╱╲╲╲╲╱╱╲╲╱╲╱╲╱╱╱╱╲╱╲╲╲╲╲╱╱╲
╲╲╱╱╲╲╱╲╱╲╲╲╱╲╱╱╱╱╲╱╱╱╲╱╱╱╱╱╱╲╲╲╲╲╱╱╲╱╲╲╲╱╱╱╱╲╲╲╱╱╲╲╲╱╲╱╱╲╱╲╱╲╲╱╱╱╲╲╱╱╱╲╱╲╱╱╱╱╲╱
╲╱╱╲╱╲╲╱╲╱╱╱╱╲╱╱╲╲╲╱╲╱╲╲╱╲╲╲╱╱╱╱╲╲╲╱╲╲╱╱╱╱╱╲╲╱╲╱╱╲╱╱╱╲╲╱╱╲╲╱╲╱╲╲╱╱╲╱╱╲╱╱╱╲╱╱╲╱╱╲
╱╲╱╱╱╱╲╱╱╱╲╲╱╲╱╲╲╲╲╲╱╲╲╲╱╲╲╲╲╱╲╲╱╱╱╱╲╲╲╱╲╲╲╲╲╱╲╱╲╲╱╲╱╲╲╲╱╲╲╲╲╲╱╱╲╲╱╲╱╱╲╱╲╱╲╱╱╱╲╱
╲╲╲╲╱╲╱╲╱╱╲╱╱╱╱╲╲╲╱╲╱╱╱╲╲╱╱╲╱╲╲╲╱╱╲╲╲╲╲╱╱╲╲╱╲╱╱╲╱╲╲╱╲╲╱╲╱╱╱╱╱╱╱╲╱╲╲╲╱╱╲╱╲╲╲╲╱╱╱╱
╲╲╱╲╱╱╲╱╱╲╲╲╲╲╲╲╲╲╱╲╲╲╲╲╱╱╱╲╱╲╱╲╲╱╲╲╲╱╱╱╱╲╱╱╲╲╲╲╱╲╱╲╲╲╲╱╱╱╱╱╲╱╱╱╲╲╱╲╲╱╲╲╲╱╱╲╲╱╲╲
╱╱╲╲╱╱╲╱╱╲╲╱╱╱╲╲╲╲╱╱╲╲╱╱╲╱╲╱╱╲╱╲╲╲╱╲╲╲╲╲╱╱╱╲╱╲╲╱╲╲╲╱╱╲╱╲╲╲╲╲╱╲╲╲╱╱╱╱╲╲╱╱╱╱╱╲╲╱╱╲
╲╱╲╲╱╲╲╲╱╱╱╲╱╱╱╲╱╱╱╱╱╲╲╲╱╱╲╲╱╱╲╱╲╲╱╱╲╲╲╱╱╲╱╱╱╲╲╲╲╱╱╱╲╱╱╱╱╲╲╲╱╱╲╲╲╱╲╲╲╱╲╲╲╲╱╱╲╱╱╲
╱╲╱╱╲╲╲╲╲╲╱╲╲╲╱╲╱╱╲╲╱╱╱╱╱╲╲╲╲╱╱╱╱╱╱╲╱╲╱╱╱╱╱╲╱╱╱╱╲╲╱╲╱╱╱╱╱╱╲╲╲╲╲╱╲╱╱╲╱╱╱╲╲╲╱╲╱╱╱╲
╲╲╱╱╱╲╲╲╱╲╱╱╱╱╲╲╱╱╱╲╲╲╱╱╲╱╲╲╲╱╱╲╱╲╲╲╲╲╱╱╲╲╲╱╱╱╱╲╲╱╱╲╲╲╱╲╲╱╲╲╱╱╱╱╲╱╱╱╱╲╲╲╲╲╱╲╱╱╱╱
╲╲╲╱╲╲╱╲╲╱╱╱╲╲╱╱╱╱╱╱╲╲╱╲╱╲╲╱╲╲╱╱╲╱╱╱╱╱╱╱╱╲╱╱╲╲╲╱╲╲╲╲╱╱╲╱╲╱╲╲╱╲╲╲╲╱╲╱╲╲╱╲╱╱╱╱╲╱╱╲
╱╱╲╲╱╱╲╲╲╱╱╲╲╲╱╱╱╱╱╱╲╲╲╲╱╱╲╱╲╲╲╲╱╲╱╱╱╱╲╲╱╲╱╲╱╲╲╱╱╲╱╱╱╱╱╲╲╱╲╲╱╲╱╲╲╲╲╱╲╲╱╲╲╱╱╲╱╱╱╲
╱╱╲╱╱╲╲╱╲╱╱╱╱╱╲╲╲╱╱╲╲╱╲╱╲╱╲╲╱╱╱╱╲╲╲╱╲╱╱╱╲╲╱╲╱╲╲╲╲╱╲╲╱╱╲╱╱╲╲╱╱╱╲╲╲╲╲╲╱╱╱╱╱╱╱╲╲╱╱╲
╱╱╲╱╱╲╲╱╲╲╱╲╲╲╲╱╲╱╲╱╱╲╲╲╱╱╱╱╲╱╱╲╱╲╱╱╲╱╱╱╲╲╱╱╱╲╲╲╱╲╲╲╱╲╲╲╱╱╱╱╲╲╱╲╱╲╲╱╲╲╲╱╱╲╲╱╲╲╲╲
╱╱╱╲╱╱╲╲╱╲╲╱╱╱╲╲╲╱╱╱╱╲╱╱╱╱╱╲╲╲╱╱╱╱╱╱╱╲╲╲╲╱╲╱╱╱╲╲╲╲╲╱╱╱╲╱╱╲╱╲╲╱╱╲╲╱╱╱╲╱╱╲╱╲╲╱╱╲╱╱
╲╱╲╱╲╲╲╱╲╲╲╱╲╱╲╱╲╱╱╲╱╲╱╱╲╲╲╱╲╱╲╱╲╱╱╱╲╲╱╱╱╲╲╱╱╱╱╱╲╲╱╲╱╲╲╱╲╱╲╱╲╲╱╲╱╱╲╱╱╲╱╱╱╱╲╲╲╲╲╲