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