home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_94-04_1994_-_de_Side_B.d64 / zeitungen (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  14KB  |  467 lines
  1. 10 rem infoarchivierer
  2. 20 rem by rolling byte 2/94
  3. 30 poke53280,0:poke53281,0:print"[151][147]":poke650,128:goto300
  4. 40 bu$="":z=1
  5. 45 printp$+bu$+"[164] "
  6. 50 geta$:ifa$=""then50
  7. 60 ifa$=""ora$="[147]"ora$=""ora$="[157]"ora$=""ora$="[145]"then50
  8. 70 ifa$=chr$(13)thenreturn
  9. 80 ifa$=chr$(20)andz=0then50
  10. 90 ifa$=chr$(20)then130
  11. 110 ifz=vthen50
  12. 120 bu$=bu$+a$:z=z+1:goto140
  13. 130 bu$=left$(bu$,z-1):z=z-1
  14. 140 printp$+bu$+"[164] ":goto50
  15. 150 x$="[176]":fori=1toxl:x$=x$+"[195]":next:x$=x$+"[174]"
  16. 160 printp$+x$
  17. 170 x$="[194]":fori=1toxl:x$=x$+" ":next:x$=x$+"[194]"
  18. 180 fori=1toyl:printpx$+x$:next
  19. 190 x$="[173]":fori=1toxl:x$=x$+"[195]":next:x$=x$+"[189]"
  20. 200 printpx$+x$
  21. 210 return
  22. 300 dimtk$(120),he$(120),na$(120),nb$(120),nc$(120),od$(120),ze$(120),da$(120)
  23. 310 ds=0:
  24. 320 dimbu$(150)
  25. 330 p$="[151]":px$="":xl=37:yl=22:gosub150
  26. 340 print"[150]infoarchivierer
  27. 350 [153]"printr o l l i n g   b y t e  2/94poke"
  28. 360 [153]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<"
  29. 370 p$[178]"poke":px$[178]"":xl[178]15:yl[178]7:[141]150
  30. 380 [153]p$[170]"defneues blatt    list"
  31. 390 [153]"bearbeiten"
  32. 400 [153]"suchen"
  33. 410 [153]"drucken"
  34. 420 [153]"loaden"
  35. 430 [153]"saven"
  36. 440 [153]"directory"
  37. 450 p$[178]"poke":px$[178]"":xl[178]15:yl[178]10
  38. 460 [141]150
  39. 470 p$[178]"":[153]"list"[170]p$[170]"die menupunkte"
  40. 480 [153]p$[170]"mit den cursor-"
  41. 490 [153]p$[170]"tasten (up/dwn)"
  42. 500 [153]p$[170]"auswaehlen !!"
  43. 510 [153]p$[170]"fuer naehere er"
  44. 520 [153]p$[170]"laeuterung -"
  45. 530 [153]p$[170]"  defmagic disk"
  46. 540 [153]"cont(c) cp verlag":z[178]1
  47. 550 [161]a$:[139]a$[178]""[167]550
  48. 560 [139]a$[178]""[167]z[178]z[170]1:[137]600
  49. 570 [139]a$[178]"on"[167]z[178]z[171]1:[137]600
  50. 580 [139]a$[178][199](13)[167]770
  51. 590 [137] 550
  52. 600 [139]z[179]1[167]z[178]1:[137]550
  53. 610 [139]z[177]7[167]z[178]7:[137]550
  54. 620 [153]"listneues blatt    "
  55. 630 [153]"bearbeiten     "
  56. 640 [153]"suchen         "
  57. 650 [153]"drucken        "
  58. 660 [153]"loaden         "
  59. 670 [153]"saven          "
  60. 680 [153]"directory      "
  61. 690 [153]"def":[145]z[137]700,710,720,730,740,750,760,770
  62. 700 [153]"neues blatt    ":[137] 550
  63. 710 [153]"bearbeiten     ":[137] 550
  64. 720 [153]"suchen         ":[137]550
  65. 730 [153]"drucken        ":[137]550
  66. 740 [153]"loaden         ":[137]550
  67. 750 [153]"saven          ":[137]550
  68. 760 [153]"directory      ":[137]550
  69. 770 [145]z[137]775,1400,2320,3920,4230,4000,4450
  70. 775 [153]"load"
  71. 776 p$[178]"poke":px$[178]"":xl[178]37:yl[178]21:[141]150
  72. 780 [153]"defneues blatt anlegen"
  73. 790 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
  74. 800 [153]"themenkreis :"tk$(ds)""
  75. 810 [153]"thema       :"he$(ds)""
  76. 820 [153]"naeheres    :"na$(ds)
  77. 822 [153]""nb$(ds)
  78. 824 [153]""nc$(ds)""
  79. 830 [153]"ordner      :"od$(ds)""
  80. 840 [153]"zeitung     :"ze$(ds)""
  81. 850 [153]"datum       :"da$(ds)""
  82. 860 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
  83. 870 [153]"defeingabe      poke"
  84. 880 [153]"seite drucken"
  85. 890 [153]"ende"
  86. 900 [153]"pokeonononon="
  87. 910 [129]i[178]1[164]3:[153]"peek":[130]
  88. 920 [153]">"
  89. 930 [153]"onononblattzahl:"ds:z[178]1
  90. 940 [161]a$:[139]a$[178]""[167]940
  91. 950 [139]a$[178]""[167]z[178]z[170]1:[137]990
  92. 960 [139]a$[178]"on"[167]z[178]z[171]1:[137]990
  93. 970 [139]a$[178][199](13)[167]1080
  94. 980 [137] 940
  95. 990 [139]z[179]1[167]z[178]1:[137]940
  96. 1000 [139]z[177]3[167]z[178]3:[137]940
  97. 1010 [153]"pokeeingabe      "
  98. 1020 [153]"seite drucken"
  99. 1030 [153]"ende         "
  100. 1040 [153]"def":[145]z[137]1050,1060,1070
  101. 1050 [153]"eingabe      ":[137]940
  102. 1060 [153]"seite drucken":[137]940
  103. 1070 [153]"ende         ":[137]940
  104. 1080 [145]z[137]1090,1260,330
  105. 1090 [153]"":[129]i[178]1[164]14:[153]"                      ":[130]
  106. 1095 ds[178]ds[170]1:p$[178]"":v[178]15:[141]40
  107. 1100 tk$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  108. 1110 p$[178]"":v[178]15:[141]40
  109. 1120 he$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  110. 1130 p$[178]"":v[178]15:[141]40
  111. 1140 na$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  112. 1145 [139]na$(ds)[178]""[167]na$(ds)[178]" "
  113. 1150 p$[178]"":v[178]15:[141]40
  114. 1160 nb$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  115. 1170 p$[178]"":v[178]15:[141]40
  116. 1175 [139]nb$(ds)[178]""[167]nb$(ds)[178]" "
  117. 1180 nc$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  118. 1190 p$[178]"":v[178]7:[141]40
  119. 1195 [139]nc$(ds)[178]""[167]nc$(ds)[178]" "
  120. 1200 od$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  121. 1210 p$[178]"":v[178]12:[141]40
  122. 1220 ze$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  123. 1230 p$[178]"":v[178]11:[141]40
  124. 1240 da$(ds)[178]bu$:[153]p$[170]bu$[170]"  "
  125. 1250 [137] 776
  126. 1260 ix[178]ds:[141]1300
  127. 1270 [137] 775
  128. 1300 [159]4,4:[152]4:[152]4,"---------------------------------------":[152]4
  129. 1310 [152]4,"themenkreis :"[170]tk$(ix):[152]4
  130. 1320 [152]4,"thema       :"[170]he$(ix):[152]4
  131. 1330 [152]4,"naeheres    :"[170]na$(ix)
  132. 1340 [152]4,"             "[170]nb$(ix)
  133. 1350 [152]4,"             "[170]nc$(ix):[152]4
  134. 1360 [152]4,"ordner      :"[170]od$(ix):[152]4
  135. 1370 [152]4,"zeitung     :"[170]ze$(ix):[152]4
  136. 1380 [152]4,"datum       :"[170]da$(ix):[152]4
  137. 1390 [152]4,"---------------------------------------":[152]4:[160]4:[142]
  138. 1400 [139]ds[178]0[167]330
  139. 1405 [153]"load":p$[178]"poke":px$[178]"":xl[178]37:yl[178]21:[141]150
  140. 1410 [153]"defblatt bearbeiten"
  141. 1420 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
  142. 1430 [153]"themenkreis :"tk$(1)""
  143. 1440 [153]"thema       :"he$(1)""
  144. 1450 [153]"naeheres    :"na$(1)
  145. 1460 [153]""nb$(1)
  146. 1470 [153]""nc$(1)""
  147. 1480 [153]"ordner      :"od$(1)""
  148. 1490 [153]"zeitung     :"ze$(1)""
  149. 1500 [153]"datum       :"da$(1)""
  150. 1510 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
  151. 1530 [153]"defbearbeiten   poke"
  152. 1540 [153]"seite drucken"
  153. 1550 [153]"ende"
  154. 1560 [153]"pokeonononon="
  155. 1570 [129]i[178]1[164]3:[153]"peek":[130]
  156. 1580 [153]">"
  157. 1590 [153]"ononon+wait/-wait blaettern":z[178]1:ix[178]1
  158. 1600 [161]a$:[139]a$[178]""[167]1600
  159. 1610 [139]a$[178]"+"[167]ix[178]ix[170]1:[137]1670
  160. 1620 [139]a$[178]"-"[167]ix[178]ix[171]1:[137]1670
  161. 1630 [139]a$[178]""[167]z[178]z[170]1:[137]1790
  162. 1640 [139]a$[178]"on"[167]z[178]z[171]1:[137]1790
  163. 1650 [139]a$[178][199](13)[167]1860
  164. 1660 [137] 1600
  165. 1670 [139]ix[179]1[167]ix[178]1:[137]1600
  166. 1680 [139]ix[177]ds[167]ix[178]ds:[137]1600
  167. 1690 [153]"":[129]i[178]1[164]14:[153]"                      ":[130]
  168. 1695 [153]"list"
  169. 1700 [153]"themenkreis :"tk$(ix)""
  170. 1710 [153]"thema       :"he$(ix)""
  171. 1720 [153]"naeheres    :"na$(ix)
  172. 1730 [153]""nb$(ix)
  173. 1740 [153]""nc$(ix)""
  174. 1750 [153]"ordner      :"od$(ix)""
  175. 1760 [153]"zeitung     :"ze$(ix)""
  176. 1770 [153]"datum       :"da$(ix)""
  177. 1780 [137]1600
  178. 1790 [139]z[179]1[167]z[178]1:[137]1600
  179. 1792 [139]z[177]3[167]z[178]3:[137]1600
  180. 1795 [153]"pokebearbeiten   "
  181. 1800 [153]"seite drucken"
  182. 1810 [153]"ende         "
  183. 1820 [153]"def":[145]z[137]1830,1840,1850
  184. 1830 [153]"bearbeiten   ":[137]1600
  185. 1840 [153]"seite drucken":[137]1600
  186. 1850 [153]"ende         ":[137]1600
  187. 1860 [145]z[137]1870,2300,330
  188. 1870 [153]"defthemenkreis":z[178]1
  189. 1880 [161]a$:[139]a$[178]""[167]1880
  190. 1890 [139]a$[178]""[167]z[178]z[170]1:[137]1930
  191. 1900 [139]a$[178]"on"[167]z[178]z[171]1:[137]1930
  192. 1910 [139]a$[178][199](13)[167]2130
  193. 1920 [137] 1880
  194. 1930 [139]z[179]1[167]z[178]1:[137]1880
  195. 1940 [139]z[177]8[167][137]1400
  196. 1950 [153]"list"
  197. 1960 [153]"themenkreis"
  198. 1970 [153]"thema"
  199. 1980 [153]"naeheres"
  200. 1990 [153]" "
  201. 2000 [153]" "
  202. 2010 [153]"ordner"
  203. 2020 [153]"zeitung"
  204. 2030 [153]"datum"
  205. 2040 [153]"def":[145]z[137]2050,2060,2070,2080,2090,2100,2110,2120
  206. 2050 [153]"themenkreis":[137]1880
  207. 2060 [153]"thema":[137]1880
  208. 2070 [153]"naeheres":[137]1880
  209. 2080 [153]"*":[137]1880
  210. 2090 [153]"*":[137]1880
  211. 2100 [153]"ordner":[137]1880
  212. 2110 [153]"zeitung":[137]1880
  213. 2120 [153]"datum":[137]1880
  214. 2130 [145]z[137]2140,2160,2180,2200,2220,2240,2260,2280
  215. 2140 bu$[178]tk$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  216. 2150 tk$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  217. 2160 bu$[178]he$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  218. 2170 he$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  219. 2180 bu$[178]na$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  220. 2190 na$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  221. 2200 bu$[178]nb$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  222. 2210 nb$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  223. 2220 bu$[178]nc$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  224. 2230 nc$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  225. 2240 bu$[178]od$(ix):p$[178]"":v[178]7:a[178]z:z[178][195](bu$):[141]45
  226. 2250 od$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  227. 2260 bu$[178]ze$(ix):p$[178]"":v[178]12:a[178]z:z[178][195](bu$)
  228. 2265 [141] 45
  229. 2270 ze$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  230. 2280 bu$[178]da$(ix):p$[178]"":v[178]10:a[178]z:z[178][195](bu$)
  231. 2285 [141] 45
  232. 2290 da$(ix)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:[137]1880
  233. 2300 [141] 1300
  234. 2310 [137]1400
  235. 2320 [129]i[178]1[164]8:bu$(i)[178]"":[130]:bu$[178]""
  236. 2325 [153]"load":p$[178]"poke":px$[178]"":xl[178]37:yl[178]21:[141]150
  237. 2330 [153]"def     suchen    "
  238. 2340 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
  239. 2350 [153]"themenkreis :"bu$(1)""
  240. 2360 [153]"thema       :"bu$(2)""
  241. 2370 [153]"naeheres    :"bu$(3)""
  242. 2380 [153]""bu$(4)
  243. 2390 [153]""bu$(5)
  244. 2400 [153]"ordner      :"bu$(6)""
  245. 2410 [153]"zeitung     :"bu$(7)""
  246. 2420 [153]"datum       :"bu$(8)""
  247. 2430 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
  248. 2440 [153]"defsuchen       poke"
  249. 2450 [153]"seite drucken"
  250. 2460 [153]"ende"
  251. 2470 [153]"pokeonononon="
  252. 2480 [129]i[178]1[164]3:[153]"peek":[130]
  253. 2490 [153]">":z[178]1
  254. 2500 [161]a$:[139]a$[178]""[167]2500
  255. 2510 [139]a$[178]""[167]z[178]z[170]1:[137]2550
  256. 2520 [139]a$[178]"on"[167]z[178]z[171]1:[137]2550
  257. 2530 [139]a$[178][199](13)[167]2640
  258. 2540 [137] 2500
  259. 2550 [139]z[179]1[167]z[178]1:[137]2500
  260. 2560 [139]z[177]3[167]z[178]3:[137]2500
  261. 2570 [153]"pokesuchen       "
  262. 2580 [153]"seite drucken"
  263. 2590 [153]"ende         "
  264. 2600 [153]"def":[145]z[137]2610,2620,2630
  265. 2610 [153]"suchen       ":[137]2500
  266. 2620 [153]"seite drucken":[137]2500
  267. 2630 [153]"ende         ":[137]2500
  268. 2640 [145]z[137]2650,3900,330
  269. 2650 p$[178]"list":px$[178]"":xl[178]16:yl[178]4:[141]150
  270. 2660 [153]"def":[153]"eingabe         "
  271. 2670 [153]"listsuchen ..."
  272. 2680 [153]"seite ausdrucken"
  273. 2690 [153]"ende":z[178]1
  274. 2700 [161]a$:[139]a$[178]""[167]2700
  275. 2710 [139]a$[178]""[167]z[178]z[170]1:[137]2750
  276. 2720 [139]a$[178]"on"[167]z[178]z[171]1:[137]2750
  277. 2730 [139]a$[178][199](13)[167]2860
  278. 2740 [137] 2700
  279. 2750 [139]z[179]1[167]z[178]1:[137]2700
  280. 2760 [139]z[177]4[167]z[178]4:[137]2700
  281. 2770 [153]"list":[153]"eingabe         "
  282. 2780 [153]"suchen ...      "
  283. 2790 [153]"seite ausdrucken"
  284. 2800 [153]"ende            "
  285. 2810 [153]"def":[145]z[137]2820,2830,2840,2850
  286. 2820 [153]"eingabe         ":[137]2700
  287. 2830 [153]"suchen ...      ":[137]2700
  288. 2840 [153]"seite ausdrucken":[137]2700
  289. 2850 [153]"ende            ":[137]2700
  290. 2860 [145]z[137] 2870,3080,3880,2325
  291. 2870 [153]"list"
  292. 2872 [153]"eingabe         ":
  293. 2876 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  294. 2880 bu$(1)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  295. 2890 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  296. 2900 bu$(2)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  297. 2910 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  298. 2920 bu$(3)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  299. 2930 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  300. 2940 bu$(4)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  301. 2950 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
  302. 2960 bu$(5)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  303. 2970 p$[178]"":v[178]7:a[178]z:z[178][195](bu$):[141]45
  304. 2980 bu$(6)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  305. 2990 p$[178]"":v[178]12:a[178]z:z[178][195](bu$)
  306. 3000 [141] 45
  307. 3010 bu$(7)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  308. 3020 p$[178]"":v[178]10:a[178]z:z[178][195](bu$)
  309. 3030 [141] 45
  310. 3040 bu$(8)[178]bu$:[153]p$[170]bu$[170]"  ":z[178]a:bu$[178]""
  311. 3050 [153]"def"
  312. 3060 [153]"eingabe         ":
  313. 3070 [137] 2700
  314. 3080 [139]ds[178]0[167][151]53280,1:[151]53280,0:[137]2700
  315. 3090 x[178]1
  316. 3100 [129]i[178]x[164]ds
  317. 3110 [139]bu$(1)[178]""[167]3130
  318. 3120 [139]bu$(1)[178]tk$(i)[167]x[178]i[170]1:[137]3340
  319. 3130 [139]bu$(2)[178]""[167]3150
  320. 3140 [139]bu$(2)[178]he$(i)[167]x[178]i[170]1:[137]3370
  321. 3150 [139]bu$(3)[178]""[167]3170
  322. 3160 [139]bu$(3)[178]na$(i)[167]x[178]i[170]1:[137]3400
  323. 3170 [139]bu$(4)[178]""[167]3190
  324. 3180 [139]bu$(4)[178]nb$(i)[167]x[178]i[170]1:[137]3430
  325. 3190 [139]bu$(5)[178]""[167]3210
  326. 3200 [139]bu$(5)[178]nc$(i)[167]x[178]i[170]1:[137]3460
  327. 3210 [139]bu$(6)[178]""[167]3230
  328. 3220 [139]bu$(6)[178]od$(i)[167]x[178]i[170]1:[137]3490
  329. 3230 [139]bu$(7)[178]""[167]3250
  330. 3240 [139]bu$(7)[178]ze$(i)[167]x[178]i[170]1:[137]3520
  331. 3250 [139]bu$(8)[178]""[167]3270
  332. 3260 [139]bu$(8)[178]da$(i)[167]x[178]i[170]1:[137]3570
  333. 3270 [130]
  334. 3280 p$[178]"poke":px$[178]"":xl[178]10:yl[178]2:
  335. 3290 [141]150
  336. 3300 [153]p$[170]"nichts zu"
  337. 3310 [153]px$[170]"finden !!"
  338. 3320 [161]a$:[139]a$[178]""[167]3320
  339. 3330 [137]2650
  340. 3340 [139]bu$(2)[178]""[167]3370
  341. 3350 [139]bu$(2)[178]he$(i)[167]3370
  342. 3360 [137] 3560
  343. 3370 [139]bu$(3)[178]""[167]3400
  344. 3380 [139]bu$(3)[178]na$(i)[167]3400
  345. 3390 [137] 2700
  346. 3400 [139]bu$(4)[178]""[167]3430
  347. 3410 [139]bu$(4)[178]nb$(i)[167]3430
  348. 3420 [137] 3560
  349. 3430 [139]bu$(5)[178]""[167]3460
  350. 3440 [139]bu$(5)[178]nc$(i)[167]3460
  351. 3450 [137] 3560
  352. 3460 [139]bu$(6)[178]""[167]3490
  353. 3470 [139]bu$(6)[178]od$(i)[167]3490
  354. 3480 [137] 3560
  355. 3490 [139]bu$(7)[178]""[167]3520
  356. 3500 [139]bu$(7)[178]ze$(i)[167]3520
  357. 3510 [137] 3560
  358. 3520 [139]bu$(8)[178]""[167]3550
  359. 3530 [139]bu$(8)[178]da$(i)[167]3550
  360. 3540 [137] 3560
  361. 3550 [137] 3570
  362. 3560 [137] 3100
  363. 3570 bu$(1)[178]tk$(i):bu$(2)[178]he$(i):bu$(3)[178]na$(i):bu$(4)[178]nb$(i):bu$(5)[178]nc$(i)
  364. 3580 bu$(6)[178]od$(i):bu$(7)[178]ze$(i):bu$(8)[178]da$(i):
  365. 3590 [153]"list":[129]i[178]1[164]13:[153]"                       ":[130]
  366. 3600 [153]""
  367. 3610 [153]""bu$(1)""
  368. 3620 [153]""bu$(2)""
  369. 3630 [153]""bu$(3)
  370. 3640 [153]""bu$(4)
  371. 3650 [153]""bu$(5)""
  372. 3660 [153]""bu$(6)""
  373. 3670 [153]""bu$(7)""
  374. 3680 [153]""bu$(8)""
  375. 3690 p$[178]"":px$[178]"":xl[178]15:yl[178]2:[141]150
  376. 3700 [153]""[170]p$[170]"weiter suchen ?"
  377. 3710 [153]px$[170]"    (j/n)"
  378. 3720 [161]a$:[139]a$[178]""[167]3720
  379. 3730 [139]a$[178]"j"[167]3100
  380. 3740 [139]a$[178]"n"[167]2650
  381. 3750 [137] 3720
  382. 3780 [159]4,4:[152]4:[152]4,"---------------------------------------":[152]4
  383. 3790 [152]4,"themenkreis :"[170]bu$(1):[152]4
  384. 3800 [152]4,"thema       :"[170]bu$(2):[152]4
  385. 3810 [152]4,"naeheres    :"[170]bu$(3)
  386. 3820 [152]4,"             "[170]bu$(4)
  387. 3830 [152]4,"             "[170]bu$(5):[152]4
  388. 3840 [152]4,"ordner      :"[170]bu$(6):[152]4
  389. 3850 [152]4,"zeitung     :"[170]bu$(7):[152]4
  390. 3860 [152]4,"datum       :"[170]bu$(8):[152]4
  391. 3870 [152]4,"---------------------------------------":[152]4:[160]4:[142]
  392. 3880 [141]3780
  393. 3890 [137]2700
  394. 3900 [141]3780
  395. 3910 [137]2500
  396. 3920 p$[178]"list":px$[178]"":xl[178]15:yl[178]5:[141]150
  397. 3930 [153]p$[170]"ich drucke ...":[153]px$[170]"abbruch - spacewait"
  398. 3940 [129]i[178]1[164]ds
  399. 3950 [161]a$:[139]a$[178]" "[167]330
  400. 3960 ix[178]i:[141]1300
  401. 3970 [130]
  402. 3980 [137] 330
  403. 4000 p$[178]"list":px$[178]"":xl[178]17:yl[178]10:[141]150
  404. 4010 [153]p$[170]"absaven der"
  405. 4020 [153]px$[170]"datei !list"
  406. 4030 [153]px$[170]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<"
  407. 4040 [153]px$[170]"bitte geben sie"
  408. 4050 [153]px$[170]"den dateinamen "
  409. 4060 [153]px$[170]"ein !"
  410. 4070 [153]px$[170]"to"
  411. 4080 [153]px$[170]"returnwait - ende !"
  412. 4090 p$[178]"":v[178]16:[141]40
  413. 4100 [139]bu$[178]""[167]330
  414. 4110 [159]15,8,15,"s:"[170]bu$:[160]15
  415. 4120 [159]2,8,2,bu$[170]",s,w":[152]2,ds
  416. 4130 [129]i[178]1[164]ds
  417. 4140 [152]2,tk$(i)[170][199](13)
  418. 4150 [152]2,he$(i)[170][199](13)
  419. 4160 [152]2,na$(i)[170][199](13)
  420. 4170 [152]2,nb$(i)[170][199](13)
  421. 4180 [152]2,nc$(i)[170][199](13)
  422. 4190 [152]2,od$(i)[170][199](13)
  423. 4200 [152]2,ze$(i)[170][199](13)
  424. 4210 [152]2,da$(i)[170][199](13)
  425. 4220 [130]:[160]2:[137]330
  426. 4230 p$[178]"list":px$[178]"":xl[178]17:yl[178]10:[141]150
  427. 4240 [153]p$[170]"loaden der"
  428. 4250 [153]px$[170]"datei !list"
  429. 4260 [153]px$[170]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<"
  430. 4270 [153]px$[170]"bitte geben sie"
  431. 4280 [153]px$[170]"den dateinamen "
  432. 4290 [153]px$[170]"ein !"
  433. 4300 [153]px$[170]"to"
  434. 4310 [153]px$[170]"returnwait - ende !"
  435. 4320 p$[178]"":v[178]16:[141]40
  436. 4330 [139]bu$[178]""[167]330
  437. 4335 [137]4550
  438. 4340 [159]2,8,2,bu$[170]",s,r":[132]2,ds
  439. 4350 [129]i[178]1[164]ds
  440. 4360 [132]2,tk$(i)
  441. 4370 [132]2,he$(i)
  442. 4380 [132]2,na$(i)
  443. 4390 [132]2,nb$(i)
  444. 4400 [132]2,nc$(i)
  445. 4410 [132]2,od$(i)
  446. 4420 [132]2,ze$(i)
  447. 4430 [132]2,da$(i)
  448. 4440 [130]:[160]2:[137]330
  449. 4450 [153]"load"
  450. 4460 [159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
  451. 4470 [161]a$,a$,h$,l$:[139]st[167][158]65484:[160]1:[137]4520
  452. 4480 [153][198](h$[170]e$)[170]256[172][198](l$[170]e$);
  453. 4490 [161]a$,b$:[139]a$[167][153]a$b$;:[137]4490
  454. 4500 [153]a$:[137]4470
  455. 4510 [160]1
  456. 4520 [153]"def taste druecken !"
  457. 4530 [161]a$:[139]a$[178]""[167]4530
  458. 4540 [137] 330
  459. 4550 [159]2,8,2,bu$[170]",s,r":[160]2
  460. 4560 [159]15,8,15:[132]15,nr,ft$,tr,sk:[160]15
  461. 4570 [139]nr[179][177]0[167]4590
  462. 4580 [137] 4340
  463. 4590 p$[178]"poke":px$[178]"":xl[178]15:yl[178]1:[141]150
  464. 4600 [153]p$[170]"fehleingabe !"
  465. 4610 [161]a$:[139]a$[178]""[167]4610
  466. 4620 [137]4230
  467.