home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00105_WRITEUPG.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  553 b   |  17 lines
  1. on WRITEUPG
  2.   global USERNAME, CODENUMBER, SCRAMBLENAME, UPG, REGFILE, ALLCODES, GWRITEOBJECT
  3.   set ALLCODES to EMPTY
  4.   if objectp(GWRITEOBJECT) then
  5.     GWRITEOBJECT(mdispose)
  6.   end if
  7.   set GWRITEOBJECT to FileIO(mnew, "WRITE", the pathName & "RUNES.DAT")
  8.   repeat with n = 1 to 3
  9.     set ALLCODES to USERNAME & ","
  10.     set ALLCODES to ALLCODES & CODENUMBER & ","
  11.     set ALLCODES to ALLCODES & SCRAMBLENAME & ","
  12.     set ALLCODES to ALLCODES & "A198$LO48FLAP2pL" & ","
  13.   end repeat
  14.   GWRITEOBJECT(mWriteString, ALLCODES)
  15.   GWRITEOBJECT(mdispose)
  16. end
  17.