Module Module1

    Sub Main()
        FileOpen(1, "DATA3.txt", OpenMode.Input)
        FileOpen(2, "OUT3.txt", OpenMode.Output)
        Dim dic(15) As String
        For i As Integer = 0 To 15
            dic(i) = Convert.ToString(i, 2)
        Next
        For i As Integer = 0 To 4
            Dim work As String = LineInput(1)
            For c As Integer = 0 To 15
                If dic(c).Contains(work) = False Then
                    If dic(c).Length = 1 Then
                        PrintLine(2, "000" + dic(c))
                    ElseIf dic(c).Length = 2 Then
                        PrintLine(2, "00" + dic(c))
                    ElseIf dic(c).Length = 3 Then
                        PrintLine(2, "0" + dic(c))
                    ElseIf dic(c).Length = 4 Then
                        PrintLine(2, dic(c))
                    End If

                End If
            Next
        Next
        FileClose(1)
        FileClose(2)
    End Sub

End Module