10 REM *** MASTERPROGAMMA **
15 IF U2=1 THEN GOSUB 4200 :GOTO 4020
20 REM ADMINISTRATIE PROGAMMA'S
30 GOTO 4010
110 V$="1 = VERZENDSYSTEEM ":K$="2 = STATISTISCHE-BEWERKINGEN":VB$="3 = VOORRAADBEHEER"
120 F$="4 = FACTURERING"
130 :
135 GOSUB 600
145 GOSUB 150 :GOSUB 1000 :REM SCHERM KOP MASTER             
147 GOSUB 200 :REM WAT IS UW KEUZE
150 REM ** INITIALISEREN **
160 A$=V$:B$=K$:C$=VB$:D$=F$
170 RETURN
175 :
190 REM ** WELK PROG **
200 PRINT TAB(15)"DOE UW KEUZE ..........";
202 H$=" U KUNT NU UW PROGAMMA KIEZEN ! "
205 H1$="< 0 = TERUG -MENU- >"
210 INPUT M
215 IF M=1 THEN U2=1
220 IF M=1 THEN GOSUB 4200 :GOTO 4020
230 IF M=2 THEN GOSUB 4200 :GOTO 4030
240 IF M=3 THEN GOSUB 4200 :GOTO 4040
250 IF M=4 THEN GOSUB 4200 :GOTO 4050
260 IF M=0 THEN GOSUB 4200:H1$="":GOSUB 110 :GOSUB 600 
300 IF M<0 OR M> 4 THEN 190
410 :
600 REM ** H$ TEKST ONDER MENU **
610 H$="MET WELK PROGAMMA WILT U WERKEN ? "
620 RETURN 
630 :
990 REM *** MASTER MENU ***
1000 PRINT CHR$(27)"E"
1010 PRINT TAB(15)".============================================."
1020 PRINT TAB(15)"||        ADMINISTRATIE-PROGAMMA'S          ||"
1030 PRINT TAB(15)"||              MASTER MENU                 ||"
1040 PRINT TAB(15)".============================================."
1050 PRINT TAB(10)".=====================================================."
1060 PRINT TAB(10)"|";TAB(27)A$;TAB(64)"|"        
1070 PRINT TAB(10)"|";TAB(27)B1$;TAB(64)"|"
1080 PRINT TAB(10)"|";TAB(27)B$;TAB(64)"|"
1090 PRINT TAB(10)"|";TAB(27)C1$;TAB(64)"|"
1100 PRINT TAB(10)"|";TAB(27)C$ ;TAB(64)"|" 
1110 PRINT TAB(10)"|";TAB(27)D1$;TAB(64)"|"
1120 PRINT TAB(10)"|";TAB(27)D$;TAB(64)"|"
1130 PRINT TAB(10)"\=====================================================/"
1160 REM ** ONDER MENU **
1170 PRINT TAB(5)".===============================================================.  
1180 PRINT TAB(5)"|";TAB(10) H$ ; H1$   ;TAB(69)"|"                
1190 PRINT TAB(5)"\===============================================================/"
1200 RETURN
1210 IF M=1 THEN 2000     
1220 H$="           *****  UW KEUZE  *****   "   :GOSUB 1170
2000 REM ** VERZENDSYSTEEM ** M=1 *
2010 A$="** -VERZENDSYSTEEM- **"
2020 B1$="1 = RUBRIEKSINDELING"
2030 B$="2 = INVOER/CORRECTIE"
3000 C1$="3 = ETIKETTEN-AFDRUKKEN"
3010 C$="4 = KAARTENBAK-LIJSTEN "
3020 D1$="5 = KAARTENBAK-SELECTIE"
3030 D$="6 = KAARTENBAK-RUBRIEKS/INDELING"
3040 RETURN
3050 REM ** STATISTISCHE-BEWERKINGEN ** M=2 *
3060 A$="** STATISTISCHE-BEWERKINGEN **"
3070 B$="1 = STATISTISCHE-INVOER"
3080 C$="2 = STATISTISCHE-BEWERKING"
3090 D$="3 = ANNUITEITENLENING + AFL/PLAN"
3100 RETURN 
3110 :
3120 REM ** VOORAAD BEHEER ** M=3 *
3130 A$="** -VOORRAADBEHEER- **"
3140 B$="1 = ARTIKEL-INVOER "
3150 C1$="2 = VOORRAADBEPALING"
3153 C$="3 = OPTIMALE BESTELSERIE "
3155 D$="ELK BESTAND IS GOED VOOR 200 ART."
3160 RETURN
3170 :
3180 REM ** FACTURERING ** M=4 *
3190 A$="* -FACTURERING- *"
3200 B$="1 = FACTURERING "
3210 C1$="FAKTUREN KUNNEN OP-
3220 C$="NORMAAL KETTING FORMAAT"
3230 D1$="A-4 AFGEDRUKT WORDEN"
3235 D$="2 = BEPALING DAG V/D WEEK "   
3240 RETURN
3250 :
3290 REM ** INPUT S **
3300 PRINT TAB(15)"MAAK UW KEUZE .........";
3310 INPUT S
3311 PRINT
3312 PRINT TAB(15)"EVEN GEDULD A.U.B"
3315 IF S=0 THEN GOSUB 4200 :H1$="":GOSUB 110 :GOSUB 600
3316 RETURN
3318 REM ** MODULE M1 **
3320 IF S= 1 THEN CHAIN "RUBIND"
3330 IF S= 2 THEN CHAIN "INVOCOR"
3340 IF S= 3 THEN CHAIN "ETIKET"
3350 IF S= 4 THEN CHAIN "KARTLIST"
3360 IF S= 5 THEN CHAIN "KARTSEL"
3370 IF S= 6 THEN CHAIN "KARTRUB"
3400 RETURN
3440 REM ** MODULE M2 **
3450 IF S= 1 THEN CHAIN "STATIN"
3460 IF S= 2 THEN CHAIN "STATBEW"
3465 IF S= 3 THEN CHAIN "ANNUTEL"
3470 RETURN
3480 :
3490 REM ** MODULE M3 **
3500 IF S= 1 THEN CHAIN "ARTIN"
3510 IF S= 2 THEN CHAIN "VOORBEP"   
3515 IF S= 3 THEN CHAIN "OPTBEST"
3520 RETURN
3530 :
3550 REM ** MODULE M4 **
3560 IF S= 1 THEN CHAIN "FAC"
3565 IF S= 2 THEN CHAIN "DATUM"
3570 RETURN
3580 :
4000 REM ** STUURMODULE **
4010 GOSUB 110 
4020 GOSUB 2000 :GOSUB 1000 :GOSUB 3300 :GOSUB 3320 :REM ** MODULE M1
4030 GOSUB 3050:GOSUB 1000 :GOSUB 3300 :GOSUB 3440 :REM ** MODULE M2
4040 GOSUB 3120 :GOSUB 1000 :GOSUB 3300 :GOSUB 3500:REM ** MODULE M3
4050 GOSUB 3180 :GOSUB 1000 :GOSUB 3300 :GOSUB 3550:REM ** MODULE M4
4200 REM ** MASTER INDEX OP LEEG **
4210 A$="":B1$="":B$="":C1$="":C$="":D1$="":D$=""
4220 RETURN
4230 :
REM ** MODULE M4
4200 REM