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

⟦3730fd33a⟧ TextFile

    Length: 3438 (0xd6e)
    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/ubld/quicklook« 

TextFile

#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.
))


:II+ COMPILED

:TITLE
UDSKRIV KOMMANDOOVERSIGT

:SCREEN 
screen lines :	12
1	6	1	▶1b◀[DAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=AAAAAAAAAAAAF
1	7	1	▶1b◀[B▶1b◀                       ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	8	1	▶1b◀[B▶1b◀  Kommandooversigt     ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	9	1	▶1b◀[B▶1b◀                       ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	10	1	▶1b◀[B▶1b◀  Udskriftslayout      ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	11	1	▶1b◀[B▶1b◀                       ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	12	1	▶1b◀[B▶1b◀  Printer              ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	13	1	▶1b◀[B▶1b◀                       ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	14	1	▶1b◀[B▶1b◀  Antal kopier         ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	15	1	▶1b◀[B▶1b◀                       ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	16	1	▶1b◀[?▶1b◀  V/margen indrykning  ▶1b◀[B▶1b◀                                                   ▶1b◀[?
1	17	1	▶1b◀[B▶1b◀                       ▶1b◀[B▶1b◀                                                   ▶1b◀[B
1	18	1	▶1b◀[JAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=AAAAAAAAAAAAH

:LABELS
Label lines :	4
i	labx	 laby	 lpage	 llen	 itype	 itbnum	 iprompt	 idefval	 label	 width
CHARS:	charset	 reply	 prompt	 wrap
DEC  :	dec_pl	 min	max
DATES:No output
0	27	8	1	44	C	0	V▶91◀lg kommandooversigt med <MELLEMRUM>		CARD	0
CHAR	 	tekstbehandling!kalkulation!kalkulation - issi!database SQL!referencekort	0	-1
1	27	10	1	44	C	1		Normal font	STYLE	0
CHAR	 		0	-1
2	27	12	1	44	C	0	V▶91◀lg printer til udskrift af kortet		PRTR	0
CHAR	 	*uprtcmd -p $Uidcode	0	-1
3	27	14	1	4	N	0	Angiv hvor mange kopier, der skal skrives	1	COPY	0
DEC	-1	0	0
4	27	16	1	3	N	0	Angiv venstre margen indrykning i antal tegn	0	LHM	0
DEC	-1	0	0

:MAPS
Map lines :	8
i	type	label	compar	data	map to
0	0	$(STYLE)	1	Lille font	1
1	0	$(STYLE)	1	Normal font	2
2	0	$(STYLE)	1	Lille font - tv▶91◀rformat	3
3	0	$(STYLE)	1	Normal font - tv▶91◀rformat	4
4	0	$(CARD)	1	tekstbehandling	komm.wp
5	0	$(CARD)	1	kalkulation	komm.ss
6	0	$(CARD)	1	database SQL	komm.sql
7	0	$(CARD)	1	kalkulation - issi	quick.ss
8	0	$(CARD)	1	referencekort	ref.wp

:COMMANDS
Hold	pause	clear	reset:
0	0	0	0
Command:	20
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

:END