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