home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 70 / Tiger_Disk_070_20xx_Tiger-Crew-Disk_de_Side_B.d64 / buecher-verwalt. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  221 lines
  1. 5 rem aenderung der dimensionierung           (max.1000) in zeile :
  2. 6 rem         20 260  720 1420                        1620  2390 2850 2900
  3. 10 poke53280,13:poke53281,13
  4. 20 dimv1$(7),a$(500,7):ad=500
  5. 30 form=1to7:readv1$(m):nextm
  6. 210 print"[147]****************************************";
  7. 220 print"*  b u e c h e r - v e r w a l t u n g *";
  8. 230 print"****************************************[146][144]"
  9. 240 print"          by odysseus in 04/95     "
  10. 250 print"            for all readers!    "
  11. 260 print"    zur verwaltung von 500 buechern."
  12. 270 input"  sollen daten eingelesen werden (j/n)    ";a$
  13. 280 ifa$="j"then2300
  14. 300 z=0:print"[147]              m e n u e                 [146][144]"
  15. 310 print"          bitte waehlen:"
  16. 320 print"1 = blaettern"
  17. 330 print"2 = suchen"
  18. 340 print"3 = bestimmte seite"
  19. 350 print"4 = auffuehrung aller buecher in alfa-      betischer reihenfolge
  20. 360 [153]"5 = eintragen"
  21. 370 [153]"6 = aendern"
  22. 380 [153]"7 = loeschen"
  23. 390 [153]"8 = datei loeschen"
  24. 400 [153]"9 = daten abspeichern"
  25. 410 [153]"* = speicherplatz-anzeige"
  26. 411 [153]"e = ende"
  27. 420 [161]d$:[139]d$[178]""[167]420
  28. 421 [139]d$[178]"e"[167][128]
  29. 430 [139]d$[178]"*"[167]500
  30. 435 [139]d$[178]"@"[167]3400
  31. 440 a[178][197](d$):[139][198](d$)[179]49[176][198](d$)[177]57[167]420
  32. 450 [145]a[137]1000,3100,2900,2100,700,1600,1400,2800,2600
  33. 500 [153]"    bitte warten"
  34. 510 [153]"on   "[184](x):[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdbytes free"
  35. 520 [141]3000:[129]v[178]1[164]2500:[130]v:[137]300
  36. 700 t[178]0:[151]788,52
  37. 710 t[178]t[170]1
  38. 720 [139]t[177]500[167]2850
  39. 730 [139]a$(t,1)[170]a$(t,2)[170]a$(t,3)[170]a$(t,4)[170]a$(t,4)[179][177]""[167]710
  40. 740 [141]3000
  41. 750 [153]"load             return=menue"
  42. 760 [153]"s e i t e :"t"cmdstop
  43. 770 print"[145][145][145][145]":forf=1to21:print"[212]":nextf:print""
  44. 780 input"titel         [146][144]";a$(t,1)
  45. 790 ifa$(t,1)=""then300
  46. 800 input"untertitel    [146][144]";a$(t,2)
  47. 810 input"autor(in)     [146][144]";a$(t,3)
  48. 820 input"seitenzahl    [146][144]";a$(t,4)
  49. 830 input"preis         [146][144]";a$(t,5)
  50. 840 input"druckdatum    [146][144]";a$(t,6)
  51. 850 input"verlag        [146][144]";a$(t,7)
  52. 860 input"e i n g a b e n  o. k. j[157][157][157]";a$:print"[144]":ift>hsthenhs=t
  53. 870 ifleft$(a$,1)<>"j"thenforg=1to7:a$(t,g)="":nextg:goto740
  54. 880 ifg$="b"theng$="":return
  55. 890 goto710
  56. 1000 i=1
  57. 1010 print"[147]s e i t e "i"[144]
  58. 1020 [153]"     0                       waitstop=menue"
  59. 1030 [153]"     l e e r t a s t e       waitstop=vor
  60. 1040 print"     c u r s o r - d o w n   [146][144]=zurueck"
  61. 1050 print"   ";a$(i,1)
  62. 1051 print"   ";a$(i,2)
  63. 1060 ifa$(i,3)="[177]"thena$(i,3)=""
  64. 1070 ifa$(i,3)<>""thenprint"   ";a$(i,3)
  65. 1090 print"   ";a$(i,4)" seiten"
  66. 1110 print"   ";a$(i,5)" dm"
  67. 1120 ifa$(i,6)="[177]"thena$(i,6)=""
  68. 1130 ifa$(i,6)<>""thenprint"   druckdatum: ";a$(i,6)
  69. 1140 ifa$(i,7)="[177]"thena$(i,7)=""
  70. 1150 ifa$(i,7)<>""thenprint"   verlag: ";a$(i,7)
  71. 1160 ifg$="b"theng$="":return
  72. 1170 geta$:ifa$=""then1170
  73. 1180 ifa$="0"then300
  74. 1190 ifa$=""andi>1theni=i-1:goto1010
  75. 1200 ifa$=" "andi<adtheni=i+1:goto1010
  76. 1210 goto1170
  77. 1400 z=0:print"[147]            l o e s c h e n             [146][144]"
  78. 1410 print"auf welcher seite steht das zu loeschen-de buch   "
  79. 1420 inputa:ifa>500then1400
  80. 1430 print"[147]s e i t e"a:print"[144]"
  81. 1440 i=a:g$="b":gosub1050
  82. 1450 a$=""
  83. 1460 input"loeschen (j/n) ";a$
  84. 1470 ifa$<>"j"then300
  85. 1480 fory=1to7:a$(a,y)="":nexty:y=0
  86. 1490 print" d a t e n s a t z   g e l o e s c h t[146][144]":gosub3000
  87. 1500 forv=1to500:nextv:goto300
  88. 1600 z=0:print"[147]              a e n d e r n             [146][144]"
  89. 1610 print"auf welcher seite steht das zu aendern- de buch   "
  90. 1620 inputy:i=y:ify>500then1600
  91. 1630 g$="b":print"[147]s e i t e "i:print"[144]":gosub1050:i=0
  92. 1640 a$=""
  93. 1650 input"aendern (j/n)  ";a$
  94. 1660 ifa$<>"j"then300
  95. 1670 a$="":fort=1to7:a$(y,t)="":next:t=y:g$="b":print"[147]":gosub760
  96. 1680 print"    b u c h     g e a e n d e r t[146][144]":gosub3000
  97. 1690 forv=1to1000:nextv:goto300
  98. 1800 z=0:s$="":print"[147]               s u c h e n              [146][144]"
  99. 1810 printv1$(b);:print" ";:inputs$:ifs$=""then3100
  100. 1820 z=len(s$)
  101. 1830 fort=1tohs
  102. 1840 print"[147] d a t e i  w i r d  d u r c h s u c h t[146][144]"
  103. 1850 foru=x1tox2
  104. 1860 fory=1tolen(a$(t,u))
  105. 1870 ifmid$(a$(t,u),y,z)=s$then1920
  106. 1880 nexty
  107. 1890 nextu
  108. 1900 nextt
  109. 1910 goto1980
  110. 1920 g$="b"::print"  [147]s e i t e "t;:print"[146][144]":i=t:gosub1050:i=0
  111. 1930 print"     ^= w e i t e r / 0= m e n u e [146][144]":gosub3000
  112. 1940 geta$:wait203,63:ifa$="^"then1970
  113. 1950 ifa$="0"thenu=0:t=0:y=0:goto300
  114. 1960 goto1940
  115. 1970 ift<=hsthen1900
  116. 1980 print"[147]     d a t e i  d u r c h s u c h t [146][144]"
  117. 1990 gosub3000:forv=1to1000:nextv:u=0:goto300
  118. 2100 print"[147]a l f a b e t i s c h e                 ";
  119. 2110 print"r e i h e n f o l g e                   [146][144]"
  120. 2120 forw=65to90
  121. 2130 fora=1tohs
  122. 2140 ifa$(a,1)=""then2160
  123. 2150 ifasc(mid$(a$(a,1),1,1))=wthengosub2250:goto2180
  124. 2160 nexta
  125. 2170 nextw
  126. 2180 ifz<>0andz/3=int(z/3)thenprint"[145] ^ = weiter [146][145][144]":geta$:ifa$<>"^"then2180
  127. 2190 ifa<hsthen2160
  128. 2200 ifa=>hsandw=>90then2210
  129. 2210 print"                e n d e[146]"
  130. 2220 print"          '0' d r u e c k e n[146][144]"
  131. 2230 geta$:ifa$<>"0"then2230
  132. 2240 z=0:goto300
  133. 2250 z=z+1:print""a$(a,1)"[146][144],";a$(a,2)"/"a$(a,3)"/"a$(a,4);
  134. 2260 print"/"a$(a,5)"/"a$(a,6)"/"a$(a,7)
  135. 2270 print"s e i t e [157]"a;"[144]"
  136. 2280 return
  137. 2300 print"[147]          d a t e n  l a d e n          [146][144]":e$=""
  138. 2310 print"cassette / diskette c[146]/d[146]":wait198,1:gete$:ife$<"c"ore$>"d"then2300
  139. 2320 di=e$="d":ifnotdithen2350
  140. 2330 ifdithenf$=f$+"o:buecher,s,r"
  141. 2340 open2,1+(7anddi),2anddi,f$:goto2390
  142. 2350 print"[145]cassette einlegen und an die richtige   stelle spulen,";
  143. 2360 print"dann '*' druecken"
  144. 2370 geta$:ifa$<>"*"then2370
  145. 2380 open2,1,0
  146. 2390 print"[147]":forq=1to500
  147. 2400 forr=1to7
  148. 2410 input#2,a$(q,r)
  149. 2420 ifa$(q,r)="@"thena$(q,r)="":goto2480
  150. 2430 ifa$(q,r)="[177]"thena$(q,r)=""
  151. 2440 nextr
  152. 2450 ifq=1then2460
  153. 2460 print"[147]  d a t e n  w e r d e n  g e l a d e n [146][144]"
  154. 2470 nextq
  155. 2480 close2
  156. 2490 print"[147]        d a t e n  g e l a d e n [146][144]"
  157. 2500 hs=q
  158. 2510 gosub3000:forv=1to500:nextv:poke788,52:goto300
  159. 2600 print"[147]    d a t e n  a b s p e i c h e r n    [146][144]":e$=""
  160. 2610 print"cassette / diskette c[146]/d[146]":wait198,1:gete$:ife$="c"then2640
  161. 2620 ife$<>"d"then2600
  162. 2630 open2,8,2,"@0:buecher,s,w":goto2680
  163. 2640 print"[145]cassette einlegen und an die richtige   stelle spulen,";
  164. 2650 print"dann '*' druecken"
  165. 2660 geta$:ifa$<>"*"then2660
  166. 2670 open2,1,1
  167. 2680 print"[147]":forq=1tohs
  168. 2690 forr=1to7
  169. 2700 ifa$(q,r)=""thena$(q,r)="[177]"
  170. 2710 print#2,a$(q,r)
  171. 2720 nextr
  172. 2730 ifq=1then2740
  173. 2740 print"[147]   d a t e n  a b s p e i c h e r n   [146][144]"
  174. 2750 nextq
  175. 2760 print#2,"@"
  176. 2770 close2
  177. 2780 print"[147]  d a t e n  a b g e s p e i c h e r t  [146][144]"
  178. 2790 gosub3000:forv=1to500:nextv:goto300
  179. 2800 a$="":print"[147]       d a t e i  l o e s c h e n       [146][144]"
  180. 2810 print"soll die ganze datei geloescht werden   (j/n)":inputa$
  181. 2820 ifa$="j"thenclr:poke788,49:goto210
  182. 2830 goto300
  183. 2850 print"[147]     n u r  5 0 0  a d r e s s e n !    "
  184. 2860 fort=1to2000:nextt:goto300
  185. 2900 input"[147]welche seite";i:ifi>500then2850
  186. 2910 print"[147]s e i t e "i:print"[146][144]":g$="b":gosub1050
  187. 2920 print"          '0' d r u e c k e n[146][144]"
  188. 2930 geta$:ifa$=""then2930
  189. 2940 ifa$<>"0"then2930
  190. 2950 goto300
  191. 3000 si=54272:fl=si:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24
  192. 3010 pokel,15:pokea,15+15:pokeh,15*16+15:pokefh,29:pokefl,69:pokew,17
  193. 3020 forx=1to300:nextx:pokew,0:pokea,0:pokeh,0:pokel,0:return
  194. 3100 z=0:print"[147]              s u c h e n               [146][144]"
  195. 3110 print"          bitte waehlen:"
  196. 3120 print"0 = menue
  197. 3130 [153]"1 = beliebiges suchkritterium"
  198. 3140 [153]"2 = titel"
  199. 3150 [153]"3 = untertitel"
  200. 3160 [153]"4 = autor(in)"
  201. 3170 [153]"5 = seitenzahl"
  202. 3180 [153]"6 = preis"
  203. 3190 [153]"7 = druckdatum"
  204. 3210 [161]d$:[139]d$[178]""[167]3210
  205. 3220 [139]d$[178]"0"[167]300
  206. 3230 b[178][197](d$):[139]b[178]0[176]b[177]7[167]3210
  207. 3240 [139]b[178]1[167]x1[178]1:x2[178]7:[137]1800
  208. 3250 x1[178]b[171]1:x2[178]b[171]1:[137]1800
  209. 3300 [131]"sie koennen ein beliebiges suchkriteriumeingeben"
  210. 3310 [131]"sie koennen einen beliebigen titel      eingeben"
  211. 3320 [131]"sie koennen einen beliebigen untertitel eingeben"
  212. 3330 [131]"beliebige(n) autor(in)                  eingeben"
  213. 3340 [131]"sie koennen eine beliebige seitenzahl   eingeben"
  214. 3350 [131]"sie koennen einen beliebigen preis      eingeben"
  215. 3360 [131]"sie koennen ein beliebiges druckdatum   eingeben"
  216. 3400 [159]15,8,15
  217. 3410 [132]15,a$,b$,c$,d$
  218. 3420 [153]""a$,b$,c$,d$
  219. 3430 [160]15
  220. 3440 [141]3000:[129]v[178]1[164]3500:[130]v:d$[178]"":[137]300
  221.