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\abc05.txt" For Input As #1
 ''최대값 초기화
 최대값 = 0
 For i = 1 To 인수2
 Line Input #1, 버퍼
 If i >= 인수1 Then
 
 ''변수 저장
 제조포인트 = Val(Mid(버퍼, 20, 3))
 
 매출액 = Val(Mid(버퍼, 26, 3))
 
 ''최대값 구하기
  If 제조포인트 >= 30 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
 
End Sub