10 lines
281 B
Text
10 lines
281 B
Text
Module checkit {
|
|
Declare random1 lib "advapi32.SystemFunction036" {long lpbuffer, long length}
|
|
Buffer Clear Alfa as long*2
|
|
Print Eval(Alfa,0)
|
|
Print Eval(Alfa,1)
|
|
call void random1(alfa(0), 8)
|
|
Print Eval(Alfa,0)
|
|
Print Eval(Alfa,1)
|
|
}
|
|
checkit
|