home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / xmerge.bas < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  1.5 KB  |  78 lines
  1.     REM    MERGE
  2.     INPUT "ENTER NAME OF MASTER: ";Z$
  3.     MASTER$=Z$
  4.     TRANSACTION$="SORT.FIL"
  5.     INPUT "ENTER NEW MASTER NAME: ";Z$
  6.     OUT$=Z$
  7.     FILLER$="                        "
  8.     FLAGM=0
  9.     FLAGT=0
  10.  
  11.     FILE    MASTER$
  12.     FILE    TRANSACTION$
  13.     FILE    OUT$
  14.  
  15.     PRINT CHR$(26)
  16.     PRINT "MERGING...",
  17.     GOSUB 20
  18.     GOSUB 30
  19.     GOTO 40
  20.  
  21. 20    REM
  22.     READ#1; MLAST$, MFIRST$, MADDRESS$, MCITY$,MZIP$,MAREA$,MTEL$
  23.     IF MLAST$="END" THEN 250
  24. 25    REM CONTINUATION
  25.     GOSUB 200
  26.     RETURN
  27.  
  28. 30    REM
  29.     READ#2; TLAST$, TFIRST$, TADDRESS$, TCITY$,TZIP$,TAREA$,TTEL$
  30.     IF TLAST$="END" THEN 350
  31. 35    REM CONTINUATION
  32.     GOSUB 300
  33.     RETURN
  34.  
  35. 40    REM    TEST
  36.     IF FLAGM=1 THEN 70
  37.  
  38. 45    REM    COMPARISON
  39.     IF M$<T$ THEN 50
  40.     PRINT#3; TLAST$, TFIRST$, TADDRESS$, TCITY$,TZIP$,TAREA$,TTEL$
  41.     PRINT TLAST$,
  42.     GOSUB 30
  43.     GOTO 40
  44.  
  45. 70    IF FLAGT=0 THEN 45
  46.     PRINT#3; "END","END","END","END","END","END","END"
  47.     STOP
  48.  
  49. 50    PRINT#3; MLAST$, MFIRST$, MADDRESS$, MCITY$,MZIP$,MAREA$,MTEL$
  50.  
  51.     PRINT MLAST$,
  52.     GOSUB 20
  53.     GOTO 40
  54.  
  55. 200    REM    MASTER
  56.     ML$=MLAST$+FILLER$
  57.     MFILLER$=MFIRST$+FILLER$
  58.     ML$=LEFT$(ML$,24)
  59.     MFILLER$=LEFT$(MFILLER$,24)
  60.     M$=ML$+MFILLER$
  61.     RETURN
  62.  
  63. 250    MLAST$="ZZ"
  64.     FLAGM=1
  65.     GOTO 25
  66.  
  67. 300    REM    TRANSACTION
  68.     TL$=TLAST$+FILLER$
  69.     TFILLER$=TFIRST$+FILLER$
  70.     TL$=LEFT$(TL$,24)
  71.     TFILLER$=LEFT$(TFILLER$,24)
  72.     T$=TL$+TFILLER$
  73.     RETURN
  74.  
  75. 350    TLAST$="ZZ"
  76.     FLAGT=1
  77.     GOTO 35
  78. ≤══╛,═├⌠!├Ö!═≤══╛├qzµ8O!ε    ═≤├┼!Ω═≤══╛,═zµ═╛├qyççO!╬    ═≤═ú⌡═úW±_═ò├qyççO!ª    ═≤═ú═Æ├qyçç