10 FE$=" PROGRAMM UNVOLLSTAENDIG ! [146]":DIMX$(200,2):LW=PEEK(186):IFLW<8THENGOSUB1550
20 OPEN2,LW,2,"KONFIG,S,R":GOSUB1290:IFA<>0THENPRINTFE$:CLOSE2:END
30 INPUT#2,AZ:DIMBZ$(AZ)
40 FORT=1TOAZ:INPUT#2,BZ$(T):NEXT
50 CLOSE2:CLOSE15
60 POKE53281,0:POKE53280,0:DIMG(200,AZ)
70 PRINT"[147]             BESTELL-DATEI"
80 PRINT" [153]BY            TIGERCREW"
90 PRINT"               (C)  1992"
100 FORT=1TO500:NEXT
110 P=0:GOTO360
120 PRINT"[147]","DATEI WIRD EINGELESEN[146]"
130 OPEN2,LW,2,"VK-LISTE,S,R":GOSUB1290:IFA<>0THEN360
140 I=1
150 INPUT#2,X$(I,1),X$(I,2):FORT=1TOAZ:INPUT#2,G(I,T):NEXT
160 IFST<>64THENI=I+1:GOTO150
170 CLOSE2:CLOSE15
180 PRINT"     "I;"DATENSAETZE SIND GELADEN"
190 GOSUB1280:GOSUB260:RETURN
200 PRINT"       EINGABE RICHTIG (SPACE=J/N) ? [146]"
210 GETP$:IFP$<>"J"ANDP$<>" "ANDP$<>"N"THEN210
220 IFP$="N"THENRETURN
230 PRINT"      WEITERE EINGABEN (SPACE=J/N)[160]? [146]"
240 GETR$:IFR$<>"J"ANDR$<>" "ANDR$<>"N"THEN240
250 RETURN
260 POKE198,0:WAIT198,1:POKE198,0:RETURN
270 OPEN2,LW,2,"VK-LISTE,S,W"
280 GOSUB1290:IFA<>0THEN360
290 FORT=1TOI
300 PRINT#2,X$(T,1):PRINT#2,X$(T,2)
310 FORTT=1TOAZ:PRINT#2,G(T,TT):NEXTTT
320 NEXTT
330 CLOSE2:CLOSE15:IFJ<>0THENI=J:J=0
340 PRINT"[147]","DATEI IST GESPEICHERT[146]"
350 GOSUB1280:GOSUB260
360 PRINT"[147]","[155]DATEI EINRICHTEN","1"
370 PRINT"","DATEI ERWEITERN","2"
380 PRINT"","MENGEN EINGEBEN","3"
390 PRINT"","DATEN AUSGEBEN","4"
400 PRINT"","KONFIGURATION","5"
410 PRINT"","PRG. BEENDEN","6"
420 GETWE$:IFWE$<"1"ORWE$>"6"THEN420
430 IFWE$="6"THENEND
440 IFWE$="2"THEN570
450 IFWE$="3"ANDP>0THEN670
460 IFWE$="3"THEN660
470 IFWE$="4"ANDP>0THEN920
480 IFWE$="4"THEN900
490 IFWE$="5"THEN1350
500 I=1
510 X$(I,1)="":INPUT"[147] ARTIKEL  ";X$(I,1):IFX$(I,1)=""THEN360
520 INPUT" LIEFERANT";X$(I,2)
530 GOSUB200:IFP$="N"THEN510
540 IFR$="N"THEN560
550 I=I+1:GOTO510
560 PRINT"[147]","DATEI WIRD GESPEICHERT[146]":GOTO270
570 L=1:PRINT"[147]"
580 X$(L,1)="":INPUT" ARTIKEL  ";X$(L,1):IFX$(L,1)=""THEN360
590 INPUT" LIEFERANT";X$(L,2)
600 GOSUB200:IFP$="N"THENPRINT"[145][145][145][145][145][145][145][145]":GOTO580
610 IFR$="N"THEN630
620 L=L+1:PRINT"[147]":GOTO580
630 PRINT"[147]","DATEI WIRD GESPEICHERT[146]":J=I+L:I=L
640 OPEN2,LW,2,"VK-LISTE,S,A"
650 GOTO280
660 GOSUB120
670 FI=0:INPUT"[147] ARTIKEL";S$
680 FORZZ=1TOI
690 IFX$(ZZ,1)=S$THENFI=1:Z=ZZ:ZZ=I
700 NEXTZZ
710 IFFI<>0THEN790
720 PRINT"ARTIKEL IST NICHT GESPEICHERT"
730 PRINT"","WEITER[146]",,"1[146]"
740 PRINT""," ENDE [146]",,"2[146]"
750 GETQ$:IFQ$<>"1"ANDQ$<>"2"THEN750
760 IFQ$="1"THEN670
770 IFQ$="2"ANDO>0THEN880
780 IFQ$="2"THEN360
790 FI=0:PRINT"NEUER ART. = E"
800 INPUT"GROESSE";GR$
810 EE=0:IFGR$="E"THEN670
820 FORT=1TOAZ:IFGR$=BZ$(T)THENEE=T:T=AZ
830 NEXT:IFEE=0THENPRINT"[145][145][145]":GOTO800
840 INPUT"MENGE  ";M$:M=VAL(M$)
850 GOSUB200:IFP$="N"THENPRINT"[145][145][145][145][145]":GOTO800
860 G(Z,EE)=G(Z,EE)+M:IFR$="N"THEN880
870 GOTO800
880 PRINT"[147]","DATEI WIRD GESPEICHERT[146]"
890 OPEN15,LW,15,"S:VK-LISTE":CLOSE15:GOTO270
900 GOSUB120
910 P=P+1
920 PRINT"[147]AUSGABE DRUCKEN ? (J/N)"
930 GETDU$:IFDU$<>"J"ANDDU$<>"N"THEN930
940 PRINT"[147] LIEFERANT = L  /  ALLE = A":Z=0
950 S$="":INPUT" GESUCHTER ARTIKEL ";S$:IFS$=""THEN360
960 IFS$="A"THEN1100
970 IFS$="L"THEN1180
980 FORZZ=1TOI
990 IFX$(ZZ,1)=S$THENZ=ZZ:ZZ=I
1000 NEXTZZ:IFZ<>0THENPRINT"[147]":GOSUB1110:GOTO1060
1010 PRINT"ARTIKEL IST NICHT GESPEICHERT"
1020 PRINT"","WEITER[146]",,"1[146]"
1030 PRINT""," ENDE [146]",,"2[146]"
1040 GETQ$:IFQ$<>"1"ANDQ$<>"2"THEN1040
1050 ONVAL(Q$)GOTO950,360
1060 PRINT"[147]   WEITEREN ARTIKEL AUSGEBEN (J/N) ?"
1070 GETU$:IFU$<>"J"ANDU$<>"N"THEN1070
1080 IFU$="J"THENZ=0:GOTO950
1090 GOTO360
1100 FORZ=1TOI:GOSUB1110:NEXT:GOTO1160
1110 IFDU$="J"THENOPEN4,4:CMD4
1120 PRINT"ARTIKEL  :",X$(Z,1):PRINT"LIEFERANT:",X$(Z,2):PRINT""
1130 FORT=1TOAZ:PRINTBZ$(T),G(Z,T):NEXT
1140 IFDU$="J"THENPRINT#4:CLOSE4:RETURN
1150 GOSUB1280:GOSUB260:RETURN
1160 PRINT"[147]    DATEI - ENDE [146]"
1170 GOSUB1280:GOSUB260:GOTO360
1180 INPUT"[147] GESUCHTER LIEFERANT ";LI$:LI=LEN(LI$)
1190 FORZ=1TOI
1200 IFLEFT$(X$(Z,2),LI)=LI$THENFO=1:GOSUB1110
1210 NEXTZ
1220 IFFO=0THENPRINT"[147] NICHT GEFUNDEN!"
1230 FO=0:PRINT"","NEU SUCHEN[146]","1[146]"
1240 PRINT"","   ENDE   [146]","2[146]"
1250 GETQ$:IFQ$<>"1"ANDQ$<>"2"THEN1250
1260 IFQ$="1"THEN1180
1270 GOTO360
1280 PRINT"           TASTE DRUECKEN          [146]":RETURN
1290 OPEN15,LW,15
1300 INPUT#15,A,BB$,C,D
1310 IFA=0THEN1340
1320 PRINT" FEHLER[160]!":PRINT""A,BB$,C;D
1330 GOSUB260:CLOSE2:CLOSE15:RETURN
1340 RETURN
1350 PRINT"[147]              KONFIGURATION             [146]"
1360 PRINT"BEI VERSEHENTLICHER ANWAHL F2[146] DRUECKEN."
1370 PRINT"F1[146] = VORHANDENE DATEN ANSEHEN.":PRINT"SPACE[146] = DATENEINGABE"
1380 GETBX$:IFBX$=""THEN1380
1390 IFBX$=CHR$(137)THEN360
1400 IFBX$=CHR$(133)THEN1540
1410 CLR:DIMBZ$(25):PRINT"[147]":T=1
1420 PRINTT" ";:BZ$(T)="":INPUT"BEZEICHUNG ";BZ$(T):IFBZ$(T)=""THENT=T-1:GOTO1480
1430 PRINT"            EINGABE KORREKT ?        "
1440 GETEG$:IFEG$<>" "ANDEG$<>"J"ANDEG$<>"N"THEN1440
1450 IFEG$="N"THENPRINT"[145][145][145][145]":GOTO1420
1460 PRINT"[145]                                      [145]":T=T+1:IFT<26THEN1420
1470 PRINT"ENDE DER EINGABE !":FORBS=1TO500:NEXT
1480 IFT<1THEN360
1490 OPEN15,LW,15,"S:KONFIG":CLOSE15
1500 OPEN2,LW,2,"KONFIG,S,W"
1510 PRINT#2,T
1520 FORSR=1TOT:PRINT#2,BZ$(SR):NEXT
1530 CLOSE2:CLR:RUN
1540 PRINT"[147]":FORT=1TOAZ:PRINTT"  "BZ$(T):NEXT:GOSUB260:GOTO1350
1550 PRINT"[147]DURCH PROGRAMM-ABBRUCH IST VOR NEUSTART EINE LAUFWERKBESTIMMUNG ER";
1560 PRINT"FORDERLICH.":PRINT"BITTE, GEBEN SIE EIN, MIT WELCHEM LW DASPROGRAMM";
1570 PRINT" ARBEITEN SOLL:"
1580 LW$="":INPUT"";LW$:IFLW$=""THENEND
1590 LW=VAL(LW$):IFLW<8ORLW>15THEN1550
1600 RETURN