PC-DMIS Help Center - 2023.1
Click here to see this page in full context

Example - Asc Function

Sub Main()
   Dim i, msg
   For i = Asc("A") To Asc("Z")
      msg = msg & Chr(i) & "=" & i & ", "   
   Next i
   MsgBox msg,0,"ASCII Codes"
End Sub