home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d555 / hpmode.lha / HPMode / s / HP_ModeSer < prev   
Text File  |  1991-10-28  |  12KB  |  417 lines
  1. echo "*n*n*n›33m›3m                         ›4mHP Mode Selection v1.0*n*n›0m"
  2. echo "*n›2m   This is a small script for changing a few of those things on HP Deskjets"
  3. echo " that can be awkward (or impossible!) to change from preferences or from the"
  4. echo " printer itself. For information on updates and other programs call or write:"
  5. echo "*n›33m                              Doris Ballard"
  6. echo "                          226 Blackberry Hill Rd."
  7. echo "                           Berwick, Maine 03901"
  8. echo "                              (207) 384-9901*n*n"
  9. echo "›2m                            September 15, 1991›0m*n*n"
  10. echo "                PLEASE ENSURE THAT YOUR PRINTER IS `ON LINE'!!!›0m*n"
  11. wait 5
  12. echo "*n*n*n*n*n*nPortrait And Landscape Orientation Selection:"
  13. ask "*nLandscape Orientation On (y/n)?  "
  14. if Warn
  15.     echo "*nThe only font available in Landscape Orientation is Upright Courier.*n"
  16.     echo >ser:  "&l1O" NOLINE
  17.     ask "*nSet Point Sizes (y/n)?  "
  18.     if Warn
  19.         echo "*nAvailable Point Sizes are 6, 12 and 24.*n"
  20.         ask "*nSet point size to 6 (y/n)?  "
  21.         if Warn
  22.             echo >ser: "(s0u0p10h6v0s0b3t2Q" NOLINE
  23.             skip LPitch
  24.         endif
  25.         ask "*nSet point size to 12 (y/n)?  "
  26.         if Warn
  27.             echo >ser: "(s0u0p10h12v0s0b3t2Q" NOLINE
  28.             skip LPitch
  29.         endif
  30.         ask "*nSet point size to 24 (y/n)?  "
  31.         if Warn
  32.             echo >ser: "(s0u0p10h24v0s0b3t2Q" NOLINE
  33.             skip LPitch
  34.         endif
  35.         echo "*n›2m›7m Point size not changed.›0m*n"
  36.     endif
  37. lab LPitch
  38.     ask "*nSet Pitch (y/n)?  "
  39.     if Warn
  40.         echo "*nThe only pitches available are 10, 16.67 and 20.*n"
  41.         ask "*nSet pitch to 10 (y/n)?  "
  42.         if Warn
  43.             echo >ser: "(s10H" NOLINE
  44.             skip PrinterCommands
  45.         endif
  46.         ask "*nSet pitch to 16.67 (y/n)?  "
  47.         if Warn
  48.             echo >ser: "(s16.67H" NOLINE
  49.             skip PrinterCommands
  50.         endif
  51.         ask "*nSet pitch to 20 (y/n)?  "
  52.         if Warn
  53.             echo >ser: "(s20H" NOLINE
  54.             skip PrinterCommands
  55.         endif
  56.         echo "*n›2m›7m Pitch not changed.›0m*n"
  57.         skip PrinterCommands
  58.     endif
  59.     skip PrinterCommands
  60. else
  61.     echo "*nDefault to Portrait Orientation."
  62.     echo >ser: "&l0O" NOLINE
  63. endif
  64.  
  65. lab Font
  66. ask "*nWould you like to change printer ›2mFont›0m (y/n)?  "
  67. if Warn
  68.     echo "*nAvailable fonts are Courier, CGTimes and Letter Gothic.*n"
  69.     ask "*nCourier (y/n)?  "
  70.     if Warn
  71.         skip Courier
  72.     endif
  73.     ask "*nCGTimes (y/n)?  "
  74.     if Warn
  75.         skip CGTimes
  76.     endif
  77.     ask "*nLetterGothic (y/n)?  "
  78.     if Warn
  79.         skip LetGoth
  80.     endif
  81.     echo "*n›2m›7m Font not changed.›0m*n"
  82. endif
  83. skip Attributes
  84.  
  85. lab Courier
  86.     ask "*nCourier Italic (y/n)?  "
  87.     if Warn
  88.         echo "*nAvailable point sizes are 6 and 12.*n"
  89.         ask "*nCourier Italic point size 6 (y/n)?  "
  90.         if Warn
  91.             ask "*nPrimary font (y/n)?  "
  92.             if Warn
  93.                 echo >ser: "(s0u0p10h6v1s0b3t2Q" NOLINE
  94.                 skip Pitch1
  95.              else
  96.                 echo "*nDefault secondary font set."
  97.                 echo >ser: ")s0u0p10h6v1s0b3t2Q" NOLINE
  98.                 skip Pitch1
  99.              endif
  100.         endif
  101.         ask "*nCourier Italic point size 12 (y/n)?  "
  102.         if Warn
  103.             ask "*nPrimary font (y/n)?  "
  104.             if Warn
  105.                 echo >ser: "(s0u0p10h12v1s0b3t2Q" NOLINE
  106.                 skip Pitch1
  107.              else
  108.                 echo "*nDefault secondary font set."
  109.                 echo >ser: ")s0u0p10h12v1s0b3t2Q" NOLINE
  110.                 skip Pitch1
  111.              endif
  112.         endif
  113.         echo "*n›2m›7m Italic point size not changed.›0m*n"
  114.         skip Pitch1
  115. lab Pitch1
  116.         ask "*nSet Pitch (y/n)?  "
  117.         if Warn
  118.             echo "*nAvailable Pitches are 5, 10, and 20.*n"
  119.             ask "*nSet to 5 Pitch (y/n)?  "
  120.             if Warn
  121.                 echo >ser: "(s5H" NOLINE
  122.                 skip ToAttributes2
  123.             endif
  124.             ask "*nSet to 10 Pitch (y/n)?  "
  125.             if Warn
  126.                 echo >ser: "(s10H" NOLINE
  127.                 skip ToAttributes2
  128.             endif
  129.             ask "*nSet to 20 Pitch (y/n)?  "
  130.             if Warn
  131.                 echo >ser: "(s20H" NOLINE
  132.                 skip ToAttributes2
  133.             endif
  134.             echo "*n›2m›7m Pitch not changed.›0m*n"
  135.             skip ToAttributes2
  136.         endif
  137.     skip ToAttributes2
  138.     endif
  139.     echo "*nAvailable Upright Courier point sizes are 6 and 12.*n"
  140.     ask "*nUpright Courier point size 6 (y/n)?  "
  141.     if Warn
  142.         ask "*nPrimary font (y/n)?  "
  143.         if Warn
  144.             echo >ser: "(s0u0p10h6v0s0b3t2Q" NOLINE
  145.             skip Pitch2
  146.          else
  147.             echo "*nDefault secondary font set."
  148.             echo >ser: ")s0u0p10h6v0s0b3t2Q" NOLINE
  149.             skip Pitch2
  150.          endif
  151.     endif
  152.     ask "*nUpright Courier point size 12 (y/n)?  "
  153.     if Warn
  154.         ask "*nPrimary font (y/n)?  "
  155.         if Warn
  156.             echo >ser: "(s0u0p10h12v0s0b3t2Q" NOLINE
  157.             skip Pitch2
  158.          else
  159.             echo "*nDefault secondary font set."
  160.             echo >ser: ")s0u0p10h12v0s0b3t2Q" NOLINE
  161.             skip Pitch2
  162.          endif
  163.     endif
  164.         echo "*n›2m›7m Point size not changed.›0m*n"
  165.     skip Pitch2
  166. lab Pitch2
  167.     ask "*nSet Pitch (y/n)?  "
  168.     if Warn
  169.         echo "*nAvailable pitches are 5, 10, 16.67 and 20.*n"
  170.         ask "*nSet to 5 Pitch (y/n)?  "
  171.         if Warn
  172.             echo >ser: "(s5H" NOLINE
  173.             skip ToAttributes2
  174.         endif
  175.         ask "*nSet to 10 Pitch (y/n)?  "
  176.         if Warn
  177.             echo >ser: "(s10H" NOLINE
  178.             skip ToAttributes2
  179.         endif
  180.         ask "*nSet to 16.67 Pitch (y/n)?  "
  181.         if Warn
  182.             echo >ser: "(s16.67H" NOLINE
  183.             skip ToAttributes2
  184.         endif
  185.         ask "*nSet to 20 Pitch (y/n)?  "
  186.         if Warn
  187.             echo >ser: "(s20H" NOLINE
  188.             skip ToAttributes2
  189.         endif
  190.         echo "*n›2m›7m Pitch not changed.›0m*n"
  191.     endif
  192. lab ToAttributes2
  193.     ask "*nWould you like to change ›2mAttributes›0m (y/n)?  "
  194.         if Warn
  195.             skip Attributes2
  196.         endif
  197.     skip PrinterCommands
  198.  
  199. lab CGTimes
  200.     ask "*nSet point size (y/n)?  "
  201.     if Warn
  202.         echo "*nAvailable point sizes are 6 and 12.*n"
  203.         ask "*nCGTimes point size 6 (y/n)? "
  204.         if Warn
  205.         ask "*nPrimary font (y/n)?  "
  206.             if Warn
  207.                 echo >ser: "(s0u1p6v0s0b4101t2Q" NOLINE
  208.                 skip Attributes
  209.             else
  210.                 echo "*nSecondary default font set."
  211.                 echo >ser: ")s0u1p6v0s0b4101t2Q" NOLINE
  212.                 skip Attributes
  213.             endif
  214.         endif
  215.         ask "*nCGTimes point size 12 (y/n)? "
  216.         if Warn
  217.             ask "*nPrimary font (y/n)?  "
  218.             if Warn
  219.                 echo >ser: "(s0u1p12v0s0b4101t2Q" NOLINE
  220.                 skip Attributes
  221.             else
  222.                 echo "*nDefault secondary font set."
  223.                 echo >ser: ")s0u1p12v0s0b4101t2Q" NOLINE
  224.                 skip Attributes
  225.             endif
  226.         endif
  227.         echo "*n›2m›7m Point size not changed.›0m*n"
  228.     endif
  229.     skip Attributes
  230.  
  231. lab LetGoth
  232.     ask "*nSet point size (y/n)?  "
  233.     if Warn
  234.         echo "*nAvailable point sizes are 6 and 12.*n"
  235.         ask "*nLetter Gothic point size 6 (y/n)?"
  236.         if Warn
  237.         ask "*nPrimary font (y/n)?  "
  238.             if Warn
  239.                 echo >ser: "(s0u0p12h6v0s0b6t2Q" NOLINE
  240.                 skip LGPitch
  241.             else
  242.                 echo "*nDefault secondary font set."
  243.                 echo >ser: ")s0u0p12h6v0s0b6t2Q" NOLINE
  244.                 skip LGPitch
  245.             endif
  246.         endif
  247.         ask "*nLetter Gothic point size 12 (y/n)?"
  248.         if Warn
  249.         ask "*nPrimary font (y/n)?  "
  250.             if Warn
  251.                 echo >ser: "(s0u0p12h12v0s0b6t2Q" NOLINE
  252.                 skip LGPitch
  253.             else
  254.                 echo "*nDefault secondary font set."
  255.                 echo >ser: ")s0u0p12h12v0s0b6t2Q" NOLINE
  256.                 skip LGPitch
  257.             endif
  258.         endif
  259.         echo "*n›2m›7m Point size not changed.›0m*n"
  260.     endif
  261. lab LGPitch
  262.     ask "*nSet Pitch (y/n)?  "
  263.     if Warn
  264.         echo "*nAvailable pitches are 12 and 24.*n"
  265.         ask "*nSet to 12 Pitch (y/n)?  "
  266.         if Warn
  267.             echo >ser: "(s12H" NOLINE
  268.             skip Attributes
  269.         endif
  270.         ask "*nSet to 24 Pitch (y/n)?  "
  271.         if Warn
  272.             echo >ser: "(s24H" NOLINE
  273.             skip Attributes
  274.         endif
  275.         echo "*n›2m›7m Pitch not changed.›0m*n"
  276.     endif
  277.     skip Attributes
  278.  
  279. lab Attributes
  280. ask "*nWould you like to change ›2mAttributes›0m (y/n)?  "
  281.     if Not Warn
  282.         skip PrinterCommands
  283.     endif
  284.     ask "*nItalics On (y/n)?  "
  285.     if Not Warn
  286.         echo >ser: "(s0S" NOLINE
  287.     else
  288.         echo >ser: "(s1S" NOLINE
  289.     endif
  290.  
  291. lab Attributes2
  292.     ask "*nBold or Extra Bold On (y/n)?  "
  293.     if Warn
  294.         ask "*nExtra Bold On (y/n)?  "
  295.         if Warn
  296.             echo >ser: "(s7B" NOLINE
  297.             skip Underline
  298.         endif
  299.         ask "*nRegular Bold On (y/n)?  "
  300.         if Warn
  301.             echo >ser: "(s3B" NOLINE
  302.         endif
  303.     else
  304.         echo >ser: "(s0B" NOLINE
  305.     endif
  306. lab Underline
  307.     ask "*nFloating or Fixed, Double or Single Underline On (y/n)?  "
  308.     if Warn
  309.         ask "*nSingle Fixed Underline (y/n)?  "
  310.         if Warn
  311.             echo >ser: "&d1D" NOLINE
  312.             skip SetPlace
  313.         endif
  314.         ask "*nDouble Fixed Underline (y/n)?  "
  315.         if Warn
  316.             echo >ser: "&d2D" NOLINE
  317.             skip SetPlace
  318.         endif
  319.         ask "*nSingle Float Underline (y/n)?  "
  320.         if Warn
  321.             echo >ser: "&d3D" NOLINE
  322.             skip SetPlace
  323.         endif
  324.         ask "*nDouble Float Underline (y/n)?  "
  325.         if Warn
  326.             echo >ser: "&d4D" NOLINE
  327.             skip SetPlace
  328.         endif
  329.     else
  330.         echo >ser: "&d@" NOLINE
  331.     endif
  332. lab SetPlace
  333.     ask "*nSuper or Subscript On (y/n)?  "
  334.     if Warn
  335.         ask "*nSuperscript On (y/n)?  "
  336.         if Warn
  337.             echo >ser: "(s+1U" NOLINE
  338.             skip PrinterCommands
  339.         endif
  340.         ask "*nSubscript On (y/n)?  "
  341.         if Warn
  342.             echo >ser: "(s-1U" NOLINE
  343.         endif
  344.     else
  345.         echo >ser: "(s0U" NOLINE
  346.     endif
  347.  
  348. lab PrinterCommands
  349. ask "*nWould you like to set ›2mPrinter Commands›0m (y/n)?  "
  350. if Warn
  351.     ask "*nPerforation Skip On (y/n)?  "
  352.     if Warn
  353.         echo >ser: "&l1L" NOLINE
  354.     else
  355.         echo >ser: "&l0L" NOLINE
  356.     endif
  357.     ask "*nLetter Quality On (y/n)?  "
  358.     if Warn
  359.         echo >ser: "(s2Q" NOLINE
  360.     else
  361.         echo >ser: "(s1Q" NOLINE
  362.     endif
  363.     ask "*nEnd-Of-Line Wrap On (y/n)?  "
  364.     if Warn
  365.         echo >ser: "&s0C" NOLINE
  366.     else
  367.         echo >ser: "&s1C" NOLINE
  368.     endif
  369.     ask "*nText Scale On (y/n)?  "
  370.     if Warn
  371.         echo >ser: "&k6W" NOLINE
  372.     else
  373.         echo >ser: "&k5W" NOLINE
  374.     endif
  375.     ask "*nSet Line Termination (y/n)?  "
  376.     if Warn
  377.         echo "*nChoices are: 1) CR = CR,      LF = LF,      FF = FF"
  378.         echo "             2) CR = CR + LF, LF = LF,      FF = FF"
  379.         echo "             3) CR = CR,      LF = CR + LF, FF = CR + FF"
  380.         echo "             4) CR = CR + LF, LF = CR + LF, FF = CR + FF"
  381.         ask "*nCR = CR,  LF = LF,  FF = FF (y/n)?  "
  382.         if Warn
  383.             echo >ser: "&k0G" NOLINE
  384.             skip exit
  385.         endif
  386.         ask "*nCR = CR + LF,  LF = LF,  FF = FF (y/n)?  "
  387.         if Warn
  388.             echo >ser: "&k1G" NOLINE
  389.             skip exit
  390.         endif
  391.         ask "*nCR = CR,  LF = CR + LF,  FF = CR+FF (y/n)?  "
  392.         if Warn
  393.             echo >ser: "&k2G" NOLINE
  394.             skip exit
  395.         endif
  396.         ask "*nCR = CR + LF,  LF = CR + LF,  FF = CR+FF (y/n)?  "
  397.         if Warn
  398.             echo >ser: "&k3G" NOLINE
  399.             skip exit
  400.         endif
  401.         echo "*n›2m›7m Line Termination not changed.›0m*n"
  402.     endif
  403. endif
  404.  
  405. lab exit
  406. ask "*n*n*nRun a self test (y/n)?  "
  407. if Warn
  408.     echo >ser: "z" NOLINE
  409. endif
  410. ask "*n*nYou want to run through all of this one more time (y/n)?  "
  411. if Warn
  412.     execute HP_ModePar
  413. endif
  414. echo "*n*n*n                              ›33mHave a nice day!!!›0m*n*n*n"
  415. wait 5
  416. endcli > Nil:
  417.