home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 March / PowerPlay0397.iso / T-ONLINE / DECODER / FORMULAR.DIR / 00064_Script_64 < prev    next >
Text File  |  1997-01-08  |  1KB  |  71 lines
  1. on exitFrame
  2.   
  3.   if rollover(46) then
  4.     go "adr"
  5.   else if rollover(47) or rollover(48) then
  6.     go "Info"
  7.   else
  8.     nothing
  9.   end if
  10.   
  11.   
  12.   --Stⁿckzahlfelder/  Farbe Anzeigefelder
  13.   repeat with a = 12 to 17
  14.     if the value of field a of castlib 3 = 0 then 
  15.       set the forecolor of field (a+6) to 251
  16.       set the forecolor of field (a+13) to 251
  17.     else
  18.       set the forecolor of field (a+6) to 255
  19.       set the forecolor of field (a+13) to 255
  20.     end if
  21.   end repeat
  22.   
  23.   --Feldabfrage
  24.   if field "stk1" <> empty then  
  25.     feld1
  26.   else
  27.     put "0,00 DM" into field (12 +6)
  28.   end if
  29.   
  30.   if field "stk2" of castlib 3 <> empty then  
  31.     feld2
  32.   else
  33.     put "0,00 DM" into field (13 +6)
  34.   end if
  35.   
  36.   if field "stk3" <> empty then  
  37.     feld3
  38.   else
  39.     put "0,00 DM" into field (14 +6)
  40.   end if
  41.   
  42.   if field "stk4" <> empty then  
  43.     feld4
  44.   else
  45.     put "0,00 DM" into field (15 +6)
  46.   end if
  47.   
  48.   if field "stk5" <> empty then  
  49.     feld5
  50.   else
  51.     put "0,00 DM" into field (16 +6)
  52.   end if
  53.   
  54.   if field "stk6" <> empty then  
  55.     feld6
  56.   else
  57.     put "0,00 DM" into field (17 +6)
  58.   end if
  59.   
  60.   summe
  61.   
  62.   
  63.   
  64.   go the frame
  65. end
  66.  
  67.  
  68.  
  69.  
  70.  
  71.