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 / STARTUP.FIL < prev    next >
Text File  |  1986-07-21  |  2KB  |  74 lines
  1. {---------------------------------------------------------------
  2. {    START-UP PARAMETERS FILE
  3. {        Always located on drive A: user 0
  4. {
  5. {    File format:
  6. {        record-range    Contents
  7. {        ------------    ----------------------------
  8. {        0                Console-types
  9. {        1 - 16            Printer Initialization (0 - 15)
  10. {        17 - end        Office-codes, locations, etc
  11. {----------------------------------------------------------------
  12. record    startup.rec;
  13.     string    128;
  14.     endrec;
  15. {--------------------------------------
  16. {    Console-types
  17. {--------------------------------------
  18.                                         redefine startup.rec;
  19.     record    startup.con.tbl;
  20.         byte    startup.con.type;
  21.         string                    15;
  22.         endrec;
  23.     word    startup.nxt;
  24.                                         endredef;
  25. {--------------------------------------
  26. {    Console / Printer Initialization
  27. {--------------------------------------
  28.                                         redefine startup.rec;
  29.     string    startup.prn.init    64;
  30.     byte    startup.prn.unit;
  31.     byte    startup.prn.width;
  32.     field    startup.prn.desc    32;
  33.                                         endredef;
  34. {------------------------------------
  35. {    Company Identification Record
  36. {------------------------------------
  37.                                         redefine startup.rec;
  38.     record    startup.disp.rec;
  39.         field    startup.co.code        3;
  40.         field    startup.prog.ext    3;
  41.         field    startup.data.ext    3;
  42.         field    startup.dflt.prog    8;
  43.         field    startup.password    8;
  44.         byte    startup.prog.drive;
  45.         byte    startup.data.drive;
  46.         byte    startup.backup.drive;
  47.         byte    startup.sort.drive;
  48.         endrec;
  49.     byte    startup.user;
  50.     record    startup.printer.assignments;
  51.         byte    startup.narrow.printer;
  52.         byte    startup.wide.printer;
  53.         byte    startup.ins.printer;
  54.         byte    startup.bill.printer;
  55.         byte    startup.ibill.printer;
  56.         byte    startup.check.printer;
  57.         byte    startup.widest.printer;
  58.         string        9;    {--fill out to 16--}
  59.         endrec;
  60.     record    startup.con.valid.rec;
  61.         byte    startup.con.valid;
  62.         string        15;
  63.         endrec;
  64.                                         endredef;
  65.  
  66. string    startup.file.name    15    value    "INITPARM.PAR";
  67.  
  68. file    startup.file,
  69.         disk,
  70.         random,
  71.         key    startup.key,
  72.         record    startup.rec,
  73.         value    startup.file.name;
  74.