home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00157_CHECKFOR.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  409 b   |  22 lines
  1. on CHECKFOR
  2.   global UPGCOUNT, UPG, WHICHDOC
  3.   if (the key = "e") or (the key = "E") then
  4.     go("CLOSEOUTREG")
  5.   end if
  6.   if UPG = 1 then
  7.     exit
  8.   end if
  9.   set UPGCOUNT to UPGCOUNT + 1
  10.   if UPGCOUNT > 2 then
  11.     exit
  12.   end if
  13.   dontPassEvent()
  14.   if the key = "$" then
  15.     go("GETUSER")
  16.   end if
  17.   if (the key = "P") or (the key = "p") then
  18.     set WHICHDOC to 1
  19.     printText(field "ordform")
  20.   end if
  21. end
  22.