home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / log / g3zcz15 / logmerge.2 < prev    next >
Text File  |  1985-09-28  |  2KB  |  55 lines
  1. 10 REM LOGMERGE VER 790704
  2. 20 ERRSET 500,E1,E2
  3. 30 INPUT"first file ?  ",L1$\IFL1$="" THEN 30
  4. 40 INPUT"second file ? ",L2$\IFL2$="" THEN 40
  5. 50 INPUT"name of NEW LOG file  ? ",L3$\IFL3$=""THEN 50
  6. 55 IF LEN(L3$)<8THEN60ELSE!"LENGTH ERROR (max is 7)"\GOTO50
  7. 60 INPUT "which drive do you want it on ? ",D\IFD<1ORD>4THEN60
  8. 70 L$=L1$\GOSUB320\N1=N\D1$=STR$(I)
  9. 80 L$=L2$\GOSUB320\N2=N\D2$=STR$(I)
  10. 90 B=INT((N1+N2)/4+0.1*(N1+N2))+2
  11. 100 CREATE L3$+","+STR$(D),B
  12. 110 CREATE "*"+L3$+","+STR$(D),2
  13. 120 OPEN#0,L1$+","+D1$
  14. 130 OPEN#1,L2$+","+D2$
  15. 140 OPEN#2,L3$+","+STR$(D)
  16. 150 FORI=1TON1
  17. 160 READ #0,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q1,X$
  18. 170 GOSUB300 \ N3=N3+1\NEXT
  19. 180 PRINT"LAST ENTRY IN ",L1$," WAS ",C$
  20. 190 FOR I=1TON2
  21. 200 READ #1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q1,X$
  22. 210 GOSUB300 \ N3=N3+1 \NEXT
  23. 220 IF N3=N1+N2 THEN 230 ELSE PRINT"ENTRY COUNT ERROR"\GOTO 400
  24. 230 OPEN#3,"*"+L3$+","+STR$(D)
  25. 240 WRITE#3,N3
  26. 250 CLOSE#3
  27. 260 CLOSE#2
  28. 270 CLOSE#1
  29. 280 CLOSE#0
  30. 290 GOTO400
  31. 300 WRITE#2,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  32. 310 RETURN
  33. 320 FORI=1TO4
  34. 330 IF FILE("*"+L$+","+STR$(I))=3THENEXIT360
  35. 340 NEXT
  36. 350 PRINT"LOG FILE ",L$,"NOT ON SYSTEM"\GOTO400
  37. 360 OPEN#0,"*"+L$+","+STR$(I)
  38. 370 READ#0,N
  39. 380 CLOSE#0
  40. 390 RETURN
  41. 400 FOR I=1 TO 4
  42. 410 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 450
  43. 420 NEXT
  44. 430 PRINT"Put a system disc in any drive, then hit 'RETURN'"
  45. 440 INPUT" ",A$\ GOTO 400
  46. 450 CHAIN "SYSTEM,"+STR$(I)
  47. 500 ERRSET 500,E1,E2
  48. 510 IF E2=15 THEN 400
  49. 515 IF E1=100 THEN PRINT"CANNOT CREATE NEW FILE ",L3$
  50. 520 IF E1<>410 THEN530 ELSE IF I>4 THEN430 ELSE 420
  51. 530 IFE1<>330 THEN 540 ELSE IF I>4 THEN 350 ELSE 340
  52. 540 IFE2<>7THEN550 ELSE PRINT"FILE ERROR"\GOTO 400
  53. 550 IFE2<>8 THEN560 ELSEPRINT"HARD DISC ERROR"\GOTO400
  54. 560 PRINT"ERROR ",E2," AT LINE ",E1\GOTO400
  55.