Sub main()
    ''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심변수선언
    Dim 예약실구분코드, 투숙기간, 누적점수, 할인금액, 최대값 As Variant
    
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일
    Open "c:\c_it\data\abc0002.txt" For Input As #1
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
               
                ''최대값 초기화
                최대값 = 0
               
                ''변수저장
                예약실구분코드 = Trim(Mid(버퍼, 38, 2))
                투숙기간 = Val(Mid(버퍼, 15, 2))
                누적점수 = Val(Mid(버퍼, 40, 5))
                할인금액 = Val(Mid(버퍼, 30, 4))
               
                ''배열변수처리
                If 예약실구분코드 = "WA" Or 투숙기간 <= 13 Then
                   If 최대값 < (누적점수 + 할인금액) Then
                        최대값 = 누적점수 + 할인금액
                    End If
                End If
               
            End If
        Next i
       
      
    Close #1
   
    ''출력파일
    Open "c:\c_it\data\ans2.txt" For Output As #2
   
        Print #2, 인수1, 인수2, 최대값
       
    Close #2