home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / qsomerge.bas < prev    next >
BASIC Source File  |  1984-04-29  |  1KB  |  64 lines
  1. 5000    REM    MERGE
  2.     PRINT
  3.     INPUT "ENTER NAME OF OLD MASTER: ";Z$
  4.     MASTER$=Z$
  5.     TRANSACTION$="QSOSORT.FIL"
  6.     INPUT "ENTER NEW MASTER NAME: ";Z$
  7.     OUT$=Z$
  8.     FILLER$="                        "
  9.     FLAGM=0
  10.     FLAGT=0
  11.  
  12.     FILE    MASTER$
  13.     FILE    TRANSACTION$
  14.     FILE    OUT$
  15.  
  16.     PRINT CHR$(26)
  17.     PRINT "MERGING...",
  18.     GOSUB 5020
  19.     GOSUB 5030
  20.     GOTO 5040
  21.  
  22. 5020    REM  READ MASTER
  23.     READ #1; MCALL$,MNAME$,MQTH$,MFREQ$,\
  24.     MDATE$,MTIME$,MCARD$
  25.     IF MCALL$="END" THEN MCALL$="ZZZZZZ":FLAGM=1
  26.     ML$=LEFT$(MCALL$,1)+MID$(MCALL$,3,7)+FILLER$
  27.     IF LEFT$(ML$,1)="K" OR LEFT$(ML$,1)="N" OR LEFT$(ML$,1)="A" \
  28.         THEN ML$="W"+MID$(ML$,2,7)+FILLER$
  29.     M$=LEFT$(ML$,24)
  30.     RETURN
  31.  
  32. 5030    REM   READ TEMPORARY WORKFILE
  33.     READ #2; TCALL$,TNAME$,TQTH$,TFREQ$,\
  34.     TDATE$,TTIME$,TCARD$
  35.     IF TCALL$="END" THEN TCALL$="ZZZZZZ":FLAGT=1
  36.     TL$=LEFT$(TCALL$,1)+MID$(TCALL$,3,7)+FILLER$
  37.     IF LEFT$(TL$,1)="K" OR LEFT$(TL$,1)="N" OR LEFT$(TL$,1)="A" \
  38.         THEN TL$="W"+MID$(TL$,2,7)+FILLER$
  39.     T$=LEFT$(TL$,24)
  40.     RETURN
  41.  
  42. 5040    REM    TEST
  43.     IF FLAGM=1 THEN 5070
  44.  
  45. 5045    REM    COMPARISON
  46.     IF M$<T$ THEN 5050
  47.     PRINT #3; TCALL$,TNAME$,TQTH$,TFREQ$,\
  48.     TDATE$,TTIME$,TCARD$
  49.     PRINT TCALL$,
  50.     GOSUB 5030
  51.     GOTO 5040
  52.  
  53. 5070    IF FLAGT=0 THEN 5045
  54.     PRINT#3; "END","END","END","END","END","END","END"
  55.     CLOSE 3:CLOSE 2:CLOSE 1
  56.     GOTO 2
  57.  
  58. 5050    PRINT #3; MCALL$,MNAME$,MQTH$,MFREQ$,\
  59.     MDATE$,MTIME$,MCARD$
  60.     PRINT MCALL$,
  61.     GOSUB 5020
  62.     GOTO 5040
  63.  
  64.