DEMO U!CCC@!CC::RCC!Text wird im Verzeichnis gel|scht  6e/l   (r r r r r =o !p p pu=003ABO daten.Artikel.nr nummer form (0).    anzeigen bl{ttern vorw{rts / r}ckw{rts {ndern erfassen l|schen Artikel-Nummer 1. Artikel-Bezeichnung 2. Artikel-Bezeichnung Lagerbestand Verkaufspreis!% maske Artikel-Maske mit Vorgang Artikel.vorgang.eingeben in maske Vorgang schlie~en.gro~schreibung Vorgang.vergleiche Vorgang mit "A" anzeigen "V" vorw{rts "R" r}ckw{rts "[" {ndern "E" erfassen "L" l|schen.springe vorgang.  d posit Artikel.bez1 gibts-nicht.satz-lesen.d lesen Artikel.anzeigen in maske Artikel.springe vorgang.gibts-nicht.anzeigen fehler "Artikel-Satz nicht vorhanden!".l|schen in maske.springe vorgang.vorw{rts.d posit vorw{rts posit.d lesen Artikel.anzeigen in maske Artikel.springe vorgang.posit.d posit r}ckw{rts.springe vorgang. r}ckw{rts.d posit r}ckw{rts posit1.d lesen Artikel.anzeigen in maske Artikel.springe vorgang.posit1.d posit vorw{rts.springe vorgang. - .bez1 <20>.- .bez2 <20>.- .bestand zahl <5>.- .preis zahl <6,2>.Vorgang <1>.Artikel-Datei datei "ART" satz Artikel schl}ssel nr bez1.Artikel-Maske" A R T I K E L S T A M M D A T E N =================================== '-0019BO erfassen.l|schen in maske ab Artikel.bez1.rechnen.rechne Artikel.nr + 1.anzeigen in maske Artikel.nr.{ndern in maske Artikel.nr vorgang.d einf}gen Artikel.nr rechnen.eingeben in maske ab Artikel.bez1 Artikel. {ndern.wenn nicht Artikel.nr : springe vorgang.d sperren vorgang.d lesen Artikel.anzeigen in maske Artikel.{ndern in maske ab Artikel.bez1 Artikel.d schreiben Artikel.springe vorgang. --0032BO anzeigen.d datei freigeben.eingeben in maske Artikel.nr vorgang.wenn nicht Artikel.nr : springe art-bez1.d posit Artikel.nr gibts-nicht.springe satz-lesen.art-bez1.eingeben in maske Artikel.bez1 vorgang. d schreiben Artikel.d posit Artikel.nr.springe erfassen.l|schen.wenn nicht Artikel.nr : springe vorgang.d sperren vorgang.d l|schen.l|schen in maske.springe vorgang.schlie~en.d datei schlie~en.schluss.r}cksprung. ".anfang.d datei |ffnen Artikel-Datei datei-neu.springe datei-pflege.datei-neu.anzeigen neu zeile 1 spalte 20 "Die Artikeldatei wird angelegt!".d datei anlegen Artikel-Datei schluss.datei-pflege.l|sche zeile 1 bis 24.