10 ! PROGRAM MULMAS.BAS
11 ! TO ENTER MULTIPLE IN ACCOUNT MASTER INDEX
20 DIM A$[80]V,B$[80]V,N$[40]V,T1$[3]V(2),R$[80]V
30 N$="MASTER.INF/FX/LN:80/AP"
40 OPEN #3,N$
50 R$="UNASSIGNED/LARRY/FRANK/DAN/DEANA/HARVEY/CLARENCE/HANS"
60 R1=7 : ! DEFINE MAX NUMBER OF PERSONS RESPONSIBLE FOR ACCOUNTS
70 IF END  THEN 600
100 INPUT "ACCOUNT TO INSERT - (NO BRACKETS) ",G,U
105 A$="["+FRMT$(G,3)+","+FRMT$(U,3)+"]"
320 PRINT "RESPONSIBILITY CHOICES:"
330 FOR J=1 TO R1
340 PRINT " "+STR$(J)+") "+PIECE$(R$,"/",J+1)
350 NEXT J
360 INPUT LINE B$
370 IF LEN(B$)=0 THEN  LET J1=0
371 IF LEN(B$)<>0 THEN  LET J1=VAL(B$)
410 IF J1 < 0 OR J1 > R1 THEN 450
420 B$=RJS$(STR$(J1),2)
430 CALL "INSTRG"(A$,B$,10)
440 GOTO 500
450 PRINT "ERROR IN YOUR ANSWER"
460 GOTO 360
500 INPUT LINE "DESCRIPTION: ",B$
520 IF LEN(B$)=0 THEN B$=" "
530 CALL "INSTRG"(A$,B$,12,69)
540 PRINT #3,A$
550 GOTO 100
600 CLOSE 
605 IF END  THEN 0
608 B=0
609 CALL "SPAWNB"("SRT MASTER.INF=MASTER.INF/SI:80/PR:R/KE:2.3:6.3",B)
610 RUN "MASTER"
