DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦15eea3cb4⟧ TextFile

    Length: 4423 (0x1147)
    Types: TextFile
    Notes: UNIX file
    Names: »quicklook«

Derivation

└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
    └─⟦this⟧ »up/new/usr/UAP/ufill/usrc/quicklook« 

TextFile

V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
:TITLE
UDSKRIV KOMMANDOOVERSIGT
:SCREEN


 DAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=AAAAAAAAAAAAF@@
 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
 B                      B                                                  B@@
 [                      [                                                  [
 B Kommandooversigt     B [CARD________________________________________]   B@@
 [                      [                                                  [
 B                      B                                                  B@@
 [                      [                                                  [
 B Udskriftslayout      B [STYLE_______________________________________]   B@@
 [                      [                                                  [
 B                      B                                                  B@@
 [                      [                                                  [
 B Printer              B [PRTR________________________________________]   B@@
 [                      [                                                  [
 B                      B                                                  B@@
 [                      [                                                  [
 B Antal kopier         B [COPY]                                           B@@
 [                      [                                                  [
 B                      B                                                  B@@
 [                      [                                                  [
 ? V/margen indrykning  B [LHM]                                            ?@@
 [                      [                                                  [
 B                      B                                                  B@@
 [                      [                                                  [
 JAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=AAAAAAAAAAAAH@@
 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
CARD=type char,reply="tekstbehandling!kalkulation!kalkulation - issi\
!database SQL!referencekort",prompt="V▶91◀lg kommandooversigt med <MELLEMRUM>";
STYLE=type char, default="Normal font", display only;
PRTR   =type char, reply="*uprtcmd -p $Uidcode", prompt="V▶91◀lg printer til\
 udskrift af kortet";
COPY = type dec, default = 1,prompt="Angiv hvor mange kopier, der skal skrives";
LHM  = type dec, default = 0,prompt="Angiv venstre margen indrykning i antal tegn";

:MAPS
map $(STYLE) = "Lille font" "1"
map $(STYLE) = "Normal font" "2"
map $(STYLE) = "Lille font - tv▶91◀rformat" "3"
map $(STYLE) = "Normal font - tv▶91◀rformat" "4"

map $(CARD) = "tekstbehandling" "komm.wp"
map $(CARD) = "kalkulation"     "komm.ss"
map $(CARD) = "database SQL"  "komm.sql"
map $(CARD) = "kalkulation - issi" "quick.ss"
map $(CARD) = "referencekort" "ref.wp"
:COMMANDS

case $(STYLE) in
     1|3)  font=FP-LILLE;;
       *)  font=FP-NORMAL;;
esac

style=$(STYLE)
card=$(CARD)
file=$Uniplex/outlines/quicklook/$card.$style

if test -f $file; then :
else
    echo "Ref.kort $card findes ikke i det valgte udskriftslayout"
    sleep 3
    exit 0
fi

eval set xx `uprtcmd -d "$(PRTR)"`
pcap=$2
device="$3"
defflags="-p $pcap -e -T -d$font"

flags="-c $(COPY) -m $(LHM)"

trap '' 1
eval exec uprop $defflags $flags $file $device &
exit 0
..V.....T.......T.......T.......T.......T.......T.......T.......T.......T...H...T.......T.......T.......T.......T.......T.......T.......T.......T....H..

..V.....T.......T.......T.....H.V.......T.......T.......T.......T.......T...H.
:HELP
  UDSKRIV KOMMANDOOVERSIGT

  Udfyldelse af formularen:

  V▶91◀lg kommandooversigt         Tryk <MELLEMRUM> for at v▶91◀lge referencekort:

                                tekstbehandling
                                kalkulation
                                kalkulation - issi
                                database SQL
                                referencekort

  Printer                       Tryk <MELLEMRUM> for at v▶91◀lge den ▶9b◀nskede
                                printer.

  Antal kopier                  Angiv det antal kopier der ▶9b◀nskes udskrevet.

  V/margen indrykning           Angiv venstre margen indrykning i antal tegn.