mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
108 lines
3.3 KiB
QBasic
108 lines
3.3 KiB
QBasic
10 'Adressendisc
|
||
20 DIM I$(50,6)
|
||
30 CLS:PRINT"1 = LADEN 2 = SUCHEN 3 = DRUCKEN 4 = EINGABE 5 = ŽNDERN 6 = SPEICHERN 7 = ENDE"
|
||
40 INPUT "Geben Sie die Ziffer die vor dem Men<65> steht ein --> ";S
|
||
50 IF S<1 OR S>7 THEN 40 ELSE 60
|
||
60 PRINT"Sie haben das Men<65> ";S;" gew„hlt !!!"
|
||
70 INPUT"Stimmt das ??? (Yes/No) :";A$
|
||
80 IF A$="yes" OR A$="Yes" THEN GOTO 110
|
||
90 IF A$="no" OR A$="No" THEN RUN
|
||
100 GOTO 60
|
||
110 ON S GOSUB 840,490,600,130,300,960,830
|
||
120 GOTO 30
|
||
130 N=E+1
|
||
140 PRINT"Dateinummer: ";N
|
||
150 PRINT"---------------------------------------------------"
|
||
160 INPUT"Vorname Name ";I$(N,1)
|
||
170 INPUT"Geburtsdatum,-ort ";I$(N,2)
|
||
180 INPUT"Strasse ";I$(N,3)
|
||
190 INPUT"Plz. Ort ";I$(N,4)
|
||
200 INPUT"Telefon No. ";I$(N,5)
|
||
210 INPUT"Besondere Kennzeichen ";I$(N,6)
|
||
220 IF S=5 THEN 400
|
||
230 E=N
|
||
240 PRINT"---------------------------------------------------"
|
||
250 PRINT"w=weiter m=Men<65>"
|
||
260 PRINT"==================================================="
|
||
270 A$=INKEY$:IF A$="w"OR A$="W"THEN 130
|
||
280 IF A$="m"OR A$="M"THEN 30 ELSE 270
|
||
290 RETURN
|
||
300 N=N-N
|
||
310 N=N+1:IF N=0 THEN 30 ELSE 320
|
||
320 PRINT"Dateinummer: ";N
|
||
330 PRINT"---------------------------------------------------"
|
||
340 PRINT"Vorname Name : ";I$(N,1)
|
||
350 PRINT"Geburtsdatum,-ort : ";I$(N,2)
|
||
360 PRINT"Strasse : ";I$(N,3)
|
||
370 PRINT"Plz. Ort : ";I$(N,4)
|
||
380 PRINT"Telefon No. : ";I$(N,5)
|
||
390 PRINT"Besondere Kennzeichen: ";I$(N,6)
|
||
400 PRINT"---------------------------------------------------"
|
||
410 PRINT"w=weiter m=Men<65> z=zur<75>ck „=„ndern d=drucken"
|
||
420 PRINT"==================================================="
|
||
430 A$=INKEY$:IF A$="w"OR A$="W"THEN 310
|
||
440 IF A$="z"OR A$="Z"THEN N=N-2:GOTO 310
|
||
450 IF A$="„"OR A$="Ž" THEN 140
|
||
460 IF A$="d"OR A$="D"THEN GOSUB 600
|
||
470 IF A$="m"OR A$="M"THEN 30 ELSE 430
|
||
480 RETURN
|
||
490 INPUT"Wort : ",W$
|
||
500 GOTO 840
|
||
510 PRINT"Vorname Name : ";I$(Y,1);
|
||
520 PRINT"Straáe : ";I$(Y,3)
|
||
530 PRINT"Wohnort : ";I$(Y,4)
|
||
540 PRINT"Telefon Nr: ";I$(Y,5)
|
||
550 PRINT
|
||
560 PRINT"w = weiter m = Men<65>"
|
||
570 PRINT:N=Y
|
||
580 A$=INKEY$:IF A$="w"OR A$="W"THEN 920
|
||
590 IF A$="m"OR A$="M"THEN CLOSE 1:GOTO 30 ELSE 580
|
||
600 LPRINT CHR$(15);
|
||
610 LPRINT" Markus Birth"
|
||
620 LPRINT" Musterstrasse 1"
|
||
630 LPRINT" W-1000 Berlin 20"
|
||
640 LPRINT CHR$(18);
|
||
650 LPRINT CHR$(27);"E";
|
||
660 FOR I=1 TO 10
|
||
670 LPRINT
|
||
680 NEXT
|
||
690 PRINT"Anrede : f = Frau h = Herrn andere Taste = ohne Anrede"
|
||
700 A$=INKEY$:IF A$="f"OR A$="F"THEN 730
|
||
710 IF A$="h"OR A$="H"THEN 740
|
||
720 IF A$=" "THEN 760 ELSE 700
|
||
730 LPRINT TAB(35)"Frau":GOTO 750
|
||
740 LPRINT TAB(35)"Herrn"
|
||
750 LPRINT
|
||
760 LPRINT TAB(35) I$(N,2);" ";I$(N,1)
|
||
770 LPRINT
|
||
780 LPRINT TAB(35) I$(N,4)
|
||
790 LPRINT
|
||
800 LPRINT TAB(35) I$(N,5)
|
||
810 LPRINT CHR$(27);"F";
|
||
820 RETURN
|
||
830 END
|
||
840 OPEN "i",1,"adressen"
|
||
850 INPUT#1,E
|
||
860 FOR Y=1 TO E
|
||
870 FOR Z=1 TO 6
|
||
880 IF EOF(1)THEN 940
|
||
890 INPUT#1,I$(Y,Z)
|
||
900 IF S=1 THEN 920
|
||
910 IF INSTR(I$(Y,Z),W$)THEN 500 ELSE 920
|
||
920 NEXT Z,Y
|
||
930 INPUT#1,E
|
||
940 CLOSE 1
|
||
950 RETURN
|
||
960 PRINT"s=speichern m=Men<65>"
|
||
970 A$=INKEY$:IF A$="s"OR A$="S"THEN 990
|
||
980 IF A$="m"OR A$="M"THEN 30 ELSE 970
|
||
990 OPEN"o",1,"adressen"
|
||
1000 PRINT#1,E
|
||
1010 FOR Y=1 TO E
|
||
1020 FOR Z=1 TO 6
|
||
1030 PRINT#1,I$(Y,Z)
|
||
1040 NEXT Z,Y
|
||
1050 PRINT#1,E
|
||
1060 CLOSE 1
|
||
1070 RETURN
|
||
|