home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8602.d64 / mps801-druck (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.