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

⟦c28b67c18⟧ TextFile

    Length: 2255 (0x8cf)
    Types: TextFile
    Notes: UNIX file
    Names: »easiaction«

Derivation

└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
    └─⟦this⟧ »ua/new/usr/UAP/ufill/ubld/easiaction« 

TextFile

#help
  BEHANDLING
  N▶86◀r brevet er f▶91◀rdigt, angives den viderebehandling, der skal ske.

  Brug  <Mellemrum> til at v▶91◀lge hvilke funktioner, der skal  udf▶9b◀res.
  Piletasterne anvendes til at flytte rundt mellem felterne.

  Rediger   Hele  brevet vises p▶86◀ sk▶91◀rmen. B▶86◀de de dele, som er opret▶ad◀
            tet automatisk af UNIPLEX, og selve teksten kan frit redi▶ad◀
            geres.

  Udskriv   Menuen Udskrivning vises p▶86◀ sk▶91◀rmen.

  Afsend    Elektronisk post startes, og formularen Afsend post vises.

  Tryk  <F1>  (Udf▶9b◀r) for at udf▶9b◀re de valgte funktioner,  eller  tryk
  <F4> (Afbryd) for at afbryde.
))


:II+ COMPILED

:TITLE
B E H A N D L I N G

:SCREEN 
screen lines :	10
15	5	1	Hvilke af nedenst▶86◀ende funktioner skal udf▶9b◀res?
21	8	1	▶1b◀[DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF
21	9	1	▶1b◀[B▶1b◀                                  ▶1b◀[B
21	10	1	▶1b◀[B▶1b◀     Rediger                      ▶1b◀[B
21	11	1	▶1b◀[B▶1b◀                                  ▶1b◀[B
21	12	1	▶1b◀[B▶1b◀     Udskriv                      ▶1b◀[B
21	13	1	▶1b◀[B▶1b◀                                  ▶1b◀[B
21	14	1	▶1b◀[B▶1b◀     Afsend                       ▶1b◀[B
21	15	1	▶1b◀[B▶1b◀                                  ▶1b◀[B
21	16	1	▶1b◀[JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH
10	19	1	Skal der returneres til denne sk▶91◀rmformular bagefter?

:LABELS
Label lines :	6
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	34	10	1	9	C	1		$(1)	type2	0
CHAR	 		0	-1
1	46	10	1	4	C	0	Tryk <MELLEMRUM> for at v▶91◀lge		edit	0
CHAR	 	Ja!Nej	0	-1
2	34	12	1	8	C	1		$(1)	type3	0
CHAR	 		0	-1
3	46	12	1	4	C	0	Tryk <MELLEMRUM> for at v▶91◀lge		prnt	0
CHAR	 	Ja!Nej	0	-1
4	33	14	1	9	C	1		$(1)	type4	0
CHAR	 		0	-1
5	46	14	1	4	C	0	Afsendes med elektronisk post? - Tryk <MELLEMRUM> for at v▶91◀lge		mail	0
CHAR	 	Nej!Ja	0	-1
6	65	19	1	4	C	0	Tryk <MELLEMRUM> for at v▶91◀lge		more	0
CHAR	 	Nej!Ja	0	-1

:MAPS
Map lines :	-1
i	type	label	compar	data	map to

:COMMANDS
Hold	pause	clear	reset:
0	0	0	0
Command:	13
case $(edit) in
     "Ja") uniplex -q $(2);;
esac
case $(prnt) in
     "Ja") eval ufill print "$(2)" `uprtcmd -g $Uidcode`;;
esac
letter=$(2)
export letter
case $(mail) in
     "Ja") umail -f$letter;;
esac
case $(more) in
     "Ja") exec ufill easiaction $(1) $(2);;
esac

:END