home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / ueberweisung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  366 lines
  1. 0 ze$=""+chr$(190)+chr$(193)+chr$(201)+chr$(193)+chr$(190)+chr$(128)+"
  2. 1 [141]800:cc$[178]""[170][199](13)[170]"
  3. 2 gosub600:a$(1)="[193]uftrag":a$(2)="[203]opie fuer [197]inreicher
  4. 3 fl[178]48:rr$[178]"p.22":a$(3)[178]"chr$utschrift":[129]i[178]1[164]fl:xy$[178]xy$[170]"-":[130]
  5. 4 af$[178]""[170][199](128)[170][199](144)[170][199](128)[170][199](144):a$(4)[178]"peeklanko
  6. 5 print"[147][213]eberweisungsformulare bedrucken        (komplett)
  7. 6 [153]"(NULL)it automatischem peek(NULL)(NULL)-(NULL)erzeichnis":[153]"(c) nh 02.91 arr rev"rr$
  8. 7 [153]"(NULL)ro (NULL)eile max."fl"(NULL)eichen eingeben":[141]170
  9. 8 [153]"(NULL)eberweisungsnummer "un$:[139][197](un$)[177]29999[176][197](un$)[179]7000[167][138]
  10. 9 [141]171:d$[178]"(NULL)(NULL)(NULL)(NULL)"[170]gj$:[139][194](49153)[178]225[175][194](2)[177].[167][158]49155,255,d$
  11. 10 [153]""d$:[133]"onstr$atum ";d$:[139][195](d$)[177][179]6[167]10
  12. 12 d1$[178][200](d$,2):[139][197](d1$)[179]1[176][197](d1$)[177]31[167]10
  13. 14 d3$[178][201](d$,2):[139][197](d3$)[179]88[167]10
  14. 16 d2$[178][202](d$,3,2):[139][197](d2$)[179]1[176][197](d2$)[177]12[167]10
  15. 18 a$[178]d1$:[141]100:d1$[178]b$
  16. 20 a$[178]d2$:[141]100:d2$[178]b$
  17. 22 a$[178]d3$:[141]100:d$[178]d1$[170]"."[170]d2$[170]"."[170]b$
  18. 24 ue$[178]""[170][199](188)[170][199](193)[170][199](192)[170][199](161)[170][199](252)[170][199](128)[170]"
  19. 30 input"[206]ame des [197]mpfaengers ";ep$:iflen(ep$)>florep$=""then30
  20. 35 a$=ep$:gosub100:ep$=b$
  21. 40 input"seine [203]ontonummer ";kp$:ifkp$=""orlen(kp$)>10then40
  22. 45 a$=kp$:gosub100:kp$=b$
  23. 50 input"              [194][204][218] ";bz$:iflen(bz$)<>8andbz$>""then50
  24. 52 gosub5000
  25. 55 a$=bz$:gosub100:bz$=b$
  26. 56 a=peek(214):print""bk$:poke214,a:sys58732
  27. 60 input"     bei [201]nstitut ";bk$:iflen(bk$)>florbk$=""then60
  28. 65 a$=bk$:gosub100:bk$=b$
  29. 70 input"[194]etrag [196][205]   0.00[157][157][157][157][157][157]";dm$:iflen(dm$)>11orlen(dm$)<3then70
  30. 71 dm=val(dm$):gosub500
  31. 75 a$=dm$:gosub100:dm$="**"+b$
  32. 80 print"[194]itte [214]erwendungszweck eingeben ! (max."fl*2"[218]eichen)
  33. 85 [133]v$:[139][195](v$)[177]fl[172]2[167]80
  34. 95 v1$[178][200](v$,fl):[139]v1$[178]""[167]v$[178]"(NULL)eberweisung":[137]95
  35. 96 v2$[178][202](v$,fl[170]1):[139]v2$[178]""[167]v2$[178]xy$
  36. 97 [139][200](v2$,1)[178]" "[167]v2$[178][201](v2$,[195](v2$)[171]1):[137]97
  37. 98 a$[178]v1$:[141]100:v1$[178]b$:a$[178]v2$:[141]100:v2$[178]b$
  38. 99 [141]150:[141]160:[137]200
  39. 100 [143] zero
  40. 102 b$[178]"":[129]ji[178]1[164][195](a$)
  41. 104 c$[178][202](a$,ji,1):[139]c$[178]"0"[167]c$[178]ze$
  42. 106 b$[178]b$[170]c$:[130]:[142]
  43. 150 [153]"peeklanko bedrucken ? [j/n]
  44. 152 poke198,.
  45. 154 geta$:ifa$<>"j"anda$<>"n"then154
  46. 156 nh=3:ifa$="j"thennh=4
  47. 158 return
  48. 160 print"[193]dresse auf [211]eite 3 drucken? [j/n]
  49. 162 [151]198,.
  50. 164 [161]ae$:[139]ae$[179][177]"j"[175]ae$[179][177]"n"[167]164
  51. 168 [142]
  52. 170 [153]"(NULL)oment bitte...ononon":[142]
  53. 171 [151]781,11:[158]59903:[142]
  54. 200 [153]"ascormulare nacheinander einlegen:":a$[178]rr$:[141]100:rr$[178]b$
  55. 202 [153]"str$ruckkopfoberkante an ascormularoberkante
  56. 203 a$=un$:gosub100:un$=b$
  57. 204 print"[198]ormular linksbuendig einlegen.
  58. 206 [153]"8 lines per inch
  59. 207 fori=1tonh:print""a$(i)" ([211]eite"i"[157])
  60. 208 [151]198,.:[146]198,1
  61. 210 [153]"(NULL)kay. str$ruck laeuft
  62. 220 open4,4,7:print#4,"";
  63. 230 ifi<>3thenprint#4,"28 "d$;:ifi=1thenprint#4,"38[145][214]";
  64. 231 ifae$="n"ori<>3then240
  65. 232 print#4,"31[206]ikolaus [200]eusler
  66. 233 [152]4,"31(NULL)wengauerweg  18
  67. 234 print#4,"318"ze$ze$ze$"  [205]"ue$"nchen 71":print#4:goto250
  68. 240 print#4,cc$cc$cc$cc$cc$;
  69. 250 print#4,"04 "ep$:print#4,cc$cc$;
  70. 260 print#4,"04 "kp$"38 "bz$:print#4,cc$cc$;
  71. 270 print#4,"04 "bk$:print#4,cc$
  72. 280 print#4,"27 "dm$:print#4,cc$
  73. 290 print#4,"04 "v1$:print#4,cc$cc$;
  74. 295 print#4,"04 "v2$:print#4,cc$
  75. 300 print#4,"05[206]ikolaus [200]eusler";:ifi=3thenprint#4,"38 "d$;
  76. 305 print#4:print#4,cc$"28 "af$cc$;
  77. 310 print#4,"05xxxxxxx29[213][194] rev"rr$" "un$"-"chr$(48+i)
  78. 312 close4:next
  79. 350 goto400:print"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  80. 352 [153]"  (NULL) atnlenleft$(NULL)(NULL)(NULL)chr$: (NULL)nbedingt den (NULL)
  81. 354 print"  [221] auf dem  [198]ormular auf- [221]
  82. 356 [153]"  (NULL) gedruckten peekval(NULL)(NULL)atnchr$  ge- (NULL)
  83. 358 print"  [221] nau  pruefen !  [198]ehler [221]
  84. 360 [153]"  (NULL) aufgrund von (NULL)undungs- (NULL)
  85. 362 print"  [221] fehlern sind nicht 100 [221]
  86. 364 [153]"  (NULL) prozentig ausgeschlos- (NULL)
  87. 366 print"  [221] sen !                  [221]
  88. 368 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantanexp
  89. 400 print"[198]ertig !!":poke198,.:end
  90. 500 dm=int(dm*100+.5)/100
  91. 502 dm$=str$(int(dm)):dm$=mid$(dm$,2)
  92. 504 dh$="
  93. 506 [139][195](dm$)[179]4[167]512
  94. 508 dh$[178]"."[170][201](dm$,3)[170]dh$
  95. 510 dm$[178][200](dm$,[195](dm$)[171]3):[137]506
  96. 512 dh$[178]dm$[170]dh$[170]",
  97. 514 dm=dm-int(dm):dm=int(.5+dm*100):dm$=str$(dm):dm$=mid$(dm$,2)
  98. 516 dm$=dh$+left$("00",2-len(dm$))+dm$:return
  99. 600 poke54287,100:poke54290,129
  100. 602 un$="":forkl=1to5:un$=un$+chr$(48+peek(54299)/25.6):next
  101. 610 return
  102. 800 open2,8,2,"gj,s,r":input#2,gj$:close2:ifgj$=""thengj$="91
  103. 802 [142]
  104. 5000 b1$[178][200](bz$,2):b2$[178][202](bz$,4,3):b3$[178][202](bz$,3,4):b4$[178][200](bz$,3)
  105. 5001 b5$[178][200](bz$,1):b6$[178][202](bz$,4,1)
  106. 5002 [139]b6$[178]"0"[167]c2$[178]"(NULL)(NULL)peek
  107. 5003 ifb6$="1"thenc2$="[208]ostgiroamt
  108. 5004 [139]b6$[178]"2"[176]b6$[178]"3"[167]c2$[178]"(NULL)rivatbank
  109. 5005 ifb6$="4"thenc2$="[195]ommerzbank
  110. 5006 [139]b6$[178]"5"[167]c2$[178]"(NULL)parkasse
  111. 5007 ifb6$="6"thenc2$="[210]aiffeisenbank
  112. 5008 [139]b6$[178]"7"[167]c2$[178]"str$eutsche peekank
  113. 5009 ifb6$="8"thenc2$="[196]resdner [194]ank
  114. 5010 [139]b6$[178]"9"[167]c2$[178]"(NULL)olksbank
  115. 5014 ifb2$="101"thenc2$="[194]f[199]
  116. 5018 [139]b2$[178]"107"[167]c2$[178]"str$eutsche (NULL)par & (NULL)reditbank
  117. 5020 ifb2$="108"thenc2$="allgem. elsaessische [194]ank
  118. 5026 [139]b2$[178]"200"[167]c2$[178]"left$ypobank
  119. 5028 ifb2$="202"thenc2$="[194]ayer. [214]ereinsbank
  120. 5030 [139]b2$[178]"204"[167]c2$[178]"(NULL)estmister peekank
  121. 5032 ifb2$="205"thenc2$="[194]ank fuer [211]ozialwirtschaft
  122. 5040 [139]b2$[178]"300"[167]c2$[178]"(NULL)ereins- und (NULL)estbank
  123. 5042 ifb2$="301"thenc2$="[194]ankhaus [205]ax [198]lessa
  124. 5044 [139]b2$[178]"302"[167]c2$[178]"(NULL)axis peekank
  125. 5046 ifb2$="303"thenc2$="[210]euschelbank
  126. 5048 [139]b2$[178]"304"[167]c2$[178]"peekankhaus (NULL)erck & leno
  127. 5050 ifb2$="306"thenc2$="[194]ankhaus [193]ufhaeuser
  128. 5052 [139]b2$[178]"308"[167]c2$[178]"(NULL)affeibank
  129. 5056 ifb2$="330"thenc2$="[211]chmidbank
  130. 5066 [139]b2$[178]"500"[167]c2$[178]"(NULL)andesbank chr$irozentrale
  131. 5068 ifb2$="501"thenc2$="[199]irokasse
  132. 5070 [139]b2$[178]"514"[167]c2$[178]"(NULL)reis- & (NULL)tadtsparkasse
  133. 5072 ifb2$="521"thenc2$="[203]reissparkasse
  134. 5078 [139]b2$[178]"600"[167]c2$[178]"str$chr$ peekank
  135. 5080 ifb2$="604"thenc2$="[211]par- & [196]arlehenskasse
  136. 5082 [139]b2$[178]"605"[167]c2$[178]"(NULL)par- & (NULL)reditbank
  137. 5084 ifb2$="626"thenc2$="[214]olksbank
  138. 5086 [139]b2$[178]"628"[167]c2$[178]"(NULL)olks- & (NULL)aiffeisenbank
  139. 5088 ifb2$="693"thenc2$="evang. [211]par- & [203]reditbank
  140. 5097 [139]b2$[178]"901"[167]c2$[178]"(NULL)ekobank
  141. 5098 ifb2$="906"thenc2$="[196]tsch. [193]potheker- & [193]erztebank
  142. 5100 [139]b5$[178]"0"[167]c1$[178]"atnusland
  143. 5102 ifb5$="1"thenc1$="[194]erlin
  144. 5104 [139]b5$[178]"2"[167]c1$[178]"left$amburg
  145. 5106 ifb5$="3"thenc1$="[196]uesseldorf
  146. 5108 [139]b5$[178]"4"[167]c1$[178]"(NULL)uenster
  147. 5110 ifb5$="5"thenc1$="[198]rankfurt
  148. 5112 [139]b5$[178]"6"[167]c1$[178]"(NULL)tuttgart
  149. 5114 ifb5$="7"thenc1$="[205]uenchen
  150. 5200 [139]b1$[178]"21"[167]c1$[178]"(NULL)iel
  151. 5203 ifb1$="23"thenc1$="[204]uebeck
  152. 5204 [139]b1$[178]"24"[167]c1$[178]"(NULL)ueneburg
  153. 5205 ifb1$="25"thenc1$="[200]annover
  154. 5206 [139]b1$[178]"26"[167]c1$[178]"chr$oettingen
  155. 5207 ifb1$="27"thenc1$="[194]raunschweig
  156. 5208 [139]b1$[178]"28"[167]c1$[178]"(NULL)ldenburg
  157. 5209 ifb1$="29"thenc1$="[194]remen
  158. 5231 [139]b1$[178]"31"[167]c1$[178]"(NULL)oenchengladbach
  159. 5232 ifb1$="32"thenc1$="[203]refeld
  160. 5233 [139]b1$[178]"33"[167]c1$[178]"(NULL)uppertal
  161. 5234 ifb1$="34"thenc1$="[210]emscheid
  162. 5235 [139]b1$[178]"35"[167]c1$[178]"str$uisburg
  163. 5236 ifb1$="36"thenc1$="[197]ssen
  164. 5237 [139]b1$[178]"37"[167]c1$[178]"(NULL)oeln
  165. 5238 ifb1$="38"thenc1$="[194]onn
  166. 5239 [139]b1$[178]"39"[167]c1$[178]"atnachen
  167. 5261 ifb1$="41"thenc1$="[200]amm
  168. 5262 [139]b1$[178]"42"[167]c1$[178]"chr$elsenkirchen
  169. 5263 ifb1$="43"thenc1$="[194]ochum
  170. 5264 [139]b1$[178]"44"[167]c1$[178]"str$ortmund
  171. 5265 ifb1$="45"thenc1$="[200]agen
  172. 5266 [139]b1$[178]"46"[167]c1$[178]"(NULL)iegen
  173. 5268 ifb1$="48"thenc1$="[194]ielefeld
  174. 5269 [139]b1$[178]"49"[167]c1$[178]"(NULL)inden
  175. 5271 ifb1$="51"thenc1$="[215]iesbaden
  176. 5272 [139]b1$[178]"52"[167]c1$[178]"(NULL)assel
  177. 5273 ifb1$="53"thenc1$="[198]ulda
  178. 5274 [139]b1$[178]"54"[167]c1$[178]"(NULL)aiserslautern
  179. 5275 ifb1$="55"thenc1$="[205]ainz
  180. 5276 [139]b1$[178]"56"[167]c1$[178]"peekad (NULL)reuznach
  181. 5277 ifb1$="57"thenc1$="[203]oblenz
  182. 5279 [139]b1$[178]"59"[167]c1$[178]"(NULL)aarbruecken
  183. 5282 ifb1$="61"thenc1$="[199]oeppingen
  184. 5283 [139]b1$[178]"62"[167]c1$[178]"left$eilbronn
  185. 5284 ifb1$="63"thenc1$="[213]lm
  186. 5285 [139]b1$[178]"64"[167]c1$[178]"(NULL)eutlingen
  187. 5286 ifb1$="65"thenc1$="[210]avensberg
  188. 5287 [139]b1$[178]"66"[167]c1$[178]"(NULL)arlsruhe
  189. 5288 ifb1$="67"thenc1$="[205]annheim
  190. 5289 [139]b1$[178]"68"[167]c1$[178]"ascreiburg
  191. 5290 ifb1$="69"thenc1$="[203]onstanz
  192. 5291 [139]b1$[178]"71"[167]c1$[178]"peekad (NULL)eichenhall
  193. 5292 ifb1$="72"thenc1$="[193]ugsburg
  194. 5293 [139]b1$[178]"73"[167]c1$[178]"(NULL)lm
  195. 5294 ifb1$="74"thenc1$="[208]assau
  196. 5295 [139]b1$[178]"75"[167]c1$[178]"(NULL)egensburg
  197. 5296 ifb1$="76"thenc1$="[206]uernberg
  198. 5297 [139]b1$[178]"77"[167]c1$[178]"peekamberg
  199. 5298 ifb1$="78"thenc1$="[200]of
  200. 5299 [139]b1$[178]"79"[167]c1$[178]"(NULL)uerzburg
  201. 5300 ifb4$="215"thenc1$="[198]lensburg
  202. 5301 [139]b4$[178]"259"[167]c1$[178]"left$ildesheim
  203. 5302 ifb4$="265"thenc1$="[207]snabrueck
  204. 5303 [139]b4$[178]"292"[167]c1$[178]"peekremerhaven
  205. 5304 ifb4$="305"thenc1$="[206]euss
  206. 5305 [139]b4$[178]"314"[167]c1$[178]"(NULL)iersen
  207. 5306 ifb4$="324"thenc1$="[203]leve
  208. 5307 [139]b4$[178]"375"[167]c1$[178]"(NULL)everkusen
  209. 5308 ifb4$="478"thenc1$="[199]uetersloh
  210. 5309 [139]b4$[178]"505"[167]c1$[178]"(NULL)ffenbach
  211. 5310 ifb4$="506"thenc1$="[200]anau
  212. 5311 [139]b4$[178]"507"[167]c1$[178]"chr$elnhausen
  213. 5312 ifb4$="508"thenc1$="[196]armstadt
  214. 5313 [139]b4$[178]"509"[167]c1$[178]"peekensheim
  215. 5314 ifb4$="511"thenc1$="[204]imburg
  216. 5315 [139]b4$[178]"513"[167]c1$[178]"chr$iessen
  217. 5316 ifb4$="515"thenc1$="[215]etzlar
  218. 5317 [139]b4$[178]"516"[167]c1$[178]"str$illenburg
  219. 5318 ifb4$="518"thenc1$="[198]riedberg
  220. 5319 [139]b4$[178]"522"[167]c1$[178]"valschwege
  221. 5320 ifb4$="523"thenc1$="[203]orbach
  222. 5321 [139]b4$[178]"532"[167]c1$[178]"peekad left$ersfeld
  223. 5322 ifb4$="533"thenc1$="[205]arburg
  224. 5323 [139]b4$[178]"542"[167]c1$[178]"(NULL)irmasens
  225. 5324 ifb4$="545"thenc1$="[204]udwigshafen
  226. 5325 [139]b4$[178]"546"[167]c1$[178]"(NULL)eustadt
  227. 5326 ifb4$="547"thenc1$="[211]peyer
  228. 5327 [139]b4$[178]"548"[167]c1$[178]"(NULL)andau
  229. 5328 ifb4$="553"thenc1$="[215]orms
  230. 5329 [139]b4$[178]"562"[167]c1$[178]"right$dar-(NULL)berstein
  231. 5330 ifb4$="573"thenc1$="[194]etzdorf
  232. 5331 [139]b4$[178]"574"[167]c1$[178]"(NULL)euwied
  233. 5332 ifb4$="576"thenc1$="[205]ayen
  234. 5333 [139]b4$[178]"577"[167]c1$[178]"(NULL)emagen
  235. 5334 ifb4$="585"thenc1$="[212]rier
  236. 5335 [139]b4$[178]"586"[167]c1$[178]"peekitburg
  237. 5336 ifb4$="587"thenc1$="[215]ittich
  238. 5337 [139]b4$[178]"592"[167]c1$[178]"(NULL)eunkirchen
  239. 5338 ifb4$="593"thenc1$="[211]aarlouis
  240. 5339 [139]b4$[178]"594"[167]c1$[178]"(NULL)t. right$ngbert
  241. 5340 ifb4$="602"thenc1$="[215]aiblingen
  242. 5341 [139]b4$[178]"603"[167]c1$[178]"(NULL)indelfingen
  243. 5342 ifb4$="604"thenc1$="[204]udwigsburg
  244. 5343 [139]b4$[178]"611"[167]c1$[178]"valsslingen
  245. 5344 ifb4$="612"thenc1$="[206]uertingen
  246. 5345 [139]b4$[178]"613"[167]c1$[178]"(NULL)chwaebisch chr$muend
  247. 5346 ifb4$="614"thenc1$="[193]alen
  248. 5347 [139]b4$[178]"622"[167]c1$[178]"(NULL)chwaebisch left$all
  249. 5348 ifb4$="632"thenc1$="[200]eidenheim
  250. 5349 [139]b4$[178]"641"[167]c1$[178]"(NULL)uebingen
  251. 5350 ifb4$="642"thenc1$="[210]ottweil
  252. 5351 [139]b4$[178]"643"[167]c1$[178]"(NULL)uttlingen
  253. 5352 ifb4$="651"thenc1$="[198]riedrichshafen
  254. 5353 [139]b4$[178]"653"[167]c1$[178]"atnlbstadt
  255. 5354 ifb4$="654"thenc1$="[194]iberach
  256. 5355 [139]b4$[178]"662"[167]c1$[178]"peekaden-peekaden
  257. 5356 ifb4$="663"thenc1$="[194]ruchsal
  258. 5357 [139]b4$[178]"664"[167]c1$[178]"(NULL)ffenburg
  259. 5358 ifb4$="665"thenc1$="[210]astatt
  260. 5359 [139]b4$[178]"666"[167]c1$[178]"(NULL)forzheim
  261. 5361 ifb4$="672"thenc1$="[200]eidelberg
  262. 5362 [139]b4$[178]"673"[167]c1$[178]"(NULL)auberbischofsheim
  263. 5363 ifb4$="674"thenc1$="[205]osbach
  264. 5365 [139]b4$[178]"682"[167]c1$[178]"(NULL)ahr
  265. 5366 ifb4$="683"thenc1$="[204]oerrach
  266. 5367 [139]b4$[178]"684"[167]c1$[178]"peekad (NULL)aeckingen
  267. 5368 ifb4$="692"thenc1$="[211]ingen
  268. 5369 [139]b4$[178]"694"[167]c1$[178]"(NULL)illingen-(NULL)chwenningen
  269. 5371 ifb4$="703"thenc1$="[199]armisch-[208]artenkirchen
  270. 5372 [139]b4$[178]"711"[167]c1$[178]"(NULL)osenheim
  271. 5373 ifb4$="721"thenc1$="[201]ngolstadt
  272. 5374 [139]b4$[178]"722"[167]c1$[178]"(NULL)oerdlingen
  273. 5376 ifb4$="733"thenc1$="[203]empten
  274. 5377 [139]b4$[178]"734"[167]c1$[178]"(NULL)aufbeuren
  275. 5378 ifb4$="735"thenc1$="[204]indau
  276. 5380 [139]b4$[178]"741"[167]c1$[178]"str$eggendorf
  277. 5381 ifb4$="742"thenc1$="[211]traubing
  278. 5382 [139]b4$[178]"743"[167]c1$[178]"(NULL)andshut
  279. 5385 ifb4$="752"thenc1$="[193]mberg
  280. 5386 [139]b4$[178]"753"[167]c1$[178]"(NULL)eiden
  281. 5389 ifb4$="762"thenc1$="[198]uerth
  282. 5390 [139]b4$[178]"763"[167]c1$[178]"valrlangen
  283. 5391 ifb4$="764"thenc1$="[211]chwabach
  284. 5392 [139]b4$[178]"765"[167]c1$[178]"atnnsbach
  285. 5393 ifb4$="771"thenc1$="[203]ulmbach
  286. 5394 [139]b4$[178]"773"[167]c1$[178]"peekayreuth
  287. 5395 ifb4$="781"thenc1$="[205]arktredwitz
  288. 5396 [139]b4$[178]"783"[167]c1$[178]"lenoburg
  289. 5397 ifb4$="791"thenc1$="[203]itzingen
  290. 5398 [139]b4$[178]"793"[167]c1$[178]"(NULL)chweinfurt
  291. 5399 ifb4$="795"thenc1$="[193]schaffenburg
  292. 5400 [139]b3$[178]"1103"[167]c2$[178]"(NULL)umitomo peekank
  293. 5402 ifb3$="1105"thenc2$="[200]ypobank
  294. 5404 [139]b3$[178]"1107"[167]c2$[178]"peekank of (NULL)okyo
  295. 5406 ifb3$="1200"thenc2$="[194]erliner [194]ank
  296. 5408 [139]b3$[178]"1500"[167]c2$[178]"(NULL)tadtsparkasse
  297. 5410 ifb3$="1600"thenc2$="[196]t. [199]enossensch. [194]ank
  298. 5412 [139]b3$[178]"1900"[167]c2$[178]"(NULL)olksbank
  299. 5414 ifb3$="1901"thenc2$="[205]uenchner [194]ank
  300. 5416 [139]b3$[178]"2501"[167]c2$[178]"(NULL)reissparkasse
  301. 5418 ifb3$="2202"thenc2$="[194][200][198]
  302. 5449 [143] rz = rechenzentrum
  303. 5450 [139]b4$[178]"198"[167]c1$[178]"(NULL)(NULL) peekerlin
  304. 5451 ifb4$="295"thenc1$="[210][218] [194]remen
  305. 5452 [139]b4$[178]"296"[167]c1$[178]"(NULL)(NULL) left$annover
  306. 5453 ifb4$="297"thenc1$="[210][218] [203]iel
  307. 5454 [139]b4$[178]"298"[167]c1$[178]"(NULL)(NULL) left$amburg
  308. 5455 ifb4$="498"thenc1$="[210][218] [196]uesseldorf
  309. 5456 [139]b4$[178]"596"[167]c1$[178]"(NULL)(NULL) (NULL)ainz
  310. 5457 ifb4$="597"thenc1$="[210][218] [211]aarbruecken
  311. 5458 [139]b4$[178]"598"[167]c1$[178]"(NULL)(NULL) ascrankfurt
  312. 5459 ifb4$="698"thenc1$="[210][218] [211]tuttgart
  313. 5460 [139]b4$[178]"798"[167]c1$[178]"(NULL)(NULL) (NULL)uenchen
  314. 5500 ifb4$="206"thenc1$="[200]amburg-[193]ltona
  315. 5502 [139]b4$[178]"207"[167]c1$[178]"left$amburg-left$arburg
  316. 5504 ifb4$="212"thenc1$="[206]eumuenster
  317. 5506 [139]b4$[178]"213"[167]c1$[178]"(NULL)eustadt
  318. 5508 ifb4$="214"thenc1$="[210]endsburg
  319. 5510 [139]b4$[178]"217"[167]c1$[178]"left$usum
  320. 5512 ifb4$="218"thenc1$="[200]eide
  321. 5514 [139]b4$[178]"221"[167]c1$[178]"vallmshorn
  322. 5516 ifb4$="222"thenc1$="[201]tzehoe
  323. 5518 [139]b4$[178]"241"[167]c1$[178]"lenuxhaven
  324. 5520 ifb4$="254"thenc1$="[200]ameln
  325. 5522 [139]b4$[178]"255"[167]c1$[178]"(NULL)tadthagen
  326. 5524 ifb4$="256"thenc1$="[206]ienburg
  327. 5526 [139]b4$[178]"257"[167]c1$[178]"lenelle
  328. 5528 ifb4$="258"thenc1$="[213]elzen
  329. 5530 [139]b4$[178]"262"[167]c1$[178]"(NULL)ortheim
  330. 5532 ifb4$="263"thenc1$="[207]sterode
  331. 5534 [139]b4$[178]"266"[167]c1$[178]"(NULL)ingen
  332. 5536 ifb4$="267"thenc1$="[206]ordhorn
  333. 5538 [139]b4$[178]"268"[167]c1$[178]"chr$oslar
  334. 5540 ifb4$="272"thenc1$="[200]olzminden
  335. 5542 [139]b4$[178]"282"[167]c1$[178]"(NULL)ilhelmshaven
  336. 5544 ifb4$="284"thenc1$="[197]mden
  337. 5546 [139]b4$[178]"285"[167]c1$[178]"(NULL)eer
  338. 5548 ifb4$="342"thenc1$="[211]olingen
  339. 5550 [139]b4$[178]"354"[167]c1$[178]"(NULL)oers
  340. 5552 ifb4$="356"thenc1$="[215]esel
  341. 5554 [139]b4$[178]"362"[167]c1$[178]"(NULL)uelheim
  342. 5556 ifb4$="365"thenc1$="[207]berhausen
  343. 5558 [139]b4$[178]"382"[167]c1$[178]"valuskirchen
  344. 5560 ifb4$="384"thenc1$="[199]ummersbach
  345. 5562 [139]b4$[178]"386"[167]c1$[178]"(NULL)iegburg
  346. 5564 ifb4$="395"thenc1$="[196]ueren
  347. 5566 [139]b4$[178]"403"[167]c1$[178]"(NULL)heine
  348. 5568 ifb4$="412"thenc1$="[194]eckum
  349. 5570 [139]b4$[178]"414"[167]c1$[178]"(NULL)oest
  350. 5572 ifb4$="416"thenc1$="[204]ippstadt
  351. 5574 [139]b4$[178]"426"[167]c1$[178]"(NULL)ecklinghausen
  352. 5576 ifb4$="428"thenc1$="[194]ocholt
  353. 5578 [139]b4$[178]"443"[167]c1$[178]"(NULL)nna
  354. 5580 ifb4$="445"thenc1$="[201]serlohn
  355. 5582 [139]b4$[178]"452"[167]c1$[178]"(NULL)itten
  356. 5584 ifb4$="458"thenc1$="[204]uedenscheid
  357. 5586 [139]b4$[178]"462"[167]c1$[178]"(NULL)lpe
  358. 5588 ifb4$="464"thenc1$="[193]rnsberg
  359. 5590 [139]b4$[178]"472"[167]c1$[178]"(NULL)aderborn
  360. 5592 ifb4$="476"thenc1$="[196]etmold
  361. 5594 [139]b4$[178]"482"[167]c1$[178]"(NULL)emgo
  362. 5596 ifb4$="492"thenc1$="[194]uende
  363. 5598 [139]b4$[178]"494"[167]c1$[178]"left$erford
  364. 5600 bk$=c2$+" "+c1$:ifc2$=""thenbk$=c1$
  365. 5602 return
  366.