VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim X As Long
Dim Y As Long
Dim Dosya1 As Integer
Dim Dosya2 As Integer
Dim Dosya1SK As Long
Dim Dosya2SK As Long
Dim A As Byte

Private Sub Form_Activate()
If Dir("D:\TRDOS\FDFORM1.COM") = "FDFORM1.COM" Then
   If Dir("D:\TRDOS\TRDOSB1.COM") = "TRDOSB1.COM" Then
      MousePointer = 11
      FileCopy "D:\TRDOS\FDFORM1.COM", "D:\TRDOS\FDFORM2.COM"
      Dosya1 = FreeFile
      Open "D:\TRDOS\FDFORM2.COM" For Binary As Dosya1 Len = 1
      Dosya1SK = FileLen("D:\TRDOS\FDFORM2.COM")
      Dosya2 = FreeFile
      Open "D:\TRDOS\TRDOSB1.COM" For Binary As Dosya2 Len = 1
      Dosya2SK = FileLen("D:\TRDOS\TRDOSB1.COM")
      For X = 1 To Dosya2SK
          Get Dosya2, X, A
          Y = X + Dosya1SK
          Put Dosya1, Y, A
          Me.Caption = Str$(X)
      Next X
      Close Dosya1
      Close Dosya2
      MousePointer = 0
      Beep
      MsgBox ("FDFORM1.COM'a TRDOSB1.COM eklendi ve FDFORM2.COM olarak kayıtlandı.")
   Else
      Beep
   End If
Else
   Beep
End If
Unload Me
End Sub