N!w!w'! !- 0CLSQUICKyZB(14253):Z30:14249,254:14251,238 *********************************** ** ZEICHENGENERATOR ** *A* ` by T.J{ger (1988) *i#* 2000 NEUBRANDENBURG *(* HUMBOLDTSTR.49 *-* *2**********************************765<I16:X:14591I,X:A0,3,13,29,13,0)d7,1:406:Xn:12);"ZEICHENGENERATOR":12);(16,"-")s:2);0,7;"1";:"=ZEICHENSATZBEGINN EINSTELLEN"x:2);0,7;"2";:"=ZEICHEN EDITIEREN":2);0,7;"3";:"=ZEICHENSATZ ANZEIGEN":"2);0,7;"4";:"=ZEICHENSATZ ABSPEICHERN ALS DATA-"44);"ZEILEN"m:2);0,7;"5";:"=ZEICHENSATZ ABSPEICHERN ALS MA-"4);"SCHINENCODE":2);0,7;"6";:"=ENDE"(28,0);"!!! 'F1'-TASTE=HAUPTMENUE NACH BREAK !!!"::2);0,7;"?";X$:X$""210X$"1"X$"6"2107(8);0,7;X$:5:406HX$"3"Z31y(X$,"123456")1500,1000,4000,5000,6000,300100+**6=ENDE**,(14,12);"AUF WIEDERSEHEN !":ZB186ZB19115004000:(40,(95)) 12,20,1,9::I18:(8,"."): 1170 1250* Z0:S0B Z,S:Z$:;7,7;Z$Y $X(509):X01060g .SSS:ZZZz 8X8S0SS1 BX9S7SS1 LX10Z7ZZ1 VX11Z0ZZ1 `X241100 jX88Z,S:(127):1050 tX46X32Z,S:".":1050 ~X13Z,S::2000- ZZ,SS:Z$:1050C **ERKLAERUNGEN**e 20,31,0,39:11);(29,(95)) "* CURSORTASTEN STEUERN ";7;" " :"* 'X'-TASTE SETZT-->";(127) :"* '.'ODER 'SPACE'-TASTE LOESCHEN ";(127) :"* 'ENTER'-TASTE BEENDET EINGABE") :"* 'F1'-TASTE-->MENUE"O 88,168,88,88,7:319,168,319,88,7` 12,20,1,9:q **ABFRAGE** 12,19,12,38:NR0: 0,0:"CHR$-NUMMER(128-159)";:X$:NR(X$) NR128NR159:1260 N1NR 2,1:0,7;"N";:"=NEU ";:0,7;"A";% "=AENDERN -> ";0,7;"?": X$:X$""1310D #2,22g (X$"N"0,7;X$:12,20,1,9: -X$"A"1310:Ԟ0,7;X$ 2N1N1128:IZB25632768(N18) <12,20,1,9:ZEICHENDARSTELLEN FZ07 PD(IZ) ZS701 dDD2 nD(D)Z,S:(127); xD(D)( S,Z. P **1=ZEICHENSATZ EINSTELLEN** :" ZEICHENSATZ (CHR$ 128-159) BEGINN"::" AB:"; ;5);"1= 47616-47871 (BA00-BAFF)" :;5);"2= 47872-48127 (BB00-BBFF)":;5);"3= 48128-48383 (BC00-BCFF)"*:;5);"4= 48384-48639 (BD00-BDFF)"S:;5);"5= 48640-48895 (BE00-BEFF)"|:;5);"6= 48896-49151 (BF00-BFFF)"":5);"?";6X$:X$""1590@X$"1"X$"6"1590J(8);X$:ZB185(X$)T14253,ZB:5:**ABFRAGE**12,19,12,3842,0:(2);:"ZEICHEN RICHTIG (J/N)? ";IX$:X$""2020lX$"N"(2):12,20,1,9:1160X$"J"2020:ԞX$ NRNR128:IZB25632768(NR8)*3000412,19,12,39:4,8>7,7;(NR128)H6,0:"WEITERE ZEICHEN (J/N)? ";RX$:X$""2130&\X$"J"10108fX$"N"2130@pX$FzU 12,20,1,9` Z07h D0v S701 Z,S (127)3070 DD2(7S) S (IZ),D Z ANZEIGEN406:"ZEICHENSATZ(128-159) AB";X(14253)256%X;"BIS";X255 0I03;C18KXI8C127WC,I10c(X);XlC,I{Z30411015,7:"MENUE-->BELIEBIGE TASTE"(509)04100Z30:DATA-ABSPEICHERNZB186ZB1911500406:/6);"ABSPEICHERN ALS DATA-ZEILEN":6);(27,"-")t:"*DER ZEICHENSATZ WIRD IN DATA-ZEILEN AUF KASETTE AUSGE";"LAGERT""*DIE ANFANGSZEILENNUMMER MUSS VOR DEM ABSPEICHERN FESTGELEGT ";"WERDEN" "*DIE SCHRITTWEITE BETRAEGT 2"V"*DAS EINLESEN IN DAS ZIEHLPROGRAMM ER- FOLGT MIT LOAD#1'DATA'"\"*DER ZEICHENSATZ KANN DANN IM ZIEHLPRO- GRAMM AN DIE VORGESEHENE";" ADRESSE":" GEPOKT WERDEN" (40,".")">DATA-ZEILEN AB ZEILENNUMMER:";Z">RICHTIG(J/N)";0 X$:X$""5130AX$"N"5000SX$"J"5130[(X$v2AZB25632768:EA255<">RECORDER-AUFNAHME STARTEN!";X$FO#1"DATA"PBAZ#1Z;"DATA";dA$((A)):A$(A$,2,((A$)1)):#1A$;:AA1nAE5270xAB8((AB)8)52600#1",";:5220D#1:ZZ2:5210Q#1:O#1WxpZB186ZB1911500:406:z:11);"ABSPEICHERN ALS MC":11);(18,"-"):" *DER ZEICHENSATZ WIRD ALS MC-PROGRAMM"" AUF KASETTE AUSGEGEBEN"&" ER KANN MIT 'BLOAD' ODER UEBER CAOS"I" MIT 'LOAD' GELADEN WERDEN"w:" *DIE SYSTEMVARIABLEN (CCTL) MUESSEN"" ENTSPRECHEND EINGESTELLT WERDEN":(40,"."):" >NAME:";NA$:NA$""(11);(2);(11);:6080:" >RECORDER-AUFNAME STARTEN";X$!AG14208,AG,54IAG1,2:AG2,0:AG3,ZB`AG4,0:AG5,ZB1{33,7,0,205,30,240,2016150I06:N:I,N:I$I1(NA$):6I,((NA$,I)):I.08G4,0:AG5,ZB1{33,7,0,205,30,240,201