home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 101_01 / flyby.c < prev    next >
Text File  |  1985-11-14  |  1KB  |  64 lines
  1. /*
  2.     Freak out program for H19 terminals
  3.     -----------------------------------
  4.     Written By Leor Zolman        5/26/80
  5. */
  6.  
  7. #define X_OFF 0x13
  8. #define X_ON  0x11
  9.  
  10. char stopf;
  11.  
  12. main()
  13. {
  14.     int mf;
  15.     char i,ch,c;
  16.     char line;
  17.  
  18.     while (1)
  19.     {
  20.      stopf = 0;
  21.      if (bdos(2)) bdos(3);    /* clear input status */
  22.  
  23.      do {
  24.        srand1("\033E\033y5Density factor (1-15, or 0 to quit)? ");
  25.        if (!scanf("%d",&mf)) mf = 7;
  26.      } while (mf > 15);
  27.  
  28.      if (!mf) {
  29.         puts("\033z");
  30.         return;
  31.       }
  32.      mf = (1 << (16-mf)) - 1;
  33.  
  34.      puts("Character to use? ");
  35.      if (!scanf("%c",&ch) || ch == '\n') ch = ' ';
  36.      puts("\033E\033p\033x5");    /* enter reverse video */
  37.  
  38.        while(1)
  39.        {
  40.         for (i=' '; i<111; i++)
  41.             if (rand() & mf) continue;
  42.             else {
  43.               putchar('\033'); putchar('Y');
  44.               putchar(' '); putchar(i); putchar(ch);
  45.             }
  46.         if (stopf) break;
  47.         puts("\033L");
  48.        }
  49.  
  50.     }
  51. }
  52.  
  53. putchar(c)
  54. char c;
  55. {
  56.     bios(4,c);
  57.     if (bios(2)) {
  58.         if ((c = bios(3)) == X_OFF)
  59.             while (bios(3) != X_ON);
  60.         else stopf = 1;
  61.     }
  62. }
  63.  
  64.