|
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: 6605 (0x19cd)
Types: TextFile
Notes: UNIX file
Names: »while.y.w.out«
└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
└─⟦this⟧ »ua/new/usr/UAP/ufill/usrc/while.y.w.out«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
*
* Translated: 18.07.88 - Regnecentralen/AGJ
* Help translation: 17.10.88 - Regnecentralen/AMR
*
:TITLE
T E L E F O N B E S K E D
:SCREEN
DAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B Navn: B [name__________________________________________] B@@
[ [ [
B Firma: B [company_______________________________________] B@@
[ [ [
B Telefon: B [phone_________________________________________] B@@
[ [ [
KAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B Har ringet [a] Ringes op [e] B@@
[ [
B Har v▶91◀ret her [b] Ringer igen [f] B@@
[ [
B Vil aftale m▶9b◀de [c] Haster [g] B@@
[ [
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
DAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B Besked: B [m1___________________________________________] B@@
[ [ [
B B [m2___________________________________________] B@@
[ [ [
B B [m3___________________________________________] B@@
[ [ [
B B [m4___________________________________________] B@@
[ [ [
B B [m5___________________________________________] B@@
[ [ [
JAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
Tryk <ESC> u n▶86◀r formularen er udfyldt
:LABELS
name=type char, prompt = "Indtast navnet p▶86◀ den person, der ringede";
company=type char, prompt = "Angiv firmanavnet for den person, der ringede";
phone=type char, prompt = "Angiv telefonnr. til personen, der ringede";
a = type char, reply = " !*";
b = type char, reply = " !*";
c = type char, reply = " !*";
e = type char, reply = " !*";
f = type char, reply = " !*";
g = type char, reply = " !*";
m1 = type char,prompt = "Indtast en evt. besked til modtageren";
m2 = type char;
m3 = type char;
m4 = type char;
m5 = type char;
:COMMANDS
case "$(a)" in
"") a=" "; export a;;
*) a=$(a); export a;;
esac
case "$(b)" in
"") b=" "; export b;;
*) b=$(b); export b;;
esac
case "$(c)" in
"") c=" "; export c;;
*) c=$(c); export c;;
esac
case "$(e)" in
"") e=" "; export e;;
*) e=$(e); export e;;
esac
case "$(f)" in
"") f=" "; export f;;
*) f=$(f); export f;;
esac
case "$(g)" in
"") g=" "; export g;;
*) g=$(g); export g;;
esac
echo " TELEFONBESKED@@" > /tmp/WPWO$Uusername
echo " AAAAAAAAAAAAA" >> /tmp/WPWO$Uusername
echo " " >> /tmp/WPWO$Uusername
echo " Navn: $(name)" >>/tmp/WPWO$Uusername
echo " Firma: $(company)" >>/tmp/WPWO$Uusername
echo " Telefon: $(phone)" >>/tmp/WPWO$Uusername
echo " " >> /tmp/WPWO$Uusername
echo " DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@" >>/tmp/WPWO$Uusername
echo " [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[" >>/tmp/WPWO$Uusername
echo " B Har ringet "$a" Ringes op "$e" B@@" >>/tmp/WPWO$Uusername
echo " [ [" >>/tmp/WPWO$Uusername
echo " B Har v▶91◀ret her "$b" Ringer igen "$f" B@@" >>/tmp/WPWO$Uusername
echo " [ [" >>/tmp/WPWO$Uusername
echo " B Vil aftale m▶9b◀de "$c" Haster "$g" B@@" >>/tmp/WPWO$Uusername
echo " [ [" >>/tmp/WPWO$Uusername
echo " JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@" >>/tmp/WPWO$Uusername
echo " [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[" >>/tmp/WPWO$Uusername
echo " " >> /tmp/WPWO$Uusername
echo " Besked: $(m1)" >>/tmp/WPWO$Uusername
echo " $(m2)" >>/tmp/WPWO$Uusername
echo " $(m3)" >>/tmp/WPWO$Uusername
echo " $(m4)" >>/tmp/WPWO$Uusername
echo " $(m5)" >>/tmp/WPWO$Uusername
umail -f/tmp/WPWO$Uusername
rm /tmp/WPWO$Uusername
exit 0
:HELP
TELEFONBESKED
..V.....T.......T.......T.......T.......T.......T.......T.......T....L.
Med denne formular sendes en meddelelse via Elektronisk post til en
kollega med en besked, som du har modtaget under dennes frav▶91◀r.
1. Tryk <F9> (Popup).
2. V▶91◀lg Telefonbesked.
3. Udfyld formularen p▶86◀ sk▶91◀rmen med oplysning om navn, firmanavn og
telefonnummer p▶86◀ den person, som har givet beskeden. Tryk <Retur>
efter hver indtastning. Brug piletasterne til at flytte rundt
mellem felterne.
4. Angiv udfor de fortrykte meddelelser, hvad beskeden g▶86◀r ud p▶86◀.
Brug <Tab> for flytte rundt mellem felterne.
.FS
5. Indtast en eventuel uddybende besked.
6. Tryk <F1> (Udf▶9b◀r), n▶86◀r formularen er udfyldt.
Elektronisk post startes automatisk, og formularen Afsend post
vises automatisk p▶86◀ sk▶91◀rmen.
7. Udfyld formularen Afsend post med oplysninger om den person, som
skal have telefonbeskeden.
8. Tryk <F1> (Udf▶9b◀r), n▶86◀r formularen er udfyldt.
Telefonbeskeden afsendes, og modtageren af telefonbeskeden kan
l▶91◀se denne besked via Elektronisk post.