home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / paris / wave / MAP052J.dcr / 00160_ING02.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  732 b   |  30 lines
  1. global debug, bank, mm, tdata
  2.  
  3. on exitFrame
  4.   if debug = 1 then
  5.     put tdata into field "BUFF"
  6.     if chars(field "BUFF", 1, 1) = "E" then
  7.       alert("Error:Not Found")
  8.       go("Name Chk")
  9.     else
  10.       set lm to length(field "BUFF") - (8 * 3) - 1
  11.       set mm to value(chars(field "BUFF", 1, lm))
  12.       put mm into field "gold"
  13.     end if
  14.   else
  15.     if netdone() then
  16.       put nettextresult() into field "BUFF"
  17.       if chars(field "BUFF", 1, 1) = "E" then
  18.         alert("Error:Not Found")
  19.         go("Name Chk")
  20.       else
  21.         set lm to length(field "BUFF") - (8 * 3) - 1
  22.         set mm to value(chars(field "BUFF", 1, lm))
  23.         put mm into field "gold"
  24.       end if
  25.     else
  26.       go("INQ.1")
  27.     end if
  28.   end if
  29. end
  30.