home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_A.d64 / blz (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  262 lines
  1. 5000 b1$=left$(bz$,2):b2$=mid$(bz$,4,3):b3$=mid$(bz$,3,4):b4$=left$(bz$,3)
  2. 5001 b5$=left$(bz$,1):b6$=mid$(bz$,4,1)
  3. 5002 ifb6$="0"thenc2$="[204][218][194]
  4. 5003 [139]b6$[178]"1"[167]c2$[178]"(NULL)ostgiroamt
  5. 5004 ifb6$="2"orb6$="3"thenc2$="[208]rivatbank
  6. 5005 [139]b6$[178]"4"[167]c2$[178]"lenommerzbank
  7. 5006 ifb6$="5"thenc2$="[211]parkasse
  8. 5007 [139]b6$[178]"6"[167]c2$[178]"(NULL)aiffeisenbank
  9. 5008 ifb6$="7"thenc2$="[196]eutsche [194]ank
  10. 5009 [139]b6$[178]"8"[167]c2$[178]"str$resdner peekank
  11. 5010 ifb6$="9"thenc2$="[214]olksbank
  12. 5014 [139]b2$[178]"101"[167]c2$[178]"peekfchr$
  13. 5018 ifb2$="107"thenc2$="[196]eutsche [211]par & [203]reditbank
  14. 5020 [139]b2$[178]"108"[167]c2$[178]"allgem. elsaessische peekank
  15. 5026 ifb2$="200"thenc2$="[200]ypobank
  16. 5028 [139]b2$[178]"202"[167]c2$[178]"peekayer. (NULL)ereinsbank
  17. 5030 ifb2$="204"thenc2$="[215]estmister [194]ank
  18. 5032 [139]b2$[178]"205"[167]c2$[178]"peekank fuer (NULL)ozialwirtschaft
  19. 5040 ifb2$="300"thenc2$="[214]ereins- und [215]estbank
  20. 5042 [139]b2$[178]"301"[167]c2$[178]"peekankhaus (NULL)ax asclessa
  21. 5044 ifb2$="302"thenc2$="[212]axis [194]ank
  22. 5046 [139]b2$[178]"303"[167]c2$[178]"(NULL)euschelbank
  23. 5048 ifb2$="304"thenc2$="[194]ankhaus [205]erck & [195]o
  24. 5050 [139]b2$[178]"306"[167]c2$[178]"peekankhaus atnufhaeuser
  25. 5052 ifb2$="308"thenc2$="[205]affeibank
  26. 5056 [139]b2$[178]"330"[167]c2$[178]"(NULL)chmidbank
  27. 5066 ifb2$="500"thenc2$="[204]andesbank [199]irozentrale
  28. 5068 [139]b2$[178]"501"[167]c2$[178]"chr$irokasse
  29. 5070 ifb2$="514"thenc2$="[203]reis- & [211]tadtsparkasse
  30. 5072 [139]b2$[178]"521"[167]c2$[178]"(NULL)reissparkasse
  31. 5080 ifb2$="604"thenc2$="[211]par- & [196]arlehenskasse
  32. 5082 [139]b2$[178]"605"[167]c2$[178]"(NULL)par- & (NULL)reditbank
  33. 5084 ifb2$="626"thenc2$="[214]olksbank
  34. 5086 [139]b2$[178]"628"[167]c2$[178]"(NULL)olks- & (NULL)aiffeisenbank
  35. 5088 ifb2$="693"thenc2$="evang. [211]par- & [203]reditbank
  36. 5097 [139]b2$[178]"901"[167]c2$[178]"(NULL)ekobank
  37. 5098 ifb2$="906"thenc2$="[196]tsch. [193]potheker- & [193]erztebank
  38. 5100 [139]b5$[178]"0"[167]c1$[178]"atnusland
  39. 5102 ifb5$="1"thenc1$="[194]erlin
  40. 5104 [139]b5$[178]"2"[167]c1$[178]"left$amburg
  41. 5106 ifb5$="3"thenc1$="[196]uesseldorf
  42. 5108 [139]b5$[178]"4"[167]c1$[178]"(NULL)uenster
  43. 5110 ifb5$="5"thenc1$="[198]rankfurt
  44. 5112 [139]b5$[178]"6"[167]c1$[178]"(NULL)tuttgart
  45. 5114 ifb5$="7"thenc1$="[205]uenchen
  46. 5200 [139]b1$[178]"21"[167]c1$[178]"(NULL)iel
  47. 5203 ifb1$="23"thenc1$="[204]uebeck
  48. 5204 [139]b1$[178]"24"[167]c1$[178]"(NULL)ueneburg
  49. 5205 ifb1$="25"thenc1$="[200]annover
  50. 5206 [139]b1$[178]"26"[167]c1$[178]"chr$oettingen
  51. 5207 ifb1$="27"thenc1$="[194]raunschweig
  52. 5208 [139]b1$[178]"28"[167]c1$[178]"(NULL)ldenburg
  53. 5209 ifb1$="29"thenc1$="[194]remen
  54. 5231 [139]b1$[178]"31"[167]c1$[178]"(NULL)oenchengladbach
  55. 5232 ifb1$="32"thenc1$="[203]refeld
  56. 5233 [139]b1$[178]"33"[167]c1$[178]"(NULL)uppertal
  57. 5234 ifb1$="34"thenc1$="[210]emscheid
  58. 5235 [139]b1$[178]"35"[167]c1$[178]"str$uisburg
  59. 5236 ifb1$="36"thenc1$="[197]ssen
  60. 5237 [139]b1$[178]"37"[167]c1$[178]"(NULL)oeln
  61. 5238 ifb1$="38"thenc1$="[194]onn
  62. 5239 [139]b1$[178]"39"[167]c1$[178]"atnachen
  63. 5261 ifb1$="41"thenc1$="[200]amm
  64. 5262 [139]b1$[178]"42"[167]c1$[178]"chr$elsenkirchen
  65. 5263 ifb1$="43"thenc1$="[194]ochum
  66. 5264 [139]b1$[178]"44"[167]c1$[178]"str$ortmund
  67. 5265 ifb1$="45"thenc1$="[200]agen
  68. 5266 [139]b1$[178]"46"[167]c1$[178]"(NULL)iegen
  69. 5268 ifb1$="48"thenc1$="[194]ielefeld
  70. 5269 [139]b1$[178]"49"[167]c1$[178]"(NULL)inden
  71. 5271 ifb1$="51"thenc1$="[215]iesbaden
  72. 5272 [139]b1$[178]"52"[167]c1$[178]"(NULL)assel
  73. 5273 ifb1$="53"thenc1$="[198]ulda
  74. 5274 [139]b1$[178]"54"[167]c1$[178]"(NULL)aiserslautern
  75. 5275 ifb1$="55"thenc1$="[205]ainz
  76. 5276 [139]b1$[178]"56"[167]c1$[178]"peekad (NULL)reuznach
  77. 5277 ifb1$="57"thenc1$="[203]oblenz
  78. 5279 [139]b1$[178]"59"[167]c1$[178]"(NULL)aarbruecken
  79. 5282 ifb1$="61"thenc1$="[199]oeppingen
  80. 5283 [139]b1$[178]"62"[167]c1$[178]"left$eilbronn
  81. 5284 ifb1$="63"thenc1$="[213]lm
  82. 5285 [139]b1$[178]"64"[167]c1$[178]"(NULL)eutlingen
  83. 5286 ifb1$="65"thenc1$="[210]avensberg
  84. 5287 [139]b1$[178]"66"[167]c1$[178]"(NULL)arlsruhe
  85. 5288 ifb1$="67"thenc1$="[205]annheim
  86. 5289 [139]b1$[178]"68"[167]c1$[178]"ascreiburg
  87. 5290 ifb1$="69"thenc1$="[203]onstanz
  88. 5291 [139]b1$[178]"71"[167]c1$[178]"peekad (NULL)eichenhall
  89. 5292 ifb1$="72"thenc1$="[193]ugsburg
  90. 5293 [139]b1$[178]"73"[167]c1$[178]"(NULL)lm
  91. 5294 ifb1$="74"thenc1$="[208]assau
  92. 5295 [139]b1$[178]"75"[167]c1$[178]"(NULL)egensburg
  93. 5296 ifb1$="76"thenc1$="[206]uernberg
  94. 5297 [139]b1$[178]"77"[167]c1$[178]"peekamberg
  95. 5298 ifb1$="78"thenc1$="[200]of
  96. 5299 [139]b1$[178]"79"[167]c1$[178]"(NULL)uerzburg
  97. 5300 ifb4$="215"thenc1$="[198]lensburg
  98. 5301 [139]b4$[178]"259"[167]c1$[178]"left$ildesheim
  99. 5302 ifb4$="265"thenc1$="[207]snabrueck
  100. 5303 [139]b4$[178]"292"[167]c1$[178]"peekremerhaven
  101. 5304 ifb4$="305"thenc1$="[206]euss
  102. 5305 [139]b4$[178]"314"[167]c1$[178]"(NULL)iersen
  103. 5306 ifb4$="324"thenc1$="[203]leve
  104. 5307 [139]b4$[178]"375"[167]c1$[178]"(NULL)everkusen
  105. 5308 ifb4$="478"thenc1$="[199]uetersloh
  106. 5309 [139]b4$[178]"505"[167]c1$[178]"(NULL)ffenbach
  107. 5310 ifb4$="506"thenc1$="[200]anau
  108. 5311 [139]b4$[178]"507"[167]c1$[178]"chr$elnhausen
  109. 5312 ifb4$="508"thenc1$="[196]armstadt
  110. 5313 [139]b4$[178]"509"[167]c1$[178]"peekensheim
  111. 5314 ifb4$="511"thenc1$="[204]imburg
  112. 5315 [139]b4$[178]"513"[167]c1$[178]"chr$iessen
  113. 5316 ifb4$="515"thenc1$="[215]etzlar
  114. 5317 [139]b4$[178]"516"[167]c1$[178]"str$illenburg
  115. 5318 ifb4$="518"thenc1$="[198]riedberg
  116. 5319 [139]b4$[178]"522"[167]c1$[178]"valschwege
  117. 5320 ifb4$="523"thenc1$="[203]orbach
  118. 5321 [139]b4$[178]"532"[167]c1$[178]"peekad left$ersfeld
  119. 5322 ifb4$="533"thenc1$="[205]arburg
  120. 5323 [139]b4$[178]"542"[167]c1$[178]"(NULL)irmasens
  121. 5324 ifb4$="545"thenc1$="[204]udwigshafen
  122. 5325 [139]b4$[178]"546"[167]c1$[178]"(NULL)eustadt
  123. 5326 ifb4$="547"thenc1$="[211]peyer
  124. 5327 [139]b4$[178]"548"[167]c1$[178]"(NULL)andau
  125. 5328 ifb4$="553"thenc1$="[215]orms
  126. 5329 [139]b4$[178]"562"[167]c1$[178]"right$dar-(NULL)berstein
  127. 5330 ifb4$="573"thenc1$="[194]etzdorf
  128. 5331 [139]b4$[178]"574"[167]c1$[178]"(NULL)euwied
  129. 5332 ifb4$="576"thenc1$="[205]ayen
  130. 5333 [139]b4$[178]"577"[167]c1$[178]"(NULL)emagen
  131. 5334 ifb4$="585"thenc1$="[212]rier
  132. 5335 [139]b4$[178]"586"[167]c1$[178]"peekitburg
  133. 5336 ifb4$="587"thenc1$="[215]ittich
  134. 5337 [139]b4$[178]"592"[167]c1$[178]"(NULL)eunkirchen
  135. 5338 ifb4$="593"thenc1$="[211]aarlouis
  136. 5339 [139]b4$[178]"594"[167]c1$[178]"(NULL)t. right$ngbert
  137. 5340 ifb4$="602"thenc1$="[215]aiblingen
  138. 5341 [139]b4$[178]"603"[167]c1$[178]"(NULL)indelfingen
  139. 5342 ifb4$="604"thenc1$="[204]udwigsburg
  140. 5343 [139]b4$[178]"611"[167]c1$[178]"valsslingen
  141. 5344 ifb4$="612"thenc1$="[206]uertingen
  142. 5345 [139]b4$[178]"613"[167]c1$[178]"(NULL)chwaebisch chr$muend
  143. 5346 ifb4$="614"thenc1$="[193]alen
  144. 5347 [139]b4$[178]"622"[167]c1$[178]"(NULL)chwaebisch left$all
  145. 5348 ifb4$="632"thenc1$="[200]eidenheim
  146. 5349 [139]b4$[178]"641"[167]c1$[178]"(NULL)uebingen
  147. 5350 ifb4$="642"thenc1$="[210]ottweil
  148. 5351 [139]b4$[178]"643"[167]c1$[178]"(NULL)uttlingen
  149. 5352 ifb4$="651"thenc1$="[198]riedrichshafen
  150. 5353 [139]b4$[178]"653"[167]c1$[178]"atnlbstadt
  151. 5354 ifb4$="654"thenc1$="[194]iberach
  152. 5355 [139]b4$[178]"662"[167]c1$[178]"peekaden-peekaden
  153. 5356 ifb4$="663"thenc1$="[194]ruchsal
  154. 5357 [139]b4$[178]"664"[167]c1$[178]"(NULL)ffenburg
  155. 5358 ifb4$="665"thenc1$="[210]astatt
  156. 5359 [139]b4$[178]"666"[167]c1$[178]"(NULL)forzheim
  157. 5361 ifb4$="672"thenc1$="[200]eidelberg
  158. 5362 [139]b4$[178]"673"[167]c1$[178]"(NULL)auberbischofsheim
  159. 5363 ifb4$="674"thenc1$="[205]osbach
  160. 5365 [139]b4$[178]"682"[167]c1$[178]"(NULL)ahr
  161. 5366 ifb4$="683"thenc1$="[204]oerrach
  162. 5367 [139]b4$[178]"684"[167]c1$[178]"peekad (NULL)aeckingen
  163. 5368 ifb4$="692"thenc1$="[211]ingen
  164. 5369 [139]b4$[178]"694"[167]c1$[178]"(NULL)illingen-(NULL)chwenningen
  165. 5371 ifb4$="703"thenc1$="[199]armisch-[208]artenkirchen
  166. 5372 [139]b4$[178]"711"[167]c1$[178]"(NULL)osenheim
  167. 5373 ifb4$="721"thenc1$="[201]ngolstadt
  168. 5374 [139]b4$[178]"722"[167]c1$[178]"(NULL)oerdlingen
  169. 5376 ifb4$="733"thenc1$="[203]empten
  170. 5377 [139]b4$[178]"734"[167]c1$[178]"(NULL)aufbeuren
  171. 5378 ifb4$="735"thenc1$="[204]indau
  172. 5380 [139]b4$[178]"741"[167]c1$[178]"str$eggendorf
  173. 5381 ifb4$="742"thenc1$="[211]traubing
  174. 5382 [139]b4$[178]"743"[167]c1$[178]"(NULL)andshut
  175. 5385 ifb4$="752"thenc1$="[193]mberg
  176. 5386 [139]b4$[178]"753"[167]c1$[178]"(NULL)eiden
  177. 5389 ifb4$="762"thenc1$="[198]uerth
  178. 5390 [139]b4$[178]"763"[167]c1$[178]"valrlangen
  179. 5391 ifb4$="764"thenc1$="[211]chwabach
  180. 5392 [139]b4$[178]"765"[167]c1$[178]"atnnsbach
  181. 5393 ifb4$="771"thenc1$="[203]ulmbach
  182. 5394 [139]b4$[178]"773"[167]c1$[178]"peekayreuth
  183. 5395 ifb4$="781"thenc1$="[205]arktredwitz
  184. 5396 [139]b4$[178]"783"[167]c1$[178]"lenoburg
  185. 5397 ifb4$="791"thenc1$="[203]itzingen
  186. 5398 [139]b4$[178]"793"[167]c1$[178]"(NULL)chweinfurt
  187. 5399 ifb4$="795"thenc1$="[193]schaffenburg
  188. 5400 [139]b3$[178]"1103"[167]c2$[178]"(NULL)umitomo peekank
  189. 5402 ifb3$="1105"thenc2$="[200]ypobank
  190. 5404 [139]b3$[178]"1107"[167]c2$[178]"peekank of (NULL)okyo
  191. 5406 ifb3$="1200"thenc2$="[194]erliner [194]ank
  192. 5408 [139]b3$[178]"1500"[167]c2$[178]"(NULL)tadtsparkasse
  193. 5410 ifb3$="1600"thenc2$="[196]t. [199]enossensch. [194]ank
  194. 5412 [139]b3$[178]"1900"[167]c2$[178]"(NULL)olksbank
  195. 5414 ifb3$="1901"thenc2$="[205]uenchner [194]ank
  196. 5416 [139]b3$[178]"2501"[167]c2$[178]"(NULL)reissparkasse
  197. 5418 ifb3$="2202"thenc2$="[194][200][198]
  198. 5449 [143] rz = rechenzentrum
  199. 5450 [139]b4$[178]"198"[167]c1$[178]"(NULL)(NULL) peekerlin
  200. 5451 ifb4$="295"thenc1$="[210][218] [194]remen
  201. 5452 [139]b4$[178]"296"[167]c1$[178]"(NULL)(NULL) left$annover
  202. 5453 ifb4$="297"thenc1$="[210][218] [203]iel
  203. 5454 [139]b4$[178]"298"[167]c1$[178]"(NULL)(NULL) left$amburg
  204. 5455 ifb4$="498"thenc1$="[210][218] [196]uesseldorf
  205. 5456 [139]b4$[178]"596"[167]c1$[178]"(NULL)(NULL) (NULL)ainz
  206. 5457 ifb4$="597"thenc1$="[210][218] [211]aarbruecken
  207. 5458 [139]b4$[178]"598"[167]c1$[178]"(NULL)(NULL) ascrankfurt
  208. 5459 ifb4$="698"thenc1$="[210][218] [211]tuttgart
  209. 5460 [139]b4$[178]"798"[167]c1$[178]"(NULL)(NULL) (NULL)uenchen
  210. 5500 ifb4$="206"thenc1$="[200]amburg-[193]ltona
  211. 5502 [139]b4$[178]"207"[167]c1$[178]"left$amburg-left$arburg
  212. 5504 ifb4$="212"thenc1$="[206]eumuenster
  213. 5506 [139]b4$[178]"213"[167]c1$[178]"(NULL)eustadt
  214. 5508 ifb4$="214"thenc1$="[210]endsburg
  215. 5510 [139]b4$[178]"217"[167]c1$[178]"left$usum
  216. 5512 ifb4$="218"thenc1$="[200]eide
  217. 5514 [139]b4$[178]"221"[167]c1$[178]"vallmshorn
  218. 5516 ifb4$="222"thenc1$="[201]tzehoe
  219. 5518 [139]b4$[178]"241"[167]c1$[178]"lenuxhaven
  220. 5520 ifb4$="254"thenc1$="[200]ameln
  221. 5522 [139]b4$[178]"255"[167]c1$[178]"(NULL)tadthagen
  222. 5524 ifb4$="256"thenc1$="[206]ienburg
  223. 5526 [139]b4$[178]"257"[167]c1$[178]"lenelle
  224. 5528 ifb4$="258"thenc1$="[213]elzen
  225. 5530 [139]b4$[178]"262"[167]c1$[178]"(NULL)ortheim
  226. 5532 ifb4$="263"thenc1$="[207]sterode
  227. 5534 [139]b4$[178]"266"[167]c1$[178]"(NULL)ingen
  228. 5536 ifb4$="267"thenc1$="[206]ordhorn
  229. 5538 [139]b4$[178]"268"[167]c1$[178]"chr$oslar
  230. 5540 ifb4$="272"thenc1$="[200]olzminden
  231. 5542 [139]b4$[178]"282"[167]c1$[178]"(NULL)ilhelmshaven
  232. 5544 ifb4$="284"thenc1$="[197]mden
  233. 5546 [139]b4$[178]"285"[167]c1$[178]"(NULL)eer
  234. 5548 ifb4$="342"thenc1$="[211]olingen
  235. 5550 [139]b4$[178]"354"[167]c1$[178]"(NULL)oers
  236. 5552 ifb4$="356"thenc1$="[215]esel
  237. 5554 [139]b4$[178]"362"[167]c1$[178]"(NULL)uelheim
  238. 5556 ifb4$="365"thenc1$="[207]berhausen
  239. 5558 [139]b4$[178]"382"[167]c1$[178]"valuskirchen
  240. 5560 ifb4$="384"thenc1$="[199]ummersbach
  241. 5562 [139]b4$[178]"386"[167]c1$[178]"(NULL)iegburg
  242. 5564 ifb4$="395"thenc1$="[196]ueren
  243. 5566 [139]b4$[178]"403"[167]c1$[178]"(NULL)heine
  244. 5568 ifb4$="412"thenc1$="[194]eckum
  245. 5570 [139]b4$[178]"414"[167]c1$[178]"(NULL)oest
  246. 5572 ifb4$="416"thenc1$="[204]ippstadt
  247. 5574 [139]b4$[178]"426"[167]c1$[178]"(NULL)ecklinghausen
  248. 5576 ifb4$="428"thenc1$="[194]ocholt
  249. 5578 [139]b4$[178]"443"[167]c1$[178]"(NULL)nna
  250. 5580 ifb4$="445"thenc1$="[201]serlohn
  251. 5582 [139]b4$[178]"452"[167]c1$[178]"(NULL)itten
  252. 5584 ifb4$="458"thenc1$="[204]uedenscheid
  253. 5586 [139]b4$[178]"462"[167]c1$[178]"(NULL)lpe
  254. 5588 ifb4$="464"thenc1$="[193]rnsberg
  255. 5590 [139]b4$[178]"472"[167]c1$[178]"(NULL)aderborn
  256. 5592 ifb4$="476"thenc1$="[196]etmold
  257. 5594 [139]b4$[178]"482"[167]c1$[178]"(NULL)emgo
  258. 5596 ifb4$="492"thenc1$="[194]uende
  259. 5598 [139]b4$[178]"494"[167]c1$[178]"left$erford
  260. 5600 bk$=c2$+" "+c1$:ifc2$=""thenbk$=c1$
  261. 5602 return
  262.