70001 ### 6-zeiliger Notendruck ###TLA17: normaler LinienAbstandhZZ6: 6 zeiligSA100: SystemAbstand1050:5000 *** 6-zeiliges Notenblatt ***$0,31,4,25:7:.XA38:YA208:XE203:YE2088 J0 175 35: Anzahl der LiniensystemeKB I0 12 3: Abstand der NotenlinienzeilenfLXA,YAJI,XE,YEJI,0nV:t` ### 7-zeiliger Notendruck ###LA17:ZZ7:SA1002030:5000 *** 7-zeiliges Notenblatt ***0,31,4,25:7:XA38:YA236:XE203:YE236-  J0 210 35? I0 12 3X XA,YAJI,XE,YEJI`*:f4 ### 8-zeiliger Notendruck ### LA15: enger LinienAbstand ZZ8: 8 zeilig SA80: SystemAbstand 3050:5000 *** 8-zeiliges Notenblatt ***$ 0,31,4,25:7:C XA38:YA213:XE203:YE213W J0 175 25h I0 8 2 XA,YAJI,XE,YEJI,0& :0  ### 9-zeiliger Notendruck ###LA15:ZZ9:SA803050:5000 *** 9-zeiliges Notenblatt ***0,31,4,25:7:5XA38:YA221:XE203:YE221I J0 200 25Z I0 8 2uXA,YAJI,XE,YEJI,0}: ### DRUCKROUTINE f. K 6320 ###(4,26);16;"D R U C K T"D0: Durchlauf d.Notenlinienysteme  DZZ 5130: ZeilenZ{hlerH (D11,26);0,6;D1:(D11,28);0,6;".";" System"l #2(27);"l";(0): linker Rand  L1 5: Anzahl der Linien #2(27);"3";(LA);:LinienAbstand:(17)=normal (15)=eng  I1 80: Anzahl der Zeichen #2(27);"-";(1);"_";: Art der Zeichen$ :] #2(10);(27);"3";(SA): SystemAbstand (LINE FEED)m DD1:5030 (4,26);7,6;"F E R T I G":10:3 #2(27);"@";:R}ckstellen des Druckers (Neuinitialisierung) 7000 p ::::: Gebrauchshinweise ::::: z0,31,0,39:; 0,31,21,39:0,7::1,31,22,39:S "Das Programm ist"l "f}r die ROBOTRON-" "Drucker K 6313-25" "mit Einzelblatt" "eingestellt."  "Der linke Rand" "betr{gt etwa 5mm," "der rechte Rand" "etwa 2mm." :- "Blatt einziehen:"B "im 6-zeiligen"Z "Modus = 4cm }ber"q "die Abri~kante," $"im 7 - 8-zeiligen" ."Modus = 1cm }ber" 8"die Abri~kante," B"im 9-zeiligen" L"Modus bis zur" V"Abri~kante." `: j"Beliebige Taste"* t"dr}cken...!!!"0 ~K ;7;"Mit ENTER-Taste"g ;7;"ins Men} zur}ck."  %%%%% Notenblattwechsel %%%%% 2,30,1,20:0,6::0,31,0,39 168,1,168,254:1,1,1,254:1,1,168,1:1,254,168,254XA8:YA208:XE164:YE2081080&E1$: E1$""6350; E1$(13)7000W2,30,1,20::0,31,0,39uXA8:YA236:XE164:YE2362060E2$: E2$""6400  E2$(13)70002,30,1,20::0,31,0,39XA8:YA216:XE164:YE216(30802E3$: E3$""6450< E3$(13)70009F2,30,1,20::0,31,0,39WPXA8:YA224:XE164:YE224aZ4060ydE4$: E4$""6500n E4$(13)7000x6300X Copyright199O J}rgen Ziergiebelb0,31,0,39:0,6:l I1 30 5v 16,206I,295,206I5(4,3);" N O T E N L I N I E N D R U C K "T(10,5);"Bitte eingeben:"y(13,5);"6 zeilig - normal-> 1"(15,5);"7 zeilig - normal-> 2"(17,5);"8 zeilig - eng -> 3"(19,5);"9 zeilig - eng -> 4" (21,5);"Gebrauchshinweise-> 5"2(23,5);"Programm-Ende -> 0"j(27,5);7;"Eingabe:":(29,9);"1, 2, 3, 4 oder 5"}29,28:7: NL NL5 NL0 29,29 NL5 NL0 :7120 NL1 7160,1000,2000,3000,4000,6000"}29,28:7: NL