home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 57 / Tiger_Disk_057_19xx_Tiger-Crew-Disk_de_Side_D.d64 / td-datenbank (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  303 lines
  1. 0 poke53280,0:poke53281,0:poke646,3:printchr$(147);chr$(142);chr$(8)
  2. 1 ifa=0thena=1:load"dbase5",8,1
  3. 2 dimth$(30):open8,8,8,"th,s,r":fori=0to29:input#8,th$(i):nexti:close8
  4. 3 th$(30)="":so=49899:sysso:dg=50150:pr=50049:sys49726
  5. 4 l$="                                        "
  6. 5 r$="........................................":r$=r$+r$
  7. 6 n$="0000000000000000000000000000000000000000":n$=n$+n$+n$
  8. 7 dimt1$(100),b1$(100):ma=29:dimt1(100)
  9. 8 fori=0to29:ifasc(th$(i))=32orasc(th$(i))=160thenma=ma-1
  10. 9 nexti:mi=0:cf=0:cz=0:cu$(0)=" ":cu$(1)=" [146]"
  11. 10 open8,8,8,"lbk,s,r":input#8,lb$:lb=val(lb$):lb$=right$(("000"+lb$),4):close8
  12. 100 print"[147]td - datenbank : hauptmenue
  13. 110 [153]"1 daten eingeben
  14. 120 print"2 ausgabe nummern
  15. 130 [153]"3 ausgabe themen
  16. 140 print"4 drucken nummern
  17. 150 [153]"5 drucken themen
  18. 155 print"0 programm beenden
  19. 160 [161]a$:[139]a$[178]""[167]160
  20. 170 [139]a$[178]"0"[167]62000
  21. 180 a[178][197](a$):[139]a[179]1[176]a[177]5[167]160
  22. 190 [145]a[137]1000,2000,3000,4000,5000
  23. 200 [137]100
  24. 1000 [153]"loadtd - datenbank : dateneingabe"
  25. 1010 [141] 20000
  26. 1020 [141]10000
  27. 1050 [159]1,8,2,"nummern" :[159]2,8,15
  28. 1060 hi[178][181](bl[173]256):lo[178]bl[171]256[172]hi
  29. 1070 [152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  30. 1080 [158]dg,1,in$,120:er$[178][200]( in$,2):[141]61000:[160]2:[160]1
  31. 1090 [139]er$[178]"00"[176][198](in$[170][199](0))[178]255[176]in$[178]nt$[167]nr$[178]"":[137]1130
  32. 1100 [129]i[178]0[164]19:t$[178][202](in$,i[172]6[170]1,6):[139][200](t$,2)[178]"00"[167]z[178]i:i[178]19
  33. 1110 [130]i
  34. 1120 nr$[178][200](in$,z[172]6)
  35. 1130 :
  36. 1140 [158]pr,0,16,"blaettern mit cursor/ wahl mit return"
  37. 1150 [139]ma[179]29[167][158]pr,0,18,"_ neues thema eingeben               "
  38. 1160 z[178]0:[158]pr,12,6,[200](th$(z),17)
  39. 1170 [161]a$:[139]a$[178]""[167]1170
  40. 1180 [139]a$[178]""[176]a$[178]""[167]z[178]z[170]1:[139]z[177]ma[167]z[178]0
  41. 1190 [139]a$[178]"on"[176]a$[178]"cmd"[167]z[178]z[171]1:[139]z[179]0[167]z[178]ma
  42. 1200 [139]a$[178]"_"[167][137]1240
  43. 1210 [139]a$[178][199](13)[167]1260
  44. 1220 [158]pr,12,6,[200](th$(z),17)
  45. 1230 [137]1170
  46. 1240 cx[178]12:cy[178]6:el[178]17:ez[178]0:vb$[178]"                 ":[141]50000
  47. 1250 ma[178]ma[170]1:[202](th$(ma),1,17)[178]ei$:tc$[178][201](th$(ma),2):tf[178]1
  48. 1251 :[141]63000:[158]pr,0,17,"eingabe korrekt < j / n >"
  49. 1252 [161]a$:[139]a$[178]"j"[167]1255
  50. 1253 [139]a$[178]"n"[167]ma[178]ma[171]1:vb$[178]ei$:[137]1240
  51. 1254 [137]1252
  52. 1255 vb$[178]""
  53. 1260 tc$[178][201](th$(z),2):[141]63000
  54. 1265 cx[178]0:cy[178]10:el[178]80:ez[178]0:[141]50000
  55. 1267 [139]ei$[178]"_"[167]1130
  56. 1270 [141]63000:[158]pr,0,17,"eingabe korrekt < j/ n >"
  57. 1280 [161]a$:[139]a$[178]"j"[167]1310
  58. 1290 [139]a$[178]"n"[167]vb$[178]ei$:[137]1265
  59. 1300 [137]1280
  60. 1310 [141]63000:vb$[178]"":[158]pr,0,10,r$
  61. 1320 be$[178]ei$:[158]pr,0,16,"datensatz wird gespeichert !           "
  62. 1330 lb[178]lb[170]1:lb$[178][201](("   "[170][196](lb)),4):hi[178][181](lb[173]256):lo[178]lb[171]256[172]hi
  63. 1340 [160]2:[160]1:[159]1,8,2,"bemerkungen":[159]2,8,15
  64. 1350 [152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  65. 1360 [152]1,be$:[141]61000:[139]a[179][177]0[175]a[179][177]50[167][160]2:[160]1:[153]a,b$,c,d:[128]
  66. 1370 [160]1:[158]pr,0,16,"index wird aktualisiert  !             "
  67. 1380 [159]8,8,8,tc$[170]",s,a":[160]8:[132]2,a:[139]a[179][177]0[167]1400
  68. 1390 [159]8,8,8,tc$[170]",s,a":[137]1410
  69. 1400 [159]8,8,8,tc$[170]",s,w"
  70. 1410 [152]8,au$:[152]8,lb$:[141]61000
  71. 1420 [139]a[179][177]0[167][153]"load":[153]a,b$:[153]c,d:[160]2:[160]8:[128]
  72. 1425 nr$[178]nr$[170]tc$[170]lb$
  73. 1430 [160]2:[160]8:[141]63000
  74. 1440 [158]pr,0,16,"_ = neue nummer    peek  m = menue        "
  75. 1450 [158]pr,0,18,"^ = neuer datensatz                    "
  76. 1460 [161]a$:[139]a$[178]"_"[167][141]60500:[137]1000
  77. 1470 [139]a$[178]"m"[167][141]60500:[137]100
  78. 1480 [139]a$[178]"^"[167][141]63000:[137]1140
  79. 1490 [137]1460
  80. 2000 [153]"loadtd datenbank : ausgabensuche ":[141]20000:[141]10000 :[141]2600
  81. 2020 bl[178] [197](au$):hi[178][181](bl[173]256):lo[178]bl[171]256[172]hi:[159]2,8,15
  82. 2030 [159]1,8,2,"nummern":[152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  83. 2035 [158]50150,1, dt$,120:[160]1:[160]2: nr$[178]dt$:[139][200](nr$,6)[178]"000000"[167]2700
  84. 2040 z[178]0:mi[178]0:[139][198](dt$)[178]255 [167]2700
  85. 2050 t1$(z)[178][202](nr$,z[172]6[170]1,2)
  86. 2060 b1$(z)[178][202](nr$,z[172]6[170]3,4)
  87. 2070 [139] t1$(z)[178]"00"[167]2100
  88. 2080 z[178]z[170]1:[139]z[177]19[167]z[178]19:[137]2100
  89. 2090 [137]2050
  90. 2100 z[178]z[171]1:[158]so
  91. 2110 :
  92. 2120 [129]i[178]0[164]z:[129]j[178]0[164]29
  93. 2130 [139]t1$(i)[178][201](th$(j),2)[167]t1(i)[178]j
  94. 2140 [130]j:[130]i
  95. 2150 za[178]0
  96. 2160 [158]pr,12,6
  97. 2170 [153][200](th$(t1(za)),17)
  98. 2180 bl[178][197](b1$(za)):hi[178][181](bl[173]256):lo[178]bl[171]hi[172]256
  99. 2185 hi[178][181](bl[173]256):lo[178]bl[171]hi[172]256
  100. 2190 [159]1,8,2,"bemerkungen":[159]2,8,15
  101. 2200 [152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  102. 2210 [158]50150, 1,dt$,81:be$[178]dt$
  103. 2220 [160]1:[160]2
  104. 2230 [141]2500
  105. 2240 [161]a$:[139]a$[178]""[167]2240
  106. 2250 [139]a$[179][177]""[175]a$[179][177]"on"[175]a$[179][177]"cmd"[175]a$[179][177]""[175]a$[179][177]"_"[175]a$[179][177]"m"[167]2240
  107. 2260 [139]a$[178]""[176]a$[178]""[167]za[178]za[170]1:[139]za[177]z[167]za[178]0:
  108. 2270 [139]a$[178]"on"[176]a$[178]"cmd"[167]za[178]za[171]1:[139]za[179]0[167]za[178]z:
  109. 2280 [139]a$[178]"m"[167]100
  110. 2290 [139]a$[178]"_"[167] [141]2800
  111. 2300 [137]2160
  112. 2500 [158]pr,0,11:[153][200](be$,80):[142]
  113. 2600 [141]63000:[158]pr,0,16,"blaettern mit cursortasten             "
  114. 2610 [158]pr,0,18,"m = menue    peek _ = ausdruck des satzes"
  115. 2630 [142]
  116. 2700 [158]pr,0,16:[153]"die  datei  enthaelt keine daten  !
  117. 2720 print"==> taste                              "
  118. 2730 poke198,0:wait198,1:goto100
  119. 2800 open4,4:print#4:close4:ifst=-128thengosub4500
  120. 2810 open4,4,7:print#4,"ausgabe : ";au$;"        thema : ";left$(th$(z),17)
  121. 2820 print#4:print#4,bm$
  122. 2830 close4:return
  123. 2920 goto2910
  124. 3000 print"[147]td datenbank : themensuche ":gosub20000
  125. 3010 gosub11000:gosub63000
  126. 3020 open8,8,8,tc$+",s,r"
  127. 3030 syspr,0,  16,"index - datei wird gelesen             "
  128. 3050 fori=0to200
  129. 3060 input#8,t1$(i):input#8,b1$(i)
  130. 3070 if(st and 64)thenz1=i:i=200
  131. 3080 nexti:close8:z=0:ifz1=0then2700
  132. 3090 syspr,12,3,t1$(z)
  133. 3100 bl=val(b1$(z))
  134. 3105 hi=int(bl/256):lo=bl-256*hi
  135. 3110 open2,8,15:open1,8,2,"bemer*"
  136. 3120 print#2,"p"+chr$(2)+chr$(lo)+chr$(hi)+chr$(1)
  137. 3130 sysdg,1,dt$,81:bm$=left$(dt$,80):fl$=right$(dt$,1):close2:close1
  138. 3140 syspr,0,16,"blaettern mit cursor :  _= ausdruck"
  139. 3150 syspr,0,18,"m = menue                              "
  140. 3155 syspr,0,11,bm$
  141. 3160 geta$:ifa$="m"then100
  142. 3170 ifa$=""ora$=""thenz=z+1+((z1+1)*(z>=z1)):goto3090
  143. 3180 ifa$="[145]"ora$="[157]"thenz=z-1-((z1+1)*(z<=0)):goto3090
  144. 3190 ifa$="_"thengosub2800
  145. 3200 goto3160
  146. 4000 print"[147]td datenbank : ausgabensuche ":gosub20000:gosub10000
  147. 4010 bl= val(au$):hi=int(bl/256):lo=bl-256*hi:open2,8,15
  148. 4020 open1,8,2,"nummern":print#2,"p"+chr$(2)+chr$(lo)+chr$(hi)+chr$(1)
  149. 4030 sys50150,1, dt$,120:close1:close2: nr$=dt$
  150. 4040 z=0:mi=0:ifasc(dt$)=255 then2700
  151. 4050 t1$(z)=mid$(nr$,z*6+1,2)
  152. 4060 b1$(z)=mid$(nr$,z*6+3,4)
  153. 4070 if t1$(z)="00"then4100
  154. 4080 z=z+1:ifz>19thenz=19:goto4100
  155. 4090 goto4050
  156. 4100 z=z-1:sysso
  157. 4110 fori=0toz:forj=0to29
  158. 4120 ift1$(i)=right$(th$(j),2)thent1(i)=j
  159. 4130 nextj:nexti
  160. 4140 open4,4:print#4:close4:ifst=-128thengosub4500:rem drucker ein
  161. 4150 open4,4,7:print#4,"tiger disk ausgabe : ";au$
  162. 4160 fori=0toz:bl=val(b1$(i)):ifbl=0then4600:rem keine daten
  163. 4170 hi=int(bl/256):lo=bl-hi*256
  164. 4180 open1,8,2,"bemer*":open2,8,15
  165. 4190 print#2,"p"+chr$(2)+chr$(lo)+chr$(hi)+chr$(1)
  166. 4200 sysdg,1,dt$,80:bm$=dt$:close2:close1
  167. 4210 syspr,0,11,bm$::syspr,12,6,th$(t1(i))
  168. 4220 print#4:print#4,"thema = ";left$(th$(t1(i)),17)
  169. 4230 print#4:print#4,bm$
  170. 4240 nexti:close1:close2:close4:goto100
  171. 4500 gosub63000:syspr,0,16,"drucker einschalten                    "
  172. 4510 open4,4:print#4:close4:fori=0to100:next
  173. 4520 ifst<>0then4510
  174. 4530 fori=0to1000:next:return
  175. 4600 print"[147] datei ende":poke198,0:wait198,1:goto100
  176. 5000 print"[147]td datenbank : themen drucken":gosub20000
  177. 5010 gosub11000:gosub63000
  178. 5020 open8,8,8,tc$+",s,r"
  179. 5030 syspr,0,  16,"index - datei wird gelesen             "
  180. 5050 fori=0to200
  181. 5060 input#8,t1$(i):input#8,b1$(i)
  182. 5070 if(st and 64)thenz1=i:i=200
  183. 5080 nexti:close8:
  184. 5090 open4,4:print#4:close4:ifst=-128thengosub4500
  185. 5100 open 4,4,7:print#4,"tiger disk datenbank - thema = ";left$(th$(z),17)
  186. 5110 syspr,12,6,left$(th$(z),17):print#4
  187. 5120 fori=0toz1
  188. 5130 bl=val(b1$(i)):ifbl=0thenclose1:close2:close4:goto100
  189. 5140 print#4,"ausgabe : ";t1$( i)
  190. 5150 syspr,12,3,t1$(i)
  191. 5160 hi=int(bl/256):lo=bl-hi*256
  192. 5170 open1,8,2,"bemer*":open2,8,15
  193. 5180 print#2,"p"+chr$(2)+chr$(lo)+chr$(hi)+chr$(1)
  194. 5190 sysdg,1,dt$,80:bm$=dt$
  195. 5200 syspr,0,11,bm$:print#4,bm$
  196. 5210 close1:close2
  197. 5220 nexti
  198. 5230 goto100
  199. 10000 cx=12:cy=3:vb$="":el=3:ez=1:syspr,18,3,"_ = menue":fl=1:gosub50000:fl=0
  200. 10002 a=val(ei$):bl=a:ifei$="_"then100
  201. 10005 ifa=0then1020
  202. 10010 a$=str$(a):a=len(a$):au$=right$(("00"+right$(a$,a-1)),3)
  203. 10020 syspr,12,3,au$:return
  204. 11000 gosub63000:
  205. 11010 syspr,0,16,"blaettern mit cursor/ wahl mit return"
  206. 11015 syspr,0,18,"_ = zurueck zum hauptmenue !"
  207. 11020 z=0:syspr,12,6,left$(th$(z),17)
  208. 11030 geta$
  209. 11040 ifa$=""ora$=""thenz=z+1:ifz>mathenz=0
  210. 11045 ifa$="_"then100
  211. 11050 ifa$="[145]"ora$="[157]"thenz=z-1:ifz<0thenz=ma
  212. 11060 ifa$=chr$(13)then11090
  213. 11070 syspr,12,6,left$(th$(z),17)
  214. 11080 goto11030
  215. 11090 tc$=right$(th$(z),2):return
  216. 20000 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  217. 20010 [153]"peekausgabe  :     peek
  218. 20020 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  219. 20030 [158]pr,0,5
  220. 20040 [153]"orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  221. 20050 print"[194]thema    :                    [194]
  222. 20060 [153]"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  223. 20070 syspr,0,9
  224. 20080 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  225. 20090 print:print:print:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  226. 20100 syspr,0,20
  227. 20110 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  228. 20120 print"disk status :
  229. 20130 [158]pr,0,22
  230. 20140 [153]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen"
  231. 20150 [142]
  232. 50000 x[178]cx:y[178]cy:sp[178]1:t$[178][200]((vb$[170]r$),el):ei$[178]t$
  233. 50010 [158]pr,x,y,t$
  234. 50100 [161]a$:[139]a$[178]""[167][141]52000:[137]50100
  235. 50105 [139]a$[178]"_"[175]fl[178]1[167]ei$[178]"_":[142]
  236. 50110 e[178][198](a$):[139]e[177]31[175]e[179]91[167]51000
  237. 50115 [139]e[178]95[167]ei$[178]"_":[142]
  238. 50120 [139]e[178]29[167]50200
  239. 50125 [139]e[178]145[167]50900
  240. 50130 [139]e[178]157[167]50300
  241. 50135 [139]e[178]17[167]50950
  242. 50140 [139]e[178]19[167]50400
  243. 50150 [139]e[178]20[167]50500
  244. 50160 [139]e[178]147[167]50600
  245. 50170 [139]e[178]148[167]50700
  246. 50180 [139]e[178]13[176]e[178]141[167]50800
  247. 50190 [137] 50100
  248. 50200 [139]sp[170]1[179][178]el[167]x[178]x[170]1:sp[178]sp[170]1
  249. 50210 [139]x[177]39[167]x[178]0:y[178]y[170]1
  250. 50220 [158]pr,cx,cy,ei$
  251. 50230 [137]50100
  252. 50300 [139]sp[171]1[177]0[167]x[178]x[171]1:sp[178]sp[171]1
  253. 50310 [139]x[179]0[167]x[178]39:y[178]y[171]1
  254. 50320 [158]pr,cx,cy,ei$
  255. 50330 [137]50100
  256. 50400 :x[178]cx:y[178]cy:sp[178]1:[141]52000:[158]pr,cx,cy,ei$:[137]50100
  257. 50500 [139]sp[177]1[167]ei$[178][200](ei$,sp[171]1)[170][201](ei$,el[171]sp)[170]".":sp[178]sp[171]1:x[178]x[171]1
  258. 50510 [139]x[179]0[167]x[178]39:y[178]y[171]1
  259. 50520 [141]52000:[158]pr,cx,cy,ei$
  260. 50530 [137]50100
  261. 50600 [137]50000
  262. 50700 ei$[178][200](ei$,sp[171]1)[170]"."[170][201](ei$,el[171]sp[170]1)
  263. 50710 ei$[178][200](ei$,el):[158]pr,cx,cy,ei$
  264. 50720 [141]52000:[137]50100
  265. 50800 [139][198](ei$)[179][177]164[167][142]
  266. 50810 [137]50100
  267. 50900 [139]sp[171]40[179]0[167]50100
  268. 50910 y[178]y[171]1:sp[178]sp[171]40:[141]52000
  269. 50920 [158]pr,cx,cy,ei$
  270. 50930 [137]50100
  271. 50950 [139]sp[170]40[177]el[167]50100
  272. 50960 y[178]y[170]1:sp[178]sp[170]40:[141]52000
  273. 50970 [158]pr,cx,cy,ei$
  274. 50980 [137]50100
  275. 51000 [139]e[178]34[167]50100
  276. 51010 [139](e[179]48[176]e[177]57)[175]ez[178]1[167]50100
  277. 51020 [141]52000
  278. 51030 [202](ei$,sp,1)[178]a$:[158]pr,cx,cy,ei$;
  279. 51040 [139]sp[170]1[179][178]el[167]x[178]x[170]1:sp[178]sp[170]1
  280. 51050 [139]x[177]39[167]x[178]0:y[178]y[170]1
  281. 51060 [137]50100
  282. 52000 cz[178]cz[170]1:[139]cz[178]10[167]cf[178]1[171]cf:cz[178]0
  283. 52010 :[158]pr,x,y,cu$(cf):[142]
  284. 60500 bl[178][197](au$):hb[178][181](bl[173]256):lo[178]bl[171]hi[172]256
  285. 60510 [159]1,8,2,"nummern":[159]2,8,15
  286. 60520 [152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  287. 60530 [152]1,[200]((nr$[170]n$),120):nr$[178]""
  288. 60540 [141]61000:[139]a[179][177]0[175]a[179][177]50[167][160]1:[160]2:[144]
  289. 60550 [160]1:[160]2:[142]
  290. 61000 [132]2,a,b$,c,d:[158]pr,14,21:[153]b$:[142]
  291. 62000 [159]1,8,15,"s:lbk":[160]1
  292. 62010 lb$[178][201](("   "[170][196](lb)),4)
  293. 62020 [159]8,8,8,"lbk,s,w":[152]8,lb$:[160]8
  294. 62030 [139]sf[178]0[167][128]
  295. 62040 [159]1,8,15,"r:t1=th"
  296. 62050 [159]8,8,8,"th,s,w"
  297. 62060 [129]i[178]0[164]29:[152]8,th$(i):[130]i
  298. 62070 [160]8:[152]1,"s:t1":[160]1:[128]
  299. 62999 [143] meldefenster loeschen
  300. 63000 [158]pr,0,16,l$:[158]pr,0,17,l$
  301. 63010 [158]pr,0,18,l$:[158]pr,0,19,l$
  302. 63020 [142]
  303.