|
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: 5679 (0x162f)
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/ubld/while.y.w.out«
#help
TELEFONBESKED
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.
))
:II+ COMPILED
:TITLE
T E L E F O N B E S K E D
:SCREEN
screen lines : 16
6 4 1 ▶1b◀[DAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF
6 5 1 ▶1b◀[B▶1b◀ Navn: ▶1b◀[B▶1b◀ ▶1b◀[B
6 6 1 ▶1b◀[B▶1b◀ Firma: ▶1b◀[B▶1b◀ ▶1b◀[B
6 7 1 ▶1b◀[B▶1b◀ Telefon: ▶1b◀[B▶1b◀ ▶1b◀[B
6 8 1 ▶1b◀[KAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG
6 9 1 ▶1b◀[B▶1b◀ Har ringet Ringes op ▶1b◀[B
6 10 1 ▶1b◀[B▶1b◀ Har v▶91◀ret her Ringer igen ▶1b◀[B
6 11 1 ▶1b◀[B▶1b◀ Vil aftale m▶9b◀de Haster ▶1b◀[B
6 12 1 ▶1b◀[JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH
6 13 1 ▶1b◀[DAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF
6 14 1 ▶1b◀[B▶1b◀ Besked: ▶1b◀[B▶1b◀ ▶1b◀[B
6 15 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 16 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 17 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 18 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 19 1 ▶1b◀[JAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH
20 21 1 Tryk <ESC> u n▶86◀r formularen er udfyldt
:LABELS
Label lines : 13
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 22 5 1 46 C 0 Indtast navnet p▶86◀ den person, der ringede name 0
CHAR 0 -1
1 22 6 1 46 C 0 Angiv firmanavnet for den person, der ringede company 0
CHAR 0 -1
2 22 7 1 46 C 0 Angiv telefonnr. til personen, der ringede phone 0
CHAR 0 -1
3 40 9 1 1 C 0 a 0
CHAR !* 0 -1
4 66 9 1 1 C 0 e 0
CHAR !* 0 -1
5 40 10 1 1 C 0 b 0
CHAR !* 0 -1
6 66 10 1 1 C 0 f 0
CHAR !* 0 -1
7 40 11 1 1 C 0 c 0
CHAR !* 0 -1
8 66 11 1 1 C 0 g 0
CHAR !* 0 -1
9 22 14 1 45 C 0 Indtast en evt. besked til modtageren m1 0
CHAR 0 -1
10 22 15 1 45 C 0 m2 0
CHAR 0 -1
11 22 16 1 45 C 0 m3 0
CHAR 0 -1
12 22 17 1 45 C 0 m4 0
CHAR 0 -1
13 22 18 1 45 C 0 m5 0
CHAR 0 -1
:MAPS
Map lines : -1
i type label compar data map to
:COMMANDS
Hold pause clear reset:
0 0 0 0
Command: 49
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
:END