home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PARASOL / VIDEOSTO.ARK / VINIT.SRC < prev    next >
Text File  |  1986-09-25  |  3KB  |  124 lines
  1. copy "PARMS.LIB";
  2. video.init.screen:
  3. begin
  4. copy "SCREEN.LIB";
  5. copy "SYSPARMS.FIL";
  6. copy "TSCAN.FIL";
  7. copy "MSCAN.FIL";
  8. copy "TAPE.FIL";
  9. copy "MEMBER.FIL";
  10. copy "BOJDATA.LIB";
  11.                                 redefine screen.data;
  12. record s.disp.rec;
  13.     field    s.d.m.nxt            4;
  14.     field    s.d.t.nxt            4;
  15.     byte    s.d.term.type;
  16.     byte    s.d.op.sys;
  17.     field    s.d.date            8;
  18.  
  19.     field    s.d.name            30;
  20.     field    s.d.addr            30;
  21.     field    s.d.city            20;
  22.     field    s.d.state            2;
  23.     field    s.d.zip                9;
  24.     field    s.d.phone            9;
  25.  
  26.     field    s.d.wide.printer        2;
  27.     field    s.d.narrow.printer        2;
  28.     field    s.d.label.printer        2;
  29.  
  30.     byte    s.d.save.flag;
  31. endrec;
  32.                                 endredef;
  33.  
  34. string    wk.str        81;
  35. string    wk.str.2    81;
  36. word    wk.word;
  37. byte    wk.byte;
  38. bcd        wk.bcd;
  39.  
  40.     move 'VIDSCREN.DAT' to screen.file.name;
  41.     accept "Terminal type: ",wk.str;
  42.     convert wk.str to terminal.type;
  43.     accept "Data-Ext: ",wk.str;
  44.     convert wk.str to upper case;
  45.     move wk.str to data.ext;
  46.  
  47.     move data.ext to sys.file.ext;
  48.     move data.ext to m.file.ext;
  49.     move data.ext to t.file.ext;
  50.     move data.ext to tscan.file.ext;
  51.     move data.ext to mscan.file.ext;
  52.  
  53.     open sys error begin
  54.         open sys output remove error standard;
  55.         move 0 to sys.key;
  56.         write sys error standard;
  57.         close sys partial error standard;
  58.         open member output remove error standard;
  59.         close member error standard;
  60.         open tape output remove error standard;
  61.         close tape error standard;
  62.         open tapescan output remove error standard;
  63.         close tapescan error standard;
  64.         open memscan output remove error standard;
  65.         close memscan error standard;
  66.         end;
  67.  
  68.     move 'init' to screen.name;
  69.     move 0 to sys.key;
  70.     read sys error standard;
  71.     move 'N' to s.d.save.flag;
  72.     convert s.m.nxt to wk.str;
  73.     move wk.str to s.d.m.nxt;
  74.     convert s.t.nxt to wk.str;
  75.     move wk.str to s.d.t.nxt;
  76.  
  77.     move s.term.type to s.d.term.type;
  78.     move s.op.sys to s.d.op.sys;
  79.     move s.date to s.d.date;
  80.     move s.name to s.d.name;
  81.     move s.addr to s.d.addr;
  82.     move s.city to s.d.city;
  83.     move s.state to s.d.state;
  84.     move s.zip to s.d.zip;
  85.     move s.phone to s.d.phone;
  86.     convert s.narrow.printer to wk.str;
  87.         move wk.str to s.d.narrow.printer;
  88.     convert s.wide.printer to wk.str;
  89.         move wk.str to s.d.wide.printer;
  90.     convert s.label.printer to wk.str;
  91.         move wk.str to s.d.label.printer;
  92.  
  93.     call get.screen.data;
  94.  
  95.     if s.d.save.flag <> "Y" then
  96.         goto end.vinit;
  97.         fi;
  98.  
  99.     move s.d.m.nxt to wk.str
  100.     convert wk.str to s.m.nxt;
  101.     move s.d.t.nxt to wk.str;
  102.     convert wk.str to s.t.nxt;
  103.     move s.d.term.type to s.term.type;
  104.     move s.d.op.sys to s.op.sys;
  105.     move s.d.date to s.date;
  106.     move s.d.name to s.name;
  107.     move s.d.addr to s.addr;
  108.     move s.d.city to s.city;
  109.     move s.d.state to s.state;
  110.     move s.d.zip to s.zip;
  111.     move s.d.phone to s.phone;
  112.  
  113.     move s.d.narrow.printer to wk.str;
  114.         convert wk.str    to s.narrow.printer;
  115.     move s.d.wide.printer    to wk.str;
  116.         convert wk.str    to s.wide.printer;
  117.     move s.d.label.printer    to wk.str;
  118.         convert wk.str    to s.narrow.printer;
  119.  
  120.     write sys error standard;
  121. end.vinit:
  122.     close sys error standard;
  123. end;
  124.