Opening something in Hexadecimal

[Sinuvoid]

How do I open something up in hexadecimal in Qbasic, then edit it?

Im guess it woudl go something like this....

Code: Select all

CLS
OPEN "test.exe" FOR BINARY AS #1

'a for next loop here
INPUT #1, hexnumbers%

CLOSE #1

[Mac]

How do I open something up in hexadecimal in Qbasic, then edit it?

Read it

Code: Select all

CLS
PRINT "First 5 characters in test.exe"
PRINT
DIM X AS STRING * 1
OPEN "test.exe" FOR BINARY AS #1
FOR i = 1 TO 5
  GET #1, i, X
  PRINT ASC(X);
NEXT i
PRINT
CLOSE #1

To write, use PUT.

If you want hex, then convert the ASCII.

Mac

[Michael Calkins]

hex$(number) converts to hex
val("&h"+text) converst from hex.
you might want to zero pad the hex number

t$=hex$(asciivalue)
if len(t$)<2 then t$="0" + t

or perhaps

t$=string$(2-len(t$),&h30)+t$ 'adaptable to padding to more than 2 places.
Regards,
Michael