home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-10_1988_-_de_Side_A.d64 / druckeranpassung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  123 lines
  1. 100 poke53281,0:poke53280,0:printchr$(14);"":gosub50030:iflz>0then50100
  2. 110 print"[194]itte warten, ich lade...":lz=2
  3. 120 load"zeichen",8,1
  4. 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]"
  5. 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]"
  6. 50040 print"       (c) 1988 by  [205]agic [196]isk 64"
  7. 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]"
  8. 50070 return
  9. 50100 poke53272,31:gosub50030
  10. 50110 close1:open1,0:s=5*4096+9*256+3:t=850:fori=ttot+28:pokei,0:next
  11. 50120 print"[194]itte beantworten [211]ie zur  [196]ruckeranpas-";
  12. 50130 print"sung die folgenden [198]ragen. [196]ie [193]ntworten";
  13. 50140 print"entnehmen [211]ie bitte  [201]hrem  [196]ruckerhand-";
  14. 50150 print"buch."
  15. 50160 print"[203]ann [201]hr [196]rucker bei [199]rafikdruck[146]  nur  7";
  16. 50170 print"[206]adeln ansprechen oder 8 bzw.  mehr  als";
  17. 50180 print"8 (wenn vorhanden) ?"
  18. 50190 poke198,0:print"[212]ippen [211]ie [170]7[167] oder [170]8[167]."
  19. 50200 getb$:ifb$<>"7"andb$<>"8"then50200
  20. 50210 poket,val(b$)
  21. 50220 gosub50030:print"[205]u[219] bei [199]rafikdruck das achte [194]it  eines";
  22. 50230 print"zum [196]rucker gesendeten [199]rafikbytes immer";
  23. 50240 print"gesetzt sein (bei [205][208][211] notwendig) ?"
  24. 50250 print"[212]ippen [211]ie [170][202][167] f@r  '[202]a'  oder  [170][206][167]  f@r'[206]ein'.":poke198,0
  25. 50260 getb$:ifb$<>"j"andb$<>"n"then50260
  26. 50270 ifb$="j"thenpoket+1,1
  27. 50280 gosub50030:print"[215]elche [211]ekund;radresse m@ssen [211]ie  ange-";
  28. 50290 print"ben, damit [201]hr [196]ruckerinterface die  vom";
  29. 50300 print"[195]omputer gesendeten [196]aten unver;ndert[146] an";
  30. 50310 print"den [196]rucker @bertr;gt?"
  31. 50320 poke198,0:print"[211]ekund;radresse (0 bis 255) > ";:input#1,b$:print
  32. 50330 a=val(b$):a=int(a):ifa<0ora>255then50280
  33. 50340 poket+2,a:gosub50030
  34. 50350 print"[204]egen [211]ie jetzt die [211]enderichtung  fest,";
  35. 50360 print"mit der  ein  [194]yte  im  [199]rafikdruck  zum";
  36. 50370 print"[196]rucker gesendet werden mu[219]. [212]ippen  [211]ie";
  37. 50380 print"die [212]aste [170]0[167], wenn das  h:chstwertigste";
  38. 50390 print"[194]it (=128 oder 2^7) eines [199]rafikbytes in";
  39. 50400 print"einer  [196]ruckzeile  oben[146]  erscheint  oder";
  40. 50410 print"[170]1[167], wenn es unten[146] erscheint."
  41. 50420 print"[212]ippen [211]ie [170]0[167] oder [170]1[167].":poke198,0
  42. 50430 getb$:ifb$<>"0"andb$<>"1"then50430
  43. 50440 ifb$="1"thenpoket+19,1
  44. 50450 gosub50030:print"[194]ei den nun folgenden [197]ingaben  kann  es";
  45. 50460 print"sein, da[219] [211]ie pro [198]rage mehr als nur ei-";
  46. 50470 print"nen [215]ert eingeben  m@ssen.  [196]iese  [215]erte";
  47. 50480 print"werden als [218]ahlen von 0 bis 255 verlangt";
  48. 50490 print"und m@ssen jeweils mit der [212]aste  [210][197][212][213][210][206]";
  49. 50500 print"abgeschlossen werden. [205]@ssen weniger als";
  50. 50510 print"die abgefragten [215]erte eingegeben werden,";
  51. 50520 print"so @bernehmen [211]ie  den  (jeweils  darge-";
  52. 50530 print"stellten) [215]ert (0) durch einfaches [196]r@k-";
  53. 50540 print"ken der [210][197][212][213][210][206]-[212]aste, ohne diese 0 durch";
  54. 50550 print"eine andere [218]ahl zu @berschreiben."
  55. 50560 print"[196]r@cken  [211]ie  jetzt   bitte   irgendeine[212]aste.
  56. 50570 [151]198,0:[146]198,1:[141]50030
  57. 50580 [153]"(NULL)elche (NULL)erte m@ssen (NULL)ie zum str$rucker sen-";
  58. 50590 [153]"den, um diesen auf die atnusgabe  von  320";
  59. 50600 [153]"chr$rafikbytes umzustellen? (peekei (NULL)(NULL)(NULL)-kompa-";
  60. 50610 [153]"tiblen str$ruckern ist das meistens nur ein";
  61. 50620 [153]"(NULL)ert, n;mlich die (NULL)ahl 8. peekei valpsondruk-";
  62. 50630 [153]"kern ist es die (NULL)ahlenfolge 27,  42,  0,";
  63. 50640 [153]"64,  1.)":[151]198,0
  64. 50650 a$[178]"":[129]i[178]1[164]8
  65. 50660 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
  66. 50670 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50690
  67. 50680 [153]"on                    ":[153]"on";:[137]50660
  68. 50690 a$[178]a$[170][199](a):[130]i
  69. 50700 [129]i[178]1[164]8:[139][198]([202](a$,i,1))[177]0[167]50750
  70. 50710 [130]:[141]50030:[153]"str$ie valingaben waren unsinnig. peekitte  wie-";
  71. 50720 [153]"derholen (NULL)ie diese valingaben!":[153]"peekitte +(NULL)val(NULL)(NULL)(NULL)(NULL)then dr@cken.":[151]198,0
  72. 50730 [161]a$:[139]a$[179][177][199](13)[167]50730
  73. 50740 [141]50030:[137]50580
  74. 50750 [139][198]([201](a$,1))[178]0[167]a$[178][199](0)[170][200](a$,7):[137]50750
  75. 50760 [129]i[178]1[164]8:[151]t[170]19[170]i,[198]([202](a$,i,1)):[130]
  76. 50770 [141]50030:[153]"(NULL)elche (NULL)erte m@ssen (NULL)ie zum str$rucker sen-";
  77. 50780 [153]"den, damit dieser  seinen  (NULL)eilenabstand";
  78. 50790 [153]"so einstellt, da(NULL) zwischen zwei gedruck-";
  79. 50800 [153]"ten (NULL)eilen kein leerer (NULL)aum entsteht?"
  80. 50810 [153]:[153]:[151]198,0
  81. 50820 a$[178]"":[129]i[178]1[164]8
  82. 50830 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
  83. 50840 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50860
  84. 50850 [153]"on                    ":[153]"on";:[137]50830
  85. 50860 a$[178]a$[170][199](a):[130]i
  86. 50870 [129]i[178]1[164]8:[151]t[170]10[170]i,[198]([202](a$,i,1)):[130]
  87. 50880 [141]50030:[153]"(NULL)elche (NULL)erte m@ssen  (NULL)ie  senden,  damit";
  88. 50890 [153]"der str$rucker nach chr$rafikdruck  wieder  in";
  89. 50900 [153]"den  normalen  (NULL)extdruckmodus  zur@ckge-";
  90. 50910 [153]"setzt wird? (peekei  (NULL)(NULL)(NULL)-kompatiblen  str$ruk-";
  91. 50920 [153]"kern ist der (NULL)ert 15, bei  valpsondruckern";
  92. 50930 [153]"ist keine valingabe notwendig.)"
  93. 50940 a$[178]"":[129]i[178]1[164]6
  94. 50950 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
  95. 50960 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50980
  96. 50970 [153]"on                    ":[153]"on";:[137]50950
  97. 50980 a$[178]a$[170][199](a):[130]i
  98. 50990 [129]i[178]1[164]6:[151]t[170]2[170]i,[198]([202](a$,i,1)):[130]
  99. 51000 [151]t[170]9,13:[141]50030:[153]"(NULL)u(NULL) bei einem lenarriage  (NULL)eturn  (=(NULL)agen-";
  100. 51010 [153]"r@cklauf, =chr$(13)) noch  ein  (NULL)inefeed";
  101. 51020 [153]"(=(NULL)apiervorschub,  =chr$(10))  angeh;ngt";
  102. 51030 [153]"werden, damit das (NULL)apier weitertranspor-";
  103. 51040 [153]"tiert wird?"
  104. 51050 [153]"(NULL)ippen (NULL)ie +mid$then f@r  'mid$a'  oder  +(NULL)then  f@r";
  105. 51060 [153]"'(NULL)ein'.":[151]198,0
  106. 51070 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]51070
  107. 51080 [139]a$[178]"j"[167][151]t[170]10,10
  108. 51200 [141]50030
  109. 51210 [153]"right$hre valingaben werden gespeichert.  peekitte";
  110. 51220 [153]"warten (NULL)ie einen (NULL)oment.":[160]2
  111. 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)
  112. 51235 [130]:[160]2:[160]1:[159]1,8,15:[152]1,"s:par"
  113. 51240 [159]2,8,2,"par,s,w"
  114. 51250 [129]i[178]0[164]6:[152]2,a$(i);:[130]
  115. 51260 [129]i[178]t[164]t[170]28:[152]2,[199]([194](i));:[130]
  116. 51270 [160]2:[153]"str$ie (NULL)arameter wurden  gespeichert."
  117. 51280 [153]"(NULL)agic str$isk jetzt laden (mid$/(NULL))?
  118. 51290 geta$:ifa$<>"j"anda$<>"n"then51290
  119. 51300 poke53272,23:print"[147]"
  120. 51310 ifa$="n"thenend
  121. 51320 print"[147][144]load"+chr$(34)+"boot"+chr$(34)+",8,1"
  122. 51330 print"";:poke198,1:poke631,13
  123.