home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d5xx
/
d555
/
hpmode.lha
/
HPMode
/
s
/
HP_ModePar
next >
Wrap
Text File
|
1991-10-28
|
12KB
|
417 lines
echo "*n*n*n33m3m 4mHP Mode Selection v1.0*n*n0m"
echo "*n2m This is a small script for changing a few of those things on HP Deskjets"
echo " that can be awkward (or impossible!) to change from preferences or from the"
echo " printer itself. For information on updates and other programs call or write:"
echo "*n33m Doris Ballard"
echo " 226 Blackberry Hill Rd."
echo " Berwick, Maine 03901"
echo " (207) 384-9901*n*n"
echo "2m September 15, 19910m*n*n"
echo " PLEASE ENSURE THAT YOUR PRINTER IS `ON LINE'!!!0m*n"
wait 5
echo "*n*n*n*n*n*nPortrait And Landscape Orientation Selection:"
ask "*nLandscape Orientation On (y/n)? "
if Warn
echo "*nThe only font available in Landscape Orientation is Upright Courier.*n"
echo >par: "&l1O" NOLINE
ask "*nSet Point Sizes (y/n)? "
if Warn
echo "*nAvailable Point Sizes are 6, 12 and 24.*n"
ask "*nSet point size to 6 (y/n)? "
if Warn
echo >par: "(s0u0p10h6v0s0b3t2Q" NOLINE
skip LPitch
endif
ask "*nSet point size to 12 (y/n)? "
if Warn
echo >par: "(s0u0p10h12v0s0b3t2Q" NOLINE
skip LPitch
endif
ask "*nSet point size to 24 (y/n)? "
if Warn
echo >par: "(s0u0p10h24v0s0b3t2Q" NOLINE
skip LPitch
endif
echo "*n2m7m Point size not changed.0m*n"
endif
lab LPitch
ask "*nSet Pitch (y/n)? "
if Warn
echo "*nThe only pitches available are 10, 16.67 and 20.*n"
ask "*nSet pitch to 10 (y/n)? "
if Warn
echo >par: "(s10H" NOLINE
skip PrinterCommands
endif
ask "*nSet pitch to 16.67 (y/n)? "
if Warn
echo >par: "(s16.67H" NOLINE
skip PrinterCommands
endif
ask "*nSet pitch to 20 (y/n)? "
if Warn
echo >par: "(s20H" NOLINE
skip PrinterCommands
endif
echo "*n2m7m Pitch not changed.0m*n"
skip PrinterCommands
endif
skip PrinterCommands
else
echo "*nDefault to Portrait Orientation."
echo >par: "&l0O" NOLINE
endif
lab Font
ask "*nWould you like to change printer 2mFont0m (y/n)? "
if Warn
echo "*nAvailable fonts are Courier, CGTimes and Letter Gothic.*n"
ask "*nCourier (y/n)? "
if Warn
skip Courier
endif
ask "*nCGTimes (y/n)? "
if Warn
skip CGTimes
endif
ask "*nLetterGothic (y/n)? "
if Warn
skip LetGoth
endif
echo "*n2m7m Font not changed.0m*n"
endif
skip Attributes
lab Courier
ask "*nCourier Italic (y/n)? "
if Warn
echo "*nAvailable point sizes are 6 and 12.*n"
ask "*nCourier Italic point size 6 (y/n)? "
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u0p10h6v1s0b3t2Q" NOLINE
skip Pitch1
else
echo "*nDefault secondary font set."
echo >par: ")s0u0p10h6v1s0b3t2Q" NOLINE
skip Pitch1
endif
endif
ask "*nCourier Italic point size 12 (y/n)? "
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u0p10h12v1s0b3t2Q" NOLINE
skip Pitch1
else
echo "*nDefault secondary font set."
echo >par: ")s0u0p10h12v1s0b3t2Q" NOLINE
skip Pitch1
endif
endif
echo "*n2m7m Italic point size not changed.0m*n"
skip Pitch1
lab Pitch1
ask "*nSet Pitch (y/n)? "
if Warn
echo "*nAvailable Pitches are 5, 10, and 20.*n"
ask "*nSet to 5 Pitch (y/n)? "
if Warn
echo >par: "(s5H" NOLINE
skip ToAttributes2
endif
ask "*nSet to 10 Pitch (y/n)? "
if Warn
echo >par: "(s10H" NOLINE
skip ToAttributes2
endif
ask "*nSet to 20 Pitch (y/n)? "
if Warn
echo >par: "(s20H" NOLINE
skip ToAttributes2
endif
echo "*n2m7m Pitch not changed.0m*n"
skip ToAttributes2
endif
skip ToAttributes2
endif
echo "*nAvailable Upright Courier point sizes are 6 and 12.*n"
ask "*nUpright Courier point size 6 (y/n)? "
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u0p10h6v0s0b3t2Q" NOLINE
skip Pitch2
else
echo "*nDefault secondary font set."
echo >par: ")s0u0p10h6v0s0b3t2Q" NOLINE
skip Pitch2
endif
endif
ask "*nUpright Courier point size 12 (y/n)? "
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u0p10h12v0s0b3t2Q" NOLINE
skip Pitch2
else
echo "*nDefault secondary font set."
echo >par: ")s0u0p10h12v0s0b3t2Q" NOLINE
skip Pitch2
endif
endif
echo "*n2m7m Point size not changed.0m*n"
skip Pitch2
lab Pitch2
ask "*nSet Pitch (y/n)? "
if Warn
echo "*nAvailable pitches are 5, 10, 16.67 and 20.*n"
ask "*nSet to 5 Pitch (y/n)? "
if Warn
echo >par: "(s5H" NOLINE
skip ToAttributes2
endif
ask "*nSet to 10 Pitch (y/n)? "
if Warn
echo >par: "(s10H" NOLINE
skip ToAttributes2
endif
ask "*nSet to 16.67 Pitch (y/n)? "
if Warn
echo >par: "(s16.67H" NOLINE
skip ToAttributes2
endif
ask "*nSet to 20 Pitch (y/n)? "
if Warn
echo >par: "(s20H" NOLINE
skip ToAttributes2
endif
echo "*n2m7m Pitch not changed.0m*n"
endif
lab ToAttributes2
ask "*nWould you like to change 2mAttributes0m (y/n)? "
if Warn
skip Attributes2
endif
skip PrinterCommands
lab CGTimes
ask "*nSet point size (y/n)? "
if Warn
echo "*nAvailable point sizes are 6 and 12.*n"
ask "*nCGTimes point size 6 (y/n)? "
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u1p6v0s0b4101t2Q" NOLINE
skip Attributes
else
echo "*nSecondary default font set."
echo >par: ")s0u1p6v0s0b4101t2Q" NOLINE
skip Attributes
endif
endif
ask "*nCGTimes point size 12 (y/n)? "
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u1p12v0s0b4101t2Q" NOLINE
skip Attributes
else
echo "*nDefault secondary font set."
echo >par: ")s0u1p12v0s0b4101t2Q" NOLINE
skip Attributes
endif
endif
echo "*n2m7m Point size not changed.0m*n"
endif
skip Attributes
lab LetGoth
ask "*nSet point size (y/n)? "
if Warn
echo "*nAvailable point sizes are 6 and 12.*n"
ask "*nLetter Gothic point size 6 (y/n)?"
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u0p12h6v0s0b6t2Q" NOLINE
skip LGPitch
else
echo "*nDefault secondary font set."
echo >par: ")s0u0p12h6v0s0b6t2Q" NOLINE
skip LGPitch
endif
endif
ask "*nLetter Gothic point size 12 (y/n)?"
if Warn
ask "*nPrimary font (y/n)? "
if Warn
echo >par: "(s0u0p12h12v0s0b6t2Q" NOLINE
skip LGPitch
else
echo "*nDefault secondary font set."
echo >par: ")s0u0p12h12v0s0b6t2Q" NOLINE
skip LGPitch
endif
endif
echo "*n2m7m Point size not changed.0m*n"
endif
lab LGPitch
ask "*nSet Pitch (y/n)? "
if Warn
echo "*nAvailable pitches are 12 and 24.*n"
ask "*nSet to 12 Pitch (y/n)? "
if Warn
echo >par: "(s12H" NOLINE
skip Attributes
endif
ask "*nSet to 24 Pitch (y/n)? "
if Warn
echo >par: "(s24H" NOLINE
skip Attributes
endif
echo "*n2m7m Pitch not changed.0m*n"
endif
skip Attributes
lab Attributes
ask "*nWould you like to change 2mAttributes0m (y/n)? "
if Not Warn
skip PrinterCommands
endif
ask "*nItalics On (y/n)? "
if Not Warn
echo >par: "(s0S" NOLINE
else
echo >par: "(s1S" NOLINE
endif
lab Attributes2
ask "*nBold or Extra Bold On (y/n)? "
if Warn
ask "*nExtra Bold On (y/n)? "
if Warn
echo >par: "(s7B" NOLINE
skip Underline
endif
ask "*nRegular Bold On (y/n)? "
if Warn
echo >par: "(s3B" NOLINE
endif
else
echo >par: "(s0B" NOLINE
endif
lab Underline
ask "*nFloating or Fixed, Double or Single Underline On (y/n)? "
if Warn
ask "*nSingle Fixed Underline (y/n)? "
if Warn
echo >par: "&d1D" NOLINE
skip SetPlace
endif
ask "*nDouble Fixed Underline (y/n)? "
if Warn
echo >par: "&d2D" NOLINE
skip SetPlace
endif
ask "*nSingle Float Underline (y/n)? "
if Warn
echo >par: "&d3D" NOLINE
skip SetPlace
endif
ask "*nDouble Float Underline (y/n)? "
if Warn
echo >par: "&d4D" NOLINE
skip SetPlace
endif
else
echo >par: "&d@" NOLINE
endif
lab SetPlace
ask "*nSuper or Subscript On (y/n)? "
if Warn
ask "*nSuperscript On (y/n)? "
if Warn
echo >par: "(s+1U" NOLINE
skip PrinterCommands
endif
ask "*nSubscript On (y/n)? "
if Warn
echo >par: "(s-1U" NOLINE
endif
else
echo >par: "(s0U" NOLINE
endif
lab PrinterCommands
ask "*nWould you like to set 2mPrinter Commands0m (y/n)? "
if Warn
ask "*nPerforation Skip On (y/n)? "
if Warn
echo >par: "&l1L" NOLINE
else
echo >par: "&l0L" NOLINE
endif
ask "*nLetter Quality On (y/n)? "
if Warn
echo >par: "(s2Q" NOLINE
else
echo >par: "(s1Q" NOLINE
endif
ask "*nEnd-Of-Line Wrap On (y/n)? "
if Warn
echo >par: "&s0C" NOLINE
else
echo >par: "&s1C" NOLINE
endif
ask "*nText Scale On (y/n)? "
if Warn
echo >par: "&k6W" NOLINE
else
echo >par: "&k5W" NOLINE
endif
ask "*nSet Line Termination (y/n)? "
if Warn
echo "*nChoices are: 1) CR = CR, LF = LF, FF = FF"
echo " 2) CR = CR + LF, LF = LF, FF = FF"
echo " 3) CR = CR, LF = CR + LF, FF = CR + FF"
echo " 4) CR = CR + LF, LF = CR + LF, FF = CR + FF"
ask "*nCR = CR, LF = LF, FF = FF (y/n)? "
if Warn
echo >par: "&k0G" NOLINE
skip exit
endif
ask "*nCR = CR + LF, LF = LF, FF = FF (y/n)? "
if Warn
echo >par: "&k1G" NOLINE
skip exit
endif
ask "*nCR = CR, LF = CR + LF, FF = CR+FF (y/n)? "
if Warn
echo >par: "&k2G" NOLINE
skip exit
endif
ask "*nCR = CR + LF, LF = CR + LF, FF = CR+FF (y/n)? "
if Warn
echo >par: "&k3G" NOLINE
skip exit
endif
echo "*n2m7m Line Termination not changed.0m*n"
endif
endif
lab exit
ask "*n*n*nRun a self test (y/n)? "
if Warn
echo >par: "z" NOLINE
endif
ask "*n*nYou want to run through all of this one more time (y/n)? "
if Warn
execute HP_ModePar
endif
echo "*n*n*n 33mHave a nice day!!!0m*n*n*n"
wait 5
endcli > Nil: