rog.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3
   4 #define MAX_TRACKS 100
   5 typedef char str[256];
   6
   7 FILE *dbf=NULL;
   8
   9 char **params;
  10
  11 int f,result;
  12 str fname[14],wkday[7];
  13 main(int argc,char *argv[])
  14 {
  15    dbf = fopen("dbf","w");
  16    params = argv;
  17    set_terminal("VT102");
  18    set_port(2);
  19    terminal();
  20    cputs("\r\r");
  21    cputs("cl -q\r");
  22    filename(fname,wkday);
  23    download(result,wkday,fname);
  24    terminal();
  25    exittelix(0,1);
  26 }
  27
  28 filename(str fname, str wkday)
  29 {
  30   strcpy(fname,params[1]);
  31   strcpy(wkday,params[2]);
  32 }
  33
  34 download(int result, str wkday, str fname)
  35 {
  36 int stat,t1,t2,t3,t4,t5,t6,t7,t8,t9;
  37 t1 = track("Port? ",0);
  38 t2 = track("Protocol(2)? ",0);
  39 t3 = track("Data types to offload (oxcteahsrup; ~ = none)? ",0);
  40 t4 = track("Terminate file transfer at end of stored data (y)? " ,0);
  41 t5 = track("Style(0)? ",0);
  42 t6 = track("Headers (h), trailers (t) and/or data introductions (i) [hi]? ",0);
  43 t7 = track("([CR] to download all data)?",0);
  44 t8 = track("Interval in days? ",0);
  45 t9 = track("portlistner: TURN XMODEM ON NOW!",0);
  46 stat = 0;
  47 cputs("off\r");
  48 while(1)
  49 {
  50    terminal();
  51    stat = track_hit(0);
  52    if (stat == t1)
  53    {
  54       cputs("3\r");
  55       track_free(t1);
  56    }
  57    if (stat == t2)
  58    {
  59       cputs("2\r");
  60       track_free(t2);
  61    }
  62    if (stat == t3)
  63    {
  64       cputs("oxeahs\r");
  65       track_free(t3);
  66    }
  67    if (stat == t4)
  68    {
  69       cputs("y\r");
  70       track_free(t4);
  71    }
  72    if (stat == t5)
  73    {
  74       cputs("2\r");
  75       track_free(t5);
  76    }
  77    if (stat == t6)
  78    {
  79       cputs("\r");
  80       track_free(t6);
  81    }
  82    if (stat == t7)
  83    {
  84       cputs("g\r");
  85       track_free(t7);
  86    }
  87    if (stat == t8)
  88    {
  89       cputs(wkday);
  90       cputs("\r");
  91       track_free(t8);
  92       break;
  93    }
  94 /*   if (stat == t9) */
  95 /*      track_free(t9); */
  96 }
  97 delay(100);
  98 result = receive(fname);
  99 }
 100