|
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 - downloadIndex: T U n
Length: 16044 (0x3eac)
Types: TextFile
Notes: UNIX file
Names: »newstyle«
└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
└─⟦this⟧ »up/new/usr/UAP/ufill/usrc/newstyle«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
:TITLE
OPRET UDSKRIFTSLAYOUT
:SCREEN
DAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B B@@
[ [ [
B Layoutnavn B [name__________] B@@
[ [ [
B Tilg▶91◀ngelighed B [avail_________________________] B@@
[ [ [
B Layoutmodel B [basicstyle____________________] 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@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
Tryk <PIL-NED> for n▶91◀ste sk▶91◀rmbillede
:SCREEN
DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B For printere, der har dobbelt arkf▶9b◀der, kan der defineres B@@
[ [
B et udskriftslayout, hvor der udskrives med speciel ▶9b◀verste B@@
[ [
B og nederste kantmargen p▶86◀ f▶9b◀rste side. B@@
[ [
KAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B F▶9b◀rste side fra bakke 2 B [hp__] B@@
[ [ [
B F▶9b◀rste ▶9b◀verste kantmargen B [h2] B@@
[ [ [
B F▶9b◀rste nederste kantmargenB [f2] B@@
[ [ [
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B Specifikationerne for udskriftslayoutet kan ▶91◀ndres. B@@
[ [
B Dette er ikke altid n▶9b◀dvendigt. B@@
[ [
KAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B ▶92◀ndring af specifikationerB [more] B@@
[ [ [
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
name = type char, prompt = "Angiv navn p▶86◀ et nyt udskriftslayout";
avail = type char, reply = "Personligt udskriftslayout!Generelt udskriftslayout",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
basicstyle = type char,
reply = "Sk▶9b◀nskrift m/formatering!Semi-sk▶9b◀nskrift m/justering!\
Uformateret!Fast pitch uformateret!Kladde!Kalkulation (lille font)!\
Ikke Uniplex fil",
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)";
hp = type char, reply = "nej!ja",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
h2 = type dec, default = 0, minimum = 0,
prompt = "Angiv antal linier for ▶9b◀verste kantmargen";
f2 = type dec, default = 0, minimum = 0,
prompt = "Angiv antal linier for nederste kantmargen";
more = type char, reply = "nej!ja",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
:MAPS
map $(avail) = "Personligt udskriftslayout" "PERSONAL"
map $(avail) = "Generelt udskriftslayout" "SYSTEM"
map $(basicstyle) = "Sk▶9b◀nskrift m/formatering" "QUALITY"
map $(basicstyle) = "Semi-sk▶9b◀nskrift m/justering" "SEMI"
map $(basicstyle) = "Uformateret" "NORMAL"
map $(basicstyle) = "Fast pitch uformateret" "FIXED"
map $(basicstyle) = "Kladde" "DRAFT"
map $(basicstyle) = "Kalkulation (lille font)" "SPREADSHEET"
map $(basicstyle) = "Ikke Uniplex fil" "EXTERNAL"
map $(more) = "ja" "Y"
map $(more) = "nej" "N"
map $(hp) = "ja" "Y"
map $(hp) = "nej" "N"
:COMMANDS
DFLT="-n"
FLGS=$DFLT
case "$(h1)" in
"0") ;;
*) FLGS="$FLGS -mt$(h1)";;
esac
case "$(f1)" in
"0") ;;
*) FLGS="$FLGS -mb$(f1)";;
esac
case "$(l1)" in
"0") ;;
*) FLGS="$FLGS -ml$(l1)";;
esac
case "$(r1)" in
"0") ;;
*) FLGS="$FLGS -mr$(r1)";;
esac
case "$(g1)" in
"0") ;;
*) FLGS="$FLGS -mg$(g1)";;
esac
hpf=1
case "$(hp)" in
"Y") FLGS="$FLGS -b"
hpf=2
case "$(h2)" in
"0") ;;
*) FLGS="$FLGS -mT$(h2)";;
esac
case "$(f2)" in
"0") ;;
*) FLGS="$FLGS -mB$(f2)";;
esac;;
esac
case "$(basicstyle)" in
"QUALITY")
uprtcmd -n $(avail) "$(name)"\
"$FLGS -P$(paper) -R -Fp0 -o -e"\
"'$DFLT' $(avail) '$(name)' $(paper) \
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2) \
1 1 1 default 2 1 2 1 0 2 1 2 2 1";;
"SEMI")
uprtcmd -n $(avail) "$(name)"\
"$FLGS -P$(paper) -j -Fp0 -e"\
"'$DFLT' $(avail) '$(name)' $(paper) \
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2) \
1 1 1 default 1 1 2 1 0 1 1 2 2 2";;
"NORMAL")
uprtcmd -n $(avail) "$(name)"\
"$FLGS -P$(paper) -j -Fp10 -e"\
"'$DFLT' $(avail) '$(name)' $(paper) \
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2) \
1 1 1 default 1 1 1 1 10 1 1 2 2 2";;
"FIXED")
uprtcmd -n $(avail) "$(name)"\
"$FLGS -P$(paper) -dFX-NORMAL -j -Fp10 -e"\
"'$DFLT' $(avail) '$(name)' $(paper) \
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2) \
1 1 1 FX-NORMAL 1 1 1 1 10 1 1 2 2 2";;
"DRAFT")
uprtcmd -n $(avail) "$(name)"\
"$FLGS -P$(paper) -dFX-NORMAL -y -e"\
"'$DFLT' $(avail) '$(name)' $(paper) \
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2) \
2 1 1 FX-NORMAL 1 1 1 1 0 1 1 2 2 1";;
"SPREADSHEET")
uprtcmd -n $(avail) "$(name)"\
"$FLGS -P$(paper) -y -e -d FX-SMALL"\
"'$DFLT' $(avail) '$(name)' $(paper) \
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2) \
2 1 1 FX-SMALL 1 1 1 1 0 1 1 2 2 1";;
"EXTERNAL")
uprtcmd -n $(avail) "$(name)"\
"$FLGS -P$(paper) -y -dFX-NORMAL"\
"'$DFLT' $(avail) '$(name)' $(paper) \
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2) \
2 1 1 FX-NORMAL 1 1 1 1 0 1 1 1 2 1";;
esac
case $(more) in
"Y")
case "$(basicstyle)" in
"QUALITY")
exec ufill editstyle "$DFLT" "$(avail)" "$(name)" "$(paper)"\
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2)\
1 1 1 default 2 1 2 1 0 2 1 2 2 1;;
"SEMI")
exec ufill editstyle "$DFLT" "$(avail)" "$(name)" "$(paper)"\
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2)\
1 1 1 default 1 1 2 1 0 1 1 2 2 2;;
"NORMAL")
exec ufill editstyle "$DFLT" "$(avail)" "$(name)" "$(paper)"\
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2)\
1 1 1 default 1 1 1 1 10 1 1 2 2 2;;
"FIXED")
exec ufill editstyle "$DFLT" "$(avail)" "$(name)" "$(paper)"\
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2)\
1 1 1 FX-NORMAL 1 1 1 1 10 1 1 2 2 2;;
"DRAFT")
exec ufill editstyle "$DFLT" "$(avail)" "$(name)" "$(paper)"\
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2)\
2 1 1 FX-NORMAL 1 1 1 1 0 1 1 2 2 1;;
"SPREADSHEET")
exec ufill editstyle "$DFLT" "$(avail)" "$(name)" "$(paper)"\
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2)\
2 1 1 FX-SMALL 1 1 1 1 0 1 1 2 2 1;;
"EXTERNAL")
exec ufill editstyle "$DFLT" "$(avail)" "$(name)" "$(paper)"\
$(h1) $(f1) $(l1) $(r1) $(g1) $hpf $(h2) $(f2)\
2 1 1 FX-NORMAL 1 1 1 1 0 1 1 1 2 1;;
esac;;
esac
exit 0
:HELP
OPRET UDSKRIFTSLAYOUT
Udfyld formularen i henhold til nedenst▶86◀ende:
Layoutnavn Angiv navnet p▶86◀ det layout, der skal opret-
tes. Brug ikke et navn, der allerede eksiste-
rer.
Tilg▶91◀ngelighed Med tasten <MELLEMRUM> vises de to valgmulig-
heder 'Personligt udskriftslayout' (kun til
eget brug) og 'Generelt udskriftslayout' (til
alle brugere p▶86◀ systemet).
Layoutmodel Angiv navnet p▶86◀ det layout, der skal v▶91◀re
grundmodel for det nye layout. Tryk
<MELLEMRUM> for at se de forskellige mulighe-
der for layout.
.FS
Papirst▶9b◀rrelse Angiv st▶9b◀rrelsen p▶86◀ papiret. Tryk <MELLEMRUM>
for at se valgmulighederne.
▶9d◀verste/nederste Angiv i linier hvor meget "luft", der skal
kantmargen v▶91◀re fra papirets ▶9b◀verste/nederste kant til
eventuelle top/bundmargener eller til selve
teksten.
Venstre/h▶9b◀jre Angiv i tegn hvor meget "luft", der skal v▶91◀re
kantmargen fra papirets kant til venstre/h▶9b◀jre margen af
teksten.
Indvendig margen Hvis der skal v▶91◀re ekstra plads i henholdsvis
venstre og h▶9b◀jre side af papiret til eventuel
senere indbinding eller hulning af opgaven,
angives denne i antal tegn.
F▶9b◀rste side fra V▶91◀lg 'ja' hvis den f▶9b◀rste side skal tages fra
bakke 2 bakke 2. Tryk <MELLEMRUM>.
F▶9b◀rste ▶9b◀verste Angiv i linier hvor megen plads, der skal
kantmargen bruges til topmargen p▶86◀ side 1.
F▶9b◀rste nederste Angiv i linier hvor megen plads, der skal
kantmargen bruges til bundmargen p▶86◀ side 1.
Kladde Tryk <MELLEMRUM> for valgene:
ja = fast pitch.
nej = proportional skrift.
H▶9b◀jopl▶9b◀sningsgrafik Tryk <MELLEMRUM> for valgene:
udelades ja = udskriver IKKE h▶9b◀jopl▶9b◀sningsgrafik.
nej = udskriver h▶9b◀jopl▶9b◀sningsgrafik.
Overlejring af Tryk <MELLEMRUM> for valgene:
tekst og grafik ja = tillader at tekst skrives oveni grafik.
nej = tillader IKKE at tekst skrives oveni
grafik.
Standard font Indtast navnet p▶86◀ den font, der ▶9b◀nskes som
standard.
Formatering ved Tryk <MELLEMRUM> for valgene:
udskrivning ja = formaterer teksten if▶9b◀lge formatlinierne
i opgaven.
nej = formaterer IKKE teksten.
.FS
Juster kun ved Tryk <MELLEMRUM> vor valgene:
udskrivning ja = formaterer ikke, men giver lige h▶9b◀jre
margen if▶9b◀lge formatlinierne i opgaven.
nej = formaterer ikke og giver ikke lige h▶9b◀j-
re margen.
Faste sideskift Tryk <MELLEMRUM> for valgene:
ja = giver sideskift som angivet i opgaven.
nej = ignorerer sideskift angivet i opgaven.
Aut. skalering af Tryk <MELLEMRUM> for valgene:
opg. til side- ja = skalerer teksten til bredden af papiret.
st▶9b◀rrelse nej = beholder bredden af formatlinierne (et
formatlinietegn = 1/10 tomme).
.FS
Skaler efter bre- Tryk <MELLEMRUM> for valgene:
deste formatlinie ja = skalerer teksten til bredden af den bre-
deste formatlinie i opgaven.
nej = skalerer ikke teksten if▶9b◀lge den brede-
ste formatlinie.
Angiv tegnst▶9b◀r- Hvis svarene om skalering var nej begge ste-
relse der, skal her angives hvilken pitch teksten
skal udskrives i, normalt 10 pitch.
Kontrol for enker Tryk <MELLEMRUM> for valgene:
og horeunger ja = sikrer at enkelte tekstlinier ▶9b◀verst/ne-
derst p▶86◀ siden IKKE flyttes til toppen/bunden
af foreg▶86◀ende/efterf▶9b◀lgende side.
nej = tager ikke hensyn til enker og horeun-
ger.
Undlad beregning Tryk <MELLEMRUM> for valgene:
af tabulatorstop ja = 4 mellemrum fortolkes ikke som et tabu-
latorstop.
nej = 4 mellemrum fortolkes som et tabulator-
stop.
Undlad ekspande- Tryk <MELLEMRUM> for valgene:
ring af tabulato- ja = <TAB> tegn i teksten ekspanderes ikke. I
rer UNIPLEX-II+ opgaver er <TAB> tegn ekspanderet
i forvejen.
nej = <TAB> tegn ekspanderes. Dette kan v▶91◀re
n▶9b◀dvendigt i ikke-UNIPLEX-II+ opgaver.
.FS
Juster tomme lini- Hvis svaret 'nej' v▶91◀lges, betyder det at
er over flere kolonner, der er justeret i opgaven ikke n▶9b◀dð
kolonner vendigvis bliver justeret i udskriften. V▶91◀lð
ges 'ja', vil kolonnerne bliver justeret i
udskriften, det vil sige at linierne i kolonð
nerne vil f▶9b◀lges ad i udskriften.
Tryk <ESC> u og oprettelse af udskriftslayout er hermed foretaget.