Other than capturing the image in a dos-session, is there any way to display the ASCII characters below decimal 32 and above decimal 127?
------------------
------------------
#Compile Exe #Register None #Dim All #Include "WIN32API.INC" CallBack Function DlgProc Select Case CbMsg Case %WM_PAINT Dim hDC As Long, hFont As Long, i As Long, j As Long hdc = GetDC(CbHndl) Local lf As Logfont, lResult As Long lResult = GetStockObject(%OEM_FIXED_FONT) GetObject lResult, SizeOf(lf), ByVal VarPtr(lf) ' change height/width hFont = CreateFontIndirect(lf) SelectObject hDC, hFont Dim z As String * 16 For i = 0 To 15 For j = 0 To 15 Mid$(z, j + 1, 1) = Chr$(i * 16 + j) Next TextOut hdc, 0, lf.lfHeight * i, ByVal VarPtr(z), 16 Next ReleaseDC CbHndl, hDC DeleteObject hFont End Select End Function Function PbMain Local hDlg As Long Dialog New 0, "OEM",,, 200, 200, %WS_CAPTION Or %WS_SYSMENU To hDlg Dialog Show Modal hDlg Call DlgProc End Function
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Comment