Sub TestG()
Dim ins1,entete,compt,part1,part2,part3,g1,g 2,g3,ECO,EEP,REP,pp
call reset()
Sc.print(" *** Test MovxBug ***" & vbcr)
sc.print(vbcr)
sc.print(vbcr)
sc.print " Unlooper stop when anwser = 9028" & (vbcr)
sc.print " ------------------------------"
sc.print (vbcr)
g3=&h9DC2
for g1=&h0200 to &h0700 step &h01
for g2=&h0900 to &h09FF step &h01
sc.verbose=1
for pp=0 to 1
Sc.Write("A1")
SendGP("100EFF018F")
sc.delay(300)
sc.write("0A 0E 20 C4 C1 0E 00 00 08 8a 00")
sc.read(13)
sc.write("20 0E 30 02 40 00 00 00 00 00 00 40 20" & HexString(g1,4) & "0A 20" & HexString(g2,4) & "0B 02 00 24 00 20 00 38 0A 20 9D C2 0C 00")
sc.delay(3200)
sc.read(3)
GPR(0) = Sc.GetByte(0)
GPR(1) = Sc.GetByte(1)
GPR(2) = Sc.GetByte(2)
sc.print ( "Status bug : "& HexInv(GPR(1),2) & HexInv(GPR(2),2)& vbcr)
sc.print ( "Glitch use : "& (HexString(g1,4)) & (HexString(g2,4)) & vbcr)
if HexInv(GPR(1),2) & HexInv(GPR(2),2) = "9028" then
sc.print (vbcr)
sc.print "9028 FOUND" & (vbcr)
sc.print "----------------------"& (vbcr)& (vbcr)
call reset()
exit sub
end if
next
sc.print (vbcr)
sc.print " !!" & (vbcr)
sc.print "--------------------------"& (vbcr)& (vbcr)
sc.print (" whe go on ")
sc.print (vbcr)
next
next
call reset()
End Sub