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 >
Wrap
Commodore BASIC
|
2023-02-26
|
7KB
|
221 lines
5 rem aenderung der dimensionierung (max.1000) in zeile :
6 rem 20 260 720 1420 1620 2390 2850 2900
10 poke53280,13:poke53281,13
20 dimv1$(7),a$(500,7):ad=500
30 form=1to7:readv1$(m):nextm
210 print"[147]****************************************";
220 print"* b u e c h e r - v e r w a l t u n g *";
230 print"****************************************[146][144]"
240 print" by odysseus in 04/95 "
250 print" for all readers! "
260 print" zur verwaltung von 500 buechern."
270 input" sollen daten eingelesen werden (j/n) ";a$
280 ifa$="j"then2300
300 z=0:print"[147] m e n u e [146][144]"
310 print" bitte waehlen:"
320 print"1 = blaettern"
330 print"2 = suchen"
340 print"3 = bestimmte seite"
350 print"4 = auffuehrung aller buecher in alfa- betischer reihenfolge
360 [153]"5 = eintragen"
370 [153]"6 = aendern"
380 [153]"7 = loeschen"
390 [153]"8 = datei loeschen"
400 [153]"9 = daten abspeichern"
410 [153]"* = speicherplatz-anzeige"
411 [153]"e = ende"
420 [161]d$:[139]d$[178]""[167]420
421 [139]d$[178]"e"[167][128]
430 [139]d$[178]"*"[167]500
435 [139]d$[178]"@"[167]3400
440 a[178][197](d$):[139][198](d$)[179]49[176][198](d$)[177]57[167]420
450 [145]a[137]1000,3100,2900,2100,700,1600,1400,2800,2600
500 [153]" bitte warten"
510 [153]"on "[184](x):[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdbytes free"
520 [141]3000:[129]v[178]1[164]2500:[130]v:[137]300
700 t[178]0:[151]788,52
710 t[178]t[170]1
720 [139]t[177]500[167]2850
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
740 [141]3000
750 [153]"load return=menue"
760 [153]"s e i t e :"t"cmdstop
770 print"[145][145][145][145]":forf=1to21:print"[212]":nextf:print""
780 input"titel [146][144]";a$(t,1)
790 ifa$(t,1)=""then300
800 input"untertitel [146][144]";a$(t,2)
810 input"autor(in) [146][144]";a$(t,3)
820 input"seitenzahl [146][144]";a$(t,4)
830 input"preis [146][144]";a$(t,5)
840 input"druckdatum [146][144]";a$(t,6)
850 input"verlag [146][144]";a$(t,7)
860 input"e i n g a b e n o. k. j[157][157][157]";a$:print"[144]":ift>hsthenhs=t
870 ifleft$(a$,1)<>"j"thenforg=1to7:a$(t,g)="":nextg:goto740
880 ifg$="b"theng$="":return
890 goto710
1000 i=1
1010 print"[147]s e i t e "i"[144]
1020 [153]" 0 waitstop=menue"
1030 [153]" l e e r t a s t e waitstop=vor
1040 print" c u r s o r - d o w n [146][144]=zurueck"
1050 print" ";a$(i,1)
1051 print" ";a$(i,2)
1060 ifa$(i,3)="[177]"thena$(i,3)=""
1070 ifa$(i,3)<>""thenprint" ";a$(i,3)
1090 print" ";a$(i,4)" seiten"
1110 print" ";a$(i,5)" dm"
1120 ifa$(i,6)="[177]"thena$(i,6)=""
1130 ifa$(i,6)<>""thenprint" druckdatum: ";a$(i,6)
1140 ifa$(i,7)="[177]"thena$(i,7)=""
1150 ifa$(i,7)<>""thenprint" verlag: ";a$(i,7)
1160 ifg$="b"theng$="":return
1170 geta$:ifa$=""then1170
1180 ifa$="0"then300
1190 ifa$=""andi>1theni=i-1:goto1010
1200 ifa$=" "andi<adtheni=i+1:goto1010
1210 goto1170
1400 z=0:print"[147] l o e s c h e n [146][144]"
1410 print"auf welcher seite steht das zu loeschen-de buch "
1420 inputa:ifa>500then1400
1430 print"[147]s e i t e"a:print"[144]"
1440 i=a:g$="b":gosub1050
1450 a$=""
1460 input"loeschen (j/n) ";a$
1470 ifa$<>"j"then300
1480 fory=1to7:a$(a,y)="":nexty:y=0
1490 print" d a t e n s a t z g e l o e s c h t[146][144]":gosub3000
1500 forv=1to500:nextv:goto300
1600 z=0:print"[147] a e n d e r n [146][144]"
1610 print"auf welcher seite steht das zu aendern- de buch "
1620 inputy:i=y:ify>500then1600
1630 g$="b":print"[147]s e i t e "i:print"[144]":gosub1050:i=0
1640 a$=""
1650 input"aendern (j/n) ";a$
1660 ifa$<>"j"then300
1670 a$="":fort=1to7:a$(y,t)="":next:t=y:g$="b":print"[147]":gosub760
1680 print" b u c h g e a e n d e r t[146][144]":gosub3000
1690 forv=1to1000:nextv:goto300
1800 z=0:s$="":print"[147] s u c h e n [146][144]"
1810 printv1$(b);:print" ";:inputs$:ifs$=""then3100
1820 z=len(s$)
1830 fort=1tohs
1840 print"[147] d a t e i w i r d d u r c h s u c h t[146][144]"
1850 foru=x1tox2
1860 fory=1tolen(a$(t,u))
1870 ifmid$(a$(t,u),y,z)=s$then1920
1880 nexty
1890 nextu
1900 nextt
1910 goto1980
1920 g$="b"::print" [147]s e i t e "t;:print"[146][144]":i=t:gosub1050:i=0
1930 print" ^= w e i t e r / 0= m e n u e [146][144]":gosub3000
1940 geta$:wait203,63:ifa$="^"then1970
1950 ifa$="0"thenu=0:t=0:y=0:goto300
1960 goto1940
1970 ift<=hsthen1900
1980 print"[147] d a t e i d u r c h s u c h t [146][144]"
1990 gosub3000:forv=1to1000:nextv:u=0:goto300
2100 print"[147]a l f a b e t i s c h e ";
2110 print"r e i h e n f o l g e [146][144]"
2120 forw=65to90
2130 fora=1tohs
2140 ifa$(a,1)=""then2160
2150 ifasc(mid$(a$(a,1),1,1))=wthengosub2250:goto2180
2160 nexta
2170 nextw
2180 ifz<>0andz/3=int(z/3)thenprint"[145] ^ = weiter [146][145][144]":geta$:ifa$<>"^"then2180
2190 ifa<hsthen2160
2200 ifa=>hsandw=>90then2210
2210 print" e n d e[146]"
2220 print" '0' d r u e c k e n[146][144]"
2230 geta$:ifa$<>"0"then2230
2240 z=0:goto300
2250 z=z+1:print""a$(a,1)"[146][144],";a$(a,2)"/"a$(a,3)"/"a$(a,4);
2260 print"/"a$(a,5)"/"a$(a,6)"/"a$(a,7)
2270 print"s e i t e [157]"a;"[144]"
2280 return
2300 print"[147] d a t e n l a d e n [146][144]":e$=""
2310 print"cassette / diskette c[146]/d[146]":wait198,1:gete$:ife$<"c"ore$>"d"then2300
2320 di=e$="d":ifnotdithen2350
2330 ifdithenf$=f$+"o:buecher,s,r"
2340 open2,1+(7anddi),2anddi,f$:goto2390
2350 print"[145]cassette einlegen und an die richtige stelle spulen,";
2360 print"dann '*' druecken"
2370 geta$:ifa$<>"*"then2370
2380 open2,1,0
2390 print"[147]":forq=1to500
2400 forr=1to7
2410 input#2,a$(q,r)
2420 ifa$(q,r)="@"thena$(q,r)="":goto2480
2430 ifa$(q,r)="[177]"thena$(q,r)=""
2440 nextr
2450 ifq=1then2460
2460 print"[147] d a t e n w e r d e n g e l a d e n [146][144]"
2470 nextq
2480 close2
2490 print"[147] d a t e n g e l a d e n [146][144]"
2500 hs=q
2510 gosub3000:forv=1to500:nextv:poke788,52:goto300
2600 print"[147] d a t e n a b s p e i c h e r n [146][144]":e$=""
2610 print"cassette / diskette c[146]/d[146]":wait198,1:gete$:ife$="c"then2640
2620 ife$<>"d"then2600
2630 open2,8,2,"@0:buecher,s,w":goto2680
2640 print"[145]cassette einlegen und an die richtige stelle spulen,";
2650 print"dann '*' druecken"
2660 geta$:ifa$<>"*"then2660
2670 open2,1,1
2680 print"[147]":forq=1tohs
2690 forr=1to7
2700 ifa$(q,r)=""thena$(q,r)="[177]"
2710 print#2,a$(q,r)
2720 nextr
2730 ifq=1then2740
2740 print"[147] d a t e n a b s p e i c h e r n [146][144]"
2750 nextq
2760 print#2,"@"
2770 close2
2780 print"[147] d a t e n a b g e s p e i c h e r t [146][144]"
2790 gosub3000:forv=1to500:nextv:goto300
2800 a$="":print"[147] d a t e i l o e s c h e n [146][144]"
2810 print"soll die ganze datei geloescht werden (j/n)":inputa$
2820 ifa$="j"thenclr:poke788,49:goto210
2830 goto300
2850 print"[147] n u r 5 0 0 a d r e s s e n ! "
2860 fort=1to2000:nextt:goto300
2900 input"[147]welche seite";i:ifi>500then2850
2910 print"[147]s e i t e "i:print"[146][144]":g$="b":gosub1050
2920 print" '0' d r u e c k e n[146][144]"
2930 geta$:ifa$=""then2930
2940 ifa$<>"0"then2930
2950 goto300
3000 si=54272:fl=si:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24
3010 pokel,15:pokea,15+15:pokeh,15*16+15:pokefh,29:pokefl,69:pokew,17
3020 forx=1to300:nextx:pokew,0:pokea,0:pokeh,0:pokel,0:return
3100 z=0:print"[147] s u c h e n [146][144]"
3110 print" bitte waehlen:"
3120 print"0 = menue
3130 [153]"1 = beliebiges suchkritterium"
3140 [153]"2 = titel"
3150 [153]"3 = untertitel"
3160 [153]"4 = autor(in)"
3170 [153]"5 = seitenzahl"
3180 [153]"6 = preis"
3190 [153]"7 = druckdatum"
3210 [161]d$:[139]d$[178]""[167]3210
3220 [139]d$[178]"0"[167]300
3230 b[178][197](d$):[139]b[178]0[176]b[177]7[167]3210
3240 [139]b[178]1[167]x1[178]1:x2[178]7:[137]1800
3250 x1[178]b[171]1:x2[178]b[171]1:[137]1800
3300 [131]"sie koennen ein beliebiges suchkriteriumeingeben"
3310 [131]"sie koennen einen beliebigen titel eingeben"
3320 [131]"sie koennen einen beliebigen untertitel eingeben"
3330 [131]"beliebige(n) autor(in) eingeben"
3340 [131]"sie koennen eine beliebige seitenzahl eingeben"
3350 [131]"sie koennen einen beliebigen preis eingeben"
3360 [131]"sie koennen ein beliebiges druckdatum eingeben"
3400 [159]15,8,15
3410 [132]15,a$,b$,c$,d$
3420 [153]""a$,b$,c$,d$
3430 [160]15
3440 [141]3000:[129]v[178]1[164]3500:[130]v:d$[178]"":[137]300