|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 14466 (0x3882)
Types: TextFile
Notes: UNIX file
Names: »cprint«
└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
└─⟦this⟧ »ua/new/usr/UAP/ufill/usrc/cprint«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
*
* Created: 4.08.88 - Regnecentralen/Arne G. Jensen
* Included conversion of .RE/.PA to .NO/.FS to correct bug
* in udiary (hard coded dot cmds)
*
:TITLE
U D S K R I V P L A N E R
:SCREEN
DAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B B@@
[ [ [
B Opgavenavn B [DOCNAMES____________________________________]B@@
[ [ [
B B B@@
[ [ [
B Printer B [PRTR________________________________________]B@@
[ [ [
B B B@@
[ [ [
B Udskriftslayout B [STYLE_______________________________________]B@@
[ [ [
B B B@@
[ [ [
B Udskriv fra sidenummer B [FROM] til sidenummer [TO__] B@@
[ [ [
B B B@@
[ [ [
B Antal kopier B [COPY] B@@
[ [ [
B B B@@
[ [ [
B Venstre margen indrykn. B [LHM] B@@
[ [ [
B B B@@
[ [ [
JAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
(Tryk <PIL-NED> for specielle udskr.faciliteter)
:SCREEN
DAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B B@@
[ [ [
B Vis p▶86◀ sk▶91◀rmen f▶9b◀rst B [SCR_] B@@
[ [ [
B B B@@
[ [ [
B Stop efter hver side B [INT_] B@@
[ [ [
B B B@@
[ [ [
B Kun hver anden side B [ALT_] B@@
[ [ [
B B B@@
[ [ [
B Udskriv fra kapitelnr. B [SFRM] til kapitelnr. [STO_] B@@
[ [ [
B B B@@
[ [ [
B Brug printerens kopi- B [ACPY] B@@
[ [ [
B facilitet (om muligt) B B@@
[ [ [
B B B@@
[ [ [
JAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
(Tryk <PIL-NED> for yderligere udskr.faciliteter)
:SCREEN
Nedenst▶86◀ende oplysninger vil erstatte layout-
specifikationerne i det valgte udskriftslayout.
[OVERRIDE________________________________________________]
DAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B B@@
[ [ [
B Papirst▶9b◀rrelse B [paper_________] B@@
[ [ [
B B B@@
[ [ [
B ▶9d◀verste kantmargen B [h1] B@@
[ [ [
B Nederste kantmargen B [f1] B@@
[ [ [
B Venstre kantmargen B [l1] B@@
[ [ [
B H▶9b◀jre kantmargen B [r1] B@@
[ [ [
B Indvendig margen B [g1] B@@
[ [ [
B B B@@
[ [ [
JAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
DOCNAMES= type char, default = $(1), minimum = 1, file = append,
chars = "E",
prompt = "Angiv navn p▶86◀ opgaven, der indeholder planen";
PRTR = type char, default = $(3), reply = "*uprtcmd -p $Uidcode", prompt =
"Tryk <MELLEMRUM> for at v▶91◀lge printer";
STYLE= type char, default = $(2), reply = "*uprtcmd -s $Uidcode", prompt =
"Tryk <MELLEMRUM> for at v▶91◀lge udskriftslayout", display only;
LHM = type dec, default = 0, minimum = 0, maximum = 999,
prompt = "Angiv indrykning i antal tegn";
FROM = type dec, default = 1, minimum = 0,
prompt = "Angiv nummer p▶86◀ den f▶9b◀rste side, der skal udskrives";
TO = type dec, default = 9999, minimum = 0, prompt =
"Angiv nummer p▶86◀ den sidste side, der skal udskrives";
COPY = type dec, default = 1, minimum = 1, maximum = 9999;
SFRM = type dec, default = 0, minimum = 0,
prompt = "Angiv nummer p▶86◀ det f▶9b◀rste kapitel, der skal udskrives";
STO = type dec, default = 9999, minimum = 0, prompt =
"Angiv nummer p▶86◀ det sidste kapitel, der skal udskrives";
SCR = type char, reply = "nej!ja",
prompt = "Opgaven bliver vist p▶86◀ sk▶91◀rmen, som den vil blive udskrevet p▶86◀ printeren";
INT = type char, reply = "nej!ja",
prompt = "Giver mulighed for manuel papirindf▶9b◀ring. Fungerer ikke via print spooler";
ALT = type char, reply = "nej!ja",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
ACPY = type char, reply = "ja!nej",
prompt = "Printerens kopifunktion er hurtigere, men siderne skal sorteres efter udskr.";
OVERRIDE= type char, reply = "Erstat IKKE udskriftslayout!Erstat det valgte udskriftslayout",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
paper = type char, reply = "A4!A5!A4-tv▶91◀rformat!A3!Kalender!8x11!8x14!5x8",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
h1 = type dec, default = 0, minimum = 0,
prompt = "Angiv antal linier for ▶9b◀verste kantmargen";
f1 = type dec, default = 0, minimum = 0,
prompt = "Angiv antal linier for nederste kantmargen";
l1 = type dec, default = 0, minimum = 0,
prompt = "Angiv antal tegn for venstre kantmargen";
r1 = type dec, default = 0, minimum = 0,
prompt = "Angiv antal tegn for h▶9b◀jre kantmargen";
g1 = type dec, default = 0, minimum = 0,
prompt = "Angiv antal tegn for indvendig margen (skiftevis venstre og h▶9b◀jre)";
:MAPS
* UFILL has no range limits at present, so silently correct invalid range
if $(TO) <= $(FROM)
set $(TO) $(FROM)
endif
map $(OVERRIDE) = "Erstat IKKE udskriftslayout" "N"
map $(OVERRIDE) = "Erstat det valgte udskriftslayout" "Y"
:COMMANDS
sed -e "/^.RE/s/.RE/.NO/g" -e "/^.PA/s/.PA/.FS/g" $(DOCNAMES) > /tmp/UDCV$$
mv /tmp/UDCV$$ $(DOCNAMES)
eval set xx `uprtcmd -d "$(PRTR)"`
pcap=$2
device="$3"
eval upflags=`uprtcmd -f "$(STYLE)"`
defflags="-p $pcap $upflags"
flags="-m $(LHM) -Ss $(SFRM) -Es $(STO) -S $(FROM) -E $(TO)"
intflag=""
background="&"
case "$(INT)" in
"ja")
case "$device" in
*\|*) ;;
*) intflag="-i"; background="";;
esac;;
esac
case "$(ALT)" in
"ja") flags="$flags -a";;
esac
case "$(ACPY)" in
"ja") flags="$flags -c $(COPY)";;
*) flags="$flags -cm $(COPY)";;
esac
case $(OVERRIDE) in
"Y") flags="$flags -P $(paper) -mt $(h1) -mb $(f1) -ml $(l1) -mr $(r1)";;
esac
DT=`udate "+%d %h 19%y"`
case $(SCR) in
"ja")
uprop -t $defflags $flags "-D$DT" $(DOCNAMES) > /tmp/WPSC$Uusername &
popup ptos /tmp/WPSC$Uusername
rm /tmp/WPSC$Uusername
echo "
Tryk <RETUR> hvis opgaven skal udskrives,
eller * <RETUR> hvis den ikke skal udskrives."
read RSP
case "$RSP" in
''|Y|y) ;;
*) exit 0;;
esac;;
esac
trap '' 1
eval exec uprop $intflag $defflags $flags "\"-D$DT\"" $(DOCNAMES) $device $background
exit 0
:HELP
UDSKRIVNINGSMENU
Udfyld f▶9b◀rste side af formularen i henhold til nedenst▶86◀ende:
Opgavenavn Systemet viser navnet p▶86◀ den opgave, der skal
udskrives, eller indtast andet opgavenavn.
Printer Tryk <Mellemrum> for at se de printere, der
kan v▶91◀lges imellem.
Udskriftslayout Tryk <Mellemrum> for at se de udskriftslay-
outs, der er mulige at v▶91◀lge imellem.
Udskriv fra sidenr. Angiv nummeret p▶86◀ f▶9b◀rste side, der skal ud-
skrives, hvis forskellig fra 1.
.FS
Til sidenummer Angiv sidste sidenummer, der skal udskrives,
hvis det ikke skal v▶91◀re sidste side (=9999).
Antal kopier Angiv antal gange hver side skal udskrives.
Venstre margen Angiv i tegn, det antal positioner hele tek-
indrykning. sten skal rykkes ind fra venstre ved udskriv-
ningen.
Hvis du ▶9b◀nsker at ▶91◀ndre i n▶91◀ste side af udskrivningsformularen,
trykkes <Pil-ned> og side 2 af formularen fremkommer.
.FS
Udfyld anden side af formularen i henhold til nedenst▶86◀ende:
Vis p▶86◀ sk▶91◀rmen Opgaven kan blive vist p▶86◀ sk▶91◀rmen f▶9b◀rst - i
f▶9b◀rst formateret form, som den vil se ud n▶86◀r den
bliver udskrevet.
Stop efter hver Hvis der v▶91◀lges ja, kan papiret manuelt is▶91◀t-
side tes efter hver side.
Kun hver anden side Hvis der v▶91◀lges ja, kan der udskrives p▶86◀ beg-
ge sider af papiret.
Udskriv fra Angiv nummer p▶86◀ det kapitel, hvorfra udskriv-
kapitelnummer ningen skal starte.
Til kapitelnr. Angiv nummer p▶86◀ det sidste kapitel, der skal
udskrives.
.FS
Brug printerens Svares der 'ja', og der er bedt om flere ko-
kopifacilitet pier, vil systemet udskrive alle sider 1,
(om muligt) dern▶91◀st alle sider 2 osv. Svares der 'nej',
og der er bedt om flere kopier, vil systemet
udskrive i s▶91◀t.
..V.....T.......T.......T.......T.......T.......T.......T.......T....L
Hvis du ▶9b◀nsker at ▶91◀ndre i margener samt papirst▶9b◀rrelse, trykkes
<Pil-ned> og sidste side i formularen fremkommer.
Hvis der skal ▶91◀ndres i det ovenforn▶91◀vnte layout trykkes <Mellemrum>
n▶86◀r mark▶9b◀ren st▶86◀r p▶86◀ linien med teksten:
Erstat IKKE udskriftslayout
S▶86◀ f▶9b◀lgende tekst fremkommer:
Erstat det valgte udskriftslayout
.FS
Udfyld tredie side af formularen i henhold til nedenst▶86◀ende:
..F.....T.......T.....V.T.......T.......T.......T.......T.......T.L.
Papirst▶9b◀rrelse Med <Mellemrum> kan der v▶91◀lges papirst▶9b◀rrel-
se. Valgmulighederne kan variere i de enkelte
UNIPLEX installationer. Der kunne f.eks. v▶91◀re
f▶9b◀lgende muligheder:
A4, A5, A4-tv▶91◀rformat, Kalender, 8x11, 8x14,
5x8 (de sidste angivet i tommer).
▶9d◀verste/nederste Angiv i linier hvor meget "luft" der skal v▶91◀-
kantmargen re fra papirets kant til en eventuel top-
/bundmargen, eller hvis der ingen top/bund-
margen er valgt til selve teksten.
Venstre/h▶9b◀jre Angiv i tegn, hvor meget "luft" der skal v▶91◀re
kantmargen fra papirets kant til venstre og h▶9b◀jre mar-
gen.
.FS
Indvendig margen Angiv i tegn en eventuel ekstra plads p▶86◀ hen-
holdsvis venstre og h▶9b◀jre sider til indbin-
ding og hulning af opgaven.
N▶86◀r sidste side af udskrivningsformularen er udfyldt trykkes
<F1> (Udf▶9b◀r) og udskrivningen af opgaven g▶86◀r igang.