home *** CD-ROM | disk | FTP | other *** search
/ Bakku no Oni - Blue / BLUE.ISO / mac / Browser / Blue / 00052.ls < prev    next >
Encoding:
Text File  |  1994-11-14  |  779 b   |  32 lines
  1. on readcat
  2.   global cc_no, wc_no, group, m_item, cat1max, cat2max
  3.   cursor(4)
  4.   if group = "COOL" then
  5.     set st_no to cc_no
  6.   else
  7.     if group = "WARM" then
  8.       set st_no to wc_no
  9.     end if
  10.   end if
  11.   set m_item to []
  12.   repeat with i = 1 to 6
  13.     if (group = "COOL") and (st_no > cat1max) then
  14.       set st_no to 1
  15.     else
  16.       if (group = "WARM") and (st_no > cat2max) then
  17.         set st_no to 1
  18.       end if
  19.     end if
  20.     if st_no < 10 then
  21.       addAt(m_item, "0" & string(st_no))
  22.     else
  23.       addAt(m_item, string(st_no))
  24.     end if
  25.     set st_no to st_no + 1
  26.     set pa_no to "Pan-" & string(i)
  27.     disp_pict(pa_no, "BLUE:" & group && "BLUE" & ":100B24:" & getAt(m_item, i))
  28.     set the text of cast ("TX-" & i) to getAt(m_item, i)
  29.   end repeat
  30.   cursor(-1)
  31. end
  32.