home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / NETWORK / NWL004.ZIP / PCPS.ZIP / PCPSCOM1.PAT < prev    next >
Encoding:
Text File  |  1992-01-31  |  3.2 KB  |  89 lines
  1. TARGET=C:\NWLITE\NLCNTL\SCOM1\SPOOLER
  2. LIST
  3.     print "PCPSCOM1.PAT - NetWare Lite COM1 characters per second patch.\n"
  4.     rem "1/31/92"
  5. VERIFY
  6.     if (*0=34) AND (*1=12) then
  7.         va = (12 / (*3)) * ((100 * (*5)) + (*4))
  8.         print "  NetWare Lite Server COM1 port is currently configured for "
  9.         rem "convert the value to decimal"
  10.         rem "10000's"
  11.         print va / 2710
  12.         va = va % 2710
  13.         rem "1000's"
  14.         print va / 3E8
  15.         va = va % 3E8
  16.         rem "100's"
  17.         print va / 64
  18.         va = va % 64
  19.         rem "10's"
  20.         print va / A
  21.         va = va % A
  22.         rem "1's"
  23.         print va,"\n"
  24.         print "  Characters per second.\n"
  25.     else
  26.         print "  This NetWare Lite Server does not seem to be configured for\n"
  27.         print "  an COM1 port.\n"
  28.         stop
  29.     endif
  30. APPLY
  31.     print "  Applying patch PCPSCOM1.PAT to NetWare Lite COM1 port configuration...\n"
  32.     if (*0=34) AND (*1=12) then
  33.         print "\n"
  34.         print "    Select the value for printer Characters per second.\n"
  35.         print "      1. Characters per second:   747\n"
  36.         print "      2. Characters per second:  4095\n"
  37.         print "      3. Characters per second:  8190\n"
  38.         print "      4. Characters per second: 16380\n"
  39.         print "      5. Characters per second: 32760\n"
  40.         print "      6. Characters per second: 65520\n"
  41.         print "      7. No Change\n"
  42.         print "    Type the number (1-7) corresponding to the value you want: "
  43.         va = getkey
  44.         print "\n"
  45.         if ((va < '1') or (va > '7')) then
  46.             print "    The number must be between 1 and 7.  Type a number: "
  47.             va = getkey
  48.             print "\n"
  49.         endif
  50.         if (va='1') then
  51.             rem "747 Characters per second, 2 tic interval"
  52.             patch 3 ( 02 53 00 checksum 55)
  53.         endif
  54.         if (va='2') then
  55.             rem "4095 Characters per second, 2 tic interval"
  56.             patch 3 ( 02 C7 01 checksum CA)
  57.         endif
  58.         if (va='3') then
  59.             rem "8190 Characters per second, 1 tic interval"
  60.             patch 3 ( 01 C7 01 checksum C9)
  61.         endif
  62.         if (va='4') then
  63.             rem "16380 Characters per second, 1 tic interval"
  64.             patch 3 ( 01 8E 03 checksum 92)
  65.         endif
  66.         if (va='5') then
  67.             rem "32760 Characters per second, 1 tic interval"
  68.             patch 3 ( 01 1C 07 checksum 24)
  69.         endif
  70.         if (va='6') then
  71.             rem "65520 Characters per second, 1 tic interval"
  72.             patch 3 ( 01 38 0E checksum 47)
  73.         endif
  74.         if ((va < '1') or (va > '6')) then
  75.             print "  No change made to current configuration.\n"
  76.             stop
  77.         endif
  78.         write
  79.         print "  NetWare Lite COM1 port configuration now contains patch PCPSCOM1.PAT.\n"
  80.         stop
  81.     else
  82.         print "  Could not find pattern indicating that this NetWare Lite Server\n"
  83.         print "  is configured for an COM1 port.  Make sure you are using this\n"
  84.         print "  patch with NetWare Lite v1.00 printer configuration\n"
  85.         print "  files.\n"
  86.         stop
  87.     endif
  88.  
  89.