10 X$=SYS(CHR$(7)):R$=LEFT(X$,7):L$=RIGHT(X$,8)
20  DIM #1,A1(111),A2(111),A3(111)
30  OPEN R$ AS FILE 1
60  DIM M(111)
70  MAT M=ZER
75 M(0)=0
80 V=A1(0):J=A1(1):K=A1(2)
90  PRINT L$
100  PRINT "TYPE THE NUMBER OF THE OPTION YOU WANT."
110  IF K=15 THEN 140
120  IF K=14 THEN 170
130  GOTO 320
140  PRINT "     1. RESTART AT THE BEGINNING OF THIS DISTRIBUTION"
150  GOTO 200
160  IF K=15 THEN 200
170  PRINT "     1. RESTART AT THE BEGINNING OF THIS MODULE."
180  PRINT "     2. SELECT A DIFFERENT MODULE."
190  GOTO 210
200  PRINT "     2. SELECT A DIFFERENT DISTRIBUTION."
210  PRINT "     3. SELECT A DIFFERENT COMPONENT."
220  PRINT "     4. EXIT CADA MONITOR."
230  INPUT I
240  IF I=4 THEN 490
250  IF I=3 THEN 500
260  IF I=2 THEN 560
270  IF I=1 THEN 580
280  PRINT
290  PRINT "REENTER.  INPUT MUST BE NUMBER OF OPTION."
300  PRINT
310  GOTO 230
320  PRINT "     1. RESTART AT THE BEGINNING OF THIS MODULE."
330  IF K <> 8 THEN 350
340  IF J=8 THEN 600
341IF J=4THEN350
342 MAT A3=M:A3(0)=0
350  PRINT "     2. SELECT A DIFFERENT MODULE OF THIS MODEL."
360  PRINT "     3. SELECT A DIFFERENT MODEL OF THIS COMPONENT."
370  PRINT "     4. SELECT A DIFFERENT COMPONENT."
380  PRINT "     5. EXIT CADA MONITOR."
390  INPUT I
400  IF I=5 THEN 490
410  IF I=4 THEN 500
420  IF I=3 THEN 540
430  IF I=2 THEN 560
440  IF I=1 THEN 580
450  PRINT
460  PRINT "REENTER.  INPUT MUST BE NUMBER OF OPTION."
470  PRINT
480  GOTO 390
490 CLOSE 1:KILL R$
495STOP
500MAT A2=M
510MATA3=M
515 A2(0)=0:A3(0)=0
520 A1(0)=0:A1(1)=0:A1(2)=0
530  CLOSE 1: CHAIN "CMONTR"
540A1(0)=0:A1(1)=0:A1(2)=K:A1(3)=0:A1(4)=0
550  GOTO 530
560A1(0)=0:A1(1)=J:A1(2)=K:A1(3)=0:A1(4)=0
570  GOTO 530
580A1(0)=V:A1(1)=J:A1(2)=K:A1(3)=0:A1(4)=0
590  GOTO 530
600  PRINT "     2. SELECT A DIFFERENT MODEL OF THIS COMPONENT."
605MAT A3=M
610  PRINT "     3. SELECT A DIFFERENT COMPONENT."
620  PRINT "     4. EXIT CADA"
630  INPUT I
640  IF I=4 THEN 490
650  IF I=2 THEN 540
660  IF I=3 THEN 500
670  IF I=1 THEN 700
680  PRINT "REENTER.  INPUT MUST BE NUMBER OF OPTION."
690  GOTO 630
700 A2(0)=0:A3(0)=0
710MATA3=M
720GOTO 580
9999END