TEXT 2 :k T V A:U$"###":U1$"###-"A:C$"AGENTUR KOHL,POSTFACH 48,D-2863 RITTERHUDE()1985"::ZEH:E$(E),E1$(E),E2$(E),E3$(E),E4$(E),E5$(E),E6$(E),E7$(E),E8$(E),E9$(E),E0$(E)=(" *** HAUPTMENUE TEXTVERARBEITUNG ***":Tp:Z$(T)52:"TEXTSPEICHER=: ";:(TN$,P)Z9" ZEILEN")<:"ANSCHR.SP. =:"A" ANSCHRIFTEN"::F:" 1 = TEXT EINGEBEN+NDERN":W$"BITTE WHLEN SIE "P:" 2 = TEXT ABSPEICHERN"Z:" 3 = TEXT EINLESEN""d:" 4 = TEXT LISTEN+DRUCKEN")n:" 5 = DATEI ANSCHRIFTEN EINLESEN"(x:" 6 = ANSCHRIFTEN DURCHBLTTERN":" 7 = TEXTAUSGABE":" 9 = ENDE" :W$ AW$AW$"1" ,AW$"2" AW$"3" AW$"4" AW$"5" AW$"6" pAW$"7" XAW$"9"  $:"NOCH";:" FREIE SPEICHER"A:[@,]"A, D J/N " AW$ (AW$"N")(AW$"")  (AW$"J")(AW$"")    :C$":, EINGABE/NDERN%6:" MEN EINGABE/NDERN"+@:(TN$,)Z9" ZEILEN ."2J, :" 1 = AUSWAHL ANREDE + ENDE"T:" 2 = BETREFF-ZEILE"'^:" 3 = ANLISTUNG 10 ZEILEN AB A"'h:" 4 = ANLISTUNG X ZEILEN AB A"1r:" 5 = EINE ZEILE AB X EINFGEN( INST)"1|:" 6 = ZEILE LSCHEN( DEL Z)":" 7 = TEXTAUSGABE"n:" 8 = SCHREIBMASCHINENTASTATUR"(x)"AUS":(8)9x,:[@,]" AN":" 9 = S-BASIC-TASTATUR":W$"(0 = HAUPTMEN)"J$J$"1" %J$"2" lJ$"3" J$"4" J$"5" J$"6" *J$"7" XJ$"8" J$"9" J$"0"  |8,9:8,;:,-:,2:h,::h,(:,.:,.I( AA(I):AB(I)0(AA)(AA6)I,AB:I,AA  ,I( AB(I):AA(I)0(AA)(AA6)I,AA:I,AB^ 8,:8,:,|:,{:h,8:h,@ $ ,%%:"AUSWAHL ANREDE UND SCHLUSS"L&:" 1 = S ........ M G"B0:" 2 = L .... V G"L::" 3 = H MZ-700 B ... M G"ED:" 0 = A E T "N:W$;:BBXBB@  b ,l:"BETR.:"TN$)v:[@,]"J = OK, N = NEU "J$(J$"J")(J$"") ,(J$"N")(J$"")   :"NEUEINGABE BETREFF" "";TN$  , :TN$Z9" ZEILEN ."\:"BITTE ERSTE ZEILEN-NR. EINGEBEN ( E 10 Z )":Z1Z2Z1#(Z1T)(Z1)   4 :TN$Z9" ZEILEN ."':"BITTE ZEILEN-NR. EINGEBEN ";Z13 :"WIEVIEL ZEILEN ( 10) ";Z2:Z7Z2:Z8Z2E(Z1T)(Z1)(Z2Z1T)(Z2 )(Z2)  Z2Z1Z2 * 4D4:,,@,::"=ZN *** TEXTEINGABE+TEXTNDERUNG ***" HIZ1Z2 RU$;I\f!p,@,@,(z@,(:"STEUERANWEISUNG:"[@,0:"1=SPEICHERN,2=DRUCKEN,3=KORR,4=LOESCH 5=MENUE( S)6=ZN ND."5(J$"4")(Z7)x,8:"7=.ZN."!, ,@,,,`,:!,@,@,@, IZ1Z2(Z$(I),)(Z$(I),,)!,@,@, PWI( P,bPP $@, ."";A1$8,(:A1$BA1$"1" LA1$"2" VA1$"3" $1`A1$"4", ,@,:: jA1$"5": ,dtA1$"6",0,,@:,:"";A1$:,@,@,: 8(~(A1$"7")(J$"4")(Z8) 8(A1$"7")(J$"4")(Z7)8,0:"ZN .";Z1:8,0:[@,]" ":, ,@,:,Z8:[@,]U$;Z1:@,Z8:Z$(Z1):Z8Z8:,@,@,: 8  8 A1$ SPEICHERNA2$"2":TS:%Z3P+:Z$"":Z4P(:Z1$""I 0Z5(Z4):Z6(Z4):Z0(Z4):Z4Z4 :(Z5)(Z6)(Z0) Z5Z5Z6Z6Z0Z0*(Z5)(Z5$)Z5Z5*(Z6)(Z6$)Z6Z6*(Z0)(Z0$)Z0Z0 Z1$(Z5)(Z6)(Z0)Z1(Z1$)Z9Z1Z9Z1  (((Z4))((Z4))((Z4))((Z4 ))((Z4))((Z4))((Z4 ))((Z4))((Z4)) (Y@2A1$"4"  <Z(Z3)PZZ: +Z(Z)(ZP)ZZ: +d(Z)(Z$)ZZ: nZZ: xZZ0: Z Z&: ZZ: ZZ$: ZZ!: Z8 ZZ: ZZ: ZZ%: ZZ: Z Z8: ZZ7: ZZ: ZZ: Z Z3: ZZ: ZZ*: ZZ: "ZZ": ,Z Z): 6ZZ+: @ZZ#: JZ Z/: TZZ;: ^Z,Z:: hZ+Z-: rZ*Z.: |Z.Z9: Z/Z(: Z-Z2: ZZ : ZZ: ZZ=: Z<Z0: Z0Zl: Z(Z4: Z,Zt: Z4Z<: ZZ|: Z$Z: +(Z)(Z")ZZ(: +(Z$)(Z()ZZ: Z.Zx: +(ZB)(ZR)ZZ: &ZTZ,: 0ZVZ(: :Z0Z|: DZ Z<: NZ&Z(: XZ Z>: bZ4ZF: dZ2Z8: fZ*Z:  vZ8Z$Z$(Z)Z3Z3Y>A1$"2"(I)IP(@)(Z$,)3A1$"4"(I)IZ$(Z1)"": 0(I)IZ$(Z1)(Z$,)Z3Z3!(I)IZ$""I : , EINE ZEILE EINFGEN>:"BITTE DIE ZU VERSCHIEBENDE ZEILEN-NR. EINGEBEN ";Z1p(Z$(T)):"T Z"T" , V ":I;:: ,IT(Z1)Z$(I)Z$(I) Z$(Z1)"" Z1Z1: * EINE ZEILE LSCHEN>4:"BITTE DIE ZU LSCHENDE ZEILE EINGEBEN ";Z1>Z$(Z1)""HIZ1TRZ$(I)Z$(I)\ fZ$(T)"" p ,0 :[@,]"D J/N " AW$ (AW$"N")(AW$"")  (AW$"J")(AW$"")  (K1$)K1$"??" (K2$)K2$"??" (K3$)K3$"??" (K4$)K4$"??" :(~)" RECORD/PLAY" "T V A "% (TN$)TN$"B." TTN$,K1$,K2$,K3$,K4$ :TN$" " IT7 M2$"":M$Z$(I):M(M$):MM$" ":M> M1$(M$,):M1$" "M1$"":M$M1$(M$,M) XM M1$(M$,X,) M1$","M1$"" M2$M2$M1$ X Z$(I)M2$ TZ$(I) ".";  Z$(I)Z$ TZ9  & - :[@,]"D J/N " AW$ (AW$"N")(AW$"")  (AW$"J")(AW$"") # :Z9:(~)" PLAY" "T V A " TTN$,K1$,K2$,K3$,K4$ :TN$" " IT TZ$(I) M2$"":M$Z$(I):M(M$)> M1$(M$,):M1$""M1$" ":M$M1$(M$,M) XM M1$(M$,X,) M1$""M1$"," M2$M2$M1$ X Z$(I)M2$ "."; TZ9(Z9Z1y:Z2y: , $  TEXT AUSGABE):" *** MEN TEXTAUSGABE ***"5:"TEXTSPEICHER=: ";:(TN$,`)Z9" ZEILEN"):"ANSCHR.SP. =:"A" ANSCHRIFTEN":1:" 1 = BILDSCHIRMAUSGABE TEXT .Z-N"H:" 2 = DRUCKERAUSGABE TEXT ZEILE A - Z ( Z-N.)"G:" 3 = DRUCKERAUSGABE TEXT ZEILE A - Z ( Z-N.)"E:" 4 = DRUCKERAUSGABE TEXT ZEILE A - Z ( MODE GR)":" 9 = HAUPTMEN" ::W$ TW$TW$"9" TW$"1" ,TW$"4" 0(TW$"2")(TW$"3")  " @,:[,]"=ZN AUSGABE GESAMT-TEXT (BREAK=STOP)"%6X,@,@:,@:@ITJ[,]U$;I;.T[@,](@)(Z$(I),)5Y[@,](@)(Z$(I),,)\(((Z$(I),,)))(((Z$(I),,)))(((Z$(I),`,)))(((Z$(I),,,)))(((Z$(I),x,)))(((Z$(I),,)))Z9I]IZ9 IT^I h"WEITER MIT DER LEERTASTE"rJ$|J$" " r#:(Z1y)(Z2y)  6:"AUSGABE TEXT AUF DRUCKER":TS::"TW$"3""MIT ZEILEN-NUMMER"):"ES SIND "Z9" ZEILEN GESPEICHERT":" AB ZEILE NR.: ";Z1:"WIEVIEL ZEILEN ? ";Z29(Z1T)(Z2Z1T)(Z1)(Z2) IZ1(Z1Z2)IH:TW$"2"P( )Z$(I)TW$"3"PU1$;I;TW$"3"PZ$(I)  +0:"AUSGABE TEXT QUER AUF DRUCKER":TS)::"ES SIND "Z9" ZEILEN GESPEICHERT"D:" AB ZEILE NR.: ";Z1N:"WIEVIEL ZEILEN ? ";Z29X(Z1T)(Z2Z1T)(Z1)(Z2) DbR1f:R2 :GRlIZ1(Z1Z2) vR1,R2[,],Z$(I)R1R1BR1 R1:R2m:R1,R2::R1f:R2  TS: 3:[@,]"A J/N " AW$(AW$"N")(AW$"") (AW$"J")(AW$"")   :(~)" PLAY""ANSCHRIFTEN"TA,K1$,K2$,K3$,K4$IASTE$(I),E1$(I),E2$(I),E3$(I),E4$(I),E5$(I),E6$(I),E7$(I),E8$(I),E9$(I),E0$(I) ".";  p ANSCHR.DURCHBLzF"ES SIND"A" ANSCHRIFTEN GESPEICHERT":"DURCHBLTTERN AB NR.: ";V VA p$:"AUSGABEMASKE" V".ANSCHRIFT":"ANREDESCHLSSEL:"E$(V) :" NAME:"E1$(V) :" VORNAME:"E2$(V) :" PLZ:"E3$(V)" ORT:"E4$(V) :" STRAE:"E5$(V) :" TELEFON:"E6$(V) :" GEBURTSTAG:"E7$(V)" -MONAT:"E8$(V)" -JAHR:"E9$(V) :" BEMERKUNGEN:"E0$(V)0:[@,]"V=VOR, Z=ZURCK, M=MEN"J$9$(J$"V")(J$"")VV:V(A)V0.(J$"Z")(J$"")VV:VVA-8(J$"V")(J$"Z")(J$"")(J$"") B(J$"M")(J$"") L HX:"FOLGENDER ABSENDER IST GESPEICHERT"::K1$::K2$::K3$::K4$(Y:[@,]"1 = NEU, 2 = OK"ZJ$[J$"1" ^\J$"2" j ] Z^:"VORNAME NAME ";K1$`:"PLZ ORT ";K2$b:"STRASSE NR. ";K3$d:"TELEFON-NR. ";K4$>j:[@,]" *** MEN TEXTAUSGABE MIT ANSCHR ***"1l"ANREDE KZ =:"BB" ( = 1 H)"3v"TEXTSPEICHER=: ";:(TN$,`)Z9" ZEILEN"%"ANSCHR.SP. =:"A" ANSCHRIFTEN"2:[@,]" ANSCHRIFTENAUSWAHL NACH:"/:" 0 = KEINE AUSWAHL(.B.R)"O:" 1 = ANREDESCHLSSEL (10=,11=H, 12=F,13=F,14=F)":" 2 = NACHNAME"1:" 3 = GEBURTSTAG+MONAT(B.08.01 = 8.J.)+:" 4 = GEBURTSMONAT (.B.JULI = 07)":" 5 = ORT ( PLZ)":" 6 = BEMERKUNGEN":" 7 = NACHNAME+VORNAME"":W$"(9=HAUPTMEN) ";:"";BABA !(BA)(BA) b&"BITTE BRIEF-DATUM EINGEBEN ";D$BA +BA`  "BEGRIFF AUSWAHL =: ";BA$)BA`"NAME EINGEBEN ";BA$) BA`"VORNAME EINGEBEN ";BV$1*BA`BA$(BA$,@)(BV$,@)!+"TEXTAUSGABE GESAMT ? J/N",J$,-(J$"J")(J$"")Z1:Z2Z9: H.(J$"N")(J$"") 3 / ,'3"ES SIND "Z9" ZEILEN GESPEICHERT"4"AUSGABE AB ZEILE: ";Z1>"WIEVIEL ZEILEN ? ";Z2AH:[@,]"WENN DRUCKER OK WEITER MIT DER LEERTASTE"RJ$:J$" " R\"AUSGABE DRUCKER LUFT"fIApE$(I)"10"E$""zE$(I)"11"E$"H"E$(I)"12"E$"F"E$(I)"13"E$"F"E$(I)"14"E$"F"E8$E7$(I)"."E8$(I)E1$E1$(I)E2$(I)BA )BA(BA$,)E$(I) *BA(BA$,@)E1$(I) BA@BA$E8$ *BA(BA$,)E8$(I) *BA (BA$,)E4$(I) *BA@(BA$,@)E0$(I) BA`BA$E1$  I: XTS:: TEXTAUSGABEQ :Y@:P:P-P(Q)K1$(p(K2$))K2$", "D$GP(Q)K3$;:(K4$)P(p(K2$))"TELEFON-NR.: "K4$P:P:P:PA j $P:P.P(Q)E$8P(Q)E1$(I)", "E2$(I)BP(Q)E5$(I)LPVP(Q)E3$(I)" "E4$(I)`P:P:P,j(TN$)P(Y)"B.: "TN$:PtBB A~(BB)(E$(I)"11")P(Y)"S H "E1$(I)@(BB)(E$(I)"12")P(Y)"S F "E1$(I)C(BB)(E$(I)"13")P(Y)"S F "E1$(I)E(BB)(E$(I)"14")P(Y)"S D H"5(BB)(E$(I)"11")P(Y)"L "E2$(I)4(BB)(E$(I)"12")P(Y)"L "E2$(I)4(BB)(E$(I)"13")P(Y)"L "E2$(I).BB@P(Y)"H MZ-700 B"::P:PXZ1(Z1Z2)Xp:P(Y)Z$(X)X P:P BB <(BB)(BB@)P(Y)"M G"%BB@P:P(Y)K1$$(BBP(Y)"V G"2P:P:P:P:P: