|
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: 12320 (0x3020)
Types: TextFile
Notes: UNIX file
Names: »wprint«
└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
└─⟦this⟧ »ua/new/usr/UAP/ufill/usrc/wprint«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
*
* Translated: 20.07.88 - Regnecentralen/AGJ
* Help translation: 12.10.88 - Regnecentralen/AMR
*
:TITLE
UDSKRIV I KALENDERFORMAT
:SCREEN
DAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B B@@
[ [ [
B V▶91◀lg fra planl.kalender B [OPTIONS_____________________________________]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@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
OPTIONS= type char, reply =
"Aktiviteter (huskeliste)!Adresse-/telefonregister!Projekter!Notesblok",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
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";
LHM = type dec, default = 10, 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.";
:MAPS
* UFILL has no range limits at present, so silently correct invalid range
map $(OPTIONS) = "Aktiviteter (huskeliste)" "TODO"
map $(OPTIONS) = "Adresse-/telefonregister" "ADDR"
map $(OPTIONS) = "Projekter" "PROJ"
map $(OPTIONS) = "Notesblok" "NOTE"
if $(TO) <= $(FROM)
set $(TO) $(FROM)
endif
:COMMANDS
eval set xx `uprtcmd -d "$(PRTR)"`
pcap=$2
device="$3"
eval upflags=`uprtcmd -f "$(STYLE)"`
upflags="$upflags -P Kalender -Fp 0 -ml0 -mr0 -mt0 -mb0"
defflags="-p $pcap $upflags"
flags="-m $(LHM) -S $(FROM) -E $(TO)"
case "$(OPTIONS)" in
"TODO") REP=$Uniplex/outlines/ureport/wallett;;
"ADDR") REP=$Uniplex/outlines/ureport/walleta;;
"PROJ") REP=$Uniplex/outlines/ureport/walletp;;
"NOTE") REP=$Uniplex/outlines/ureport/walletn;;
*) REP=$Uniplex/outlines/ureport/wallet;;
esac
case "$(ALT)" in
"ja") flags="$flags -a";;
esac
case "$(ACPY)" in
"ja") flags="$flags -c $(COPY)";;
*) flags="$flags -cm $(COPY)";;
esac
case "$(OPTIONS)" in
"TODO")
CARD=$HOME/UAP/todo;;
"ADDR")
CARD=$HOME/UAP/addresses;;
"PROJ")
CARD=$HOME/UAP/projects;;
"NOTE")
CARD=$HOME/UAP/notes;;
esac
case "$CARD" in
'') ;;
*)
if test -f $CARD.dat; then :
else
echo "Der er ingen oplysninger at skrive ud"
echo "Tryk <RETUR> for at forts▶91◀tte"
read RSP
exit 0
fi;;
esac
DT=`udate "+%d %h 19%y"`
case $(SCR) in
"ja")
case "$CARD" in
'')
DEL="";;
*)
FILE=/tmp/WPPR1$Uusername
ucard -D $CARD | ureport $REP > $FILE
DEL=$FILE;;
esac
uprop -t $defflags $flags "-D$DT" $FILE > /tmp/WPSC$Uusername1 &
popup ptos /tmp/WPSC$Uusername1
rm /tmp/WPSC$Uusername1
echo "
Tryk <RETUR> hvis opgaven skal udskrives,
eller * <RETUR> hvis den ikke skal udskrives."
read RSP
case "$RSP" in
''|J|j) ;;
*) exit 0;;
esac
(
trap '' 1
eval uprop $defflags $flags "\"-D$DT\"" $FILE $device
case "$DEL" in
'') ;;
*) rm $DEL;;
esac
) &
exit 0;;
esac
case "$(INT)" in
"ja")
case "$device" in
*\|*)
case "$CARD" in
'')
DEL="";;
*)
ucard -D $CARD | ureport $REP > /tmp/WPPR1$Uusername
FILE=/tmp/WPPR1$Uusername
DEL=$FILE;;
esac
trap '' 1
eval uprop -i $defflags $flags /tmp/WPPR1$Uusername $device
case "$DEL" in
'') ;;
*) rm $DEL;;
esac
exit 0;;
esac;;
esac
(
case "$CARD" in
'')
DEL="";;
*)
ucard -D $CARD | ureport $REP > /tmp/WPPR1$Uusername
FILE=/tmp/WPPR1$Uusername
DEL=$FILE;;
esac
trap '' 1
eval uprop $intflag $defflags $flags /tmp/WPPR1$Uusername $device
case "$DEL" in
'') ;;
*) rm $DEL;;
esac
) &
exit 0
:HELP
UDSKRIV I KALENDERFORMAT
Udfyld f▶9b◀rste side af formularen i henhold til nedenst▶86◀ende:
..V.....T.......T...H.V.T.......T.......T.......T.......T.......T....L
V▶91◀lg fra plan- V▶91◀lg det kartotek fra planl▶91◀gningskalenderen,
l▶91◀gningskalender der skal udskrives.
Printer Tryk <Mellemrum> for at se de printere, der kan
v▶91◀lges imellem.
Udskriftslayout Tryk <Mellemrum> for at se de udskriftslayouts,
der er mulige at v▶91◀lge imellem.
Udskriv fra sidenr. Angiv nummeret p▶86◀ f▶9b◀rste side, der skal udskriv▶ad◀
es, 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 teksten
indrykning. skal rykkes ind fra venstre ved udskrivningen.
..V.....T.......T.......T.......T.......T.......T.......T.......T....L
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:
..V.....T.......T...H.V.T.......T.......T.......T.......T.......T....L
Vis p▶86◀ sk▶91◀rmen Opgaven kan blive vist p▶86◀ sk▶91◀rmen f▶9b◀rst - i for▶ad◀
f▶9b◀rst materet form, som den vil se ud n▶86◀r den bliver
udskrevet.
Stop efter hver Hvis der v▶91◀lges ja, kan papiret manuelt s▶91◀ttes i
side efter hver side.
Kun hver anden side Hvis der v▶91◀lges ja, kan der udskrives p▶86◀ begge
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 ud▶ad◀
skrives.
.FS
Brug printerens Svares der 'ja', og der er bedt om flere kopier,
kopifacilitet vil systemet udskrive alle sider 1, dern▶91◀st alle
(om muligt) sider 2 osv. Nogle printere har denne kopifaci▶ad◀
litet, og denne form for udskrivning g▶86◀r hur▶ad◀
tigere end hvis der ud skrives i s▶91◀t. Svares der
'nej', og der er bedt om flere kopier, vil sy▶ad◀
stemet udskrive i s▶91◀t.
..V.....T.......T.......T.......T.......T.......T.......T.......T....L
N▶86◀r sidste side af udskrivningsformularen er udfyldt, trykkes <F1>
(Udf▶9b◀r), og udskrivningen af opgaven g▶86◀r igang.