10 '*** MAXI Datenverwaltung
20 '*** Jahn Dohm 30 ' 40 MODE 1:INK 0,0:INK 1,26:INK 2,19:INK 3,9:BORDER 0:schluss=1 50 DIM suchdat$(64),titel$(100),a$(100),b$(100),c$(100),d$(100),e$(100),f$(100),g$(100),h$(100),i$(100),j$(100) 60 SYMBOL AFTER 90 70 SYMBOL 123,204,0,120,12,124,204,118,0 :REM ae 80 SYMBOL 91,102,24,60,102,126,102,102,0 :REM AE 90 SYMBOL 125,0,102,0,102,102,102,62,0 :REM ue 100 SYMBOL 93,102,0,102,102,102,102,60,0 :REM UE 110 SYMBOL 124,102,0,60,102,102,102,60,0 :REM oe 120 SYMBOL 126,0,60,102,108,102,102,108,96 :REM sz 130 SYMBOL 255,126,129,189,137,145,189,129,126:REM SZ 140 KEY DEF 17,1,123,91,0 :REM ae 150 KEY DEF 19,1,125,93,0 :REM ue 160 KEY DEF 22,1,124,92,0 :REM oe 170 KEY DEF 24,1,126,94,0 :REM sz 180 SYMBOL 92,198,56,108,198,198,108,56,0 :REM OE 190 PAPER 0:' ********************************** Beginn 200 PEN 1:CLS:ORIGIN 0,0:PLOT 0,0,1:DRAW 0,399:DRAW 639,399:DRAW 639,0:DRAW 0,0:PLOT 0,50:DRAW 639,50:PLOT 0,351:DRAW 639,351:LOCATE 10,2:PRINT" MAXI-DATENVERWALTUNG" 210 WINDOW 2,39,5,21:PAPER 3:CLS:WINDOW #1,2,38,24,24:PAPER #1,0:CLS #1 220 LOCATE 5,2:PRINT"1. Eingabe" 230 LOCATE 5,4:PRINT"2. Ausgabe" 240 LOCATE 5,6:PRINT"3. Daten suchen" 250 LOCATE 5,8:PRINT"4. Daten abspeichern" 260 LOCATE 5,10:PRINT"5. Daten laden" 270 LOCATE 5,12:PRINT"6. Daten korrigieren" 280 LOCATE 5,14:PRINT"7. Disk-Inhalt ansehen" 290 LOCATE 5,16:PRINT"8. Ende" 300 PRINT #1," Ihre Wahl: ";CHR$(143) 310 w$=INKEY$:IF w$="" THEN 310 320 IF w$="1" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 410 330 IF w$="2" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 910 340 IF w$="3" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 1180 350 IF w$="4" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 1450 360 IF w$="5" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 1520 370 IF w$="6" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 1610 380 IF w$="7" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 1740 390 IF w$="8" THEN PRINT #1," Ihre Wahl: ";w$:CLS:GOTO 1840 400 PRINT #1,CHR$(7);" FALSCHE EINGABE!!";CHR$(7);:FOR t=1 TO 250:NEXT:PRINT #1,CHR$(7);CHR$(7);:CLS #1:GOTO 300 410 '*********** 420 ' EINGABE 430 '*********** 440 PRINT:PRINT:PRINT:PRINT" 1. Alle vorherigen Daten lùschen":PRINT:PRINT:PRINT" 2. Sofort neue Daten eingeben" 450 PRINT #1," Ihre Wahl: ";CHR$(143) 460 w$=INKEY$:IF w$="" THEN 460 470 IF w$="1" THEN FOR l=1 TO schluss:titel$(l)="":a$(l)="":b$(l)="":c$(l)="":d$(l)="":e$(l)="":f$(l)="":g$(l)="":h$(l)="":i$(l)="":j$(l)="":NEXT l:schluss=1:GOTO 500 480 IF w$="2" THEN 500 490 PRINT #1,CHR$(7);" FALSCHE EINGABE!!";CHR$(7);:FOR t=1 TO 250:NEXT:PRINT #1,CHR$(7);CHR$(7);:CLS #1::GOTO 450 500 ' Eingabe 510 p$=STRING$(30,"."):FOR mdv=schluss TO 100 520 PEN 2:CLS:CLS #1:WINDOW 1,40,1,24:LOCATE 6,7:PRINT p$ 530 FOR cpc=1 TO 10:LOCATE 6,cpc+9:PRINT p$:NEXT cpc 540 PEN 1:WINDOW #2,6,36,7,7:PAPER #2,3:LINE INPUT #2,"",titel$(mdv) 550 IF LEN(titel$(mdv))>30 THEN PAPER #2,3:CLS #2:PRINT #2,p$:GOTO 540 560 FOR cpc=1 TO 10:WINDOW #2,6,36,cpc+9,cpc+9 570 ON cpc GOSUB 650,660,670,680,690,700,710,720,730,740 580 NEXT cpc 590 PRINT #1," Alle Eingaben richtig? (j/n)" 600 w$=INKEY$:IF w$="" THEN 600 ELSE IF UPPER$(w$)="J" THEN 610 ELSE IF UPPER$(w$)="N" THEN GOTO 750 ELSE PRINT #1,CHR$(7);:GOTO 590 610 PRINT #1," Noch weiter Eingaben? (j/n)" 620 w$=INKEY$:IF w$="" THEN 620 ELSE IF UPPER$(w$)="J" THEN 630 ELSE IF UPPER$(w$)="N" THEN schluss=mdv+1:GOTO 210 ELSE PRINT #1,CHR$(7);:GOTO 610 630 WINDOW 2,39,5,21:PAPER 3 640 NEXT mdv:schluss=100:GOTO 210 650 LINE INPUT #2,"",a$(mdv):IF LEN(a$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 650 ELSE RETURN 660 LINE INPUT #2,"",b$(mdv):IF LEN(b$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 660 ELSE RETURN 670 LINE INPUT #2,"",c$(mdv):IF LEN(c$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 670 ELSE RETURN 680 LINE INPUT #2,"",d$(mdv):IF LEN(d$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 680 ELSE RETURN 690 LINE INPUT #2,"",e$(mdv):IF LEN(e$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 690 ELSE RETURN 700 LINE INPUT #2,"",f$(mdv):IF LEN(f$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 700 ELSE RETURN 710 LINE INPUT #2,"",g$(mdv):IF LEN(g$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 710 ELSE RETURN 720 LINE INPUT #2,"",h$(mdv):IF LEN(h$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 720 ELSE RETURN 730 LINE INPUT #2,"",i$(mdv):IF LEN(i$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 730 ELSE RETURN 740 LINE INPUT #2,"",j$(mdv):IF LEN(j$(mdv))>30 THEN CLS #2:PRINT #2,p$:GOTO 740 ELSE RETURN 750 'Falsche Eingabe ... 760 LOCATE 2,7:PRINT" ]":FOR cpc=1 TO 9:LOCATE 2,cpc+9:PRINT cpc:NEXT cpc:LOCATE 2,19:PRINT" Z" 770 PRINT #1," Welche Eingabe korrigieren?" 780 w$=INKEY$:IF w$="" THEN 780 790 IF w$="]" THEN WINDOW #2,6,36,7,7:LINE INPUT #2,"",titel$(mdv):IF LEN(titel$(mdv))>30 THEN PAPER #2,3:CLS #2:PRINT #2,p$:GOTO 790 ELSE IF lsmf=799 THEN 1680 ELSE 590 800 IF w$="1" THEN WINDOW #2,6,36,10,10:CLS #2:GOSUB 650:IF lsmf=799 THEN 1680 ELSE 590 810 IF w$="2" THEN WINDOW #2,6,36,11,11:CLS #2:GOSUB 660:IF lsmf=799 THEN 1680 ELSE 590 820 IF w$="3" THEN WINDOW #2,6,36,12,12:CLS #2:GOSUB 670:IF lsmf=799 THEN 1680 ELSE 590 830 IF w$="4" THEN WINDOW #2,6,36,13,13:CLS #2:GOSUB 680:IF lsmf=799 THEN 1680 ELSE 590 840 IF w$="5" THEN WINDOW #2,6,36,14,14:CLS #2:GOSUB 690:IF lsmf=799 THEN 1680 ELSE 590 850 IF w$="6" THEN WINDOW #2,6,36,15,15:CLS #2:GOSUB 700:IF lsmf=799 THEN 1680 ELSE 590 860 IF w$="7" THEN WINDOW #2,6,36,16,16:CLS #2:GOSUB 710:IF lsmf=799 THEN 1680 ELSE 590 870 IF w$="8" THEN WINDOW #2,6,36,17,17:CLS #2:GOSUB 720:IF lsmf=799 THEN 1680 ELSE 590 880 IF w$="9" THEN WINDOW #2,6,36,18,18:CLS #2:GOSUB 730:IF lsmf=799 THEN 1680 ELSE 590 890 IF UPPER$(w$)="Z" THEN WINDOW #2,6,36,19,19:CLS #2:GOSUB 740:IF lsmf=799 THEN 1680 ELSE 590 900 PRINT #1,CHR$(7);:GOTO 770 910 '*********** 920 ' AUSGABE 930 '*********** 940 CLS:PRINT:PRINT:PRINT:PRINT" 1. Bildschirm":PRINT:PRINT:PRINT" 2. Drucker" 950 PRINT #1," Ihre Wahl: ";CHR$(143) 960 w$=INKEY$:IF w$="" THEN 960 970 IF w$="1" THEN ausgabe=1:GOTO 1000 980 IF w$="2" THEN ausgabe=2:GOTO 1000 990 PRINT #1,CHR$(7);:GOTO 950 1000 ' Ausgabe 1010 CLS:CLS #1:IF ausgabe=2 THEN PRINT #1,"Drucker bereitmachen-Taste...":CALL &BB06:CLS #1:GOTO 1070 1020 FOR mdv=1 TO schluss 1030 PEN 1:CLS #1:WINDOW 1,40,1,24:LOCATE 6,7:PRINT titel$(mdv):LOCATE 6,10:PRINT a$(mdv):LOCATE 6,11:PRINT b$(mdv):LOCATE 6,12:PRINT c$(mdv):LOCATE 6,13:PRINT d$(mdv):LOCATE 6,14:PRINT e$(mdv):LOCATE 6,15:PRINT f$(mdv):LOCATE 6,16:PRINT g$(mdv) 1040 LOCATE 6,17:PRINT h$(mdv):LOCATE 6,18:PRINT i$(mdv):LOCATE 6,19:PRINT j$(mdv) 1050 WINDOW 2,39,5,21:PAPER 3:PRINT #1," Taste...":CALL &BB06:CLS 1060 NEXT mdv:GOTO 210 1070 'Drucker-Ausgabe 1080 CLS:PRINT:PRINT:PRINT:PRINT" 1. NLQ - Druck":PRINT:PRINT:PRINT" 2. Draft - Druck" 1090 PRINT #1," Ihre Wahl: ";CHR$(143) 1100 w$=INKEY$:IF w$="" THEN 1100 1110 IF w$="1" OR w$="2" THEN 1130 1120 PRINT #1,CHR$(7);:GOTO 1090 1130 PRINT#8,CHR$(27);"R";CHR$(2);:IF w$="1" THEN PRINT #8,CHR$(27);"x";CHR$(1) ELSE PRINT #8,CHR$(27);"x";CHR$(0) 1140 CLS:INK 1,26,0:PRINT"BITTE WARTEN!":INK 2,0,26:PRINT"BITTE WARTEN!":FOR mdv=1 TO schluss 1150 PRINT #8,CHR$(27);"E";:PRINT #8,CHR$(27);"G":PRINT #8,titel$(mdv):PRINT #8,CHR$(27);"F":PRINT #8,CHR$(27);"H" 1160 PRINT #8,a$(mdv):PRINT #8,b$(mdv):PRINT #8,c$(mdv):PRINT #8,d$(mdv):PRINT #8,e$(mdv):PRINT #8,f$(mdv):PRINT #8,g$(mdv):PRINT #8,h$(mdv):PRINT #8,i$(mdv):PRINT #8,j$(mdv) 1170 CLS #1:NEXT mdv:CLS:INK 1,26:INK 2,19:GOTO 210 1180 '**************** 1190 ' DATEN SUCHEN 1200 '**************** 1210 GOSUB 2160:'(Nachtrag 2) 1220 CLS:CLS #1:PRINT"Wort/Satz,das/der gesucht werden soll:":LINE INPUT"",such$:IF LEN(such$)>30 THEN PRINT #1,CHR$(7);CHR$(7);"Nicht mehr als 30 Buchstaben!";CHR$(7);:FOR t=1 TO 250:NEXT t:PRINT CHR$(7):GOTO 1220 1230 PEN 2:PRINT #1,such$ 1240 CLS:WINDOW 1,40,1,24:FOR mdv=1 TO schluss 1250 IF INSTR(UPPER$(titel$(mdv)),UPPER$(such$))<>0 THEN 1380 1260 IF INSTR(UPPER$(a$(mdv)),UPPER$(such$))<>0 THEN 1380 1270 IF INSTR(UPPER$(b$(mdv)),UPPER$(such$))<>0 THEN 1380 1280 IF INSTR(UPPER$(c$(mdv)),UPPER$(such$))<>0 THEN 1380 1290 IF INSTR(UPPER$(d$(mdv)),UPPER$(such$))<>0 THEN 1380 1300 IF INSTR(UPPER$(e$(mdv)),UPPER$(such$))<>0 THEN 1380 1310 IF INSTR(UPPER$(f$(mdv)),UPPER$(such$))<>0 THEN 1380 1320 IF INSTR(UPPER$(g$(mdv)),UPPER$(such$))<>0 THEN 1380 1330 IF INSTR(UPPER$(h$(mdv)),UPPER$(such$))<>0 THEN 1380 1340 IF INSTR(UPPER$(i$(mdv)),UPPER$(such$))<>0 THEN 1380 1350 IF INSTR(UPPER$(j$(mdv)),UPPER$(such$))<>0 THEN 1380 1360 NEXT mdv 1370 PEN 1:CLS #1:IF ndsisbdd=0 THEN 2310 ELSE 210 1380 ' GEFUNDEN! 1390 WINDOW 2,39,5,21:PAPER 3:CLS:WINDOW 1,40,1,24:LOCATE 6,7:PRINT titel$(mdv):LOCATE 6,10:PRINT a$(mdv):LOCATE 6,11:PRINT b$(mdv):LOCATE 6,12:PRINT c$(mdv):LOCATE 6,13:PRINT d$(mdv):LOCATE 6,14:PRINT e$(mdv):LOCATE 6,15:PRINT f$(mdv):LOCATE 6,16 1400 PRINT g$(mdv):LOCATE 6,17:PRINT h$(mdv):LOCATE 6,18:PRINT i$(mdv):LOCATE 6,19:PRINT j$(mdv) 1410 GOSUB 1940:'(Nachtrag 1) 1420 CLS #1:PRINT #1,"Weitersuchen? (j/n) " 1430 w$=INKEY$:IF w$="" THEN 1430 ELSE IF UPPER$(w$)="N" THEN 1370 ELSE IF UPPER$(w$)="J" THEN 1360 1440 PRINT #1,CHR$(7);:GOTO 1410 1450 '********************* 1460 ' DATEN ABSPEICHERN 1470 '********************* 1480 CLS:CLS #1:PRINT #1," DATEN ABSPEICHERN":LOCATE 2,5:PRINT"Dateiname: ........";:PEN 2:PRINT".DAT":LOCATE 13,5:PEN 1:INPUT"",d$:IF LEN(d$)>8 THEN 1480 1490 IF d$="" THEN 210 1500 OPENOUT d$+".DAT":CLS:PRINT" DATEI: ";d$+".DAT" 1510 FOR mdv=1 TO schluss:CLS #1:PRINT #1,mdv:WRITE #9,titel$(mdv),a$(mdv),b$(mdv),c$(mdv),d$(mdv),e$(mdv),f$(mdv),g$(mdv),h$(mdv),i$(mdv),j$(mdv):NEXT mdv:CLOSEOUT:GOTO 210 1520 '*************** 1530 ' DATEN LADEN 1540 '*************** 1550 CLS:CLS #1:PRINT #1," DATEN LADEN":LOCATE 2,5:PRINT"Dateiname: ........";:PEN 2:PRINT".DAT":LOCATE 13,5:PEN 1:INPUT"",d$:IF LEN(d$)>8 THEN 1550 1560 IF d$="" THEN 210 1570 FOR l=1 TO schluss:titel$(l)="":a$(l)="":b$(l)="":c$(l)="":d$(l)="":e$(l)="":f$(l)="":g$(l)="":h$(l)="":i$(l)="":j$(l)="":NEXT l:schluss=0 1580 OPENIN d$+".DAT":CLS:PRINT" DATEI: ";d$+".DAT" 1590 r=0:WHILE NOT EOF:r=r+1:CLS #1:PRINT #1,r:INPUT #9,titel$(r),a$(r),b$(r),c$(r),d$(r),e$(r),f$(r),g$(r),h$(r),i$(r),j$(r) 1600 WEND:schluss=r:CLOSEIN:GOTO 210 1610 '********************* 1620 ' DATEN KORRIGIEREN 1630 '********************* 1640 FOR mdv=1 TO schluss 1650 CLS:PEN 1:CLS #1:WINDOW 1,40,1,24:LOCATE 6,7:PRINT titel$(mdv):LOCATE 6,10:PRINT a$(mdv):LOCATE 6,11:PRINT b$(mdv):LOCATE 6,12:PRINT c$(mdv):LOCATE 6,13:PRINT d$(mdv):LOCATE 6,14:PRINT e$(mdv):LOCATE 6,15:PRINT f$(mdv):LOCATE 6,16:PRINT g$(mdv) 1660 LOCATE 6,17:PRINT h$(mdv):LOCATE 6,18:PRINT i$(mdv):LOCATE 6,19:PRINT j$(mdv) 1670 'WINDOW 2,39,5,21:PAPER 3 1680 PRINT #1,"KORRIGIEREN? (j/n)" 1690 w$=INKEY$:IF w$="" THEN 1690 1700 IF UPPER$(w$)="J" THEN lsmf=799:GOTO 750 1710 IF UPPER$(w$)="N" THEN 1730 1720 PRINT #1,CHR$(7):GOTO 1680 1730 WINDOW 2,39,5,21:CLS:NEXT mdv:PEN 1:GOTO 210 1740 '*********************** 1750 ' DISK-INHALT ANSEHEN 1760 '*********************** 1770 CLS:CLS #1:PRINT"Nur die Dateien mit der Extension":PRINT"'.DAT' auflisten? (j/n)" 1780 w$=INKEY$:IF w$="" THEN 1780 1790 IF UPPER$(w$)="J" THEN 1820 1800 IF UPPER$(w$)="N" THEN 1830 1810 PRINTCHR$(7):GOTO 1770 1820 CLS:ext$="*.DAT":ùDIR,àext$:PRINT #1,"Taste!":CALL &BB06:GOTO 210 1830 MODE 2:PAPER 0:CAT:LOCATE 1,24:PRINT"Taste!":CALL &BB06:MODE 1:GOTO 190 1840 '******** 1850 ' ENDE 1860 '******** 1870 CLS:CLS #1:PRINT"WIRKLICH? (j/n)" 1880 w$=INKEY$:IF w$="" THEN 1880 1890 IF UPPER$(w$)="J" THEN 1920 1900 IF UPPER$(w$)="N" THEN 210 1910 PRINTCHR$(7):GOTO 1870 1920 MODE 1:PAPER 0:PRINT"M A X I - D A T E N V E R W A L T U N G":PRINT"von Jan Dohm 1990":PRINT" Tiergartenstra~e 15":PRINT" 5560 Wittlich":PRINT:PRINT:PRINT 1930 PRINT"Neustart mit 'RUN'. ":PRINT"Fortsetztung mit 'GOTO 250'":PRINT:PRINT"Weiterhin viel Spa~ mit":PRINT"M A X I - D A T E N V E R W A L T U N G":PRINT:PRINT"J.D.":PRINT:END 1940 'Nachtrag 1 1950 ' 1960 'Zur Suchroutine: 1970 'Ausdruck des gefundenen Datensatzes 1980 CLS #1:PRINT #1,"Datensatz ausdrucken? (j/n) " 1990 xm$=INKEY$:IF xm$="" THEN 1990 2000 IF UPPER$(xm$)="N" THEN RETURN 2010 IF UPPER$(xm$)="J" THEN 2030 2020 PRINT #1,CHR$(7);CHR$(7);:GOTO 1940 2030 ' Drucken ... 2040 CLS #1 2050 PRINT #1,"NLQ-Qualitét? (j/n) " 2060 xm$=INKEY$:IF xm$="" THEN 2060 2070 IF UPPER$(xm$)="N" THEN nlq=0:GOTO 2100 2080 IF UPPER$(xm$)="J" THEN nlq=1:GOTO 2100 2090 PRINT #1,CHR$(7);CHR$(7);:GOTO 2040 2100 ' Jetzt Drucken ... ! 2110 CLS #1:PRINT #1,"Drucker bereitmachen-Taste!":CALL &BB18:PRINT #8,CHR$(27);"R";CHR$(2);:IF nlq=1 THEN PRINT #8,CHR$(27);"x";CHR$(1) ELSE PRINT #8,CHR$(27);"x";CHR$(0) 2120 CLS #1:PRINT #1,"BITTE WARTEN!" 2130 PRINT #8,CHR$(27);"E";:PRINT #8,CHR$(27);"G":PRINT #8,titel$(mdv):PRINT #8,CHR$(27);"F":PRINT #8,CHR$(27);"H" 2140 PRINT #8,a$(mdv):PRINT #8,b$(mdv):PRINT #8,c$(mdv):PRINT #8,d$(mdv):PRINT #8,e$(mdv):PRINT #8,f$(mdv):PRINT #8,g$(mdv):PRINT #8,h$(mdv):PRINT #8,i$(mdv):PRINT #8,j$(mdv) 2150 CLS #1:SOUND 1,65,300:RETURN 2160 'Nachtrag 2 2170 'Zur Suchroutine: 2180 CLS:CLS #1:PRINT:PRINT"Nur die sich im Speicher befindliche Datei durchsuchen? (j/n) " 2190 xm$=INKEY$:IF xm$="" THEN 2190 2200 IF UPPER$(xm$)="N" THEN ndsisbdd=0:GOTO 2230 2210 IF UPPER$(xm$)="J" THEN ndsisbdd=1:RETURN 2220 PRINTCHR$(7):PRINTCHR$(7):GOTO 2160 2230 CLS:PRINT"Anzahl der zu durchsuchenden Dateien:":INPUT"",adzdd:IF adzdd>64 OR adzdd<1 THEN PRINT:PRINT"Jaja, nur nicht aufregen!":PRINT"In fènf Minuten ist alles vorbei ...":FOR t=1 TO 3800:NEXT t:GOTO 2230 2240 CLS:PRINT #1,"Anzahl der Dateien: ";adzdd 2250 FOR ytyty=1 TO adzdd 2260 CLS:LOCATE 1,5:PRINT"Name der ";ytyty". Datei: ........";:PEN 2:PRINT".DAT":PEN 1:IF ytyty<10 THEN LOCATE 22,5:INPUT"",suchdat$(ytyty) ELSE LOCATE 23,5:INPUT"",suchdat$(ytyty) 2270 IF LEN(suchdat$(ytyty))>8 THEN PRINT:PRINTCHR$(7);"Nur 8 Zeichen!":FOR t=1 TO 2000:NEXT t:GOTO 2260 2280 IF suchdat$(ytyty)="" THEN PRINT:PRINT CHR$(7);"?????????????":FOR t=1 TO 2000:NEXT t:GOTO 2260 2290 NEXT ytyty 2300 RETURN 2310 WINDOW 2,39,5,21:PAPER 3:CLS:CLS #1 2320 FOR trtr=1 TO adzdd 2330 CLS #1:PRINT #1,"Taste fèr ";suchdat$(trtr):CALL &BB18:CLS #1:PRINT #1,suchdat$(trtr) 2340 OPENIN suchdat$(trtr)+".DAT" 2350 r=0:WHILE NOT EOF:r=r+1:CLS #1:PRINT #1,r:INPUT #9,titel$,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$ 2360 IF INSTR(UPPER$(titel$),UPPER$(such$))<>0 THEN 2490 2370 IF INSTR(UPPER$(a$),UPPER$(such$))<>0 THEN 2490 2380 IF INSTR(UPPER$(b$),UPPER$(such$))<>0 THEN 2490 2390 IF INSTR(UPPER$(c$),UPPER$(such$))<>0 THEN 2490 2400 IF INSTR(UPPER$(c$),UPPER$(such$))<>0 THEN 2490 2410 IF INSTR(UPPER$(d$),UPPER$(such$))<>0 THEN 2490 2420 IF INSTR(UPPER$(e$),UPPER$(such$))<>0 THEN 2490 2430 IF INSTR(UPPER$(f$),UPPER$(such$))<>0 THEN 2490 2440 IF INSTR(UPPER$(g$),UPPER$(such$))<>0 THEN 2490 2450 IF INSTR(UPPER$(h$),UPPER$(such$))<>0 THEN 2490 2460 IF INSTR(UPPER$(i$),UPPER$(such$))<>0 THEN 2490 2470 IF INSTR(UPPER$(j$),UPPER$(such$))<>0 THEN 2490 2480 WEND:CLOSEIN:NEXT trtr:GOTO 210 2490 ' GEFUNDEN! 2500 WINDOW 2,39,5,21:PAPER 3:CLS:WINDOW 1,40,1,24:LOCATE 6,7:PRINT titel$:LOCATE 6,10:PRINT a$:LOCATE 6,11:PRINT b$:LOCATE 6,12:PRINT c$:LOCATE 6,13:PRINT d$:LOCATE 6,14:PRINT e$:LOCATE 6,15:PRINT f$:LOCATE 6,16:PRINT g$:LOCATE 6,17:PRINT h$:LOCATE 6,18 2510 PRINT i$:LOCATE 6,19:PRINT j$:GOSUB 2540 2520 CLS #1:PRINT #1,"Weitersuchen? (j/n) " 2530 w$=INKEY$:IF w$="" THEN 2530 ELSE IF UPPER$(w$)="N" THEN CLOSEIN:GOTO 210 ELSE IF UPPER$(w$)="J" THEN 2480 ELSE PRINT #1,CHR$(7);:GOTO 2520 2540 CLS #1:PRINT #1,"Datensatz ausdrucken? (j/n) " 2550 xm$=INKEY$:IF xm$="" THEN 2550 2560 IF UPPER$(xm$)="N" THEN RETURN 2570 IF UPPER$(xm$)="J" THEN 2590 2580 PRINT #1,CHR$(7);CHR$(7);:GOTO 2540 2590 CLS #1:PRINT #1,"NLQ-Qualitét? (j/n) " 2600 xm$=INKEY$:IF xm$="" THEN 2600 2610 IF UPPER$(xm$)="N" THEN nlq=0:GOTO 2640 2620 IF UPPER$(xm$)="J" THEN nlq=1:GOTO 2640 2630 PRINT #1,CHR$(7);CHR$(7);:GOTO 2590 2640 CLS #1:PRINT #1,"Drucker bereitmachen-Taste!":CALL &BB18:PRINT #8,CHR$(27);"R";CHR$(2);:IF nlq=1 THEN PRINT #8,CHR$(27);"x";CHR$(1) ELSE PRINT #8,CHR$(27);"x";CHR$(0) 2650 CLS #1:PRINT #1,"BITTE WARTEN!" 2660 PRINT #8,CHR$(27);"E";:PRINT #8,CHR$(27);"G":PRINT #8,titel$:PRINT #8,CHR$(27);"F":PRINT #8,CHR$(27);"H" 2670 PRINT #8,a$:PRINT #8,b$:PRINT #8,c$:PRINT #8,d$:PRINT #8,e$:PRINT #8,f$:PRINT #8,g$:PRINT #8,h$:PRINT #8,i$:PRINT #8,j$ 2680 CLS #1:SOUND 1,65,300:RETURN |