8 lines
199 B
Text
8 lines
199 B
Text
File_Open("c:\txt\a_text_file.txt")
|
|
Update()
|
|
|
|
for (#1='A'; #1<='Z'; #1++) {
|
|
Out_Reg(103) Char_Dump(#1,NOCR) Out_Reg(CLEAR)
|
|
#2 = Search(@103, BEGIN+ALL+NOERR)
|
|
Message(@103) Num_Type(#2)
|
|
}
|