home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 February / 64er_Magazin_86-02_1986_Markt__Technik_de.d64 / mps801-druck (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  130 lines
  1. 100 print"druckroutine gp100 vc20/cbm64."
  2. 101 print"barnim koenig 8/1985"
  3. 102 print"bereichswahl startadresse."
  4. 103 print"1: cbm 64 $d000 (ohne cassette)"
  5. 104 print"2: cbm 64 $c000 (mit cassette)."
  6. 105 print"3: vc 20 3k, wenn vorhanden ($0400)"
  7. 106 print"4: vc 20 rom-bereich $a000"
  8. 107 print"5: 20 oder 64 am basic-ende."
  9. 108 inputsa:ifsa<1orsa>5then102
  10. 109 print"bitte 30 sec. warten."
  11. 110 :
  12. 111 poke828,0:ifsa=1thenpoke828,1:poke829,peek(55):poke830,peek(56):goto113
  13. 112 ifsa<5then115
  14. 113 sa=peek(56)-7:ifpeek(55)>0thensa=sa-1
  15. 114 poke56,sa:poke55,0:clr:sa=peek(56):goto118
  16. 115 ifsa=2thensa=192
  17. 116 ifsa=3thensa=4
  18. 117 ifsa=4thensa=160
  19. 118 sr=sa:ifpeek(828)thensr=208
  20. 119 sd=sa*256:p=0
  21. 120 readx:p=p+x:ifx=-1then127
  22. 121 ifx<300then126
  23. 122 ifx<600thenx=x-492+sr:goto126
  24. 123 ifpeek(828)=0thenx=peek(x):goto126
  25. 124 ifx=806thenx=89
  26. 125 ifx=807thenx=3
  27. 126 pokesd,x:sd=sd+1:goto120
  28. 127 ifp<>187301thenprint"data-fehler block 1":end
  29. 128 sd=sa*256+1024:forx=sdtosd+426:pokex,0:nextx
  30. 129 sd=sa*256+1535:p=0
  31. 130 readx:p=p+x:ifx=-1then133
  32. 131 pokesd,x:sd=sd+1:goto130
  33. 132 ifp<>26405thenprint"data-fehler block 2":end
  34. 133 :
  35. 134 input"zeichen aendern";in$:ifleft$(in$,1)<>"j"then144
  36. 135 printchr$(14)"ascii-codes fuer sonderzeichen eingeben.":sd=sa*256
  37. 136 input"ae";a:pokesd+1655,a
  38. 137 input"[193]e";a:pokesd+447,a:pokesd+761,a:pokesd+1616,a
  39. 138 input"oe";a:pokesd+1656,a
  40. 139 input"[207]e";a:pokesd+443,a:pokesd+767,a
  41. 140 input"ue";a:pokesd+1657,a
  42. 141 input"[213]e";a:pokesd+449,a:pokesd+773,a
  43. 142 input"ss";a:pokesd+1539,a:pokesd+1652,a
  44. 143 :
  45. 144 ifpeek(828)then149
  46. 145 print"an: poke806, 112 :poke807,";sa+3
  47. 146 print"aus:poke806,";peek(806);":poke807,";peek(807);"."
  48. 147 poke806,112:poke807,sa+3:goto158
  49. 148 :
  50. 149 sd=832:p=0
  51. 150 readx:p=p+x:ifx=-1then152
  52. 151 pokesd,x:sd=sd+1:goto150
  53. 152 ifp<>10030thenprint"data-fehler block 3":end
  54. 153 sys887:poke55,peek(829):poke56,peek(830):clr
  55. 154 print"an : poke806, 64  :poke807, 3"
  56. 155 print"aus: poke806,";peek(806);":poke807,";peek(807)
  57. 156 poke861,peek(806):poke862,peek(807)
  58. 157 poke806,64:poke807,3
  59. 158 print"druckroutine eingeschaltet."
  60. 159 print"new":print"?fre(0)[145][145][145][145][145][145]":end
  61. 160 :
  62. 161 data142,161,496,140,162,496,141,160,496,201,13,208,10,72,169,0,141,166
  63. 162 data496,104,76,210,492,201,10,240,242,72,173,165,496,208,36,104,201,14
  64. 163 data208,5,141,164,496,24,96,201,15,240,247,201,18,208,5,141,166,496,24
  65. 164 data96,201,146,208,10,72,169,0,141,166,496,104,24,96,104,24,201,32,144
  66. 165 data9,24,201,160,176,32,201,128,144,28,72,173,165,496,208,3,104,24,96,169
  67. 166 data18,141,166,496,104,9,64,32,139,492,169,0,141,166,496,76,199,492,201
  68. 167 data34,208,23,173,165,496,240,10,169,0,141,165,496,169,34,76,139,492,169
  69. 168 data162,234,234,234,141,165,496,72,173,164,496,201,14,208,17,72,173,163
  70. 169 data496,41,1,240,5,169,32,32,165,492,104,32,165,492,104,24,174,163,496
  71. 170 data224,80,144,12,72,32,210,492,104,234,172,162,496,174,163,496,157,0
  72. 171 data496,173,166,496,240,3,157,80,496,238,163,496,24,173,160,496,174,161
  73. 172 data496,172,162,496,96,169,0,141,167,496,141,168,496,141,170,496,169,0
  74. 173 data162,13,157,175,496,202,208,250,174,167,496,189,0,497,201,14,240,81
  75. 174 data162,9,221,254,497,240,6,202,208,248,76,21,493,138,10,10,10,141,8,493
  76. 175 data162,6,189,72,498,157,176,496,202,208,247,169,1,141,168,496,174,167
  77. 176 data496,189,1,497,162,9,221,254,497,240,6,202,208,248,76,118,493,138,10
  78. 177 data10,10,141,50,493,162,6,189,24,498,157,182,496,202,208,247,169,1,141
  79. 178 data168,496,76,118,493,189,1,497,162,9,221,254,497,240,6,202,208,248,76
  80. 179 data118,493,138,10,10,10,141,92,493,162,6,189,72,498,72,138,10,170,104
  81. 180 data157,175,496,157,176,496,72,138,74,170,104,202,208,234,169,1,141,168
  82. 181 data496,174,167,496,189,80,497,240,18,162,6,169,2,29,176,496,157,176,496
  83. 182 data202,208,245,169,1,141,168,496,174,167,496,189,81,497,240,18,162,6,169
  84. 183 data2,29,182,496,157,182,496,202,208,245,169,1,141,168,496,174,167,496
  85. 184 data189,0,496,201,14,240,113,32,186,493,76,197,493,201,93,208,2,169,62
  86. 185 data201,42,240,250,96,162,3,221,79,498,240,6,202,208,248,76,239,493,138
  87. 186 data10,10,10,24,105,80,141,223,493,162,6,189,88,498,29,176,496,157,176
  88. 187 data496,202,208,244,169,1,141,168,496,174,167,496,189,1,496,32,186,493
  89. 188 data162,3,221,79,498,240,6,202,208,248,76,103,494,138,10,10,10,24,105,80
  90. 189 data141,18,494,162,6,189,104,498,29,182,496,157,182,496,202,208,244,169
  91. 190 data1,141,168,496,76,103,494,189,1,496,32,186,493,162,3,221,79,498,240
  92. 191 data6,202,208,248,76,103,494,138,10,10,10,24,105,80,141,69,494,162,6,189
  93. 192 data104,498,72,138,10,170,104,72,29,175,496,157,175,496,104,29,176,496
  94. 193 data157,176,496,72,138,74,170,104,202,208,226,169,1,141,168,496,173,168
  95. 194 data496,208,27,238,170,496,238,167,496,238,167,496,173,167,496,201,80,176
  96. 195 data3,76,221,492,169,8,32,806,807,76,183,494,173,170,496,240,15,169,14
  97. 196 data32,806,807,169,32,32,806,807,206,170,496,208,248,169,8,32,806,807,162
  98. 197 data1,189,176,496,9,128,32,806,807,232,224,13,208,243,162,0,142,168,496
  99. 198 data76,111,494,169,0,141,167,496,169,13,32,806,807,173,169,496,32,806,807
  100. 199 data169,17,32,806,807,174,167,496,189,0,496,201,14,240,2,169,15,205,169
  101. 200 data496,240,6,141,169,496,32,806,807,201,14,208,4,238,167,496,232,189,0
  102. 201 data496,162,14,221,111,498,240,74,202,208,248,201,62,208,2,169,193,201
  103. 202 data93,208,2,169,207,201,42,208,2,169,213,32,806,807,238,167,496,24,173
  104. 203 data167,496,205,163,496,144,179,169,8,32,806,807,169,0,141,163,496,141
  105. 204 data167,496,162,160,189,255,495,157,255,496,169,0,157,255,495,202,208,242
  106. 205 data24,169,13,32,806,807,76,200,492,138,10,10,10,24,105,120,141,83,495
  107. 206 data169,8,32,806,807,162,1,138,72,189,232,498,32,806,807,174,169,496,224
  108. 207 data14,208,3,32,806,807,104,170,232,224,8,208,231,173,169,496,76,10,495
  109. 208 data0,72,165,154,201,4,240,4,104,76,806,807,104,76,0,492,-1
  110. 209 :
  111. 210 data71,74,80,81,92,44,59,162,89,0,128,132,132,132,131,128,0,0,128,130,132
  112. 211 data131,128,128,0,0,135,128,128,128,128,128,0,0,128,128,128,128,135,128
  113. 212 data0,0,135,128,128,128,128,128,0,0,128,130,129,128,128,128,0,0,128,130
  114. 213 data129,128,128,128,0,0,128,128,131,128,131,128,0,0,128,132,132,131,128
  115. 214 data128,0,62,39,34,0,0,0,0,0,0,128,160,128,160,128,128,0,0,128,128,192
  116. 215 data160,128,128,0,0,128,224,128,224,128,128,0,71,74,80,81,92,44,59,60,91
  117. 216 data64,39,162,34,89,0,0,0,184,196,196,168,252,128,0,0,128,128,128,253,128
  118. 217 data128,0,0,252,168,196,196,184,128,0,0,184,196,196,168,252,128,0,0,254
  119. 218 data201,201,182,128,128,0,0,128,128,192,128,128,128,0,0,128,128,208,128
  120. 219 data128,128,0,0,160,213,212,189,192,128,0,0,184,197,196,197,184,128,0,0
  121. 220 data189,192,192,189,192,128,0,0,128,129,128,128,128,128,0,0,128,128,192
  122. 221 data128,192,128,0,0,128,129,128,129,128,128,0,0,188,192,160,252,128,128
  123. 222 data0,66,65,82,78,73,77,32,32,75,79,69,78,73,71,56,53,-1
  124. 223 :
  125. 224 data72,165,154,201,4,240,8,104,108,93,3,234,234,234,234,104,32,98,3,32
  126. 225 data0,208,76,111,3,32,111,3,32,202,241,76,98,3,72,165,1,141,113,3,41,252
  127. 226 data120,133,1,104,96,72,169,55,133,1,104,88,96,32,98,3,165,56,234,141,132
  128. 227 data3,162,0,189,0,128,157,0,208,232,208,247,173,135,3,201,214,240,9,238,132
  129. 228 data3,238,135,3,76,130,3,76,111,3,-1
  130.