100 POKE53281,0:POKE53280,0:PRINTCHR$(14);"":GOSUB50030:IFLZ>0THEN1000
110 PRINT"[194]ITTE WARTEN, ICH LADE...":LZ=2
120 LOAD"ZEICHEN",8,1
1000 POKE53272,31
1006 PRINT"[193][195][200][212][213][206][199]>
1010 [153]"(null)ENN (null)IE DEN STR$RUCKER (null)(null)(null)801 ODER (null)(null)(null)803"
1020 [153]"BESITZEN, M@SSEN (null)IE DIE  STR$RUCKERANPAS-
1030 PRINT"SUNG [206][201][195][200][212] VERWENDEN. [196]AS ENTSPRECHENDE
1040 [153]"(null)ARAMETERFILE BEFINDET SICH BEREITS AUF
1050 PRINT"DER [205]AGIC [196]ISK. [211]IE M@SSEN  ES  NUR  IM
1060 [153]"(null)PTIONMEN@ LADEN.
1070 PRINT"[170][196][167] - [196]RUCKERANPASSUNG VORNEHMEN
1080 [153]"+(null)THEN - (null)AGIC STR$ISK STARTEN
1090 PRINT"[194]ITTE [170][196][167] ODER [170][205][167] DR@CKEN.
1100 [161]A$:[139]A$[178]"D"[167]50100
1110 [139]A$[179][177]"M"[167]1100
1120 [151]53272,23:[153]"LOAD":[137]51320
50030 [153]"LOAD       STR$(null)(null)LEN(null)VAL(null)-ATN(null)(null)ATN(null)(null)(null)(null)CHR$(null)(null)(null)(null)CHR$(null)ATN(null)(null)"
50035 [153]"       TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
50040 [153]"       (C) 1988 BY  (null)AGIC STR$ISK 64"
50050 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
50070 [142]
50100 [151]53272,31:[141]50030
50110 [160]1:[159]1,0:S[178]5[172]4096[170]9[172]256[170]3:T[178]850:[129]I[178]T[164]T[170]28:[151]I,0:[130]
50120 [153]"PEEKITTE BEANTWORTEN (null)IE ZUR  STR$RUCKERANPAS-";
50130 [153]"SUNG DIE FOLGENDEN ASCRAGEN. STR$IE ATNNTWORTEN";
50140 [153]"ENTNEHMEN (null)IE BITTE  RIGHT$HREM  STR$RUCKERHAND-";
50150 [153]"BUCH."
50160 [153]"(null)ANN RIGHT$HR STR$RUCKER BEI CHR$RAFIKDRUCKWAIT  NUR  7";
50170 [153]"(null)ADELN ANSPRECHEN ODER 8 BZW.  MEHR  ALS";
50180 [153]"8 (WENN VORHANDEN) ?"
50190 [151]198,0:[153]"(null)IPPEN (null)IE +7THEN ODER +8THEN."
50200 [161]B$:[139]B$[179][177]"7"[175]B$[179][177]"8"[167]50200
50210 [151]T,[197](B$)
50220 [141]50030:[153]"(null)U(null) BEI CHR$RAFIKDRUCK DAS ACHTE PEEKIT  EINES";
50230 [153]"ZUM STR$RUCKER GESENDETEN CHR$RAFIKBYTES IMMER";
50240 [153]"GESETZT SEIN (BEI (null)(null)(null) NOTWENDIG) ?"
50250 [153]"(null)IPPEN (null)IE +MID$THEN F@R  'MID$A'  ODER  +(null)THEN  F@R'(null)EIN'.":[151]198,0
50260 [161]B$:[139]B$[179][177]"J"[175]B$[179][177]"N"[167]50260
50270 [139]B$[178]"J"[167][151]T[170]1,1
50280 [141]50030:[153]"(null)ELCHE (null)EKUND;RADRESSE M@SSEN (null)IE  ANGE-";
50290 [153]"BEN, DAMIT RIGHT$HR STR$RUCKERINTERFACE DIE  VOM";
50300 [153]"LENOMPUTER GESENDETEN STR$ATEN UNVER;NDERTWAIT AN";
50310 [153]"DEN STR$RUCKER @BERTR;GT?"
50320 [151]198,0:[153]"(null)EKUND;RADRESSE (0 BIS 255) > ";:[132]1,B$:[153]
50330 A[178][197](B$):A[178][181](A):[139]A[179]0[176]A[177]255[167]50280
50340 [151]T[170]2,A:[141]50030
50350 [153]"(null)EGEN (null)IE JETZT DIE (null)ENDERICHTUNG  FEST,";
50360 [153]"MIT DER  EIN  PEEKYTE  IM  CHR$RAFIKDRUCK  ZUM";
50370 [153]"STR$RUCKER GESENDET WERDEN MU(null). (null)IPPEN  (null)IE";
50380 [153]"DIE (null)ASTE +0THEN, WENN DAS  H:CHSTWERTIGSTE";
50390 [153]"PEEKIT (=128 ODER 2^7) EINES CHR$RAFIKBYTES IN";
50400 [153]"EINER  STR$RUCKZEILE  OBENWAIT  ERSCHEINT  ODER";
50410 [153]"+1THEN, WENN ES UNTENWAIT ERSCHEINT."
50420 [153]"(null)IPPEN (null)IE +0THEN ODER +1THEN.":[151]198,0
50430 [161]B$:[139]B$[179][177]"0"[175]B$[179][177]"1"[167]50430
50440 [139]B$[178]"1"[167][151]T[170]19,1
50450 [141]50030:[153]"PEEKEI DEN NUN FOLGENDEN VALINGABEN  KANN  ES";
50460 [153]"SEIN, DA(null) (null)IE PRO ASCRAGE MEHR ALS NUR EI-";
50470 [153]"NEN (null)ERT EINGEBEN  M@SSEN.  STR$IESE  (null)ERTE";
50480 [153]"WERDEN ALS (null)AHLEN VON 0 BIS 255 VERLANGT";
50490 [153]"UND M@SSEN JEWEILS MIT DER (null)ASTE  (null)VAL(null)(null)(null)(null)";
50500 [153]"ABGESCHLOSSEN WERDEN. (null)@SSEN WENIGER ALS";
50510 [153]"DIE ABGEFRAGTEN (null)ERTE EINGEGEBEN WERDEN,";
50520 [153]"SO @BERNEHMEN (null)IE  DEN  (JEWEILS  DARGE-";
50530 [153]"STELLTEN) (null)ERT (0) DURCH EINFACHES STR$R@K-";
50540 [153]"KEN DER (null)VAL(null)(null)(null)(null)-(null)ASTE, OHNE DIESE 0 DURCH";
50550 [153]"EINE ANDERE (null)AHL ZU @BERSCHREIBEN."
50560 [153]"STR$R@CKEN  (null)IE  JETZT   BITTE   IRGENDEINE(null)ASTE.
50570 POKE198,0:WAIT198,1:GOSUB50030
50580 PRINT"[215]ELCHE [215]ERTE M@SSEN [211]IE ZUM [196]RUCKER SEN-";
50590 PRINT"DEN, UM DIESEN AUF DIE [193]USGABE  VON  320";
50600 PRINT"[199]RAFIKBYTES UMZUSTELLEN? ([194]EI [205][208][211]-KOMPA-";
50610 PRINT"TIBLEN [196]RUCKERN IST DAS MEISTENS NUR EIN";
50620 PRINT"[215]ERT, N;MLICH DIE [218]AHL 8. [194]EI [197]PSONDRUK-";
50630 PRINT"KERN IST ES DIE [218]AHLENFOLGE 27,  42,  0,";
50640 PRINT"64,  1.)":POKE198,0
50650 A$="":FORI=1TO8
50660 PRINTI;"[157]. [215]ERT> 0[157]";:INPUT#1,B$:PRINT
50670 A=INT(VAL(B$)):IFA>=0ANDA<=255THEN50690
50680 PRINT"[145]                    ":PRINT"[145]";:GOTO50660
50690 A$=A$+CHR$(A):NEXTI
50700 FORI=1TO8:IFASC(MID$(A$,I,1))>0THEN50750
50710 NEXT:GOSUB50030:PRINT"[196]IE [197]INGABEN WAREN UNSINNIG. [194]ITTE  WIE-";
50720 PRINT"DERHOLEN [211]IE DIESE [197]INGABEN!":PRINT"[194]ITTE [170][210][197][212][213][210][206][167] DR@CKEN.":POKE198,0
50730 GETA$:IFA$<>CHR$(13)THEN50730
50740 GOSUB50030:GOTO50580
50750 IFASC(RIGHT$(A$,1))=0THENA$=CHR$(0)+LEFT$(A$,7):GOTO50750
50760 FORI=1TO8:POKET+19+I,ASC(MID$(A$,I,1)):NEXT
50770 GOSUB50030:PRINT"[215]ELCHE [215]ERTE M@SSEN [211]IE ZUM [196]RUCKER SEN-";
50780 PRINT"DEN, DAMIT DIESER  SEINEN  [218]EILENABSTAND";
50790 PRINT"SO EINSTELLT, DA[219] ZWISCHEN ZWEI GEDRUCK-";
50800 PRINT"TEN [218]EILEN KEIN LEERER [210]AUM ENTSTEHT?"
50810 PRINT:PRINT:POKE198,0
50820 A$="":FORI=1TO8
50830 PRINTI;"[157]. [215]ERT> 0[157]";:INPUT#1,B$:PRINT
50840 A=INT(VAL(B$)):IFA>=0ANDA<=255THEN50860
50850 PRINT"[145]                    ":PRINT"[145]";:GOTO50830
50860 A$=A$+CHR$(A):NEXTI
50870 FORI=1TO8:POKET+10+I,ASC(MID$(A$,I,1)):NEXT
50880 GOSUB50030:PRINT"[215]ELCHE [215]ERTE M@SSEN  [211]IE  SENDEN,  DAMIT";
50890 PRINT"DER [196]RUCKER NACH [199]RAFIKDRUCK  WIEDER  IN";
50900 PRINT"DEN  NORMALEN  [212]EXTDRUCKMODUS  ZUR@CKGE-";
50910 PRINT"SETZT WIRD? ([194]EI  [205][208][211]-KOMPATIBLEN  [196]RUK-";
50920 PRINT"KERN IST DER [215]ERT 15, BEI  [197]PSONDRUCKERN";
50930 PRINT"IST KEINE [197]INGABE NOTWENDIG.)"
50940 A$="":FORI=1TO6
50950 PRINTI;"[157]. [215]ERT> 0[157]";:INPUT#1,B$:PRINT
50960 A=INT(VAL(B$)):IFA>=0ANDA<=255THEN50980
50970 PRINT"[145]                    ":PRINT"[145]";:GOTO50950
50980 A$=A$+CHR$(A):NEXTI
50990 FORI=1TO6:POKET+2+I,ASC(MID$(A$,I,1)):NEXT
51000 POKET+9,13:GOSUB50030:PRINT"[205]U[219] BEI EINEM [195]ARRIAGE  [210]ETURN  (=[215]AGEN-";
51010 PRINT"R@CKLAUF, =CHR$(13)) NOCH  EIN  [204]INEFEED";
51020 PRINT"(=[208]APIERVORSCHUB,  =CHR$(10))  ANGEH;NGT";
51030 PRINT"WERDEN, DAMIT DAS [208]APIER WEITERTRANSPOR-";
51040 PRINT"TIERT WIRD?"
51050 PRINT"[212]IPPEN [211]IE [170][202][167] F@R  '[202]A'  ODER  [170][206][167]  F@R";
51060 PRINT"'[206]EIN'.":POKE198,0
51070 GETA$:IFA$<>"J"ANDA$<>"N"THEN51070
51080 IFA$="J"THENPOKET+10,10
51200 GOSUB50030
51210 PRINT"[201]HRE [197]INGABEN WERDEN GESPEICHERT.  [194]ITTE";
51220 PRINT"WARTEN [211]IE EINEN [205]OMENT.":CLOSE2
51230 OPEN2,8,2,"PAR,S,R":FORI=0TO6:GET#2,A$(I):IFA$(I)=""THENA$(I)=CHR$(0)
51235 NEXT:CLOSE2:CLOSE1:OPEN1,8,15:PRINT#1,"S:PAR"
51240 OPEN2,8,2,"PAR,S,W"
51250 FORI=0TO6:PRINT#2,A$(I);:NEXT
51260 FORI=TTOT+28:PRINT#2,CHR$(PEEK(I));:NEXT
51270 CLOSE2:PRINT"[196]IE [208]ARAMETER WURDEN  GESPEICHERT."
51280 PRINT"[205]AGIC [196]ISK JETZT LADEN ([202]/[206])?
51290 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]51290
51300 [151]53272,23:[153]"LOAD"
51310 [139]A$[178]"N"[167][128]
51320 [153]"LOADSTOPLOAD"[170][199](34)[170]"BOOT"[170][199](34)[170]",8,1"
51330 [153]"";:[151]198,1:[151]631,13