5 PRINT CHR$(27)"E"
6 PRINT TAB(20)"**** -VOORBEELD- ****"
10 PRINT"Een inkoper bij een bedrijf dat landbouwwerktuigen maakt."
20 PRINT"Jaarlijks heeft het bedrijf 5000 aandrijfriemen nodig.
30 PRINT"De importeur RIEM B.V. geeft de volgende offerte.
50 PRINT"0 t/m         99 aandrijfriemen    f 25.-- per stuk.
60 PRINT"100 t/m      749      ,,           f 18.-- per stuk.
70 PRINT"750 t/m     1499      ,,           f 14.-- per stuk.
80 PRINT"1500 t/m  999999      ,,           f 10.-- per stuk.
100 PRINT"De kosten voor het plaatsen van een order  f 75.-- "  
110 PRINT"De opslagkosten f 0.50 per art. en dat men rekening dient"
120 PRINT"te houden met een interest van 16 % .
121 PRINT"VRAAG: Hoeveel aandrijfriemen moet men bestellen om aan zijn"
122 PRINT"optimale bestelserie te komen en tegen welke prijs ?
123 PRINT"ANTWOORD: Aantal aadrijfriemen per order 440 stuks tegen een"
124 PRINT"prijs van f 18.-- per stuk. Men moet hier voor 11 bestellingen plaatsen"
125 PRINT
127 PRINT"AFZET PER PERIODE ? 5000                  | KWATUM 1 ?   0,99,25"
128 PRINT"VAST BEDRAG PER BESTELLING ? 75           | KWANTUM 2 ?  100,749,18
129 PRINT"VARIABELE OPSLAGKOSTEN PER EENHEID ? .5   | KWANTUM 3 ?  750,1499,14
130 PRINT"INTEREST IN PROCENTEN ? 16                | KWANTUM 4 ? 1500,999999,1
131 PRINT"          STOP = 0,0,0                    | KWANTUM 5 ? 0,0,0"
132 PRINT
135 PRINT"DRUK 1 VOOR VERDER GAAN MET PROGAMMA ** OPTIMALE BESTELSERIE **" 
136 PRINT" < 0 = TERUG NAAR MASTER MENU >                                ";
140 INPUT Q 
150 IF Q <0 OR Q> 1 THEN 135
155 IF Q=0 THEN CHAIN "ADMIN"
160 IF Q=1 THEN 200
170 DIM A(25,3)
200 PRINT CHR$(27)"E"
210 PRINT"**** OPTIMALE BESTELSERIE ****"
220 PRINT
230 PRINT"AFZET PER PERIODE                  ";
240 INPUT Q
250 IF (Q <= 0 ) OR ( Q-INT(Q) <> 0) THEN 230
260 PRINT"VAST BEDRAG PER BESTELLING         ";
270 INPUT B
280 IF (B < 0 ) OR (B*100-INT(B*100) <> 0 ) THEN 260
290 PRINT"VARIABELE OPSLAGKOSTEN PER EENHEID ";
300 INPUT K1
310 IF (K1 <0) OR (K1 *100-INT(K1*100) <> 0)THEN 290
320 PRINT"INTEREST IN PROC                   ";
330 INPUT K
340 IF K<0 THEN 320
350 REM ** OPNAME KWANTUMKORTINGEN **
360 PRINT
370 PRINT"*** KWANTUMKORTINGEN ***         < MAXIMAAL 25 >"
380 PRINT
390 X=0
400 PRINT TAB(17)"-MIN.HOEVEELH.- , -MAX.HOEVEELH.- , -PRIJS-  < STOP = 0,0,0 >"
410 PRINT"-----------------------------------------------------------------------------"
420 X=X+1
430 PRINT"KWANTUM";X,
440 INPUT A(X,1),A(X,2),A(X,3)
450 IF(A(X,2) <> 0 ) OR (A(X,3) <> 0 ) THEN 420
460 X=X-1
470 PRINT CHR$(27)"E"
480 PRINT TAB(10)"**** OPTIMAAL BESTELPLAN ****"
490 PRINT
500 PRINT"HOEVEELHEID       PRIJS    BESTEL-  ";
510 PRINT"AANTAL    BEDRAG"
520 PRINT"MIN";TAB(10)"MAX";TAB(28)"GROOTTE";
530 PRINT TAB(37)"ORDERS"
540 PRINT"------------------------------------------------------------"
550 PRINT"- INVOER GEGEVENS -               - UITSLAG -"
560 A$=""
570 FOR I=1 TO X
580 Y=((2*B*Q)/(K1*2+A(I,3)*K/100))^.5
590 Y=INT (Y+.5)
600 Y1=INT(Q/Y+.5)
610 Y2=Y*A(I,3)
620 IF Y < A(I,1) THEN 650
630 IF Y > A(I,2) THEN 650
640 A$="OPT-BEST"
650 PRINT A(I,1);TAB(9)A(I,2);TAB(18)A(I,3);
660 PRINT TAB(27)Y;TAB(36)Y1;TAB(46)Y2;TAB(55)A$
670 A$=""
680 NEXT I
690 Q=0
695 PRINT:PRINT
700 PRINT" 1 = VOOR VERDER GAAN MET DIT PROGAMMA " 
710 PRINT" 2 = TERUG NAAR TEKST VOORBEELD !   "
720 PRINT" 0 = TERUG NAAR MASTER MENU "
730 PRINT:PRINT" WAT IS UW KEUZE ";   
740 INPUT Q 
750 IF Q<0 OR Q>2 THEN 700
760 IF Q=1 THEN 200
770 IF Q=2 THEN 5
780 IF Q=0 THEN CHAIN "ADMIN"
800 END
   
740 INPUT Q 
750 IF Q<0 OR Q>2 THEN 700
760 IF Q=1 THEN 200
770 IF Q=2 THEN 5
780 IF Q=0