home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-05_1990_-_de_Side_A.d64 / druckeranpassung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  211 lines

  1. 100 poke53281,0:poke53280,0:printchr$(14);""
  2. 110 gosub50030
  3. 120 print"[212]ippen [211]ie
  4. 130 [153]"<str$>  um die str$ruckeranpassung vorzunehmen     oder
  5. 140 print"<[204]>  um fertige [196]aten aus einer [204]iste        zu benutzen.
  6. 150 [161]a$:[139]a$[179][177]"d"[175]a$[179][177]"l"[167]150
  7. 160 [139]a$[178]"d"[167][141]50030:[137]50100
  8. 170 [153]"load";
  9. 180 [140]
  10. 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
  11. 200 [131]0,0,0,0,27,203,64,1,0," "
  12. 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
  13. 220 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
  14. 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
  15. 240 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
  16. 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
  17. 260 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
  18. 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
  19. 270 [131]1,0,0,0,0,0,0,0,8,0," "
  20. 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
  21. 290 [131]0,0,0,0,0,0,0,8,0," "
  22. 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
  23. 310 [131]0,0,0,0,0,0,0,8,0," "
  24. 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
  25. 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"
  26. 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
  27. 350 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
  28. 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
  29. 370 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
  30. 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
  31. 390 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
  32. 400 [131]l,"valpson asc(NULL) 85-105 + (NULL)iesemann-right$nt.",8,0,0,0,0,0,0,0,0,13,0
  33. 410 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
  34. 420 [131]m,"valpson asc(NULL) 85-105 + chr$oerlitz-right$nt.",8,0,4,0,0,0,0,0,0,13,0
  35. 430 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
  36. 440 [131]n,"valpson asc(NULL) 85-105 + str$ela-right$nterf.",8,0,1,0,0,0,0,0,0,13,0
  37. 450 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
  38. 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
  39. 470 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0,"str$ipschalter 3 einschalten"
  40. 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
  41. 490 [131]0,0,0,0,0,27,75,64,1,0,"str$ipschalter 1 und 3 an, 2 aus."
  42. 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
  43. 510 [131]0,0,0,0,27,42,0,64,1,0,"(NULL)eilenabstand auf 1/8 (NULL)oll einstellen"
  44. 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
  45. 530 [131]0,0,0,0,0,0,0,0,0,27,42,4,64,1,0," "
  46. 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
  47. 550 [131]0,0,0,0,27,75,64,1,0," "
  48. 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
  49. 570 [131]0,0,0,0,0,27,75,64,1,0,"str$ipschalter 3 einschalten"
  50. 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
  51. 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"
  52. 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
  53. 610 [131]1,0,0,0,0,0,0,0,8,0,"str$ip 1, 3, 5 und 7 einschalten"
  54. 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
  55. 630 [131]0,0,0,27,42,0,64,1,0," "
  56. 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
  57. 650 [131]0,0,0,0,27,42,0,64,1,0,"str$rucker im atn(NULL)lenright$right$-(NULL)odus"
  58. 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
  59. 670 [131]0,0,0,8,0," "
  60. 1000 [129]i[178]1[164]25:[135]a$,b$:[129]j[178]0[164]28:[135]a:[130]:[135]c$
  61. 1010 [153]a$;": ";b$
  62. 1020 [139]i[179][177]19[167]1100
  63. 1030 [153]:[153]"peekitte entsprechenden peekuchstaben druecken";
  64. 1040 [153]"oder (NULL)val(NULL)(NULL)(NULL)(NULL) fuer weitere str$rucker.";
  65. 1050 [161]a$:[139]a$[178][199](13)[167][153]"load";:[137]1100
  66. 1055 [139]a$[178]""[167]1050
  67. 1060 [139]a$[179]"a"[176]a$[177]"y"[167]1050
  68. 1070 [140]:[153]:[153]"peekitte warten..."
  69. 1080 [135]b$:[139]a$[179][177]b$[167]1080
  70. 1090 [153]"load(NULL)ie haben folgenden str$ruckertyp ausge-   waehlt:"
  71. 1091 [135]a$:[153]a$:[153]"right$st das richtig (mid$/(NULL))?"
  72. 1092 [161]x$:[139]x$[179][177]"j"[175]x$[179][177]"n" [167]1092
  73. 1093 [139]x$[178]"n"[167][138]
  74. 1094 [137]1200
  75. 1100 [130]i
  76. 1110 [153]:[153]"peekitte entsprechenden peekuchstaben druecken";
  77. 1120 [153]"oder (NULL)val(NULL)(NULL)(NULL)(NULL) fuer (NULL)eustart.";
  78. 1130 [161]a$:[139]a$[178][199](13)[167][138]
  79. 1135 [139]a$[178]""[167]1130
  80. 1140 [139]a$[179]"a"[176]a$[177]"y"[167]1130
  81. 1150 [153]:[137]1070
  82. 1160 :
  83. 1200 [143] parameter schreiben
  84. 1210 [153]"peekitte str$iskette (NULL)eite 1 einlegen und
  85. 1220 print"<[210][197][212][213][210][206]> druecken."
  86. 1230 geta$:ifa$<>chr$(13)then1230
  87. 1240 print"[196]ie [208]arameter werden gespeichert..."
  88. 1250 close15:close10:open15,8,15,"i":open10,8,10,"#":print#15,"b-p 10 0"
  89. 1260 print#10,chr$(0);chr$(31);chr$(0);chr$(0);
  90. 1270 fori=0to28:reada:print#10,chr$(a);:next
  91. 1280 print#15,"u2:10 0 19 0"
  92. 1300 close10:print"[198]ehlerkanal: ";:input#15,a,a$,b,c:printa;a$;b;c
  93. 1310 close15:goto51300
  94. 50000 stop
  95. 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]"
  96. 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]"
  97. 50040 print"         (c) 1988 by [195][208]-[214]erlag"
  98. 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]"
  99. 50070 return
  100. 50100 :
  101. 50110 close1:open1,0:s=5*4096+9*256+3:t=850:fori=ttot+28:pokei,0:next
  102. 50120 print"[194]itte beantworten [211]ie zur  [196]ruckeranpas-";
  103. 50130 print"sung die folgenden [198]ragen. [196]ie [193]ntworten";
  104. 50140 print"entnehmen [211]ie bitte  [201]hrem  [196]ruckerhand-";
  105. 50150 print"buch."
  106. 50160 print"[203]ann [201]hr [196]rucker bei [199]rafikdruck[146]  nur  7";
  107. 50170 print"[206]adeln ansprechen oder 8 bzw.  mehr  als";
  108. 50180 print"8 (wenn vorhanden) ?"
  109. 50190 poke198,0:print"[212]ippen [211]ie (7) oder (8)."
  110. 50200 getb$:ifb$<>"7"andb$<>"8"then50200
  111. 50210 poket,val(b$)
  112. 50220 gosub50030:print"[205]uss bei [199]rafikdruck das achte [194]it eines";
  113. 50230 print"zum [196]rucker gesendeten [199]rafikbytes immer";
  114. 50240 print"gesetzt sein (bei [205][208][211] notwendig) ?"
  115. 50250 print"[212]ippen [211]ie ([202]) oder ([206]) ":poke198,0
  116. 50260 getb$:ifb$<>"j"andb$<>"n"then50260
  117. 50270 ifb$="j"thenpoket+1,1
  118. 50280 gosub50030:print"[215]elche [211]ekundaradresse muessen [211]ie ange-";
  119. 50290 print"ben damit [201]hr  [196]ruckerinterface  die vom";
  120. 50300 print"[195]omputer gesendeten [196]aten unveraendert[146]  ";
  121. 50310 print"an den [196]rucker uebertraegt?"
  122. 50320 poke198,0:print"[211]ekundaeradresse (0 bis 255) > ";:input#1,b$:print
  123. 50330 a=val(b$):a=int(a):ifa<0ora>255then50280
  124. 50340 poket+2,a:gosub50030
  125. 50350 print"[204]egen [211]ie jetzt die [211]enderichtung  fest,";
  126. 50360 print"mit der  ein  [194]yte  im  [199]rafikdruck  zum";
  127. 50370 print"[196]rucker gesendet werden muss.[212]ippen  [211]ie";
  128. 50380 print"die [212]aste (0),wenn das  hoechstwertigste";
  129. 50390 print"[194]it (=128 oder 2^7) eines [199]rafikbytes in";
  130. 50400 print"einer  [196]ruckzeile  oben[146]  erscheint  oder";
  131. 50410 print"(1), wenn es unten[146] erscheint."
  132. 50420 print"[212]ippen [211]ie (0) oder (1).":poke198,0
  133. 50430 getb$:ifb$<>"0"andb$<>"1"then50430
  134. 50440 ifb$="1"thenpoket+19,1
  135. 50450 gosub50030:print"[194]ei den nun folgenden [197]ingaben  kann  es";
  136. 50460 print"sein,dass [211]ie pro [198]rage mehr als nur ei-";
  137. 50470 print"nen [215]ert eingeben muessen.  [196]iese  [215]erte";
  138. 50480 print"werden als [218]ahlen von 0 bis 255 verlangt";
  139. 50490 print"und muessen jeweils mit der [212]aste [210][197][212][213][210][206]";
  140. 50500 print"abgeschlossen werden.[205]uessen weniger als";
  141. 50510 print"die abgefragten [215]erte eingegeben werden,";
  142. 50520 print"so uebernehmen [211]ie  den (jeweils  darge-";
  143. 50530 print"stellten)[215]ert(0) durch einfaches [196]rueck-";
  144. 50540 print"ken der [210][197][212][213][210][206]-[212]aste, ohne diese 0 durch";
  145. 50550 print"eine andere [218]ahl zu ueberschreiben."
  146. 50560 print"[196]ruecken  [211]ie  jetzt   bitte  irgendeine[212]aste.
  147. 50570 [151]198,0:[146]198,1:[141]50030
  148. 50580 [153]"(NULL)elche  (NULL)erte  muessen  (NULL)ie  zum str$rucker";
  149. 50590 [153]"senden,um diesen auf die atnusgabe von 320";
  150. 50600 [153]"chr$rafikbytes umzustellen? (peekei (NULL)(NULL)(NULL)-kompa-";
  151. 50610 [153]"tiblen str$ruckern ist das meistens nur ein";
  152. 50620 [153]"(NULL)ert, naemlich die (NULL)ahl 8.peekei valpsondruk-";
  153. 50630 [153]"kern ist es die (NULL)ahlenfolge:            ";
  154. 50640 [153]"27,42, 0, 64, 1, 0, 0, 0.       ":[151]198,0
  155. 50650 a$[178]"":[129]i[178]1[164]8
  156. 50660 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
  157. 50670 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50690
  158. 50680 [153]"on                    ":[153]"on";:[137]50660
  159. 50690 a$[178]a$[170][199](a):[130]i
  160. 50700 [129]i[178]1[164]8:[139][198]([202](a$,i,1))[177]0[167]50750
  161. 50710 [130]:[141]50030:[153]"str$ie valingaben waren unsinnig. peekitte  wie-";
  162. 50720 [153]"derholen (NULL)ie diese valingaben!":[153]"peekitte ((NULL)val(NULL)(NULL)(NULL)(NULL)) druecken.":[151]198,0
  163. 50730 [161]a$:[139]a$[179][177][199](13)[167]50730
  164. 50740 [141]50030:[137]50580
  165. 50750 [139][198]([201](a$,1))[178]0[167]a$[178][199](0)[170][200](a$,7):[137]50750
  166. 50760 [129]i[178]1[164]8:[151]t[170]19[170]i,[198]([202](a$,i,1)):[130]
  167. 50770 [141]50030:[153]"(NULL)elche  (NULL)erte  muessen  (NULL)ie  zum str$rucker";
  168. 50780 [153]"senden,damit dieser seinen (NULL)eilenabstand";
  169. 50790 [153]"so einstellt,dass zwischen zwei gedruck-";
  170. 50800 [153]"ten (NULL)eilen kein leerer (NULL)aum entsteht?"
  171. 50810 [153]:[153]:[151]198,0
  172. 50820 a$[178]"":[129]i[178]1[164]8
  173. 50830 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
  174. 50840 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50860
  175. 50850 [153]"on                    ":[153]"on";:[137]50830
  176. 50860 a$[178]a$[170][199](a):[130]i
  177. 50870 [129]i[178]1[164]8:[151]t[170]10[170]i,[198]([202](a$,i,1)):[130]
  178. 50880 [141]50030:[153]"(NULL)elche (NULL)erte muessen (NULL)ie  senden,  damit";
  179. 50890 [153]"der str$rucker nach chr$rafikdruck  wieder  in";
  180. 50900 [153]"den  normalen  (NULL)extdruckmodus zurueckge-";
  181. 50910 [153]"setzt wird? (peekei  (NULL)(NULL)(NULL)-kompatiblen  str$ruk-";
  182. 50920 [153]"kern ist der (NULL)ert 15, bei  valpsondruckern";
  183. 50930 [153]"ist keine valingabe notwendig.)"
  184. 50940 a$[178]"":[129]i[178]1[164]6
  185. 50950 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
  186. 50960 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50980
  187. 50970 [153]"on                    ":[153]"on";:[137]50950
  188. 50980 a$[178]a$[170][199](a):[130]i
  189. 50990 [129]i[178]1[164]6:[151]t[170]2[170]i,[198]([202](a$,i,1)):[130]
  190. 51000 [151]t[170]9,13:[141]50030:[153]"(NULL)uss bei einem lenarriage  (NULL)eturn (=(NULL)agen-";
  191. 51010 [153]"ruecklauf, =chr$(13)) noch  ein (NULL)inefeed";
  192. 51020 [153]"(=(NULL)apiervorschub,  =chr$(10)) angehaengt";
  193. 51030 [153]"werden, damit das (NULL)apier weitertranspor-";
  194. 51040 [153]"tiert wird?"
  195. 51050 [153]"(NULL)ippen (NULL)ie (mid$) oder ((NULL)) ":[151]198,0
  196. 51070 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]51070
  197. 51080 [139]a$[178]"j"[167][151]t[170]10,10
  198. 51200 [141]50030
  199. 51210 [153]"peekitte str$iskette (NULL)eite 1 einlegen und
  200. 51212 print"<[210][197][212][213][210][206]> druecken."
  201. 51214 geta$:ifa$<>chr$(13)then51214
  202. 51216 print"[196]ie [208]arameter werden gespeichert..."
  203. 51218 close15:close10:open15,8,15,"i":open10,8,10,"#":print#15,"b-p 10 0"
  204. 51220 print#10,chr$(0);chr$(31);chr$(0);chr$(0);
  205. 51260 fori=ttot+29:print#10,chr$(peek(i));:next
  206. 51270 print#15,"u2:10 0 19 0"
  207. 51280 close10:print"[198]ehlerkanal: ";:input#15,a,a$,b,c:printa;a$;b;c
  208. 51290 close15
  209. 51300 print"[194]itte starten [211]ie die [218]eitschrift mit:   [204][207][193][196]";chr$(34);
  210. 51310 print"[194][207][207][212]";chr$(34);",8,1
  211.