100 POKE53281,0:POKE53280,0:PRINTCHR$(14);""
110 GOSUB50030
120 PRINT"[212]IPPEN [211]IE
130 [153]"<STR$>  UM DIE STR$RUCKERANPASSUNG VORZUNEHMEN     ODER
140 PRINT"<[204]>  UM FERTIGE [196]ATEN AUS EINER [204]ISTE        ZU BENUTZEN.
150 [161]A$:[139]A$[179][177]"D"[175]A$[179][177]"L"[167]150
160 [139]A$[178]"D"[167][141]50030:[137]50100
170 [153]"LOAD";
180 [140]
190 [131]A,"(null)(null)(null) 1200",8,0,7,0,0,0,0,0,0,13,0,27,49,13,0,0,0,0,0,0
200 [131]0,0,0,0,27,203,64,1,0," "
210 [131]B,"(null)VALLEN (null)6/(null)7/(null)2200 + CHR$OERLITZ-RIGHT$NTERF.",8,0,4,0,0,0,0,0,0,13,0
220 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
230 [131]C,"(null)VALLEN (null)6/(null)7/(null)2200 + (null)IESEMANN-RIGHT$NTERF.",8,0,0,0,0,0,0,0,0,13,0
240 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
250 [131]D,"(null)VALLEN (null)6/(null)7/(null)2200 + STR$ELA-RIGHT$NTERFACE",8,0,1,0,0,0,0,0,0,13,0
260 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
265 [131]E,"(null)EIKOSHA (null)(null)180(null)LEN",7,1,0,15,0,0,0,0,0,13,10,27,51,10,0,0,0,0,0
270 [131]1,0,0,0,0,0,0,0,8,0," "
280 [131]F,"(null)KIMATE 20",7,1,0,3,2,0,0,0,0,13,0,0,0,0,0,0,0,0,0,1
290 [131]0,0,0,0,0,0,0,8,0," "
300 [131]G,"(null)VALLEN (null)LEN-8023-PEEKLEN",7,1,0,0,0,0,0,0,0,13,0,27,0,0,0,0,0,0,0,1
310 [131]0,0,0,0,0,0,0,8,0," "
320 [131]H,"(null)ECKERMANN (null)RINTER 6320",8,1,5,0,0,0,0,0,0,13,0,27,49,13,0,0,0,0,0
330 [131]0,0,0,0,27,42,0,64,1,0,"STR$IP 7.1,9.1,9.2,11.2,13.2,14.2,15.2,18.2AUF ON"
340 [131]I,"(null)(null)(null) 1000 + (null)IESEMANN-RIGHT$NTERF.",8,0,0,0,0,0,0,0,0,13,0,27,65,10
350 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
360 [131]J,"(null)(null)(null) 1000 + CHR$OERLITZ-RIGHT$NTERF.",8,0,4,0,0,0,0,0,0,13,0,27,65,10
370 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
380 [131]K,"(null)(null)(null) 1000 + STR$ELA-RIGHT$NTERFACE",8,0,1,0,0,0,0,0,0,13,0,27,65,10
390 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
400 [131]L,"VALPSON ASC(null) 85-105 + (null)IESEMANN-RIGHT$NT.",8,0,0,0,0,0,0,0,0,13,0
410 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
420 [131]M,"VALPSON ASC(null) 85-105 + CHR$OERLITZ-RIGHT$NT.",8,0,4,0,0,0,0,0,0,13,0
430 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
440 [131]N,"VALPSON ASC(null) 85-105 + STR$ELA-RIGHT$NTERF.",8,0,1,0,0,0,0,0,0,13,0
450 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
460 [131]O,"VALLITE ODER (null)EIKOSHA (null)(null)-120 (null)LEN",8,0,0,0,0,0,0,0,0,13,10,27,65,8
470 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0,"STR$IPSCHALTER 3 EINSCHALTEN"
480 [131]P,"CHR$ENERAL VALLECTRIC (null)(null)(null) 1000",8,0,1,0,0,0,0,0,0,13,0,0,0,0,0,0,27,51,24
490 [131]0,0,0,0,0,27,75,64,1,0,"STR$IPSCHALTER 1 UND 3 AN, 2 AUS."
500 [131]Q,"(null)RAESIDENT 6320",8,0,1,0,0,0,0,0,0,13,0,27,74,2,0,0,0,0,0
510 [131]0,0,0,0,27,42,0,64,1,0,"(null)EILENABSTAND AUF 1/8 (null)OLL EINSTELLEN"
520 [131]R,"(null)(null)(null) 802 MIT CHR$RAPHIC-(null)(null)(null) RIGHT$RIGHT$",8,1,7,0,0,0,0,0,0,13,10,27,3,20
530 [131]0,0,0,0,0,0,0,0,0,27,42,4,64,1,0," "
540 [131]S,"(null)ELCHERS LEN(null)80X",8,0,0,0,0,0,0,0,0,13,0,0,0,0,0,0,0,27,49,0
550 [131]0,0,0,0,27,75,64,1,0," "
560 [131]T,"(null)EIKOSHA (null)(null) 1200 (null)LEN",8,0,0,0,0,0,0,0,0,13,0,27,51,25,0,0,0,0,0
570 [131]0,0,0,0,0,27,75,64,1,0,"STR$IPSCHALTER 3 EINSCHALTEN"
580 [131]U,"(null)RAESIDENT 6313",8,1,5,0,0,0,0,0,0,13,0,27,49,13,0,0,0,0,0
590 [131]0,0,0,0,27,42,0,64,1,0,"STR$IP 7.1,9.1,9.2,11.2,13.2,14.2,15.2,18.2ON"
600 [131]V,"(null)ANASONIC (null)(null) (null)1081",8,1,0,0,0,0,0,0,0,13,0,27,0,0,0,0,0,0,0
610 [131]1,0,0,0,0,0,0,0,8,0,"STR$IP 1, 3, 5 UND 7 EINSCHALTEN"
620 [131]W,"(null)TAR (null)LEN-10",8,0,1,0,0,0,0,0,0,13,10,27,65,10,0,0,0,0,0,0
630 [131]0,0,0,27,42,0,64,1,0," "
640 [131]X,"(null)EIKOSHA (null)(null) 80 (null)LEN",8,0,0,0,0,0,0,0,0,13,10,27,51,24,0,0,0,0,0
650 [131]0,0,0,0,27,42,0,64,1,0,"STR$RUCKER IM ATN(null)LENRIGHT$RIGHT$-(null)ODUS"
660 [131]Y,"(null)(null)(null) 801/803",7,1,0,15,0,0,0,0,0,8,13,0,0,0,0,0,0,0,0,1,0,0,0,0
670 [131]0,0,0,8,0," "
1000 [129]I[178]1[164]25:[135]A$,B$:[129]J[178]0[164]28:[135]A:[130]:[135]C$
1010 [153]A$;": ";B$
1020 [139]I[179][177]19[167]1100
1030 [153]:[153]"PEEKITTE ENTSPRECHENDEN PEEKUCHSTABEN DRUECKEN";
1040 [153]"ODER (null)VAL(null)(null)(null)(null) FUER WEITERE STR$RUCKER.";
1050 [161]A$:[139]A$[178][199](13)[167][153]"LOAD";:[137]1100
1055 [139]A$[178]""[167]1050
1060 [139]A$[179]"A"[176]A$[177]"Y"[167]1050
1070 [140]:[153]:[153]"PEEKITTE WARTEN..."
1080 [135]B$:[139]A$[179][177]B$[167]1080
1090 [153]"LOAD(null)IE HABEN FOLGENDEN STR$RUCKERTYP AUSGE-   WAEHLT:"
1091 [135]A$:[153]A$:[153]"RIGHT$ST DAS RICHTIG (MID$/(null))?"
1092 [161]X$:[139]X$[179][177]"J"[175]X$[179][177]"N" [167]1092
1093 [139]X$[178]"N"[167][138]
1094 [137]1200
1100 [130]I
1110 [153]:[153]"PEEKITTE ENTSPRECHENDEN PEEKUCHSTABEN DRUECKEN";
1120 [153]"ODER (null)VAL(null)(null)(null)(null) FUER (null)EUSTART.";
1130 [161]A$:[139]A$[178][199](13)[167][138]
1135 [139]A$[178]""[167]1130
1140 [139]A$[179]"A"[176]A$[177]"Y"[167]1130
1150 [153]:[137]1070
1160 :
1200 [143] PARAMETER SCHREIBEN
1210 [153]"PEEKITTE STR$ISKETTE (null)EITE 1 EINLEGEN UND
1220 PRINT"<[210][197][212][213][210][206]> DRUECKEN."
1230 GETA$:IFA$<>CHR$(13)THEN1230
1240 PRINT"[196]IE [208]ARAMETER WERDEN GESPEICHERT..."
1250 CLOSE15:CLOSE10:OPEN15,8,15,"I":OPEN10,8,10,"#":PRINT#15,"B-P 10 0"
1260 PRINT#10,CHR$(0);CHR$(31);CHR$(0);CHR$(0);
1270 FORI=0TO28:READA:PRINT#10,CHR$(A);:NEXT
1280 PRINT#15,"U2:10 0 19 0"
1300 CLOSE10:PRINT"[198]EHLERKANAL: ";:INPUT#15,A,A$,B,C:PRINTA;A$;B;C
1310 CLOSE15:GOTO51300
50000 STOP
50030 PRINT"[147]       [196][210][213][195][203][197][210]-[193][206][208][193][211][211][213][206][199][211][208][210][207][199][210][193][205][205]"
50035 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
50040 PRINT"         (C) 1988 BY [195][208]-[214]ERLAG"
50050 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
50070 RETURN
50100 :
50110 CLOSE1:OPEN1,0:S=5*4096+9*256+3:T=850:FORI=TTOT+28:POKEI,0:NEXT
50120 PRINT"[194]ITTE BEANTWORTEN [211]IE ZUR  [196]RUCKERANPAS-";
50130 PRINT"SUNG DIE FOLGENDEN [198]RAGEN. [196]IE [193]NTWORTEN";
50140 PRINT"ENTNEHMEN [211]IE BITTE  [201]HREM  [196]RUCKERHAND-";
50150 PRINT"BUCH."
50160 PRINT"[203]ANN [201]HR [196]RUCKER BEI [199]RAFIKDRUCK[146]  NUR  7";
50170 PRINT"[206]ADELN ANSPRECHEN ODER 8 BZW.  MEHR  ALS";
50180 PRINT"8 (WENN VORHANDEN) ?"
50190 POKE198,0:PRINT"[212]IPPEN [211]IE (7) ODER (8)."
50200 GETB$:IFB$<>"7"ANDB$<>"8"THEN50200
50210 POKET,VAL(B$)
50220 GOSUB50030:PRINT"[205]USS BEI [199]RAFIKDRUCK DAS ACHTE [194]IT EINES";
50230 PRINT"ZUM [196]RUCKER GESENDETEN [199]RAFIKBYTES IMMER";
50240 PRINT"GESETZT SEIN (BEI [205][208][211] NOTWENDIG) ?"
50250 PRINT"[212]IPPEN [211]IE ([202]) ODER ([206]) ":POKE198,0
50260 GETB$:IFB$<>"J"ANDB$<>"N"THEN50260
50270 IFB$="J"THENPOKET+1,1
50280 GOSUB50030:PRINT"[215]ELCHE [211]EKUNDARADRESSE MUESSEN [211]IE ANGE-";
50290 PRINT"BEN DAMIT [201]HR  [196]RUCKERINTERFACE  DIE VOM";
50300 PRINT"[195]OMPUTER GESENDETEN [196]ATEN UNVERAENDERT[146]  ";
50310 PRINT"AN DEN [196]RUCKER UEBERTRAEGT?"
50320 POKE198,0:PRINT"[211]EKUNDAERADRESSE (0 BIS 255) > ";:INPUT#1,B$:PRINT
50330 A=VAL(B$):A=INT(A):IFA<0ORA>255THEN50280
50340 POKET+2,A:GOSUB50030
50350 PRINT"[204]EGEN [211]IE JETZT DIE [211]ENDERICHTUNG  FEST,";
50360 PRINT"MIT DER  EIN  [194]YTE  IM  [199]RAFIKDRUCK  ZUM";
50370 PRINT"[196]RUCKER GESENDET WERDEN MUSS.[212]IPPEN  [211]IE";
50380 PRINT"DIE [212]ASTE (0),WENN DAS  HOECHSTWERTIGSTE";
50390 PRINT"[194]IT (=128 ODER 2^7) EINES [199]RAFIKBYTES IN";
50400 PRINT"EINER  [196]RUCKZEILE  OBEN[146]  ERSCHEINT  ODER";
50410 PRINT"(1), WENN ES UNTEN[146] ERSCHEINT."
50420 PRINT"[212]IPPEN [211]IE (0) ODER (1).":POKE198,0
50430 GETB$:IFB$<>"0"ANDB$<>"1"THEN50430
50440 IFB$="1"THENPOKET+19,1
50450 GOSUB50030:PRINT"[194]EI DEN NUN FOLGENDEN [197]INGABEN  KANN  ES";
50460 PRINT"SEIN,DASS [211]IE PRO [198]RAGE MEHR ALS NUR EI-";
50470 PRINT"NEN [215]ERT EINGEBEN MUESSEN.  [196]IESE  [215]ERTE";
50480 PRINT"WERDEN ALS [218]AHLEN VON 0 BIS 255 VERLANGT";
50490 PRINT"UND MUESSEN JEWEILS MIT DER [212]ASTE [210][197][212][213][210][206]";
50500 PRINT"ABGESCHLOSSEN WERDEN.[205]UESSEN WENIGER ALS";
50510 PRINT"DIE ABGEFRAGTEN [215]ERTE EINGEGEBEN WERDEN,";
50520 PRINT"SO UEBERNEHMEN [211]IE  DEN (JEWEILS  DARGE-";
50530 PRINT"STELLTEN)[215]ERT(0) DURCH EINFACHES [196]RUECK-";
50540 PRINT"KEN DER [210][197][212][213][210][206]-[212]ASTE, OHNE DIESE 0 DURCH";
50550 PRINT"EINE ANDERE [218]AHL ZU UEBERSCHREIBEN."
50560 PRINT"[196]RUECKEN  [211]IE  JETZT   BITTE  IRGENDEINE[212]ASTE.
50570 [151]198,0:[146]198,1:[141]50030
50580 [153]"(null)ELCHE  (null)ERTE  MUESSEN  (null)IE  ZUM STR$RUCKER";
50590 [153]"SENDEN,UM DIESEN AUF DIE ATNUSGABE VON 320";
50600 [153]"CHR$RAFIKBYTES UMZUSTELLEN? (PEEKEI (null)(null)(null)-KOMPA-";
50610 [153]"TIBLEN STR$RUCKERN IST DAS MEISTENS NUR EIN";
50620 [153]"(null)ERT, NAEMLICH DIE (null)AHL 8.PEEKEI VALPSONDRUK-";
50630 [153]"KERN IST ES DIE (null)AHLENFOLGE:            ";
50640 [153]"27,42, 0, 64, 1, 0, 0, 0.       ":[151]198,0
50650 A$[178]"":[129]I[178]1[164]8
50660 [153]I;"CMD. (null)ERT> 0CMD";:[132]1,B$:[153]
50670 A[178][181]([197](B$)):[139]A[177][178]0[175]A[179][178]255[167]50690
50680 [153]"ON                    ":[153]"ON";:[137]50660
50690 A$[178]A$[170][199](A):[130]I
50700 [129]I[178]1[164]8:[139][198]([202](A$,I,1))[177]0[167]50750
50710 [130]:[141]50030:[153]"STR$IE VALINGABEN WAREN UNSINNIG. PEEKITTE  WIE-";
50720 [153]"DERHOLEN (null)IE DIESE VALINGABEN!":[153]"PEEKITTE ((null)VAL(null)(null)(null)(null)) DRUECKEN.":[151]198,0
50730 [161]A$:[139]A$[179][177][199](13)[167]50730
50740 [141]50030:[137]50580
50750 [139][198]([201](A$,1))[178]0[167]A$[178][199](0)[170][200](A$,7):[137]50750
50760 [129]I[178]1[164]8:[151]T[170]19[170]I,[198]([202](A$,I,1)):[130]
50770 [141]50030:[153]"(null)ELCHE  (null)ERTE  MUESSEN  (null)IE  ZUM STR$RUCKER";
50780 [153]"SENDEN,DAMIT DIESER SEINEN (null)EILENABSTAND";
50790 [153]"SO EINSTELLT,DASS ZWISCHEN ZWEI GEDRUCK-";
50800 [153]"TEN (null)EILEN KEIN LEERER (null)AUM ENTSTEHT?"
50810 [153]:[153]:[151]198,0
50820 A$[178]"":[129]I[178]1[164]8
50830 [153]I;"CMD. (null)ERT> 0CMD";:[132]1,B$:[153]
50840 A[178][181]([197](B$)):[139]A[177][178]0[175]A[179][178]255[167]50860
50850 [153]"ON                    ":[153]"ON";:[137]50830
50860 A$[178]A$[170][199](A):[130]I
50870 [129]I[178]1[164]8:[151]T[170]10[170]I,[198]([202](A$,I,1)):[130]
50880 [141]50030:[153]"(null)ELCHE (null)ERTE MUESSEN (null)IE  SENDEN,  DAMIT";
50890 [153]"DER STR$RUCKER NACH CHR$RAFIKDRUCK  WIEDER  IN";
50900 [153]"DEN  NORMALEN  (null)EXTDRUCKMODUS ZURUECKGE-";
50910 [153]"SETZT WIRD? (PEEKEI  (null)(null)(null)-KOMPATIBLEN  STR$RUK-";
50920 [153]"KERN IST DER (null)ERT 15, BEI  VALPSONDRUCKERN";
50930 [153]"IST KEINE VALINGABE NOTWENDIG.)"
50940 A$[178]"":[129]I[178]1[164]6
50950 [153]I;"CMD. (null)ERT> 0CMD";:[132]1,B$:[153]
50960 A[178][181]([197](B$)):[139]A[177][178]0[175]A[179][178]255[167]50980
50970 [153]"ON                    ":[153]"ON";:[137]50950
50980 A$[178]A$[170][199](A):[130]I
50990 [129]I[178]1[164]6:[151]T[170]2[170]I,[198]([202](A$,I,1)):[130]
51000 [151]T[170]9,13:[141]50030:[153]"(null)USS BEI EINEM LENARRIAGE  (null)ETURN (=(null)AGEN-";
51010 [153]"RUECKLAUF, =CHR$(13)) NOCH  EIN (null)INEFEED";
51020 [153]"(=(null)APIERVORSCHUB,  =CHR$(10)) ANGEHAENGT";
51030 [153]"WERDEN, DAMIT DAS (null)APIER WEITERTRANSPOR-";
51040 [153]"TIERT WIRD?"
51050 [153]"(null)IPPEN (null)IE (MID$) ODER ((null)) ":[151]198,0
51070 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]51070
51080 [139]A$[178]"J"[167][151]T[170]10,10
51200 [141]50030
51210 [153]"PEEKITTE STR$ISKETTE (null)EITE 1 EINLEGEN UND
51212 PRINT"<[210][197][212][213][210][206]> DRUECKEN."
51214 GETA$:IFA$<>CHR$(13)THEN51214
51216 PRINT"[196]IE [208]ARAMETER WERDEN GESPEICHERT..."
51218 CLOSE15:CLOSE10:OPEN15,8,15,"I":OPEN10,8,10,"#":PRINT#15,"B-P 10 0"
51220 PRINT#10,CHR$(0);CHR$(31);CHR$(0);CHR$(0);
51260 FORI=TTOT+29:PRINT#10,CHR$(PEEK(I));:NEXT
51270 PRINT#15,"U2:10 0 19 0"
51280 CLOSE10:PRINT"[198]EHLERKANAL: ";:INPUT#15,A,A$,B,C:PRINTA;A$;B;C
51290 CLOSE15
51300 PRINT"[194]ITTE STARTEN [211]IE DIE [218]EITSCHRIFT MIT:   [204][207][193][196]";CHR$(34);
51310 PRINT"[194][207][207][212]";CHR$(34);",8,1