home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 September / 64er_Magazin_93-09_1993_Markt__Technik_de_Side_A.d64 / druckmaster (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  217 lines
  1. 1 poke808,225
  2. 100 clr:poke53280,3:poke53281,14:printchr$(147);chr$(14);:print"[144]";
  3. 101 print"[146][144]       [196]rucker - [194]efehle (9-[206]adler)     ";
  4. 102 print"       [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]     ";
  5. 103 print"_ [196]rucker-[210]eset      z [203]anal feststellen";
  6. 104 print"a [208]ica [196]raft         b [197]lite [196]raft      ";
  7. 105 print"c [208]ica[206][204][209] [195]ourier    d [197]lite[206][204][209] [195]ourier ";
  8. 106 print"e [208]ica[206][204][209] [211]anserif   f [197]lite[206][204][209] [211]anserif";
  9. 107 print"g [208]ica[206][204][209] [207]rator1    h [197]lite[206][204][209] [207]rator1 ";
  10. 108 print"i [208]ica[206][204][209] [207]rator2    j [197]lite[206][204][209] [207]rator2 ";
  11. 109 print"                                        ";
  12. 110 print"k kursiv             l [208]ica schmal      ";
  13. 111 print"m [197]lite schmal       n breit            ";
  14. 112 print"o proportional       p fett             ";
  15. 113 print"q schatten           r unterschreichen  ";
  16. 114 print"s ueberschreichen    t klein            ";
  17. 115 print"u doppelt gross      v vierfach gross   ";
  18. 116 print"                                        ";
  19. 117 print"w [210]aender stellen    x 0 ohne [211]trich    ";
  20. 118 print"y 0 mit [211]trich       1 [218]eilenabstaende  ";
  21. 119 print"2 [218]eilenvorschub     3 [194]lattvorschub    ";
  22. 120 print"4 [208]apiersensor aus                      ";
  23. 121 print"                                        ";
  24. 122 print"                                        ";
  25. 123 print"                                        ";
  26. 124 print"            ^ [208]rogrammende              ";
  27. 125 print"                       ([195]) [202].[203]amrath   ";
  28. 1000 open1,4,1
  29. 1001 geta$:ifa$=""then1001
  30. 1002 onasc(a$)-48goto 2350,2400,2450,2500
  31. 1004 onasc(a$)-64goto 1050,1100,1150,1200,1250,1300,1350,1400,1450,1500
  32. 1005 onasc(a$)-74goto 1550,1600,1650,1700,1750,1800,1850,1900,1950,2000
  33. 1006 onasc(a$)-84goto 2050,2100,2150,2200,2250,2300
  34. 1007 ifa$="_"thengosub4040
  35. 1008 ifa$="^"thengoto5000
  36. 1047 close1
  37. 1048 gosub3000
  38. 1049 goto1000
  39. 1050 rem pica draft
  40. 1051 print#1,chr$(27);chr$(81);chr$(80);
  41. 1052 t$="[208]ica [196]raft"
  42. 1054 gosub4044
  43. 1058 goto1047
  44. 1100 rem elite draft
  45. 1102 t$="[197]lite [196]raft"
  46. 1104 print#1,chr$(27);chr$(77);
  47. 1106 print#1,chr$(27);chr$(81);chr$(96);
  48. 1108 goto1047
  49. 1149 rem pica nlq courier
  50. 1150 print#1,chr$(27);chr$(81);chr$(80);
  51. 1151 print#1,chr$(27);chr$(80);
  52. 1152 print#1,chr$(27);chr$(120);chr$(1);
  53. 1153 print#1,chr$(27);chr$(107);chr$(0);
  54. 1155 t$="[208]ica [206][204][209] [195]ourier"
  55. 1156 goto1047
  56. 1200 rem elite nlq courier
  57. 1202 print#1,chr$(27);chr$(77);
  58. 1204 print#1,chr$(27);chr$(81);chr$(96);
  59. 1206 print#1,chr$(27);chr$(120);chr$(1);
  60. 1207 print#1,chr$(27);chr$(107);chr$(0);
  61. 1208 t$="[197]lite [206][204][209] [195]ourier"
  62. 1212 goto1047
  63. 1250 rem pica nlq sanserif
  64. 1251 print#1,chr$(27);chr$(80);
  65. 1252 print#1,chr$(27);chr$(120);chr$(1);
  66. 1253 print#1,chr$(27);chr$(107);chr$(1);
  67. 1254 print#1,chr$(27);chr$(81);chr$(80);
  68. 1258 t$="[208]ica [206][204][209] [211]anserif"
  69. 1260 goto1047
  70. 1300 rem elite nlq sanserif
  71. 1301 print#1,chr$(27);chr$(77);
  72. 1302 print#1,chr$(27);chr$(120);chr$(1);
  73. 1303 print#1,chr$(27);chr$(107);chr$(1);
  74. 1304 print#1,chr$(27);chr$(81);chr$(96);
  75. 1308 t$="[197]lite [206][204][209] [211]anserif"
  76. 1310 goto1047
  77. 1350 rem pica nlq orator 1
  78. 1351 print#1,chr$(27);chr$(80);
  79. 1352 print#1,chr$(27);chr$(120);chr$(1);
  80. 1353 print#1,chr$(27);chr$(107);chr$(2);
  81. 1354 print#1,chr$(27);chr$(81);chr$(80);
  82. 1358 t$="[208]ica [206][204][209] [207]rator 1"
  83. 1360 goto1047
  84. 1400 rem elite nlq orator 1
  85. 1401 print#1,chr$(27);chr$(77);
  86. 1402 print#1,chr$(27);chr$(120);chr$(1);
  87. 1403 print#1,chr$(27);chr$(107);chr$(2);
  88. 1404 print#1,chr$(27);chr$(81);chr$(96);
  89. 1408 t$="[197]lite [206][204][209] [207]rator 1"
  90. 1410 goto1047
  91. 1450 rem pica nlq orator 2
  92. 1451 print#1,chr$(27);chr$(80);
  93. 1452 print#1,chr$(27);chr$(120);chr$(1);
  94. 1453 print#1,chr$(27);chr$(107);chr$(3);
  95. 1454 print#1,chr$(27);chr$(81);chr$(80);
  96. 1458 t$="[208]ica [206][204][209] [207]rator 2"
  97. 1460 goto1047
  98. 1500 rem elite nlq orator 2
  99. 1501 print#1,chr$(27);chr$(77);
  100. 1502 print#1,chr$(27);chr$(120);chr$(1);
  101. 1503 print#1,chr$(27);chr$(107);chr$(3);
  102. 1504 print#1,chr$(27);chr$(81);chr$(96);
  103. 1508 t$="[197]lite [206][204][209] [207]rator 2"
  104. 1510 goto1047
  105. 1550 rem kursiv
  106. 1552 print#1,chr$(27);chr$(52);
  107. 1558 t$=t$+" [203]ursiv"
  108. 1560 goto1047
  109. 1600 rem pica schmal
  110. 1601 print#1,chr$(27);chr$(15);
  111. 1602 print#1,chr$(27);chr$(80);
  112. 1604 print#1,chr$(27);chr$(81);chr$(137);
  113. 1608 t$=t$+" schmal"
  114. 1610 goto1047
  115. 1650 rem elite schmal
  116. 1651 print#1,chr$(27);chr$(15);
  117. 1652 print#1,chr$(27);chr$(77);
  118. 1654 print#1,chr$(27);chr$(81);chr$(160);
  119. 1658 t$=t$+" schmal"
  120. 1660 goto1047
  121. 1700 rem breit
  122. 1701 print#1,chr$(27);chr$(87);chr$(1);
  123. 1702 print#1,chr$(27);chr$(81);chr$(40);
  124. 1708 t$=t$+" breit"
  125. 1710 goto1047
  126. 1750 rem proportional
  127. 1751 print#1,chr$(27);chr$(112);chr$(1);
  128. 1758 t$=t$+" proportional"
  129. 1760 goto1047
  130. 1800 rem fett
  131. 1801 print#1,chr$(27);chr$(69);
  132. 1808 t$=t$+" fett"
  133. 1810 goto1047
  134. 1850 rem schatten
  135. 1851 print#1,chr$(27);chr$(71);
  136. 1858 t$=t$+" schatten"
  137. 1860 goto1047
  138. 1900 rem unterstreichen
  139. 1901 print#1,chr$(27);chr$(45);chr$(1);
  140. 1908 t$=t$+" unterstreichen"
  141. 1910 goto1047
  142. 1950 rem ueberstreichen
  143. 1951 print#1,chr$(27);chr$(95);chr$(1);
  144. 1958 t$=t$+" ueberstreichen"
  145. 1960 goto1047
  146. 2000 rem kleinschrift
  147. 2001 print#1,chr$(27);chr$(77);chr$(15);
  148. 2002 print#1,chr$(27);chr$(83);chr$(0);
  149. 2003 print#1,chr$(27);chr$(65);chr$(6);
  150. 2004 print#1,chr$(27);chr$(81);chr$(160);
  151. 2008 t$=t$+" klein"
  152. 2010 goto1047
  153. 2050 rem doppelt gross
  154. 2051 print#1,chr$(27);chr$(104);chr$(1);
  155. 2058 t$=t$+" doppelt gross"
  156. 2060 goto1047
  157. 2100 rem vierfach gross
  158. 2101 print#1,chr$(27);chr$(104);chr$(2);
  159. 2108 t$=t$+" vierfach gross"
  160. 2110 goto1047
  161. 2150 rem raender
  162. 2151 print"[147]":print:print:input"linker [210]and";lr
  163. 2152 print:print:input"rechter [210]and";rr
  164. 2153 print#1,chr$(27);chr$(88);chr$(lr);chr$(rr);
  165. 2158 t$=t$+" linker [210]and ="+str$(lr)+" rechter [210]and ="+str$(rr)
  166. 2160 close1:print"[147]":open1,4,2:print#1,t$:close1:goto100
  167. 2200 rem 0 ohne schraegstrich
  168. 2201 print#1,chr$(27);chr$(126);chr$(0);
  169. 2208 t$=t$+" [206]ull=0"
  170. 2210 goto1047
  171. 2250 rem 0 mit schraegstrich
  172. 2251 print#1,chr$(27);chr$(126);chr$(1);
  173. 2258 t$=t$+" [206]ull=0"
  174. 2260 goto1047
  175. 2300 rem sa feststellen
  176. 2301 close1:print"[147]"
  177. 2304 w$="[215]arnung !!! [204]oeschen nur durch          [193]usschalten des [196]ruckers !!!"
  178. 2305 v$="[215]elchen [203]anal feststellen?"
  179. 2306 print:printw$:printv$
  180. 2307 inputb
  181. 2310 open1,4,b:close1:open1,4,3
  182. 2315 print#1,"ok"
  183. 2320 close1
  184. 2330 print"[147]":open1,4,2:print#1,t$:close1:goto100
  185. 2350 rem zeilenabstand n/72 inch
  186. 2351 print"[147]":print:print
  187. 2352 input"welchen [218]eilenabstand (0-85)";z
  188. 2358 print#1,chr$(27);chr$(65);chr$(z);
  189. 2360 t$="zeilenabstand von "+str$(z)+"/72 inch"
  190. 2362 print#1,t$
  191. 2371 close1:print"[147]":open1,4,2:print#1,t$:close1:goto100
  192. 2400 rem zeilenvorschub
  193. 2408 print#1,chr$(10);:t$=""
  194. 2410 goto1047
  195. 2450 rem blattvorschub
  196. 2458 print#1,chr$(12);:t$=""
  197. 2460 goto1047
  198. 2500 rem papierendesensor aus
  199. 2508 print#1,chr$(27);chr$(56);:t$=""
  200. 2510 goto1047
  201. 3000 rem testdruck
  202. 3001 open1,4,2
  203. 3002 print#1,t$
  204. 3900 close1
  205. 3999 goto1000
  206. 4040 rem drucker reset
  207. 4042 print#1,chr$(7);
  208. 4043 t$=""
  209. 4044 print#1,chr$(27);chr$(64);
  210. 4046 goto1047
  211. 5000 rem ende
  212. 5002 print"[147]":print:print:print:print:print"[211]icher ? (j/n):";
  213. 5004 geta$:ifa$=""then5004
  214. 5006 ifa$="n"then:run
  215. 5008 ifa$="j"then:sys64738
  216. 5010 rem (c) j.kamrath 1992
  217.