home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00064.ls < prev    next >
Encoding:
Text File  |  1997-02-10  |  1.1 KB  |  53 lines
  1. on exitFrame
  2.   if rollOver(46) then
  3.     go("adr")
  4.   else
  5.     if rollOver(47) or rollOver(48) then
  6.       go("Info")
  7.     else
  8.       nothing()
  9.     end if
  10.   end if
  11.   repeat with a = 12 to 17
  12.     if the value of field a of castLib 3 = 0 then
  13.       set the foreColor of field (a + 6) to 251
  14.       set the foreColor of field (a + 13) to 251
  15.       next repeat
  16.     end if
  17.     set the foreColor of field (a + 6) to 255
  18.     set the foreColor of field (a + 13) to 255
  19.   end repeat
  20.   if field "stk1" <> EMPTY then
  21.     FELD1()
  22.   else
  23.     put "0,00 DM" into field (12 + 6)
  24.   end if
  25.   if field "stk2" of castLib 3 <> EMPTY then
  26.     FELD2()
  27.   else
  28.     put "0,00 DM" into field (13 + 6)
  29.   end if
  30.   if field "stk3" <> EMPTY then
  31.     FELD3()
  32.   else
  33.     put "0,00 DM" into field (14 + 6)
  34.   end if
  35.   if field "stk4" <> EMPTY then
  36.     FELD4()
  37.   else
  38.     put "0,00 DM" into field (15 + 6)
  39.   end if
  40.   if field "stk5" <> EMPTY then
  41.     FELD5()
  42.   else
  43.     put "0,00 DM" into field (16 + 6)
  44.   end if
  45.   if field "stk6" <> EMPTY then
  46.     FELD6()
  47.   else
  48.     put "0,00 DM" into field (17 + 6)
  49.   end if
  50.   summe()
  51.   go(the frame)
  52. end
  53.