DEMO PS0000850730AC0003c0000TEXTƒ000283TPS0001850730AC0001a0000TEXTƒ000284TPS0003850730AC0001a0000TEXTƒ000286ART1850731AC0001a0000TEXTƒ000285ANG850731AC0001a0000TEXTƒ000287TT850731FG0001a0000TEXTƒ00024DANG1850731AC0001a0000TEXT °=0033BO daten.Artikel.nr nummer form (0).- .bez1 <20>.- .bez2 <20>.- .bestand zahl <5>.- .preis zahl <6,2>.ja <1>.Artikel-Datei datei "ART" satz Artikel schl}ssel nr bez1.anfang.  Ed lese Artikel.eingeben zeile 1 spalte 35 " " Artikel.bez1 " " Artikel.bez2 " " ja eingabe.menge.eingeben neu zeile 1 "Bitte Menge eingeben! " n1 eingabe.wenn nicht n1 : springe menge.wenn n1 > Artikel.bestand : springe fehler1.t einf}gen n1.t tab.rechne Artikel.bestand - n1.d schreibe Artikel. §d datei |ffnen Artikel-Datei ende.eingabe.eingeben neu zeile 1 "Bitte Art.-Nr. eingeben! " Artikel.nr esc.d posit Artikel.nr fehler.d sperren eingabe. '-0016BO esc.t zeilenschaltung.t einf}gen "Nettosumme:".t tab.t tab.t einf}gen z2 z-fzs.t einf}gen "14 % Mwst.".rechne z3 = z2 * 0,14.t tab.t tab.t einf}gen z3 z-fzs.t zeilenschaltung.t einf}gen "Gesamtsumme:". ”t einf}gen Artikel.bez1 z-fzs.t tab.t einf}gen Artikel.bez2.t tab.t einf}gen Artikel.preis.t tab.rechne z1 = n1 * Artikel.preis.t einf}gen z1 z-fzs.rechne z2 + z1.t zeilenschaltung.springe eingabe.fehler.anzeigen fehler "Artikel-Nr. nicht vorhanden ! ".springe eingabe.fehler1.anzeigen fehler "Nur " Artikel.bestand " am Lager!".d freigeben.springe eingabe. ct tab.t tab.rechne z3 + z2.t einf}gen z3 z-fzs.d datei schlie~en.ende.r}cksprung.