home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-03_1989_-_de_Side_A.d64 / druckeranpassung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  137 lines

  1. 100 poke53281,0:poke53280,0:printchr$(14);"":gosub50030:iflz>0then1000
  2. 110 print"[194]itte warten, ich lade...":lz=2
  3. 120 load"zeichen",8,1
  4. 1000 poke53272,31
  5. 1006 print"[193][195][200][212][213][206][199]>
  6. 1010 [153]"(NULL)enn (NULL)ie den str$rucker (NULL)(NULL)(NULL)801 oder (NULL)(NULL)(NULL)803"
  7. 1020 [153]"besitzen, m@ssen (NULL)ie die  str$ruckeranpas-
  8. 1030 print"sung [206][201][195][200][212] verwenden. [196]as entsprechende
  9. 1040 [153]"(NULL)arameterfile befindet sich bereits auf
  10. 1050 print"der [205]agic [196]isk. [211]ie m@ssen  es  nur  im
  11. 1060 [153]"(NULL)ptionmen@ laden.
  12. 1070 print"[170][196][167] - [196]ruckeranpassung vornehmen
  13. 1080 [153]"+(NULL)then - (NULL)agic str$isk starten
  14. 1090 print"[194]itte [170][196][167] oder [170][205][167] dr@cken.
  15. 1100 [161]a$:[139]a$[178]"d"[167]50100
  16. 1110 [139]a$[179][177]"m"[167]1100
  17. 1120 [151]53272,23:[153]"load":[137]51320
  18. 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)"
  19. 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("
  20. 50040 [153]"       (c) 1988 by  (NULL)agic str$isk 64"
  21. 50050 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  22. 50070 [142]
  23. 50100 [151]53272,31:[141]50030
  24. 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]
  25. 50120 [153]"peekitte beantworten (NULL)ie zur  str$ruckeranpas-";
  26. 50130 [153]"sung die folgenden ascragen. str$ie atnntworten";
  27. 50140 [153]"entnehmen (NULL)ie bitte  right$hrem  str$ruckerhand-";
  28. 50150 [153]"buch."
  29. 50160 [153]"(NULL)ann right$hr str$rucker bei chr$rafikdruckwait  nur  7";
  30. 50170 [153]"(NULL)adeln ansprechen oder 8 bzw.  mehr  als";
  31. 50180 [153]"8 (wenn vorhanden) ?"
  32. 50190 [151]198,0:[153]"(NULL)ippen (NULL)ie +7then oder +8then."
  33. 50200 [161]b$:[139]b$[179][177]"7"[175]b$[179][177]"8"[167]50200
  34. 50210 [151]t,[197](b$)
  35. 50220 [141]50030:[153]"(NULL)u(NULL) bei chr$rafikdruck das achte peekit  eines";
  36. 50230 [153]"zum str$rucker gesendeten chr$rafikbytes immer";
  37. 50240 [153]"gesetzt sein (bei (NULL)(NULL)(NULL) notwendig) ?"
  38. 50250 [153]"(NULL)ippen (NULL)ie +mid$then f@r  'mid$a'  oder  +(NULL)then  f@r'(NULL)ein'.":[151]198,0
  39. 50260 [161]b$:[139]b$[179][177]"j"[175]b$[179][177]"n"[167]50260
  40. 50270 [139]b$[178]"j"[167][151]t[170]1,1
  41. 50280 [141]50030:[153]"(NULL)elche (NULL)ekund;radresse m@ssen (NULL)ie  ange-";
  42. 50290 [153]"ben, damit right$hr str$ruckerinterface die  vom";
  43. 50300 [153]"lenomputer gesendeten str$aten unver;ndertwait an";
  44. 50310 [153]"den str$rucker @bertr;gt?"
  45. 50320 [151]198,0:[153]"(NULL)ekund;radresse (0 bis 255) > ";:[132]1,b$:[153]
  46. 50330 a[178][197](b$):a[178][181](a):[139]a[179]0[176]a[177]255[167]50280
  47. 50340 [151]t[170]2,a:[141]50030
  48. 50350 [153]"(NULL)egen (NULL)ie jetzt die (NULL)enderichtung  fest,";
  49. 50360 [153]"mit der  ein  peekyte  im  chr$rafikdruck  zum";
  50. 50370 [153]"str$rucker gesendet werden mu(NULL). (NULL)ippen  (NULL)ie";
  51. 50380 [153]"die (NULL)aste +0then, wenn das  h:chstwertigste";
  52. 50390 [153]"peekit (=128 oder 2^7) eines chr$rafikbytes in";
  53. 50400 [153]"einer  str$ruckzeile  obenwait  erscheint  oder";
  54. 50410 [153]"+1then, wenn es untenwait erscheint."
  55. 50420 [153]"(NULL)ippen (NULL)ie +0then oder +1then.":[151]198,0
  56. 50430 [161]b$:[139]b$[179][177]"0"[175]b$[179][177]"1"[167]50430
  57. 50440 [139]b$[178]"1"[167][151]t[170]19,1
  58. 50450 [141]50030:[153]"peekei den nun folgenden valingaben  kann  es";
  59. 50460 [153]"sein, da(NULL) (NULL)ie pro ascrage mehr als nur ei-";
  60. 50470 [153]"nen (NULL)ert eingeben  m@ssen.  str$iese  (NULL)erte";
  61. 50480 [153]"werden als (NULL)ahlen von 0 bis 255 verlangt";
  62. 50490 [153]"und m@ssen jeweils mit der (NULL)aste  (NULL)val(NULL)(NULL)(NULL)(NULL)";
  63. 50500 [153]"abgeschlossen werden. (NULL)@ssen weniger als";
  64. 50510 [153]"die abgefragten (NULL)erte eingegeben werden,";
  65. 50520 [153]"so @bernehmen (NULL)ie  den  (jeweils  darge-";
  66. 50530 [153]"stellten) (NULL)ert (0) durch einfaches str$r@k-";
  67. 50540 [153]"ken der (NULL)val(NULL)(NULL)(NULL)(NULL)-(NULL)aste, ohne diese 0 durch";
  68. 50550 [153]"eine andere (NULL)ahl zu @berschreiben."
  69. 50560 [153]"str$r@cken  (NULL)ie  jetzt   bitte   irgendeine(NULL)aste.
  70. 50570 poke198,0:wait198,1:gosub50030
  71. 50580 print"[215]elche [215]erte m@ssen [211]ie zum [196]rucker sen-";
  72. 50590 print"den, um diesen auf die [193]usgabe  von  320";
  73. 50600 print"[199]rafikbytes umzustellen? ([194]ei [205][208][211]-kompa-";
  74. 50610 print"tiblen [196]ruckern ist das meistens nur ein";
  75. 50620 print"[215]ert, n;mlich die [218]ahl 8. [194]ei [197]psondruk-";
  76. 50630 print"kern ist es die [218]ahlenfolge 27,  42,  0,";
  77. 50640 print"64,  1.)":poke198,0
  78. 50650 a$="":fori=1to8
  79. 50660 printi;"[157]. [215]ert> 0[157]";:input#1,b$:print
  80. 50670 a=int(val(b$)):ifa>=0anda<=255then50690
  81. 50680 print"[145]                    ":print"[145]";:goto50660
  82. 50690 a$=a$+chr$(a):nexti
  83. 50700 fori=1to8:ifasc(mid$(a$,i,1))>0then50750
  84. 50710 next:gosub50030:print"[196]ie [197]ingaben waren unsinnig. [194]itte  wie-";
  85. 50720 print"derholen [211]ie diese [197]ingaben!":print"[194]itte [170][210][197][212][213][210][206][167] dr@cken.":poke198,0
  86. 50730 geta$:ifa$<>chr$(13)then50730
  87. 50740 gosub50030:goto50580
  88. 50750 ifasc(right$(a$,1))=0thena$=chr$(0)+left$(a$,7):goto50750
  89. 50760 fori=1to8:poket+19+i,asc(mid$(a$,i,1)):next
  90. 50770 gosub50030:print"[215]elche [215]erte m@ssen [211]ie zum [196]rucker sen-";
  91. 50780 print"den, damit dieser  seinen  [218]eilenabstand";
  92. 50790 print"so einstellt, da[219] zwischen zwei gedruck-";
  93. 50800 print"ten [218]eilen kein leerer [210]aum entsteht?"
  94. 50810 print:print:poke198,0
  95. 50820 a$="":fori=1to8
  96. 50830 printi;"[157]. [215]ert> 0[157]";:input#1,b$:print
  97. 50840 a=int(val(b$)):ifa>=0anda<=255then50860
  98. 50850 print"[145]                    ":print"[145]";:goto50830
  99. 50860 a$=a$+chr$(a):nexti
  100. 50870 fori=1to8:poket+10+i,asc(mid$(a$,i,1)):next
  101. 50880 gosub50030:print"[215]elche [215]erte m@ssen  [211]ie  senden,  damit";
  102. 50890 print"der [196]rucker nach [199]rafikdruck  wieder  in";
  103. 50900 print"den  normalen  [212]extdruckmodus  zur@ckge-";
  104. 50910 print"setzt wird? ([194]ei  [205][208][211]-kompatiblen  [196]ruk-";
  105. 50920 print"kern ist der [215]ert 15, bei  [197]psondruckern";
  106. 50930 print"ist keine [197]ingabe notwendig.)"
  107. 50940 a$="":fori=1to6
  108. 50950 printi;"[157]. [215]ert> 0[157]";:input#1,b$:print
  109. 50960 a=int(val(b$)):ifa>=0anda<=255then50980
  110. 50970 print"[145]                    ":print"[145]";:goto50950
  111. 50980 a$=a$+chr$(a):nexti
  112. 50990 fori=1to6:poket+2+i,asc(mid$(a$,i,1)):next
  113. 51000 poket+9,13:gosub50030:print"[205]u[219] bei einem [195]arriage  [210]eturn  (=[215]agen-";
  114. 51010 print"r@cklauf, =chr$(13)) noch  ein  [204]inefeed";
  115. 51020 print"(=[208]apiervorschub,  =chr$(10))  angeh;ngt";
  116. 51030 print"werden, damit das [208]apier weitertranspor-";
  117. 51040 print"tiert wird?"
  118. 51050 print"[212]ippen [211]ie [170][202][167] f@r  '[202]a'  oder  [170][206][167]  f@r";
  119. 51060 print"'[206]ein'.":poke198,0
  120. 51070 geta$:ifa$<>"j"anda$<>"n"then51070
  121. 51080 ifa$="j"thenpoket+10,10
  122. 51200 gosub50030
  123. 51210 print"[201]hre [197]ingaben werden gespeichert.  [194]itte";
  124. 51220 print"warten [211]ie einen [205]oment.":close2
  125. 51230 open2,8,2,"par,s,r":fori=0to6:get#2,a$(i):ifa$(i)=""thena$(i)=chr$(0)
  126. 51235 next:close2:close1:open1,8,15:print#1,"s:par"
  127. 51240 open2,8,2,"par,s,w"
  128. 51250 fori=0to6:print#2,a$(i);:next
  129. 51260 fori=ttot+28:print#2,chr$(peek(i));:next
  130. 51270 close2:print"[196]ie [208]arameter wurden  gespeichert."
  131. 51280 print"[205]agic [196]isk jetzt laden ([202]/[206])?
  132. 51290 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]51290
  133. 51300 [151]53272,23:[153]"load"
  134. 51310 [139]a$[178]"n"[167][128]
  135. 51320 [153]"loadstopload"[170][199](34)[170]"boot"[170][199](34)[170]",8,1"
  136. 51330 [153]"";:[151]198,1:[151]631,13
  137.