INPUT.FLX : Auswahl des Satztyps, Start des Formulars 2002-02-15 In #utY steht Kennbuchstabe aus input.vw z.B. B fuer Satztyp "Buch" Dateinummer in #utN sichern var N ins #utN set i7 set i8 set i9 Typ h: dann -> :H var #utY if "H" jump H if "I" jump I Sonst: Wenn aktueller Satz veraendert wurde, erst speichern if diff put Neuen Satz anlegen new sho rec var #utY if "A" jump A if "B" jump B if "S" jump S if "Z" jump Z if "D" jump D if "V" jump V if "P" jump P if "K" jump K if "C" jump C if "T" jump C if "t" jump t if "v" jump v if "b" jump b if "z" jump z Wenn man weitere Satzarten hat, hier entspr. Spruenge einbauen (s.o.) und dazu entspr. Abschnitte: :B form Präs. Buch form Präs. Buch: Teil 2 jump check :z form Histor. Buch form Histor. Buch: Teil 2 input 44 jump check :A form Aufs jump check :C form Klas input 251 jump check :D form DC jump check :H form Hier jump check :I var #00 ins #uDF new var #uDF ins #9DF var "" ins #uDF sho rec form Besta var k0 if ="0" jump ex input 240 jump check :K form K input 252 jump check :P form Pers input 252 jump check :S form Simp jump check :T form Thesa input 251 jump check :t form Themen jump check :V fam last copy trans #00 ins #uv0 var #uv0 "+" ins #00 form Verk var k0 if ="0" jump ex jump check :Z form Zeit input 100 jump check :b form Benutzer input 241 jump check :check Wurde irgendwas eingegeben? Wenn nicht, ist k0=0, dann -> :ex var k0 if ="0" jump ex jump speich :v ask In welchem Register soll die Verw. stehen? (1,2,...,10,11) if "10" var ":" if "11" var ";" ins #uvI ask Von wo soll verwiesen werden? (Schreibweise wie im Regster!) ins #uvV ask Wohin soll verwiesen werden? ins #uvW var "|" #uvI #uvV " -> " #uvW ins #9s var "" ins #uvI ins #uvV ins #uvW jump check :speich disp sho rec yesno Speichern? (Nein=weiter bearbeiten, Abbruch=verwerfen) if c jump ex if no jump ende if y put disp sho rec jump ende :ex var #utY if ="H" jump exh erase jump ende Wenn es Typ H ist, wurde kein neuer Satz angelegt! mit "undo" wird der unveraenderte wiederhergestellt :exh undo :ende Dateinummer fuer neue Saetze wiederherstellen var #utN input var "" ins #utN ins #utY ins #uvV ins #uvW