home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 February / netCD41.iso / pc / IMAGES.CST / 00236.ls < prev    next >
Encoding:
Text File  |  1997-12-08  |  1.2 KB  |  46 lines
  1. on mouseDown
  2.   puppetsound 2,"click"
  3.   updatestage
  4.   cursor 4
  5.   sound fadeOut 1, 60
  6.   waitforfade
  7.   puppetsprite the clickon, FALSE
  8.   
  9.   global gSurname, gForeNames, gDoB, gAddress1, gAddress2
  10.   global gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum
  11.   global gBSoft, gMoney97, gMoney98,gtitle
  12.   
  13.   put the text of member "title" into gtitle
  14.   put the text of member "surname" into gSurname
  15.   put the text of member "forename" into gForeNames
  16.   put the text of member "dob" into gDob
  17.   put the text of member "ad1" into gAddress1
  18.   put the text of member "ad2" into gAddress2
  19.   put the text of member "ad3" into gAddress3
  20.   put the text of member "ad4" into gAddress4
  21.   put the text of member "pcode" into gPostCode
  22.   put the text of member "htel" into gHomeNum
  23.   put the text of member "dtel" into gDayNum
  24.   
  25.   if the hilite of member "bsoft"= TRUE then
  26.     set gBSoft to TRUE
  27.   else
  28.     set gBSoft to FALSE
  29.   end if
  30.   
  31.   if the hilite of member "m97"= TRUE then
  32.     set gMoney97 to TRUE
  33.   else
  34.     set gMoney97 to FALSE
  35.   end if
  36.   
  37.   if the hilite of member "m98"= TRUE then
  38.     set gMoney98 to TRUE
  39.   else
  40.     set gMoney98 to FALSE
  41.   end if
  42.   
  43.   
  44.   go to the frame+1
  45.   cursor-1
  46. end