1 A$="ΠΟΜΕΤ"
2 PRINT HEX$(PEEK(VARPTR(A$)+2)); HEX$(PEEK(VARPTR(A$)+1))
3 A$="ΞΑΜΕΤ"
4 PRINT HEX$(PEEK(VARPTR(A$)+2)); HEX$(PEEK(VARPTR(A$)+1))
5 MID$(A$,1,2)="ΠΟ"
6 PRINT HEX$(PEEK(VARPTR(A$)+2)); HEX$(PEEK(VARPTR(A$)+1))