1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
|
(*
*********************************************************
*********************************************************
** **
** ls-ARCHIV- **
** MENUTAFEL-GENERATOR **
** Version 1.0 **
** **
** (Stand: 30.03.88) **
** **
** **
** Autor: Wolfgang Weber, Bielefeld **
** **
** **
** Copyright (C) 1987, 1988 Eva Latta-Weber, Bielefeld **
** **
** Copyright (C) 1988 ERGOS GmbH, Siegburg **
** **
*********************************************************
*********************************************************
*)
TEXT PROC dateiverzeichnistext:
" "15" Verzeichnis der vorhandenen Dateien "14""13""13""
+ " Eine Liste der vorhandenen Dateien wird auf dem "13""
+ " Bildschirm ausgegeben. "13""13""
+ " Da die Liste selbst eine Datei ist, kann man sie "13""
+ " mit der Tastenfolge <ESC> <q> verlassen - das "13""
+ " wird auch in der Kopfzeile angezeigt. "13""13""
+ " Innerhalb der Liste kann man sich wie in einer "13""
+ " Datei bewegen - nicht aber schreiben."
END PROC dateiverzeichnistext;
TEXT PROC dateiloeschentext:
" "15" Dateien löschen "14" "13""13""
+ " Alle vorhandenen Dateien werden zur Auswahl angebo- "13""
+ " ten. Anschließend werden die angekreuzten Dateien in "13""
+ " der Reihenfolge, in der sie angekreuzt wurden, ge- "13""
+ " löscht. "13""13""
+ " Zur Sicherheit muß noch einmal für jede einzelne Da- "13""
+ " tei bestätigt werden, daß sie auch tatsächlich ge- "13""
+ " löscht werden soll!"
END PROC dateiloeschentext;
TEXT PROC dateidruckentext:
" "15" Dateien drucken "14" "13""13""
+ " Alle vorhandenen Dateien werden zur Auswahl angebo- "13""
+ " ten. Anschließend werden die angekreuzten Dateien "13""
+ " in der Reihenfolge, in der sie angekreuzt wurden, "13""
+ " zum Drucker geschickt. "13""13""
+ " Der Vorgang wird auf dem Bildschirm protokolliert."
END PROC dateidruckentext;
TEXT PROC dateikopierentext:
" "15" Datei kopieren "14" "13""13""
+ " Der Dateiname der Datei, die kopiert werden soll, wird er- "13""
+ " fragt. Hier kann direkt ein Name eingegeben werden. Mit der "13""
+ " Tastenfolge <ESC><z> kann man sich auch die vorhandenen Da- "13""
+ " teien zur Auswahl anbieten lassen und hier einen Namen an- "13""
+ " kreuzen. Anschließend wird der Name für die Kopie erfragt. "13""13""
+ " Es muß ein Name eingetragen werden, der noch nicht für eine "13""
+ " Datei vergeben wurde - ansonsten erfolgt ein Hinweis da- "13""
+ " rauf und es wird nicht kopiert! "13""
+ " Da man aber oft für die Kopie einen ähnlichen Namen wie für "13""
+ " das Original wählt, wird der 'alte' Name vorgeschlagen. Aus "13""
+ " genannten Gründen muß er aber verändert werden."
END PROC dateikopierentext;
TEXT PROC dateiumbenennentext:
" "15" Datei umbenennen "14" "13""13""
+ " Der Dateiname der Datei, die umbenannt werden soll, wird er- "13""
+ " fragt. Hier kann direkt ein Name eingegeben werden. Mit der "13""
+ " Tastenfolge <ESC><z> kann man sich auch die vorhandenen Da- "13""
+ " teien zur Auswahl anbieten lassen und dort einen Namen an- "13""
+ " kreuzen. Anschließend wird der zukünftige Dateiname erfragt. "13""13""
+ " Es muß ein Name eingetragen werden, der noch nicht für eine "13""
+ " Datei vergeben wurde - ansonsten erfolgt ein Hinweis und es "13""
+ " wird nicht umbenannt! "13""
+ " Da man aber oft den 'neuen' Namen in Anlehnung an den 'alten' "13""
+ " Namen wählt, wird der 'alte' Name vorgeschlagen. Aus genann- "13""
+ " ten Gründen muß er aber verändert werden."
END PROC dateiumbenennentext;
TEXT PROC dateispeicherplatztext:
" "15" Datei-Speicherplatz ermitteln "14" "13""13""
+ " Der Dateiname der Datei, deren Speicherplatz ermittelt "13""
+ " werden soll, wird erfragt. Hier kann direkt ein Name "13""
+ " eingegeben werden. Mit der Tastenfolge <ESC><z> kann "13""
+ " man sich auch die vorhandenen Dateien zur Auswahl an- "13""
+ " bieten lassen und dort Namen ankreuzen. "13""13""
+ " Der belegte Speicherplatz der ausgewählten Datei(en) "13""
+ " wird ermittelt und auf dem Bildschirm angezeigt."
END PROC dateispeicherplatztext;
TEXT PROC dateiaufraeumtext:
" "15" Dateien aufräumen (reorganisieren) "14" "13""13""
+ " Der Dateiname der Datei, die aufgeräumt (reorganisiert) "13""
+ " werden soll, wird erfragt. Hier kann direkt ein Name "13""
+ " eingegeben werden. Mit der Tastenfolge <ESC><z> kann man "13""
+ " sich auch die vorhandenen Dateien zur Auswahl anbieten "13""
+ " lassen und dort Namen ankreuzen. "13""13""
+ " Anschließend werden die ausgewählten Dateien aufgeräumt, "13""
+ " d.h. die interne Verwaltung der Datei wird optimiert. "13""
+ " Das führt zumeist dazu, daß die Datei anschließend weni- "13""
+ " ger Speicherplatz belegt als zuvor. "13""13""
+ " "15"Achtung! "14" Die Operation ist zeitaufwendig!!!"
END PROC dateiaufraeumtext;
(*------------------------------------------------------------------------*)
TEXT PROC archivreserviertext:
" "15"Reservieren (des Archivlaufwerks) "14" "13""13""
+ " Das System versucht, auf das Archiv zuzugreifen. Ist das Archiv "13""
+ " von keiner anderen Task benutzt, dann wird die Frage gestellt, ob "13""
+ " die Diskette eingelegt ist. Erst zu diesem Zeitpunkt ist sicher- "13""
+ " gestellt, daß keine andere Task auf das Archiv zugreifen kann!"13""13""
+ " Nach Bejahen der gestellten Frage ermittelt das System selbstän- "13""
+ " dig den Namen der eingelegten Diskette, zeigt den Namen auf dem "13""
+ " Bildschirm an und aktiviert die anderen Menupunkte des Pull-Down- "13""
+ " Menus. "13""13""
+ " Beim Verlassen des Pull-Down-Menus oder wenn eine andere Zieltask "13""
+ " eingestellt wird, wird die Reservierung automatisch aufgehoben!"
END PROC archivreserviertext;
TEXT PROC neuediskettetext:
" "15"Neue Diskette (anmelden) "14" "13""13""
+ " Der Datenaustausch mit einer Diskette ist nur dann möglich, wenn "13""
+ " der im System eingestellte Diskettenname (auf dem Bildschirm "13""
+ " sichtbar) mit dem tatsächlichen Namen der Diskette übereinstimmt. "13""13""
+ " Nach einem Diskettenwechsel ist das aber zumeist nicht mehr der "13""
+ " Fall. Nach Aktivieren dieses Menupunktes wird der Name der ein- "13""
+ " gelegten Diskette ermittelt, im System eingestellt und angezeigt. "13""13""
+ " Im Gegensatz zum Menupunkt 'Reservieren' greift das System ohne "13""
+ " Anfrage an den Benutzer auf das Archiv zu (die Reservierung "13""
+ " bleibt ja bestehen)."
END PROC neue diskettetext;
TEXT PROC archivschreibtext:
" "15"Schreiben (Kopieren) "14" "13""13""
+ " Alle Dateien der eigenen Task werden zur Auswahl angeboten. An- "13""
+ " schließend werden Kopien der angekreuzten Dateien in der Reihen- "13""
+ " folge ihres Ankreuzens in die eingestellte Zieltask geschickt. "13""
+ " Der Vorgang wird auf dem Bildschirm protokolliert. "13""13""
+ " Sind in der Zieltask schon Dateien mit gleichem Namen vorhanden, "13""
+ " so wird erfragt, ob diese dort gelöscht werden sollen. "13""13""
+ " Normalerweise ist als Zieltask das Archiv der eigenen Station "13""
+ " eingestellt. Mit dem Menupunkt 'Zieltask einstellen' kann diese "13""
+ " Einstellung verändert werden."
END PROC archivschreibtext;
TEXT PROC archivchecktext:
" "15"Checken (Prüfen) "14" "13""13""
+ " Alle Dateien der eingestellten Zieltask (des Archivs) wer- "13""
+ " den zur Auswahl angeboten. Anschließend werden die ange- "13""
+ " kreuzten Dateien in der Reihenfolge ihres Ankreuzens 'ge- "13""
+ " checkt', d.h. daraufhin untersucht, ob sie ohne Fehler ge- "13""
+ " lesen werden können. Der Vorgang wird auf dem Bildschirm "13""
+ " protokolliert. "13""13""
+ " Dieser Menupunkt kann nur ausgeführt werden, wenn der Da- "13""
+ " teiaustausch mit einem Archiv(manager) erfolgt."
END PROC archivchecktext;
TEXT PROC archivkombinationstext:
" "15"Kombination "14" "13""13""
+ " Dieser Menupunkt wirkt wie eine Kombination der Menupunkte "13""
+ " 'Schreiben' und 'Checken' (Weitere Informationen dort). "13""13""
+ " Alle Dateien der eigenen Task werden zur Auswahl angeboten. "13""
+ " Die angekreuzten Dateien werden in der Reihenfolge ihres An- "13""
+ " kreuzens in die eingestellte Zieltask kopiert. Anschließend "13""
+ " werden alle Dateien, die gerade geschrieben wurden, gecheckt, "13""
+ " d.h. auf Lesefehler hin untersucht. Beide Vorgänge werden auf "13""
+ " dem Bildschirm protokolliert. "13""13""
+ " Dieser Menupunkt kann nur ausgeführt werden, wenn der Datei- "13""
+ " austausch mit einem Archiv(manager) erfolgt. "
END PROC archivkombinationstext;
TEXT PROC archivholtext:
" "15"Holen / Lesen "14" "13""13""
+ " Alle Dateien der eingestellten Zieltask werden zur Auswahl ange- "13""
+ " boten. Anschließend werden Kopien der angekreuzten Dateien in der "13""
+ " Reihenfolge des Ankreuzens in die eigene Task kopiert. Der Vor- "13""
+ " gang wird auf dem Bildschirm protokolliert. "13""13""
+ " Sind in der eigenen Task schon Dateien mit gleichem Namen vorhan- "13""
+ " den, so wird gefragt, ob die 'alten' Dateien überschrieben (ge- "13""
+ " löscht) werden dürfen. "13""13""
+ " Normalerweise werden die Dateien vom Archiv der eigenen Station "13""
+ " geholt. Mit dem Menupunkt 'Zieltask einstellen' kann diese Ein- "13""
+ " stellung verändert werden."
END PROC archivholtext;
TEXT PROC archivloeschtext:
" "15"Löschen "14" "13""13""
+ " Alle Dateien der eingestellten Zieltask werden zur Auswahl "13""
+ " angeboten. Anschließend werden die angekreuzten Dateien in "13""
+ " der Reihenfolge ihres Ankreuzens gelöscht. Zur Sicherheit "13""
+ " muß noch einmal für jede einzelne Datei bestätigt werden, "13""
+ " daß sie auch tatsächlich gelöscht werden soll. "13""13""
+ " Normalerweise ist als Zieltask das Archiv der eigenen Sta- "13""
+ " tion eingestellt. Mit dem Menupunkt 'Zieltask einstellen' "13""
+ " kann diese Einstellung verändert werden."
END PROC archivloeschtext;
TEXT PROC archivverzeichnistext:
" "15"Verzeichnis "14" "13""13""
+ " Eine Liste aller Dateien, die in der Zieltask vorhanden "13""
+ " sind, wird auf dem Bildschirm ausgegeben. Ist die Ziel- "13""
+ " task ein Archiv (manager), so wird auch angezeigt, wie- "13""
+ " viel Platz auf der Diskette belegt ist. "13""13""
+ " Da die Liste selbt eine Datei ist, kann man sie mit der "13""
+ " Tastenfolge <ESC> <q> verlassen. Innerhalb der Liste "13""
+ " kann man sich wie im Editor bewegen."
END PROC archivverzeichnistext;
TEXT PROC archivdruckentext:
" "15"Drucken "14" "13""13""
+ " Zur Sicherheit fragt das System an, ob ein Datei- "13""
+ " verzeichnis der Zieltask gedruckt werden soll. Be- "13""
+ " jaht man diese Frage, so wird ein Dateiverzeichnis "13""
+ " erstellt und zum Drucker geschickt."
END PROC archivdruckentext;
TEXT PROC archivinitialisiertext:
" "15"Initialisieren (Vollständiges Löschen) "14" "13""13""
+ " Zunächst erfragt das System, ob die Diskette auch formatiert wer- "13""
+ " den soll. Bejaht man die Frage, so werden mehrere Formate zur "13""
+ " Auswahl angeboten - anschließend wird die Diskette formatiert "13""
+ " (wobei alle Inhalte "15"gelöscht "14" werden). Das Formatieren ist not-"13""
+ " wendig, wenn man eine 'frische' Diskette verwendet. "13""13""
+ " In jedem Fall wird dann angefragt, ob die Diskette initialisiert "13""
+ " bzw. überschrieben werden soll (je nachdem, ob die Diskette schon "13""
+ " benutzt wurde oder nicht). Nach Bejahen der gestellten Frage wird "13""
+ " der Name der Diskette erfragt. Bei der Initialisierung erhält die "13""
+ " Diskette einen (neuen) Namen und wird "15"vollständig gelöscht."14" "13""
END PROC archivinitialisiertext;
TEXT PROC archivzieltasktext:
" "15"Zieltask einstellen "14" "13""13""
+ " Das System bietet die Alternativen 'Archiv'-'Vatertask'-'PUBLIC' "13""
+ " und 'Sonstige' zur Auswahl an. Bei der Wahl einer der ersten drei "13""
+ " Möglichkeiten nimmt das System die vollständige Einstellung vor, "13""
+ " zeigt den Namen der eingestellten Zieltask an und aktiviert die "13""
+ " zur Verfügung stehenden Menupunkte. "13""13""
+ " Als Zieltask kann aber im Prinzip auch jede andere empfangsberei- "13""
+ " te Task auf der Station oder irgendwo im Netz (wenn installiert) "13""
+ " gewählt werden. Dazu wählt man die Alternative 'Sonstige'. Nach- "13""
+ " einander werden der Name der Task und die Stationsnummer erfragt. "13""
+ " Danach wird erfragt, ob die Zieltask ein Archiv(manager) ist. An- "13""
+ " schließend verfährt das System wie oben beschrieben."
END PROC archivzieltasktext;
oeffne menukarte ("Archiv");
oeffne menu ("ARCHIV", "", "menu archiv reservierung aufgeben");
oberbegriff ("Dateien");
menufunktion ("v", "Verzeichnis", "menu dateien verzeichnis",
dateiverzeichnistext);
trennlinie;
menufunktion ("l", "Löschen", "menu dateien loeschen",
dateiloeschentext);
menufunktion ("d", "Drucken", "menu dateien drucken",
dateidruckentext);
trennlinie;
menufunktion ("k", "Kopieren", "menu dateien kopieren",
dateikopierentext);
menufunktion ("u", "Umbenennen", "menu dateien umbenennen",
dateiumbenennentext);
trennlinie;
menufunktion ("s", "Speicherplatz", "menu dateien speicherplatz",
dateispeicherplatztext);
menufunktion ("a", "Aufräumen", "menu dateien aufraeumen",
dateiaufraeumtext);
oberbegriff ("Archiv", "menu archiv grundeinstellung (4)",
"menu archiv reservierung aufgeben");
menufunktion ("r", "Reservieren", "menu archiv reservieren",
archivreserviertext);
menufunktion ("n", "Neue Diskette", "menu archiv neue diskette",
neuediskettetext);
trennlinie;
menufunktion ("s", "Schreiben", "menu archiv schreiben",
archivschreibtext);
menufunktion ("c", "Checken", "menu archiv checken",
archivchecktext);
menufunktion ("k", "Kombination", "menu archiv schreibcheck",
archivkombinationstext);
menufunktion ("h", "Holen/Lesen", "menu archiv holen",
archivholtext);
menufunktion ("l", "Löschen", "menu archiv loeschen",
archivloeschtext);
trennlinie;
menufunktion ("v", "Verzeichnis", "menu archiv verzeichnis",
archivverzeichnistext);
menufunktion ("d", "Drucken", "menu archiv verzeichnis drucken",
archivdruckentext);
trennlinie;
menufunktion ("i", "Initialisieren", "menu archivinitialisieren",
archivinitialisiertext);
menufunktion ("z", "Zieltask einstellen", "menu archiv zieltask einstellen",
archivzieltasktext);
schliesse menu;
schliesse menukarte;
|
