1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
;--- INSTR
;--- empty search string, space as search string
.386
.model flat
option casemap:none
.data
;--- 1. empty searchstring
n1 InStr 1,<ab!cd>,<>
;x textequ %n1
;%echo x
db n1
x textequ %@InStr( 1,<ab!cd>,<> )
;%echo x
db x
;--- 2. a space as searchstring
n1 InStr 1,<ab cd>,< >
;x textequ %n1
;%echo x
db n1
x textequ %@InStr( 1,<ab cd>,< >)
;%echo x
db x
;--- space not enclosed in <>
x textequ %@InStr( 1,<ab cd>,! )
;%echo x
db x
END