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 / TITLE.dcr / 00039_ING02.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  502 b   |  26 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("NC1")
  9.     else
  10.       go(the frame + 1)
  11.     end if
  12.   else
  13.     if netdone() then
  14.       put nettextresult() into field "BUFF"
  15.       if chars(field "BUFF", 1, 1) = "E" then
  16.         alert("Error:Not Found")
  17.         go("NC1")
  18.       else
  19.         go(the frame + 1)
  20.       end if
  21.     else
  22.       go("INQ.1")
  23.     end if
  24.   end if
  25. end
  26.