1 '	ELECTRONIC CARD FILE
2 ' BY Joe Wiellette
3 ' Permission is granted to use, but not to sell,
4 ' these programs.
50 DEFINT S,L,D,I,J,K,T
80 CLOSE
90 PRINT CLSCR$;
100 '                   MERGE FOR DATABASE
110 '
120 '
300 INPUT"Enter name of first list  ";FIRST$
302 FIRST$=DRIVE$+FIRST$
310 INPUT"Enter name of second list  ";SECOND$
312 SECOND$=DRIVE$+SECOND$
320 INPUT"Enter name of product list  ";THIRD$
322 THIRD$=DRIVE$+THIRD$
350 OPEN"I",#1,FIRST$
360 OPEN"I",#2,SECOND$
370 OPEN"O",#3,THIRD$
500 INPUT#1,A,A$
510 INPUT#2,B,B$
600 PRINT"A",A,A$
610 PRINT"B",B,B$
700 '
710 '           A<B
720 '
750 IF A$="A" AND B$="B" THEN 2000
760 IF A$="A" THEN 900
770 IF B$="B" THEN 1000
800 IF A$<=B$ THEN 1000
900 '
910 '                   B$ SMALLER THAN A$
920 '
930 PRINT#3,B,B$
960 IF EOF(2) THEN B$="B":GOTO 750
970 INPUT#2,B,B$
980 PRINT"B",B,B$
990 GOTO 750
1000 '
1010 '                  A$ SMALLER OR EQUAL B$
1020 '
1100 PRINT#3,A,A$
1130 IF EOF(1) THEN A$="A":GOTO 750
1140 INPUT#1,A,A$
1150 PRINT"A",A,A$
1160 GOTO 750
2000 '
2010 '                  MERGE COMPLETE
2020 '
2140 CLOSE
2150 PRINT CLSCR$;
2160 PRINT"Tap any key to continue "
2170 PRINT BELL$;
2180 FOR K=1 TO 300
2190 A$=INKEY$
2200 IF A$<>"" THEN 2300
2210 NEXT K
2300 PRINT:PRINT
2320 PRINT"1) *** Return to MENU
2330 PRINT"2) END
2340 PRINT"    Which ";
2450 Q$=INPUT$(1)
2460 IF Q$=CHR$(13) THEN Q$="1"
2470 IF Q$="1" THEN RUN"MENU
2480 IF Q$<>"2" THEN 2300
2500 END
ich ";
2450 Q$=INP