Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
if used('TestData')
use in TestData
endif
if file('TestData.dbf')
erase 'TestData.dbf'
endif
create table TestReport (StringVal C(10))
create table TestData (CheckSum I)
use TestData
index on CheckSum tag CheckSum
local lnCheck
for i=32 to 126
for j=32 to 126
for k=32 to 126
for l=32 to 126
lnCheck = val(sys(2007,chr(i)+chr(j)+chr(k)+chr(l)))
if seek(lnCheck)
insert into TestReport values(chr(i)+chr(j)+chr(k)+chr(l))
else
insert into TestData values(lnCheck)
endif
endfor
endfor
endfor
endfor