home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Tori / Mp059.dir / 00061_Script_61 < prev    next >
Text File  |  1997-08-27  |  837b  |  37 lines
  1. on vap dv, qcast,bp
  2.   global rsc
  3.   duplicate cast 499,cast 500
  4.   if the number of lines in the text of cast 499 - 5  <= 0 then
  5.     duplicate cast 500, cast qcast  
  6.     exit
  7.   end if
  8.   
  9.   if dv = "su" then
  10.     if rsc > 1 then
  11.       set rsc to rsc - 1
  12.       delete line 1 to rsc of cast 500
  13.       duplicate cast 500, cast qcast  
  14.     else
  15.        if bp = "sibeep" and rsc = 0 then beep
  16.       set rsc to 0
  17.       duplicate cast 500, cast qcast  
  18.     end if
  19.   end if    
  20.   
  21.   if dv = "giu" then
  22.     if rsc <= the number of lines in the text of cast 499 - 5 then
  23.       set rsc to rsc + 1
  24.       delete line 1 to rsc of cast 500
  25.       duplicate cast 500, cast qcast  
  26.     else
  27.       set rsc to the number of lines in the text of cast 499 - 4
  28.       if bp = "sibeep" then beep
  29.     end if
  30.   end if
  31.   
  32.   
  33. end
  34.  
  35.  
  36.  
  37.