( 100002A1000:B6*< G$(A,B)0FqP "PROGRAMM ZUR BEARBEITUNG VON" Z "STANDARDKARTEIEN"d "============================" nx : "-- Erfassung der Kartei: 1 " : "-- Druck erfasster Standards: 2 "  :< "-- Archivierung: 3 "E :f "-- Einlesen vom Band: 4 "n:"-- Ausgabe der Standardnummern: 5":"-- Einfuegen in vorh. Standardnummer: 6":"-- Korrektur :7" Z$  Z$""260;Z(Z$) e" Z 310,610,1210,1290,1370,1520,1520m,706I1 @Y$G$(I,1)J Y$"" 350TII1:320^h"ERFASSUNG DER KARTEI" r"--------------------" | * "STANDARDNUMMER"; A$ =M1:G$(I,1)A$Z "ANZAHL "; X$iG$(I,2)X$ "NACHWEIS NR "; C$G$(I,3)C$ "AUSGABEDATUM "; D$G$(I,4)D$ "ABTEILUNG "; E$G$(I,5)E$  "STUECK "; F$G$(I,6)F$:: "EINGABE O.K.?";OK$L OK$"Y"540w(23,23);"*KORREKTUR*": M1390430 M0:: "WEITERE EINGABEN?(Y/N)";WE$& WE$"Y" 5800 WE$"Y" :II1 :G$(I,2)"0":G$(I,1)A$:430 D "WEITERE STANDARDS?(Y/N)";WS$3 N WS$"Y" II1:350E X WS$"N" h b | l"KARTEI DRUCK" v"============"  "DRUCK NACH STANDARDNUMMER:1" "DRUCK NACH ABTEILUNG :2" "ZURUECK ZUM MENUE :3" T$5  T$"" 680: T(T$) J  T 720,1040,70R 70X u (3,4);"STANDARD" (3,14);"VORH." (7,4);"NACHWEIS" (7,14);"DATUM" (7,25);"ABT." (7,32);"STUECK"   ) *"WELCHE STANDARDNUMMER";N$ 7 4 S0 AF >A$G$(S,1)] H A$N$ NS:900e R S \(23,15);"***STD NICHT AUFFINDBAR***" f F1 300 p F z X$G$(N,2) C8 (5,4);A$ (5,14);X$ (C,4);G$(N,3) (C,14);G$(N,4) @ (C,25);G$(N,5) ^ (C,32);G$(N,6) y NN1  G$(N,2)"0" CC1:940 (23,25);"" "";ET$    " C "WELCHE ABTEILUNG ?";WA$ \ $"STNR","DAT","STCK"j . D1 A 8E$G$(D,5) B E$""1180 L WA$E$ A$G$(D,1):D$G$(D,4): F$G$(D,6):1120 V D `KD10 j K(K) 1150 tQ$ 3y Q$"" 1140B~ A$,D$,F$o D w:"*LISTEND* ";ET$1060  "ABSPEICHERN AUF BAND" "--------------------" "BITTE KASSETTE POSITIONIEREN"G "SIND SIE FERTIG?---> ENTER";FE$ g FE$"Y" "FELD";G$:70| FE$"N" 1260 70  "EINLESEN VOM BAND" "-----------------"(2 "BITTE KASSETTE POSITIONIEREN"< "SIND SIE FERTIG?---> ENTER";SI$6F SI$"Y" "FELD";G$:70MP SI$"N" 1340 UU70[Z~d"AUSGABE DER STANDARDNUMMERN"n"---------------------------":x L0 AA$G$(L,1):X$G$(L,2) X$"0" A$ A$"" 1500KL20 K(K) 14906" "?Q$Q Q$"" 1470Y Ly"LISTEND ";E$"NICHT IMPLEMENTIERT" S1100 S70$Q Q$"" 1470Y Ly"LISTEND ";E$