Source code in the basic programming language

c = 0
i = 1
while c < 10000001
	if eqrf(i) then
		c += 1
		if c <= 200 then print i;" ";
		if c = 10000000 then print : print i
	end if
	i += 1
end while
end

function eqrf(n)
	sn$ = string(n)
	q = 0
	for i = 2 to length(sn$)
		if asc(mid(sn$,i,1)) > asc(mid(sn$,i-1,1)) then
			q += 1
		else
			if asc(mid(sn$,i,1)) < asc(mid(sn$,i-1,1)) then
				q -= 1
			end if
		end if
	next i
	if q = 0 then return true else return false
end function

function eqrf( n as uinteger ) as boolean
    dim as string sn = str(n)
    dim as integer q = 0
    for i as uinteger = 2 to len(sn)
        if asc(mid(sn,i,1)) > asc(mid(sn,i-1,1)) then 
            q += 1 
        elseif asc(mid(sn,i,1)) < asc(mid(sn,i-1,1)) then 
            q -= 1
        end if
    next i
    if q = 0 then return true else return false
end function

dim as uinteger c = 0, i = 1
while c < 10000001
    if eqrf(i) then
        c += 1
        if c <= 200 then print i;" ";
        if c = 10000000 then print : print i
    end if
    i += 1
wend

Public Sub Main()  

  Dim c As Integer = 0, i As Integer = 1 
  While c < 10000001 
    If eqrf(i) Then 
      c += 1 
      If c <= 200 Then Print " "; i;
      If c = 10000000 Then Print Chr(10); i 
    End If 
    i += 1 
  Wend 

End

Function eqrf(n As Integer) As Boolean 

  Dim sn As String = Str(n) 
  Dim q As Integer = 0, i As Integer

  For i = 2 To Len(sn) 
    If Asc(Mid(sn, i, 1)) > Asc(Mid(sn, i - 1, 1)) Then  
      q += 1  
    Else If Asc(Mid(sn, i, 1)) < Asc(Mid(sn, i - 1, 1)) Then  
      q -= 1 
    End If 
  Next 
  If q = 0 Then Return True Else Return False 

End Function


Procedure.b eqrf(n.i)
  sn.s = Str(n) 
  q.i = 0
  
  For i.i = 2 To Len(sn) 
    If Asc(Mid(sn, i, 1)) > Asc(Mid(sn, i - 1, 1)):
      q + 1  
    Else 
      If Asc(Mid(sn, i, 1)) < Asc(Mid(sn, i - 1, 1)):
        q - 1 
      EndIf 
    EndIf
  Next
  If q = 0:
    ProcedureReturn #True 
  Else 
    ProcedureReturn #False 
  EndIf
  
EndProcedure

OpenConsole()
c.i = 0
i.i = 1 
While c < 10000001 
  If eqrf(i):
    c + 1 
    If c <= 200:
      Print(" " + Str(i))
    EndIf
    If c = 10000000:
      PrintN(#CRLF$ + Str(i))
    EndIf
  EndIf 
  i + 1 
Wend 

Input()
CloseConsole()