home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / dbii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  31.3 KB  |  840 lines
  1. 0 rem-dbii / (c)1985 martin hecht,stgt-
  2. 1 dim mf%(3),lb(3),hb(3),me$(2,17),ap%(5,4),ks$(145),f1%(5),f2%(5),f3%(5),af%(5)
  3. 2 dim fc%(68),ba(2),p1(4),p2(7),ph(2),hp%(2,4),br%(3),np(3),po(3),op(3)
  4. 3 dim dd$(15),sn%(15),ds%(15)
  5. 4 dim fo%(20),fo$(20),ro%(15),fd(50,2),vz%(50),fa%(50),f(50)
  6. 8 goto79
  7. 11 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  8. 12 return
  9. 13 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  10. 14 return
  11. 15 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  12. 16 return
  13. 17 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  14. 18 return
  15. 19 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  16. 20 return
  17. 21 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  18. 22 return
  19. 23 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  20. 24 return
  21. 25 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  22. 26 return
  23. 27 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  24. 28 return
  25. 29 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  26. 30 return
  27. 31 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  28. 32 return
  29. 33 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  30. 34 return
  31. 35 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  32. 36 return
  33. 37 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  34. 38 return
  35. 39 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  36. 40 return
  37. 79 gosub4510:lb(1)=61:hb(1)=154:qx$="mp-p-3":gosub11860
  38. 80 lb(1)=232:hb(1)=199:qx$="mp-p-4":gosub11860
  39. 81 lb(1)=200:hb(1)=192:qx$="mp-p-5":gosub11860
  40. 82 lb(1)=208:hb(1)=194:qx$="mp-p-10":gosub11860
  41. 89 poke55,60:poke56,154:poke51,60:poke52,154
  42. 92 gosub4810
  43. 165 gosub11022:printchr$(142)chr$(8):ff=mf%(3):gosub11235:poke781,1:syspt
  44. 180 me=1:gosub405:gosub11027:eg$=""
  45. 190 gosub11455
  46. 207 ifeg=13thengosub310:goto190
  47. 210 ifeg=8thenhp=1:gosub9500:goto165
  48. 220 ifeg=136andme=2then9002
  49. 221 ifeg=140andme=2then1965
  50. 224 ifeg=144thenff=mf%(1):gosub11170:mf%(1)=ff:goto190
  51. 226 ifeg=5thenff=mf%(2):gosub11200:mf%(2)=ff:goto190
  52. 227 ifeg=28thenff=mf%(3):gosub11230:mf%(3)=ff:goto190
  53. 229 ifeg<133oreg>140then190
  54. 234 ifme=2then260
  55. 240 oneg-132gosub1015,2007,2213,3010,2657:ifugthenug=0:dc=0:goto165
  56. 242 goto190
  57. 260 oneg-132gosub7010,7500,6807:ifugthenug=0:goto165
  58. 270 goto190
  59. 310 ifme=1thenme=2:k=49:goto330
  60. 320 me=1:k=50
  61. 330 fors1=21to5step-1:ze=s1:sp=5:gosub11050:printks$(110):nexts1:gosub405:poke2004,k:return
  62. 405 ze=1:sp=23:gosub11050:printme$(me,1):fors1=2to17
  63. 410 ze=s1+3:sp=5:gosub11050:printme$(me,s1):nexts1:return
  64. 1015 gosub1915
  65. 1052 gosub11455:ifeg=141thengosub1940:return
  66. 1053 ifeg=8thenhp=1:gosub9500:gosub1915:goto1052
  67. 1055 fors1=19to26:iffc%(s1)<>egthennexts1:goto1052
  68. 1060 ons1-18gosub1287,1410,1510,1217,1240,1610,1630,1650:goto1052
  69. 1217 ag$=ks$(108)+"dat-dir":ze=23:gosub11585
  70. 1220 gosub5815:iffe<>0then ze=23:sp=2:gosub11050:printks$(1)c$c$:poke2,2:sys51833
  71. 1225 gosub9782:iffe=0thennn=1:gosub1240
  72. 1227 return
  73. 1240 fors2=4to20step2:ze=s2:sp=1:gosub11050:printks$(5):ze=s2:sp=19:gosub11050:printks$(8)
  74. 1241 ze=s2:sp=30:gosub11050:printks$(9):nexts2
  75. 1243 s2=4:fors1=nntonn+8:ifs1>adthens1=nn+9:nexts1:nn=1:return
  76. 1245 rv$="":ifs1=sithenrv$=chr$(18)
  77. 1250 ze=s2:sp=1:gosub11050:printrv$dd$(s1)chr$(146)
  78. 1253 ifsn%(s1)=10thenag$=right$(str$(sn%(s1)),2):goto1260
  79. 1255 ag$="0"+right$(str$(sn%(s1)),1)
  80. 1260 ze=s2:sp=19:gosub11050:printag$:ag$=str$(ds%(s1)):ag$=right$(ag$,len(ag$)-1)
  81. 1267 iflen(ag$)<3thenag$="0"+ag$:goto1267
  82. 1270 ze=s2:sp=30:gosub11050:printag$:s2=s2+2:nexts1:nn=s1:return
  83. 1287 e=0:ze=0:sp=0:gosub11050:printks$(12):ze=0:sp=25:p=1:gz=14:rv=1:gosub11303
  84. 1288 ifeg=141then ze=0:sp=0:gosub11050:printks$(15):return
  85. 1290 fors4=1toad:ifdd$(s4)=eg$then1294
  86. 1292 nexts4:ife=0thene=1:gosub5815:dd=1:goto1290
  87. 1293 ze=0:sp=0:gosub11050:printks$(13):poke2,1:sys51833:goto1287
  88. 1294 zw$=eg$:ifsi=0then1297
  89. 1295 ze=23:sp=7:gosub11050:printks$(99)+dd$(si)+"[160]!"c$c$:gosub 2670:gosub9782
  90. 1297 si=s4:ze=23:ag$=ks$(108)+zw$:gosub11585:i$=zw$:gosub5838
  91. 1300 gosub9782:ag$=ks$(14):gosub11585:poke2,1:sys51833:gosub9782
  92. 1310 ze=0:sp=0:gosub11050:printks$(15):nn=1:gosub1240:return
  93. 1410 e=0:ze=0:sp=0:gosub11050:printks$(19):ze=0:sp=23:p=1:gz=14:rv=1:gosub11303
  94. 1415 ifeg=141then ze=0:sp=0:gosub11050:printks$(15):return
  95. 1420 fors1=1toad:ifdd$(s1)=eg$thenk=s1:goto1430
  96. 1425 nexts1:ife=0thene=1:gosub5815:dd=1:goto1420
  97. 1427 ze=0:sp=0:gosub11050:printks$(13):poke2,1:sys51833:goto1410
  98. 1430 ze=23:sp=7:gosub11050:printks$(20);:gosub11445:gosub9782:ifeg=78then1410
  99. 1437 h$=eg$:ze=23:sp=6:gosub11050:printks$(22)h$c$c$:i$=h$+".d":gosub1480:i$=h$+".e"
  100. 1438 gosub1480:i$=h$+".i":gosub1480:i$=h$+".r":gosub1480:i$=h$+".z":gosub1480
  101. 1445 fors1=ktoad:dd$(s1)=dd$(s1+1):sn%(s1)=sn%(s1+1):ds%(s1)=ds%(s1+1):nexts1
  102. 1450 ad=ad-1:gosub5830:gosub9782:ze=23:ag$=ks$(24):gosub11585:poke2,1:sys51833
  103. 1455 gosub9782:ze=0:sp=0:gosub11050:printks$(15):ifk<sithensi=si-1:goto1457
  104. 1456 ifk=sithensi=0
  105. 1457 nn=1:gosub1240:return
  106. 1480 print#15,"s:"+i$:return
  107. 1510 e=0:ze=0:sp=0:gosub11050:printks$(21):ze=0:sp=10:p=1:gz=29:rv=1:gosub11303
  108. 1515 ifeg=141then ze=0:sp=0:gosub11050:printks$(15):return
  109. 1517 h1$=left$(eg$,14):h2$=right$(eg$,14)
  110. 1520 fors1=1toad:ifdd$(s1)=h2$thenk=s1:goto1537
  111. 1525 nexts1:ife=0thene=1:gosub5815:dd=1:goto1520
  112. 1527 ze=0:sp=0:gosub11050:printks$(13):poke2,1:sys51833:goto1510
  113. 1537 ze=23:ag$=ks$(23)+h2$:gosub11585:i$=h1$+".d="+h2$+".d":gosub1580
  114. 1538 i$=h1$+".e="+h2$+".e":gosub1580
  115. 1539 i$=h1$+".i="+h2$+".i":gosub1580:i$=h1$+".r="+h2$+".r":gosub1580
  116. 1540 i$=h1$+".z="+h2$+".z":gosub1580
  117. 1545 dd$(k)=h1$:gosub5830:gosub9782:ze=23:ag$=ks$(25):gosub11585:poke2,1:sys51833
  118. 1550 gosub9782:ze=0:sp=0:gosub11050:printks$(15):nn=1:gosub1240:return
  119. 1580 print#15,"r:"+i$:return
  120. 1610 ff=df%(1):gosub11170:df%(1)=ff:return
  121. 1630 ff=df%(2):gosub11200:df%(2)=ff:return
  122. 1650 ff=df%(3):gosub11230:df%(3)=ff:return
  123. 1915 gosub11022:printchr$(dr)chr$(9):ff=df%(3):gosub11235
  124. 1920 poke53280,df%(1):poke53281,df%(2):poke781,7:syspt:gosub11028
  125. 1925 nn=1:ifdd=0thendd=1:gosub1217:return
  126. 1927 gosub1243:return
  127. 1940 ifpeek(53272)=21thendr=142:goto1950
  128. 1945 dr=14
  129. 1950 ug=1:return
  130. 1965 ifsi<>0thengosub11022:ze=15:sp=0:gosub11050:printks$(54)ks$(55):gosub2659
  131. 1967 goto7750
  132. 2007 gosub11022:printchr$(14):ze=0:sp=0:gosub11050:printks$(18)ks$(3):gosub11485
  133. 2010 ze=19:sp=0:gosub11050:printks$(79)chr$(17)ks$(79):gosub11027
  134. 2015 e=0:ze=5:sp=3:gosub11050:printks$(16)
  135. 2020 sp=22:ze=5:gz=14:rv=0:p=1:gosub11303:ifeg=141thenug=1:return
  136. 2025 fors4=1toad:ifdd$(s4)=eg$then2038
  137. 2030 nexts4:ife=0thene=1:gosub5815:dd=1:goto2025
  138. 2035 ze=20:ag$=ks$(17):gosub11585:poke2,1:sys51833:ze=20:sp=0:gosub11050:printl$c$c$:goto2015
  139. 2038 zw$=eg$:ifsi=0then2041
  140. 2039 ze=20:sp=7:gosub11050:printks$(99)+dd$(si)+"[160]!"c$c$:gosub2670
  141. 2040 ze=20:sp=0:gosub11050:printl$c$c$
  142. 2041 si=s4
  143. 2042 ze=20:ag$=ks$(108)+zw$:gosub11585:i$=zw$:gosub5838:ze=20:sp=0:gosub11050:printl$c$c$
  144. 2045 ag$=ks$(14):gosub11585:poke2,1:sys51833:ze=20:sp=0:gosub11050:printl$c$c$:ug=1:return
  145. 2213 ifsi=0thenprintchr$(147):ze=10:sp=0:gosub11050:printks$(39):poke2,1:sys51833:ug=1:return
  146. 2214 ifat=mtthenprintchr$(147):ze=8:sp=0:gosub11050:printks$(40)ks$(41)ks$(42):ug=1:return
  147. 2216 a3=27:dm=4:dc=0:gosub6775
  148. 2225 ifug=1or(dc>1anddc<4)thenreturn
  149. 2226 gosub6027:fors1=27to40:iffc%(s1)<>egthennexts1:goto2226
  150. 2227 ifs1>36thens1=s1-10:goto2235
  151. 2230 ons1-26gosub2256,2334,2353,2366,2398,2424,2444,2464,2472,2480:goto2225
  152. 2235 ons1-26gosub2487,2533,2380,2642:goto2225
  153. 2256 iffa%(nf)=5thengosub2500:gosub2515:goto2264
  154. 2258 s1=nf:gosub6160
  155. 2260 iffa%(nf)=14thengosub2515
  156. 2262 iffa%(nf)=4thengosub2287
  157. 2264 ifnf=afthengosub11243:goto2275
  158. 2266 nf=nf+1:ll=ll+1:ifll>af%(pg)thengosub6115:ll=1
  159. 2268 return
  160. 2275 ze=23:sp=5:gosub11050:printks$(35);:gosub11445:gosub9782:ifeg=78thenreturn
  161. 2280 gosub2533:return
  162. 2287 h$=left$(eg$,10)
  163. 2290 ifmid$(h$,3,1)<>"."ormid$(h$,6,1)<>"."thenh5=7:goto2314
  164. 2292 h1=val(left$(h$,2)):ifh1=0orh1>31thenh5=7:goto2314
  165. 2294 h2=val(mid$(h$,4,2)):ifh2=0orh2>12thenh5=7:goto2314
  166. 2296 h3=val(right$(h$,4)):ifh3=0thenh5=7:goto2314
  167. 2300 ifh2-3>=0thenh2=h2+1:goto2310
  168. 2305 h2=h2+13:h3=h3-1
  169. 2310 h4=int(365.25*h3)+int(30.6*h2)+h1-int(h3/100)+int(h3/400)-429
  170. 2312 h5=h4-int(h4/7)*7
  171. 2314 eg$=h$+"/"+ks$(100+h5):gosub2529:return
  172. 2334 ifdc=1thendc=3:return
  173. 2335 gosub9782:ze=23:sp=8:gosub11050:printks$(20);:gosub11445
  174. 2336 ifeg=78then2342
  175. 2338 gr=142:ifpeek(53272)=27thengr=14
  176. 2339 gosub2432:ifdc<>4thengosub11022:br%(1)=21:br%(2)=3:br%(3)=4:gosub11260:ug=1
  177. 2340 dc=2:return
  178. 2342 gosub9782:return
  179. 2353 ifpg=sethenreturn
  180. 2354 gosub11243:en=en+af%(pg):nf=en:pg=pg+1:gosub6010:ll=1:return
  181. 2366 ifpg=1thenreturn
  182. 2368 gosub11243:pg=pg-1:gosub6010:en=en-af%(pg):nf=en:ll=1:return
  183. 2380 ze=0:sp=0:gosub11050:printks$(6):gosub11050:printks$(32):p=2:rv=1:gz=2
  184. 2383 sp=36:ze=0:gosub11303:h=val(eg$):if(h<1orh>se)orh=pgthen2390
  185. 2387 ifh>pgthenfors1=pgtoh-1:en=en+af%(s1):nexts1:nf=en:goto2389
  186. 2388 fors1=htopg-1:en=en-af%(s1):nexts1:nf=en
  187. 2389 ll=1:gosub11243:pg=h:gosub6010
  188. 2390 ze=0:sp=0:gosub11050:printks$(27):ze=0:sp=9:gosub11050:printchr$(18)dd$(si)chr$(146):return
  189. 2398 gosub11243:pg=es:nf=1:ll=1:en=1:gosub6010:return
  190. 2424 gosub2432:pg=es:nf=1:ll=1:en=1:gosub6010:return
  191. 2432 pg=es:gosub6010:s1=0
  192. 2433 fornf=1toaf:s1=s1+1:ifs1<=af%(pg)then2438
  193. 2435 gosub11243
  194. 2436 pg=pg+1:ifaf%(pg)=0then2436
  195. 2437 s1=1:gosub6010
  196. 2438 gosub2444:nextnf:gosub11243:return
  197. 2444 iffd(nf,2)=1thenpokefd(nf,1),102:return
  198. 2445 h1=int(fd(nf,1)/256):h2=fd(nf,1)-h1*256
  199. 2447 h5=fd(nf,1)+fd(nf,2)-1:h3=int(h5/256):h4=h5-h3*256
  200. 2448 lb(1)=h2:hb(1)=h1:lb(2)=h4:hb(2)=h3:aw=102:gosub11710:return
  201. 2464 ff=f1%(pg):gosub11170:f1%(pg)=ff:return
  202. 2472 ff=f2%(pg):gosub11200:f2%(pg)=ff:return
  203. 2480 ff=f3%(pg):gosub11230:f3%(pg)=ff:return
  204. 2487 gosub11243:s7=0:zp=pg:gosub6140:s2=0:s4=0:zf=nf:pg=es:gosub6010
  205. 2488 fors1=1toaf:s7=s7+1:ifs7>af%(pg)thengosub11243:gosub2496
  206. 2489 iffa%(s1)=5thens2=s2+1:gosub2504:nf=s1:s4=s4+1:gosub2517
  207. 2490 if fa%(s1)=14 then s4=s4+1:nf=s1:eg$=str$(f(s1)):gosub 2517
  208. 2492 nexts1:gosub11243:nf=zf:pg=zp:gosub6010:return
  209. 2496 pg=pg+1:ifaf%(pg)=0then2496
  210. 2497 s7=1:gosub6010:return
  211. 2500 fors2=1tos5:ifro%(s2)<>nfthennexts2
  212. 2504 ons2gosub11,13,15,17,19,21,23,25,27,29,31,33,35,37,39
  213. 2506 eg$=str$(r):return
  214. 2515 fors4=1tos3:iffo%(s4)<>nfthennexts4
  215. 2517 h$=str$(val(eg$))
  216. 2520 fors6=1tolen(h$):ifmid$(h$,s6,1)<>"." thennexts6
  217. 2521 h1=val(left$(fo$(s4),2)):h2=val(right$(fo$(s4),2))
  218. 2522 h3=h1:ifh1>s6-1thenh3=s6-1
  219. 2524 h1$=mid$(h$,s6-h3,h3):h2$=mid$(h$,s6+1,h2)
  220. 2527 eg$=left$(l$,h1-len(h1$))+h1$+"."+h2$+left$(ks$(33),h2-len(h2$))
  221. 2528 ifh2=0theneg$=left$(eg$,len(eg$)-1)
  222. 2529 h1=fd(nf,1)-50176:ze=int(h1/40):sp=h1-40*ze:gosub11050:printeg$:return
  223. 2533 gosub11243:gosub9782:zp=pg:pg=es:gosub6010:ze=23:sp=5:gosub11050:printks$(38)c$c$
  224. 2534 ag$="":s2=0:open1,8,2,dd$(si)+".r,l,"+chr$(254)
  225. 2536 ifgf>0thengosub2587:p1=0:goto2538
  226. 2537 p1=1:fors1=1to3:po(s1)=np(s1):nexts1
  227. 2538 fors1=1to3:op(s1)=po(s1):nexts1
  228. 2539 ifpo(3)=1thene=0:goto2543
  229. 2540 e=1:print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(1)
  230. 2541 poke2,po(3)-1:poke69,82:poke70,177:sys52453
  231. 2543 print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(1)
  232. 2545 fors1=1toaf:h1=int(fd(s1,1)/256):h2=fd(s1,1)-h1*256
  233. 2546 g1=int(fd(s1,2)/255):g2=fd(s1,2)-g1*255
  234. 2548 s2=s2+1:ifs2<=af%(pg)then2552
  235. 2549 pg=pg+1:ifaf%(pg)=0then2549
  236. 2550 s2=1:gosub6010
  237. 2552 fors6=1tog1+1:ifs6<>g1+1thenh4=255:goto2554
  238. 2553 h4=g2
  239. 2554 poke253,h2:poke254,h1:poke2,h4:poke69,69:poke70,199:sys52493
  240. 2555 ifs6<>g1+1thenh3=h1*256+h2+255:h1=int(h3/256):h2=h3-h1*256
  241. 2556 ifs1=nsands6=1theni$=left$(eg$,as)
  242. 2560 l1=255-po(3)
  243. 2564 ifl1>h4thenag$=ag$+eg$:po(3)=po(3)+h4:nexts6:nexts1:goto2571
  244. 2566 ifl1=h4thenag$=ag$+eg$:gosub2582:nexts6:nexts1:goto2574
  245. 2568 ag$=ag$+left$(eg$,l1):gosub2582:h=h4-l1:ag$=right$(eg$,h)
  246. 2569 ifh=254thengosub2582:nexts6:nexts1:goto2574
  247. 2570 po(3)=po(3)+h:nexts6:nexts1
  248. 2571 print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(po(3))
  249. 2572 poke2,255-po(3):poke69,82:poke70,178:sys52453
  250. 2573 print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(1):print#1,r1$+ag$+r2$;
  251. 2574 gosub11322:close1:ifp1=1thenfors1=1to3:np(s1)=po(s1):nexts1
  252. 2575 fors1=1to3:po(s1)=op(s1):next:gosub6215:gosub9782:ze=23:sp=5:gosub11050:printks$(37)c$c$
  253. 2576 poke2,1:sys51833:gosub9782:ag$="":r1$="":r2$="":ifdc=1thendc=2:return
  254. 2577 ze=23:sp=7:gosub11050:printks$(36);:gosub11445:gosub9782
  255. 2578 ifeg=78thenpg=zp:gosub6010:return
  256. 2579 gosub2424:return
  257. 2582 ife=1thene=0:print#1,r1$+ag$;:r1$="":goto2584
  258. 2583 print#1,ag$;
  259. 2584 po(3)=1:po(1)=po(1)+1:ifpo(1)=256thenpo(1)=0:po(2)=po(2)+1
  260. 2585 print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(po(3)):ag$="":return
  261. 2587 gf=gf-1:h1=i2+gf*3:hb(1)=int(h1/256):lb(1)=h1-256*hb(1):h1=h1+2
  262. 2588 hb(2)=int(h1/256):lb(2)=h1-256*hb(2)
  263. 2590 lb(3)=37:hb(3)=194:aw=1:gosub11760
  264. 2595 fors1=1to3:po(s1)=peek(49700+s1):nexts1:return
  265. 2642 ze=0:sp=0:gosub11050:printks$(6):gosub11050:printks$(2):p=2:rv=1:gz=3:sp=37:gosub11303
  266. 2643 ze=0:sp=0:gosub11050:printks$(a3):ze=0:sp=9:gosub11050:printchr$(18)dd$(si)chr$(146)
  267. 2644 h=val(eg$):ifh<25orh>100thenreturn
  268. 2645 poke56325,h:return
  269. 2657 ifsi=0thenprintchr$(147):ze=10:sp=0:gosub11050:printks$(39):poke2,1:sys51833:ug=1:return
  270. 2658 gosub11022
  271. 2659 printchr$(14)chr$(8):ze=9:sp=0:gosub11050:printks$(44)
  272. 2660 ze=0:sp=0:gosub11050:printks$(43)ks$(3):ze=5:sp=7:gosub11050:printks$(145);:gosub11027
  273. 2665 gosub11445:ifeg=78thenug=1:return
  274. 2668 printchr$(74)
  275. 2670 i$=dd$(si)+".i":print#15,"s:"+i$
  276. 2672 open1,8,2,i$+",s,w":print#1,at,r$,mt,r$,ea,r$,gf
  277. 2675 print#1,np(1),r$,np(2),r$,np(3):close1:h1=int(ea/256):h2=ea-256*h1
  278. 2677 lb(1)=154:hb(1)=246:lb(2)=h2:hb(2)=h1:lb(3)=0:hb(3)=160:aw=1:gosub11760
  279. 2678 h3=40960+ea-i1:h1=int(h3/256)
  280. 2680 h2=h3-256*h1:i$=dd$(si)+".s":print#15,"s:"+i$:si=0
  281. 2682 lb(1)=0:hb(1)=160:lb(2)=h2:hb(2)=h1:qx$=i$:gosub11810:i$=dd$(si)+".r":gosub5830
  282. 2684 fors1=11to39step2:qx$=ks$(45)+ks$(45):lb(1)=s1:gosub6960:next s1:poke601,15
  283. 2686 gosub5758:lb(1)=154:hb(1)=246:lb(2)=255:hb(2)=255:aw=32:gosub11710:ug=1:return
  284. 3010 ifsi=0thenprintchr$(147):ze=10:sp=0:gosub11050:printks$(39):poke2,1:sys51833:ug=1:return
  285. 3012 ifat=0thenprintchr$(147):ze=10:sp=0:gosub11050:printks$(34):poke2,1:sys51833:ug=1:return
  286. 3015 sl=-1:a3=28:dm=5:gosub6775
  287. 3025 ifug=1thendc=0:return
  288. 3030 gosub11455:ifeg=8thengosub6131:goto3030
  289. 3031 ifeg=32thensys49872:goto3030
  290. 3032 fors1=41to56:iffc%(s1)<>egthennexts1:goto3030
  291. 3035 ifs1>50thens1=s1-10:goto3045
  292. 3040 ons1-40gosub2334,3065,3080,3092,2464,2472,2480,3130,3181,3337:goto3025
  293. 3045 ons1-40gosub3341,3345,3355,3370,3392,3425:goto3025
  294. 3065 ifpg=sethenreturn
  295. 3070 pg=pg+1:gosub6010:return
  296. 3080 ifpg=1thenreturn
  297. 3082 pg=pg-1:gosub6010:return
  298. 3092 ze=0:sp=0:gosub11050:printks$(6):ze=0:sp=0:gosub11050:printks$(32):p=2:rv=1:gz=2
  299. 3095 sp=36:ze=0:gosub11303:h=val(eg$):if(h<1orh>se)orh=pgthen3115
  300. 3100 pg=h:gosub6010
  301. 3115 ze=0:sp=0:gosub11050:printks$(28):ze=0:sp=9:gosub11050:printchr$(18)dd$(si)chr$(146):return
  302. 3130 ifsl=-1then3134
  303. 3131 gosub9782:ze=23:sp=2:gosub11050:printks$(50);:gosub11445:ifeg=78thensl=0:goto3134
  304. 3132 t3=sl:gosub3171:goto3157
  305. 3134 gosub9782:gosub2432:pg=sf:gosub6010
  306. 3135 h1=fd(ns,1)-50176:c1=int(h1/40):c2=h1-40*c1
  307. 3137 h3=int(fd(ns,1)/256):h4=fd(ns,1)-h3*256
  308. 3140 g1=int(fd(ns,2)/256):g2=fd(ns,2)-g1*256
  309. 3142 ze=23:sp=7:gosub11050:printks$(46)c$c$
  310. 3145 ze=c1:sp=c2:gosub11050:print;:lb(1)=0:lb(2)=1:gosub6920:eg=peek(2)
  311. 3147 ifeg=141thengosub9782:pg=es:gosub6010:return
  312. 3150 poke253,h4:poke254,h3:poke2,as:poke69,73:poke70,128:sys52493:gosub6305
  313. 3152 ife<>0thenze=23:sp=6:gosub11050:printks$(48)c$c$:poke2,1:sys51833:gosub9782:goto3142
  314. 3155 gosub3171:sh=t3:sl=t3
  315. 3157 ifsl<=shthensl=sl-1:gosub3176:ife<>0thensl=sh:goto3163
  316. 3160 ifsl<=shthen3165
  317. 3163 sl=sl+1:gosub3176:ife<>0thensl=-1:return
  318. 3165 ze=23:sp=5:gosub11050:printks$(51)c$c$:return
  319. 3171 gosub6330:gosub6355:return
  320. 3176 t4=i3+sl*(as+3):h1=int(t4/256):h2=t4-256*h1
  321. 3177 lb(1)=1:gosub6935:e=peek(2):return
  322. 3181 t3=-1:ifcd=-1then3185
  323. 3182 gosub9782:ze=23:sp=1:gosub11050:printks$(26);:gosub11445:gosub9782:ifeg=78thencd=-1:goto3184
  324. 3183 t3=cd:goto3282
  325. 3184 fors1=1toaf:vz%(s1)=0:nexts1
  326. 3185 gosub2424:gosub9782:ze=23:sp=4:gosub11050:printks$(97)c$c$:pg=es:nf=1:ll=1:en=1
  327. 3186 gosub6010:a4=98:ud=0
  328. 3190 ifud=1thenud=0:return
  329. 3195 gosub6027:fors1=57to67:iffc%(s1)<>egthennexts1:goto3195
  330. 3205 ons1-56gosub3225,2353,2366,2380,3211,2398,2424,2444,2487,3240,3269,2642:goto3190
  331. 3211 iffa%(nf)=5thengosub2500:gosub2515:goto3215
  332. 3212 s1=nf:gosub6160
  333. 3213 iffa%(nf)=14thengosub2515
  334. 3214 iffa%(nf)=4thengosub2287
  335. 3215 ifnf=afthengosub11243:goto3218
  336. 3216 nf=nf+1:ll=ll+1:ifll>af%(pg)thengosub6115:ll=1
  337. 3217 return
  338. 3218 gosub9782:ze=23:sp=6:gosub11050:printks$(47);:gosub11445:gosub9782:ifeg=78thenreturn
  339. 3219 gosub3269:return
  340. 3225 gosub9782:ze=23:sp=8:gosub11050:printks$(20);:gosub11445
  341. 3227 ifeg=78thenze=23:sp=4:gosub11050:printks$(97)c$c$:return
  342. 3230 pg=es:gosub6010:s1=0:fornf=1toaf:s1=s1+1:ifs1<=af%(pg)then3234
  343. 3231 gosub11243
  344. 3232 pg=pg+1:ifaf%(pg)=0then3232
  345. 3233 s1=1:gosub6010
  346. 3234 pokefd(nf,1)-1,60:pokefd(nf,1)+fd(nf,2),62:gosub2444
  347. 3235 nextnf:gosub11243:gosub9782:t3=0:ud=1:return
  348. 3240 p1=fd(nf,1)-1:h1=p1-50176:ze=int(h1/40):sp=h1-ze*40:gosub11050:print;
  349. 3242 sys51682:eg=peek(2):if eg=13 then return
  350. 3243 ifeg=76thenpokep1,60:pokep1+fd(nf,2)+1,62:vz%(nf)=0:goto3242
  351. 3245 ifeg=133thenpokep1,188:goto3260
  352. 3247 ifeg=134thenpokep1,190:goto3260
  353. 3250 ifeg=135thenpokep1,162:goto3260
  354. 3251 ifeg=136thenpokep1,142:goto3260
  355. 3252 ifeg=137thenpokep1,139:goto3260
  356. 3255 ifeg=138thenpokep1,135:goto3260
  357. 3257 ifeg=139thenpokep1+fd(nf,2)+1,143:vz%(nf)=vz%(nf)or128:goto3242
  358. 3258 goto3242
  359. 3260 vz%(nf)=(vz%(nf)and128)or(eg-130):goto3242
  360. 3269 gosub11243:pg=es:gosub6010:i4=45160:s2=0:fors1=1toaf:s2=s2+1:ifs2<=af%(pg)then3273
  361. 3270 gosub11243
  362. 3271 pg=pg+1:ifaf%(pg)=0then3271
  363. 3272 s2=1:gosub6010
  364. 3273 ifpeek(fd(s1,1))=42thenvz%(s1)=1:goto3280
  365. 3274 if(vz%(s1)and127)=5then3280
  366. 3275 iffd(s1,2)=1thenpokei4,peek(fd(s1,1)):i4=i4+1:goto3280
  367. 3276 hb(1)=int(fd(s1,1)/256):lb(1)=fd(s1,1)-hb(1)*256
  368. 3277 h1=fd(s1,1)+fd(s1,2)-1:hb(2)=int(h1/256):lb(2)=h1-hb(2)*256
  369. 3278 hb(3)=int(i4/256):lb(3)=i4-256*hb(3)
  370. 3279 aw=1:gosub11760:i4=i4+fd(s1,2)
  371. 3280 p1=fd(s1,1)-1:pokep1,60:pokep1+fd(s1,2)+1,62:nf=s1:gosub2444:nexts1:gosub11243
  372. 3281 i4=i4+1:h1=int(i4/256):h2=i4-256*h1:gosub6950
  373. 3282 gosub9782:ze=23:sp=11:gosub11050:printks$(109)c$c$:open1,8,2,dd$(si)+".r,l,"+chr$(254)
  374. 3283 ift3=at-1thenclose1:ze=23:ag$=ks$(53):gosub11585:cd=-1:ud=1:return
  375. 3284 t3=t3+1:gosub6330:print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(po(3))
  376. 3285 i4=45160
  377. 3286 a4=0:l2=0:fors1=1toaf:s6=0:ifvz%(s1)=1thengosub3328:nexts1:goto3325
  378. 3287 g1=int(fd(s1,2)/255):g2=fd(s1,2)-g1*255
  379. 3288 fors6=1tog1+1:l1=255-po(3):ifs6<>g1+1thenh4=255:goto3290
  380. 3289 h4=g2
  381. 3290 ifz=1thenz=0:print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(po(3))
  382. 3292 ifl1>h4thenqx=h4:gosub6905:po(3)=po(3)+h4:goto3303
  383. 3295 ifl1=h4thenqx=h4:gosub6905:gosub6396:goto3303
  384. 3297 poke2,l1:poke69,90:poke70,215:sys52453:gosub6396:qx=h4-l1:gosub6905:eg$=zw$+eg$
  385. 3300 ifh4-l1=254thengosub6396:goto3303
  386. 3301 po(3)=po(3)+h4-l1
  387. 3303 p1=vz%(s1)and127:p2=vz%(s1)and128
  388. 3304 ifp1=5andp3=0thenp3=1:i4=i4-fd(s1-1,2)
  389. 3305 ifp1=5then3307
  390. 3306 ifvz%(s1-1)=5thenp3=0:i4=i4+fd(s1-1,2)
  391. 3307 h1=int(i4/256):h2=i4-256*h1
  392. 3308 poke251,h2:poke252,h1:poke69,69:poke70,199:sys49704:e=peek(2)
  393. 3309 ifp2=128thena4=1
  394. 3313 ifp1=3ande=2then3322
  395. 3314 ifp1=7and(e=2ore=0)then3322
  396. 3315 ifp1=4ande=1then3322
  397. 3316 ifp1=8and(e=1ore=0)then3322
  398. 3317 ifp1=5ande=0then3322
  399. 3318 ifp1=6ande<>0then3322
  400. 3319 ifp1<>6ande=0then3322
  401. 3320 ifp2=128thengosub3333:s6=g1+1:nexts6:nexts1:goto3325
  402. 3321 s6=g1+1:nexts6:s1=af:nexts1:goto3283
  403. 3322 ifp2=128thenl2=1
  404. 3323 ifp1<>5theni4=i4+h4
  405. 3324 nexts6:nexts1
  406. 3325 ifa4=1andl2<>1then3283
  407. 3326 close1:cd=t3:gosub6330:gosub6355:ud=1:return
  408. 3328 ifs6=g1+1thenreturn
  409. 3329 z=1:h1=fd(s1,2)-s6*255:h2=255-po(3)
  410. 3330 ifh2>h1thenpo(3)=po(3)+h1:return
  411. 3331 po(3)=1:po(1)=po(1)+1:ifpo(1)=256thenpo(1)=0:po(2)=po(2)+1
  412. 3332 h1=h1-h2:h2=254:goto3330
  413. 3333 gosub3328:ifp1<>5theni4=i4+fd(s1,2)-(s6-1)*255
  414. 3334 return
  415. 3337 ift3=at-1thengosub9782:ze=23:ag$=ks$(53):gosub11585:poke2,1:sys51833:gosub9782:return
  416. 3338 t3=t3+1:gosub3171:return
  417. 3341 ift3=0ort3=-1thengosub9782:ze=23:ag$=ks$(52):gosub11585:poke2,1:sys51833:gosub9782:return
  418. 3342 t3=t3-1:gosub3171:return
  419. 3345 ift3=-1thengosub9782:ze=23:ag$=ks$(96):gosub11585:poke2,1:sys51833:gosub9782:return
  420. 3347 t3=0:gosub3171:return
  421. 3355 ift3=-1thengosub9782:ze=23:ag$=ks$(96):gosub11585:poke2,1:sys51833:gosub9782:return
  422. 3357 t3=at-1:gosub3171:return
  423. 3370 ifdc=0thenze=23:sp=6:gosub11050:printks$(59)c$c$:poke2,1:sys51833:gosub9782:return
  424. 3375 ze=23:sp=8:gosub11050:printks$(20);:gosub11445:gosub9782:ifeg=78thenreturn
  425. 3380 ze=23:sp=7:gosub11050:printks$(10)c$c$:gosub6255:gosub2432:pg=es:gosub6010:dc=0:t3=0
  426. 3382 gosub9782:ze=23:sp=8:gosub11050:printks$(80)c$c$:poke2,1:sys51833:gosub9782:return
  427. 3392 ifdc=0thenze=23:sp=6:gosub11050:printks$(59)c$c$:poke2,1:sys51833:gosub9782:return
  428. 3400 ze=23:sp=8:gosub11050:printks$(20);:gosub11445:gosub9782:ifeg=78thenreturn
  429. 3405 ze=23:sp=6:gosub11050:printks$(81)c$c$:gosub6255
  430. 3407 pg=es:nf=1:ll=1:en=1:gosub6010:a4=35:gosub2226:gosub9782:ifdc=2thenreturn
  431. 3410 at=at+1:ds%(si)=at:gosub2533:gosub9782:return
  432. 3425 ifat=mtthenprintchr$(147):ze=8:sp=0:gosub11050:printks$(40)ks$(41)ks$(42):ug=1:return
  433. 3428 gosub9782:ze=23:sp=9:gosub11050:printks$(95)c$c$
  434. 3430 pg=es:nf=1:ll=1:en=1:gosub6010:a4=35:dc=4:gosub2226:dc=0:gosub9782:return
  435. 4510 printchr$(147)chr$(142)chr$(8):poke53280,1:poke53281,1:poke211,8:poke214,11
  436. 4530 sys58640:printchr$(144)" einen moment bitte !!! [146]":return
  437. 4810 ba(1)=1024:ba(2)=50176:dr=142:rs=0:hp=0:pt=39491:si=0:i1=63130:i2=i1+2
  438. 4815 i3=i1+152:mf%(1)=1:mf%(2)=1:mf%(3)=0:df%(1)=1:df%(2)=1:df%(3)=0:a3=0:a4=0
  439. 4820 ff=0:me=0:ug=0:ze=0:sp=0:fe=0:nn=0:ad=0:rv=0:gz=0:p=0:dd=0:dm=0:nf=0:ll=0
  440. 4825 en=0:pg=0:fm=0:fe$="":hz=0:c1=0:c2=0:c3=0:c4=0:hr=0:ea=0:gf=0:ns=0:sl=-1
  441. 4840 e=0:eg$="":eg=0:k=0:s1=0:ag$="":s2=0:rv$="":i$="":h$="":h1$="":h2$="":h=0
  442. 4842 h1=0:h2=0:h3=0:h4=0:h5=0:s6=0:s4=0:h3$="":zp=0:g1=0:g2=0:zw$="":s7=0:zf=0
  443. 4844 sz=0:sc=0:a1=0:z$="":z=0:l1=0:l2=0:cp=0:p3=0:p2=0:p1=0:cb=0:s=0:sh=0
  444. 4846 a2=0:t5=0:t1=0:t2=0:t3=0:t4=0:t1$="":i4=0:cd=-1:r1$="":r2$="":ud=0
  445. 4848 af=0:gr=0:se=0:es=0:s5=0:at=0:mt=0:s3=0:dl=0:sf=0:lf=0:zg$="":as=0:dc=0
  446. 4860 poke 56325,51:poke 650,128:open15,8,15:ti$="000000"
  447. 4861 l$="                                        ":c$=chr$(145):r$=chr$(13)
  448. 5005 lb(1)=0:hb(1)=240:lb(2)=153:hb(2)=246:aw=32:gosub11710
  449. 5015 lb(1)=154:hb(1)=246:lb(2)=255:hb(2)=255:aw=32:gosub11710
  450. 5027 gosub5758
  451. 5110 readsz
  452. 5115 fors1=1tosz:readsc:fors2=1tosc:readme$(s1,s2):nexts2:nexts1
  453. 5131 fors1=1to5:fors2=1to4:readap%(s1,s2):nexts2:nexts1
  454. 5135 fors1=1to2:fors2=1to4:readhp%(s1,s2):nexts2:nexts1:ph(1)=52566:ph(2)=52570
  455. 5139 readsz:fors1=1tosz:readks$(s1):nexts1
  456. 5144 readfm:fors1=1tofm:readfc%(s1):nexts1
  457. 5146 return
  458. 5150 data2
  459. 5156 data16,"     datenpflege"
  460. 5158 data"[164][164][164][164]","[165]f1[167] : --- datei-directory  ---","[163][163][163][163]"
  461. 5160 data"[164][164][164][164]","[165]f3[167] : --- datei einladen   ---","[163][163][163][163]"
  462. 5162 data"[164][164][164][164]","[165]f5[167] : --- daten eingeben   ---","[163][163][163][163]"
  463. 5164 data"[164][164][164][164]","[165]f7[167] : --- daten ausgeben   ---","[163][163][163][163]"
  464. 5168 data"[164][164][164][164]","[165]f2[167] : --- datei speichern  ---","[163][163][163][163]"
  465. 5190 data17,"sonderfunktionen"
  466. 5192 data"[164][164][164][164]","[165]f1[167] : -- directory ausgeben   --","[163][163][163][163]"
  467. 5194 data"[164][164][164][164]","[165]f3[167] : -- disk-kommando senden --","[163][163][163][163]"
  468. 5196 data"[164][164][164][164]","[165]f5[167] : -- zeichensatz einladen --","[163][163][163][163]"
  469. 5200 data"---------------------------------"
  470. 5202 data"[164][164][164][164]","[165]f7[167] : -- lademenue aufrufen   --","[163][163][163][163]"
  471. 5204 data"[164][164][164][164]","[165]f8[167] : -- programm beenden     --","[163][163][163][163]"
  472. 5250 data0,160,71,163,72,163,143,166,144,166,215,169,216,169,31,173
  473. 5252 data32,173,103,176
  474. 5277 data0,240,71,243,82,243,153,246
  475. 5351 data145
  476. 5352 data"kein datei-directory auf diskette !!"
  477. 5354 data"100<-langsamer[221]schneller->25+'return'[146]"
  478. 5356 data"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  479. 5358 data"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  480. 5360 data".............."
  481. 5362 data"                                        [146]"
  482. 5364 data"[213]nter welchem [206]amen wurde der [218]eicheng. "
  483. 5368 data".."
  484. 5370 data"..."
  485. 5372 data"datensatz wird geloescht !"
  486. 5374 data " >>>> [200]auptmenue: '[211]hift'+'[210]eturn' <<<<"
  487. 5376 data"dt-laden/name d. datei? >              <[146]"
  488. 5378 data"     diese datei existiert nicht !!     [146]"
  489. 5380 data"datei ist eingeladen !"
  490. 5382 data"-database 64------------datei-directory-[146]"
  491. 5384 data"[206]ame der [196]atei ?: >              <"
  492. 5386 data"[196]iese [196]atei existiert nicht !!"
  493. 5388 data" [196]atabase 64             [196]atei einladen "
  494. 5390 data"  dt-loeschen/name ?: >              <  [146]"
  495. 5392 data"sind sie sicher ? (j/n)"
  496. 5394 data"dt-umben/>              =              <[146]"
  497. 5396 data"scratching : "
  498. 5398 data"renaming : "
  499. 5400 data"datei ist geloescht !"
  500. 5402 data"datei ist umbenannt !"
  501. 5404 data"mit alter maske weitersuchen ? (j/n)"
  502. 5406 data"-datei: >              <-/daten-eingabe-[146]"
  503. 5408 data"-datei: >              <-/daten-ausgabe-[146]"
  504. 5410 data"-datei: >              <-/listenausgabe-[146]"
  505. 5412 data" [196]atabase 64          [218]eichensatz laden "
  506. 5414 data" f1 "
  507. 5416 data"--seitennummer (1-5) ? + 'return' :>  <-[146]"
  508. 5418 data"000000000000000"
  509. 5420 data"      keine datensaetze vorhanden!      [146]"
  510. 5422 data"datensatz abspeichern ? (j/n) "
  511. 5424 data"eingabe loeschen ? (j/n) "
  512. 5426 data"datensatz ist abgespeichert !"
  513. 5428 data"datensatz wird abgespeichert !"
  514. 5430 data"       keine datei im rechner !!!       [146]"
  515. 5432 data"    --- die datei ist belegt !! ---     "
  516. 5434 data"    es koennen keine weiteren daten     "
  517. 5436 data"          eingegeben werden !"
  518. 5438 data" [196]atabase 64            [196]atei speichern "
  519. 5440 data" ([196]ie [196]atei im [210]echner wird geloescht!) "
  520. 5442 data":::::::::::::::::::::::::::::::::::::::"
  521. 5444 data"bitte schluessel eingeben!"
  522. 5446 data"mit suche beginnen ? (j/n) "
  523. 5448 data"schluessel existiert nicht !"
  524. 5450 data"datensatz wird eingeladen!"
  525. 5452 data"naechsten datensatz ausgeben ?(j/n)"
  526. 5454 data"weitere datensaetze vorhanden!"
  527. 5456 data"anfang der datei erreicht!"
  528. 5458 data"ende der datei erreicht!"
  529. 5460 data"    [214]or [194]eendung des [208]rogramms muss     [146]"
  530. 5462 data"    die [196]atei abgespeichert werden!     [146]"
  531. 5464 data
  532. 5466 data
  533. 5468 data
  534. 5470 data"kein datensatz im rechner !!"
  535. 5472 data" [196]atabase 64                  [196]irectory "
  536. 5474 data"        [146]"
  537. 5476 data"     "
  538. 5478 data"     [215]eiter mit '[211]pace'    [146]":rem-63-
  539. 5480 data"                            "
  540. 5482 data" [196]atabase 64             [196]isk-[203]ommandos "
  541. 5484 data"  [211]aemtliche [196]isk-[203]ommandos koennen in  "
  542. 5486 data"  folgender,abgekuerzter [198]orm eingege-  "
  543. 5488 data"  ben werden:"
  544. 5490 data"    k:...................._([196]ateiname,  "
  545. 5492 data"    ^                       usw.)         "
  546. 5494 data"  ([203]ommando)"
  547. 5496 data"  z.[194].: [196]atei umbenennen:               "
  548. 5498 data"                   >r:neuname=altname<  "
  549. 5500 data"        [196]atei loeschen:                 "
  550. 5502 data"                   >s:dateiname<          "
  551. 5504 data"------------------------------------  "
  552. 5506 data"  [201]hr [203]ommando? : [146] > :"
  553. 5508 data"<  + '[210]eturn'        "
  554. 5510 data"  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]  "
  555. 5512 data"datensatz ist geloescht!"
  556. 5514 data"bitte aenderungen eingeben !"
  557. 5516 data"[211]ind [211]ie sicher ? (j/n) "
  558. 5518 data"[203]ommandoeingabe loeschen ? (j/n) "
  559. 5520 data"[211]ie haben mit dem [208]rogramm"
  560. 5522 data" [196]atabase 64           [208]rogramm beenden "
  561. 5524 data"[211]ind [211]ie sicher,dass [211]ie"
  562. 5526 data"das [208]rogramm beenden"
  563. 5528 data"wollen ? (j/n) "
  564. 5530 data"gearbeitet !"
  565. 5532 data" [211]tunde "
  566. 5534 data" [205]inute "
  567. 5536 data" [211]ekunde "
  568. 5538 data"und "
  569. 5540 data"[157]n "
  570. 5542 data"bitte daten eingeben !"
  571. 5544 data"keine datensaetze vorhanden!"
  572. 5546 data"bitte selektionsmaske eingeben !"
  573. 5548 data"mit selektion beginnen ? (j/n)"
  574. 5550 data"saving : "
  575. 5552 data"mo"
  576. 5554 data"di"
  577. 5556 data"mi"
  578. 5558 data"do"
  579. 5560 data"fr"
  580. 5562 data"sa"
  581. 5564 data"so"
  582. 5566 data"f!"
  583. 5568 data"loading : "
  584. 5570 data"selektion beginnt!"
  585. 5572 data"                                  "
  586. 5574 data
  587. 5576 data
  588. 5578 data"   abgespeichert ? : >              <"
  589. 5580 data
  590. 5582 data "-database 64---------------helpscreen"
  591. 5584 data"-hs speichern/name ?: >              < -[146]"
  592. 5586 data"-hs laden  /  name ?: >              < -[146]"
  593. 5588 data"helpscreens vertauschen (j/n) ? "
  594. 5590 data,,,,,,,,,,,,,,,,,,,,,,,,
  595. 5640 data" [196]atabase 64         [204]ademenue aufrufen "
  596. 5642 data"[211]ind [211]ie sicher ? (j/n) "
  597. 5670 data67
  598. 5674 data19,18,146,20,148,144,5,28,134,133,147,137,138,13,135,136,139,3
  599. 5716 data133,134,135,137,136,144,5,28
  600. 5735 data13,141,135,136,19,147,76,144,5,28,86,83,140,3
  601. 5745 data141,135,136,140,144,5,28,73,70,78,86,69,76,68,82,65
  602. 5755 data141,135,136,140,13,19,147,76,86,77,75,3
  603. 5758 lb(1)=0:hb(1)=208:lb(2)=255:hb(2)=223:lb(3)=0:hb(3)=224:aw=3:gosub11760
  604. 5759 p1(1)=58160:p1(3)=59184:p1(2)=60208:p1(4)=61232
  605. 5760 fors2=1to2:p1=p1(s2):fors1=p1top1+6:pokes1,0:nexts1:pokep1+7,24:nexts2
  606. 5762 fors2=3to4:p1=p1(s2):fors1=p1top1+6:pokes1,255:nexts1:pokep1+7,231:nexts2
  607. 5765 return
  608. 5815 open1,8,2,"dat-dir,s,r":gosub11322:iffe<>0then5825
  609. 5820 si=0:input#1,ad:fors1=1toad:input#1,dd$(s1),sn%(s1),ds%(s1):nexts1
  610. 5825 close1:return
  611. 5830 i$="dat-dir":print#15,"s:"+i$:open1,8,2,"dat-dir,s,w"
  612. 5832 print#1,ad:fors1=1toad:print#1,dd$(s1)r$sn%(s1)r$ds%(s1):nexts1
  613. 5833 close1:return
  614. 5838 open1,8,2,i$+".d,s,r"
  615. 5840 input#1,cb,dl,sf,ns,es,af:poke56325,cb
  616. 5842 fors1=1toaf:fors2=1to2:input#1,fd(s1,s2):nexts2:nexts1
  617. 5845 input#1,lf:fors1=1toaf:input#1,fa%(s1):nexts1
  618. 5850 input#1,se:fors1=1tose:input#1,af%(s1):nexts1
  619. 5855 input#1,s3:ifs3=0then5861
  620. 5860 for s1=1tos3:input#1,fo%(s1),fo$(s1):nexts1
  621. 5861 input#1,s5:ifs5=0then5878
  622. 5867 s2=11:fors1=1tos5:input#1,ro%(s1),eg$
  623. 5870 qx$="r="+eg$:lb(1)=s2:gosub6960
  624. 5872 s2=s2+2:nexts1:poke601,15
  625. 5878 input#1,zg$,as,gr:fors1=1tose:input#1,f1%(s1),f2%(s1),f3%(s1):nexts1
  626. 5880 close1
  627. 5895 lb(1)=0:hb(1)=160:qx$=i$+".e":gosub11860
  628. 5900 ifzg$="k"then5940
  629. 5905 lb(1)=0:hb(1)=224:qx$=zg$+".z":gosub11860
  630. 5940 open1,8,2,i$+".i,s,r":input#1,at,mt:ifat=0thenclose1:goto5950
  631. 5942 input#1,ea,gf,np(1),np(2),np(3):close1:lb(1)=154:hb(1)=246:qx$=i$+".s"
  632. 5943 gosub11860:return
  633. 5950 gf=0:np(1)=1:np(2)=0:np(3)=1:ea=i3:return
  634. 5985 ifpg=sethenreturn
  635. 5987 gosub11243:pg=pg+1:goto5994
  636. 5990 ifpg=1thenreturn
  637. 5992 gosub11243:pg=pg-1
  638. 5994 gosub6010:return
  639. 5998 ze=0:sp=0:gosub11050:printks$(6):gosub11050:printks$(32)
  640. 6000 p=2:rv=1:gz=2:sp=34:ze=0:gosub11303:h=val(eg$):ifh<1orh>sethen6004
  641. 6002 gosub11243:pg=h:gosub6010
  642. 6004 ze=0:sp=0:gosub11050:printks$(a1):return
  643. 6010 ff=f3%(pg):gosub11235:gosub11239
  644. 6011 poke53280,f1%(pg):poke53281,f2%(pg):return
  645. 6013 gosub11243:gr=142:ifpeek(53272)=27thengr=14
  646. 6014 return
  647. 6027 ifaf%(pg)=0thens=0:goto6066
  648. 6030 s=1:h1=fd(nf,1)-50176:c1=int(h1/40):c2=h1-40*c1
  649. 6032 h3=int(fd(nf,1)/256):h4=fd(nf,1)-h3*256
  650. 6035 g1=int(fd(nf,2)/256):g2=fd(nf,2)-g1*256
  651. 6040 ze=c1:sp=c2:gosub11050:print;:lb(1)=8:lb(2)=0:gosub6920:eg=peek(2)
  652. 6047 ifeg=8thengosub6131:goto6030
  653. 6050 if(eg=157oreg=145)andnf>1thennf=nf-1:ll=ll-1:goto6073
  654. 6055 if(eg=29oreg=17)andnf<afthennf=nf+1:ll=ll+1:goto6073
  655. 6060 ifeg=13oreg=141thenreturn
  656. 6062 ifeg<>133then6030
  657. 6066 ze=22:sp=36:gosub11050:printchr$(18)ks$(31)c$c$chr$(146):geteg$:ifeg$<>""then6069
  658. 6067 fors1=1to75:nexts1:ze=22:sp=36:gosub11050:printks$(31)c$c$:fors1=1to75:nexts1:goto6066
  659. 6069 eg=asc(eg$):ifeg=141ands=1then6040
  660. 6070 return
  661. 6073 ifll=0thengosub6100:ll=af%(pg):goto6030
  662. 6075 ifll>af%(pg)thengosub6115:ll=1:goto6030
  663. 6080 goto6030
  664. 6100 gosub11243
  665. 6102 pg=pg-1:ifaf%(pg)=0then6102
  666. 6105 en=en-af%(pg):gosub6010:return
  667. 6115 gosub11243:en=en+af%(pg)
  668. 6120 pg=pg+1:ifaf%(pg)=0then6120
  669. 6125 gosub6010:return
  670. 6131 gosub11243:hp=2:gosub 9500:gosub 11022:printchr$(gr):poke781,dm:syspt
  671. 6132 gosub6010:ze=0:sp=9:gosub11050:printchr$(18)dd$(si)chr$(146):gosub11028:return
  672. 6140 pg=es:gosub6010:s2=0:fors1=1toaf:s2=s2+1:ifs2<=af%(pg)then6148
  673. 6144 pg=pg+1:ifaf%(pg)=0then6144
  674. 6146 s2=1:gosub6010
  675. 6148 gosub6160:next s1:return
  676. 6160 h1=int(fd(s1,1)/256):h2=fd(s1,1)-h1*256
  677. 6165 g1=int(fd(s1,2)/255):g2=fd(s1,2)-g1*255
  678. 6175 ifg1<>0theng2=255
  679. 6177 poke253,h2:poke254,h1:poke2,g2:poke69,69:poke70,199:sys52493:f(s1)=val(eg$):return
  680. 6215 ifat<>0then6230
  681. 6220 poke i1,51:poke i1+1,247:h2=50:h1=247:lb(1)=2:gosub6935:ea=ea+as+3
  682. 6225 h1=int(ea/256):h2=ea-256*h1:pokei1,h2:pokei1+1,h1
  683. 6226 fors1=1to3:pokei3+as-1+s1,po(s1):nexts1:at=at+1:ds%(si)=at:return
  684. 6230 gosub6305:ife=1then6235
  685. 6232 t3=t3+1
  686. 6235 h3=i3+t3*(as+3):h1=int(h3/256):h2=h3-256*h1:lb(1)=2:gosub6935
  687. 6237 fors1=1to3:pokeh3+as-1+s1,po(s1):nexts1:at=at+1:ds%(si)=at:ea=ea+as+3
  688. 6238 return
  689. 6255 gosub6330:h1=i2+gf*3-1:fors1=1to3:pokeh1+s1,peek(49700+s1):nexts1
  690. 6257 gf=gf+1:hb(2)=int(ea/256):lb(2)=ea-256*hb(2):t4=t4+1:hb(1)=int(t4/256)
  691. 6260 lb(1)=t4-256*hb(1):t4=t4-(as+3):hb(3)=int(t4/256)
  692. 6262 lb(3)=t4-256*hb(3):aw=1:gosub11760
  693. 6265 at=at-1:ds%(si)=at:ea=ea-(as+3)
  694. 6267 hb(1)=int(ea/256):lb(1)=ea-256*hb(1):pokei1,lb(1):pokei1+1,hb(1):return
  695. 6305 t1=0:t2=at:t5=int(log(at)/log(2)+1)
  696. 6310 t3=int((t1+t2)/2):t4=i3+t3*(as+3):h1=int(t4/256):h2=t4-256*h1
  697. 6315 lb(1)=1:gosub6935:e=peek(2):if e=0 then return
  698. 6320 t5=t5-1:ift5=0thenreturn
  699. 6325 ife=1thent2=t3:goto6310
  700. 6327 t1=t3:goto6310
  701. 6330 t4=i3+t3*(as+3)+as
  702. 6332 h1=int(t4/256):h2=t4-256*h1:t4=t4+2:h3=int(t4/256):h4=t4-256*h3
  703. 6333 lb(1)=h2:hb(1)=h1:lb(2)=h4:hb(2)=h3:lb(3)=37:hb(3)=194:aw=1:gosub11760
  704. 6335 fors1=1to3:po(s1)=peek(49700+s1):nexts1
  705. 6340 return
  706. 6355 gosub 9782:pg=es:gosub6010:ze=23:sp=7:gosub11050:printks$(49)c$c$:s2=0
  707. 6356 open1,8,2,dd$(si)+".r,l,"+chr$(254)
  708. 6357 print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(po(3))
  709. 6365 fors1=1toaf:g1=int(fd(s1,2)/255):g2=fd(s1,2)-g1*255
  710. 6367 fors6=1tog1+1:l1=255-po(3):ifs6<>g1+1thenh4=255:goto6375
  711. 6370 h4=g2
  712. 6375 ifl1>h4thenqx=h4:gosub6905:gosub6415:po(3)=po(3)+h4:nexts6:nexts1:goto6390
  713. 6380 ifl1=h4thenqx=h4:gosub6905:gosub6415:gosub6396:nexts6:nexts1:goto6390
  714. 6382 poke2,l1:poke69,90:poke70,215:sys52453:gosub6396:qx=h4-l1:gosub6905:eg$=zw$+eg$:gosub6415
  715. 6385 ifh4-l1=254thengosub6396:nexts6:nexts1:goto6390
  716. 6387 po(3)=po(3)+h4-l1:nexts6:nexts1
  717. 6390 close1:gosub9782:dc=1:return
  718. 6396 po(3)=1:po(1)=po(1)+1:ifpo(1)=256thenpo(1)=0:po(2)=po(2)+1
  719. 6397 print#15,"p"+chr$(2)+chr$(po(1))+chr$(po(2))+chr$(po(3)):return
  720. 6415 ifs6<>1then6435
  721. 6417 s2=s2+1:ifs2<=af%(pg)then6435
  722. 6420 gosub11243
  723. 6425 pg=pg+1:ifaf%(pg)=0then6425
  724. 6430 s2=1:gosub6010
  725. 6435 ifs6=1theng1=int(fd(s1,2)/255):h1=fd(s1,1)-50176:ze=int(h1/40):sp=h1-40*ze
  726. 6445 gosub11050:printeg$
  727. 6450 ifs6<>g1+1thenh1=h1+255:ze=int(h1/40):sp=h1-40*ze
  728. 6470 ifs1=afands6=g1+1thengosub11243:pg=es:gosub6010
  729. 6472 return
  730. 6775 gosub11022:br%(1)=24:br%(2)=0:br%(3)=196:gosub11260:printchr$(9)chr$(gr)
  731. 6780 poke781,dm:syspt:pg=es:nf=1:ll=1:en=1
  732. 6781 ze=0:sp=9:gosub11050:printchr$(18)dd$(si)chr$(146):gosub6010:gosub11028:return
  733. 6807 gosub 11022:printchr$(14):ze=0:sp=0:gosub11050:printks$(30)ks$(3):gosub11485
  734. 6808 ze=19:sp=0:gosub11050:printks$(79)chr$(17)ks$(79):gosub11027
  735. 6810 ze=5:sp=0:gosub11050:printks$(7)chr$(17)ks$(113)
  736. 6815 sp=22:ze=7:gz=14:rv=0:p=1:gosub11303:ifeg=141thenug=1:return
  737. 6822 eg$=eg$+".z":ze=20:sp=7:gosub11050:printks$(108)eg$
  738. 6825 lb(1)=0:hb(1)=224:qx$=eg$:gosub11860:gosub11322
  739. 6830 ze=20:sp=0:gosub11050:printl$:ag$=fe$:gosub11585:sp=0:gosub11050:printl$
  740. 6831 iffe<>0then6810
  741. 6832 ug=1:return
  742. 6905 poke2,qx:poke69,69:poke70,199:sys52453:return
  743. 6920 poke52445,h4:poke52446,h3:poke52436,g2:poke52437,g1:poke199,0:poke52440,13
  744. 6925 poke52441,141:poke52442,133:poke52443,lb(1):poke52444,lb(2):sys51946:return
  745. 6935 poke49700,as:poke49698,h2:poke49699,h1:poke49497,lb(1):poke69,73:poke70,128
  746. 6940 sys49460:return
  747. 6950 poke251,104:poke252,176:poke253,h2:poke254,h1:sys49787:return
  748. 6960 poke251,lb(1):poke69,81:poke70,216:sys49352:return
  749. 7010 a1=60:gosub7610:gosub11485:gosub11027
  750. 7055 open1,8,0,"$":get#1,h$,h$:i$=""
  751. 7057 gosub11322:iffe=0then7060
  752. 7058 close1:ze=12:sp=8:gosub11050:printfe$:poke2,2:sys51833:ug=1:return
  753. 7060 get#1,h$,h$,h$,h$
  754. 7065 get#1,h$:ifh$=""then7075
  755. 7070 i$=i$+h$:goto7065
  756. 7075 i$=ks$(61)+i$+ks$(61):ze=2:sp=0:gosub11050:printi$ks$(3)
  757. 7120 ze=4:sp=0:gosub11050:print;:z=0
  758. 7130 get#1,h$,h$:get#1,h$,z$:ifst<>0then7240
  759. 7135 h$=h$+chr$(0):z$=z$+chr$(0):e=asc(h$)+asc(z$)*256:printks$(62)e;
  760. 7190 get#1,h$:ifh$=""then7210
  761. 7200 printh$;:geteg$:ifeg$=chr$(141)thenprint:close1:ug=1:return
  762. 7205 goto7190
  763. 7210 print:z=z+1:ifz=17thengosub7300:goto7120
  764. 7220 goto7130
  765. 7240 close1:gosub7330:ug=1:return
  766. 7300 gosub7330:fors1=1to19:ze=3+s1:sp=6:gosub11050:printks$(64):nexts1:return
  767. 7330 ze=22:sp=6:gosub11050:printks$(63)
  768. 7335 get eg$:ifeg$<>" "then7335
  769. 7340 return
  770. 7500 a1=65:gosub7610:printc$ks$(66)ks$(67)ks$(68):print
  771. 7518 printks$(69)ks$(70)ks$(71):printchr$(17)ks$(72)ks$(73)
  772. 7520 printks$(74)ks$(75)ks$(76):printks$(77):ze=18:sp=20:gosub11050:printks$(78)
  773. 7522 printks$(79)chr$(17)ks$(79)ks$(4)ks$(11)c$c$:gosub11027
  774. 7550 ze=17:sp=20:gz=40:rv=0:p=1:gosub11303:ifeg=141thenug=1:return
  775. 7552 ifleft$(eg$,1)<>"n"andleft$(eg$,1)<>"s"then7560
  776. 7554 ze=21:sp=2:gosub11050:printks$(82);:gosub11445:sp=0:gosub11050:printl$:ifeg<>74then7565
  777. 7560 print#15,eg$:gosub11322:ag$=fe$:ze=21:gosub11585:poke2,2:sys51833
  778. 7565 ze=21:sp=2:gosub11050:printks$(83);:gosub11445:if eg<>74 then 7574
  779. 7573 ze=17:sp=20:gosub11050:printl$:poke1725,58
  780. 7574 ze=21:sp=0:gosub11050:printl$:goto7550
  781. 7610 gosub11022:printchr$(14)chr$(8)c$ks$(a1)ks$(3):return
  782. 7750 a1=85:gosub7610:ze=3:sp=6:gosub11050:printks$(84):ze=5:sp=1:gosub11050:print;
  783. 7755 a1=90:ag$=left$(ti$,2):gosub7795:ag$=mid$(ti$,3,2):gosub7795:printks$(93);
  784. 7765 ag$=right$(ti$,2):gosub7795:ze=7:sp=13:gosub11050:printks$(89)
  785. 7766 ze=10:sp=2:gosub11050:printks$(76)
  786. 7770 ze=13:sp=7:gosub11050:printks$(86):ze=15:sp=9:gosub11050:printks$(87)
  787. 7775 ze=17:sp=12:gosub11050:printks$(88);:gosub11027:gosub11445:ifeg=78then165
  788. 7785 close15:sys64738
  789. 7795 printag$ks$(a1);:ifval(ag$)<>1thenprintks$(94);
  790. 7800 a1=a1+1:return
  791. 9002 printchr$(147)chr$(14)chr$(8)
  792. 9005 ze=0:sp=0:gosub11050:printks$(144)ks$(3):ze=5:sp=7:gosub11050:printks$(145);
  793. 9010 gosub11445:ifeg=78then165
  794. 9020 printchr$(147)chr$(144)"load"chr$(34)"dbl"chr$(34)",8,1"
  795. 9030 poke631,19:poke632,13:poke198,2:end
  796. 9500 print"[200]elpscreen-[197]rror .  ([212]aste)";:poke198,0:wait198,1:poke198,0:return
  797. 9782 ze=23:sp=0:gosub11050:printchr$(146)l$c$c$:return
  798. 11022 printchr$(147):poke53280,1:poke53281,1
  799. 11023 poke53265,peek(53265)and239:return
  800. 11027 poke53280,mf%(1):poke53281,mf%(2)
  801. 11028 poke53265,peek(53265)or16:return
  802. 11035 c3=peek(248):c4=peek(247):cp=c3*256+c4+39:c2=int(cp/40):c1=cp-c2*40:return
  803. 11050 poke211,sp:poke214,ze:sys58640:return
  804. 11170 ff=ff+1:ifff>=15thenff=0
  805. 11175 poke53280,ff:return
  806. 11200 ff=ff+1:ifff>=15thenff=0
  807. 11205 poke53281,ff:return
  808. 11230 ff=ff+1:ifff>=15thenff=0
  809. 11235 lb(1)=0:hb(1)=216:lb(2)=231:hb(2)=219:aw=ff:gosub11710:poke646,ff:return
  810. 11239 lb(1)=ap%(pg,1):hb(1)=ap%(pg,2):lb(2)=ap%(pg,3):hb(2)=ap%(pg,4)
  811. 11240 lb(3)=40:hb(3)=196:aw=1:gosub11760:return
  812. 11243 lb(1)=40:hb(1)=196:lb(2)=111:hb(2)=199
  813. 11244 lb(3)=ap%(pg,1):hb(3)=ap%(pg,2):aw=1:gosub11760:return
  814. 11260 poke53272,br%(1):poke56576,peek(56576)and252orbr%(2):poke648,br%(3):return
  815. 11303 gosub11050:print;:p3=ze*40+sp+ba(p):p1=int(p3/256):p2=p3-256*p1
  816. 11305 poke52445,p2:poke52446,p1:poke52436,gz:poke52437,0:poke199,rv:poke52440,13
  817. 11306 poke52441,141:poke52442,0:poke52443,0:poke52444,1:sys51946
  818. 11308 if peek(2)=141 then eg=141:goto 11311
  819. 11310 poke253,p2:poke254,p1:poke2,gz:poke69,69:poke70,199:sys52493
  820. 11311 poke199,0:return
  821. 11322 input#15,fe,fe$,h$,z$:fe$=str$(fe)+","+fe$+","+h$+","+z$+" !!!":return
  822. 11445 sys51682:eg=peek(2):if eg<>74 and eg<>78 then 11445
  823. 11450 return
  824. 11455 geteg$:ifeg$=""then11455
  825. 11457 eg=asc(eg$):return
  826. 11465 gosub11022:printchr$(14)chr$(8)
  827. 11470 ze=0:sp=0:gosub11050:printks$(a1)ks$(3)ks$(a2)ks$(3):return
  828. 11485 ze=23:sp=0:gosub11050:printks$(4)ks$(11)c$c$:return
  829. 11510 return
  830. 11585 sp=int((40-len(ag$))/2):gosub11050:printag$c$c$:return
  831. 11710 poke251,lb(1):poke252,hb(1):poke253,lb(2):poke254,hb(2):poke2,aw:sys51479:return
  832. 11760 iflb(1)=lb(2)andhb(1)=hb(2)thenreturn
  833. 11764 poke249,lb(1):poke250,hb(1):poke251,lb(2):poke252,hb(2):poke253,lb(3):poke254,hb(3)
  834. 11765 poke2,aw:sys51586:return
  835. 11810 poke186,8:poke251,lb(1):poke252,hb(1):poke51713,lb(2)
  836. 11815 poke51714,hb(2):poke69,81:poke70,216:poke183,len(qx$):sys51716:return
  837. 11860 poke186,8:poke781,lb(1):poke782,hb(1):poke185,0:poke183,len(qx$)
  838. 11865 poke187,238:poke188,2:fors1=1tolen(qx$):poke749+s1,asc(mid$(qx$,s1,1))
  839. 11870 nexts1:poke780,0:sys65493:return
  840.