100 POKE53281,0:POKE53280,0:PRINTCHR$(14);"":GOSUB50030:IFLZ>0THEN50100
110 PRINT"[194]ITTE WARTEN, ICH LADE...":LZ=2
120 LOAD"ZEICHEN",8,1
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  [205]AGIC [196]ISK 64"
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 POKE53272,31:GOSUB50030
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 [170]7[167] ODER [170]8[167]."
50200 GETB$:IFB$<>"7"ANDB$<>"8"THEN50200
50210 POKET,VAL(B$)
50220 GOSUB50030:PRINT"[205]U[219] 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 [170][202][167] F@R  '[202]A'  ODER  [170][206][167]  F@R'[206]EIN'.":POKE198,0
50260 GETB$:IFB$<>"J"ANDB$<>"N"THEN50260
50270 IFB$="J"THENPOKET+1,1
50280 GOSUB50030:PRINT"[215]ELCHE [211]EKUND;RADRESSE M@SSEN [211]IE  ANGE-";
50290 PRINT"BEN, DAMIT [201]HR [196]RUCKERINTERFACE DIE  VOM";
50300 PRINT"[195]OMPUTER GESENDETEN [196]ATEN UNVER;NDERT[146] AN";
50310 PRINT"DEN [196]RUCKER @BERTR;GT?"
50320 POKE198,0:PRINT"[211]EKUND;RADRESSE (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 MU[219]. [212]IPPEN  [211]IE";
50380 PRINT"DIE [212]ASTE [170]0[167], WENN DAS  H:CHSTWERTIGSTE";
50390 PRINT"[194]IT (=128 ODER 2^7) EINES [199]RAFIKBYTES IN";
50400 PRINT"EINER  [196]RUCKZEILE  OBEN[146]  ERSCHEINT  ODER";
50410 PRINT"[170]1[167], WENN ES UNTEN[146] ERSCHEINT."
50420 PRINT"[212]IPPEN [211]IE [170]0[167] ODER [170]1[167].":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, DA[219] [211]IE PRO [198]RAGE MEHR ALS NUR EI-";
50470 PRINT"NEN [215]ERT EINGEBEN  M@SSEN.  [196]IESE  [215]ERTE";
50480 PRINT"WERDEN ALS [218]AHLEN VON 0 BIS 255 VERLANGT";
50490 PRINT"UND M@SSEN JEWEILS MIT DER [212]ASTE  [210][197][212][213][210][206]";
50500 PRINT"ABGESCHLOSSEN WERDEN. [205]@SSEN WENIGER ALS";
50510 PRINT"DIE ABGEFRAGTEN [215]ERTE EINGEGEBEN WERDEN,";
50520 PRINT"SO @BERNEHMEN [211]IE  DEN  (JEWEILS  DARGE-";
50530 PRINT"STELLTEN) [215]ERT (0) DURCH EINFACHES [196]R@K-";
50540 PRINT"KEN DER [210][197][212][213][210][206]-[212]ASTE, OHNE DIESE 0 DURCH";
50550 PRINT"EINE ANDERE [218]AHL ZU @BERSCHREIBEN."
50560 PRINT"[196]R@CKEN  [211]IE  JETZT   BITTE   IRGENDEINE[212]ASTE.
50570 [151]198,0:[146]198,1:[141]50030
50580 [153]"(null)ELCHE (null)ERTE M@SSEN (null)IE ZUM STR$RUCKER SEN-";
50590 [153]"DEN, 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, N;MLICH DIE (null)AHL 8. PEEKEI VALPSONDRUK-";
50630 [153]"KERN IST ES DIE (null)AHLENFOLGE 27,  42,  0,";
50640 [153]"64,  1.)":[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)THEN DR@CKEN.":[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 M@SSEN (null)IE ZUM STR$RUCKER SEN-";
50780 [153]"DEN, DAMIT DIESER  SEINEN  (null)EILENABSTAND";
50790 [153]"SO EINSTELLT, DA(null) 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 M@SSEN  (null)IE  SENDEN,  DAMIT";
50890 [153]"DER STR$RUCKER NACH CHR$RAFIKDRUCK  WIEDER  IN";
50900 [153]"DEN  NORMALEN  (null)EXTDRUCKMODUS  ZUR@CKGE-";
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)U(null) BEI EINEM LENARRIAGE  (null)ETURN  (=(null)AGEN-";
51010 [153]"R@CKLAUF, =CHR$(13)) NOCH  EIN  (null)INEFEED";
51020 [153]"(=(null)APIERVORSCHUB,  =CHR$(10))  ANGEH;NGT";
51030 [153]"WERDEN, DAMIT DAS (null)APIER WEITERTRANSPOR-";
51040 [153]"TIERT WIRD?"
51050 [153]"(null)IPPEN (null)IE +MID$THEN F@R  'MID$A'  ODER  +(null)THEN  F@R";
51060 [153]"'(null)EIN'.":[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]"RIGHT$HRE VALINGABEN WERDEN GESPEICHERT.  PEEKITTE";
51220 [153]"WARTEN (null)IE EINEN (null)OMENT.":[160]2
51230 [159]2,8,2,"PAR,S,R":[129]I[178]0[164]6:[161]#2,A$(I):[139]A$(I)[178]""[167]A$(I)[178][199](0)
51235 [130]:[160]2:[160]1:[159]1,8,15:[152]1,"S:PAR"
51240 [159]2,8,2,"PAR,S,W"
51250 [129]I[178]0[164]6:[152]2,A$(I);:[130]
51260 [129]I[178]T[164]T[170]28:[152]2,[199]([194](I));:[130]
51270 [160]2:[153]"STR$IE (null)ARAMETER WURDEN  GESPEICHERT."
51280 [153]"(null)AGIC STR$ISK JETZT LADEN (MID$/(null))?
51290 GETA$:IFA$<>"J"ANDA$<>"N"THEN51290
51300 POKE53272,23:PRINT"[147]"
51310 IFA$="N"THENEND
51320 PRINT"[147][144]LOAD"+CHR$(34)+"BOOT"+CHR$(34)+",8,1"
51330 PRINT"";:POKE198,1:POKE631,13