How to convert OS X 10.3.9 Applescripts to run on Lion?

Question

I have recently upgraded my computer from a G4 iMac running Panther to an Intel 21" screen model which runs Lion 10.7.3. I found that neither the Set Up Assistant or Migration Assistant worked as far as transferring the contents of the old system and therefore transferred it manually.
Included in the contents transferred were a number of Appleworks spreadsheets which worked in conjunction with a series of Applescripts to produce various types of textile patterns, and another series which analysed stock exchange prices. I have found that basicly none of these work and wonder if there are any programs or compilers which could be used to convert them. I have bought iWorks and both Numbers and Pages do not produce satisfactory results which is somewhat disappointing. The thought of having to learn a new Applescript volcabulary and then rewrite the Scripts is somewhat daunting hence my enquiry.
Any suggestions will be very welcome and much appreciated.
Kind regards,
David Gurney.

Answer 1

I have prepared copies of both the spreadsheet and script along with an outline of how the set up works. Also I have a screen shot of a fiished pattern so that you can see what is produced.
          4/4 Twill Drafting.
          This set up produces unlimited numbers of patterns in basic 4/4 twill weave from which a large number of fabrics are woven. The software is in two parts:-
          1. A spreadsheet has been prepared in the form of a grid of 130 columns X 150 rows. Along the top of this are four horizontal rows ( 1 - 4) which represent the four shafts of a loom. Along the right hand side of the grid are four vertical columns which intersect with the horizontals to form what is called a tie up box. The numbers inserted into the tie up box represent lifts so that on the first lift  shafts 1 and 2 are raised, on the second lift shafts 2 and 3 are raised, on the third lift shafts 3 and 4 are raised and finally on the fourth lift shafts 1 and 4 are raised.
          To produce twill weave the threads running the length of a piece of fabric, namely the warp, are simply threaded onto the  shafts of the loom in a sequence of 1, 2, 3, and 4 which is repeated. Likewise the weft threads which run across the width of the cloth are also repeated in the same sequence.
2.          The script is arranged so that it produces one repeat of the desired design. This is done by running the script and then entering the colour of each warp and weft thread by means of the colour picker. In practice I have produced a series of different palettes so that the number of colours available are considerable. To illustrate how this works  enter the  following example:-
          (a) In response to the dialog enter the total  number of warp threads, say 8 and define the colour of each one by means of the colour picker. I would suggest you enter say 4 black threads followed by 4 red threads. NOTE When you have entered the last thread,  No. 8, click on a white square in the colour picker and you will then be asked to repeat the process for the weft. The script will then produce a pattern draft showing one repeat of the pattern plus a draft of the way the shafts on the loom are threaded up and another draft of the way the shafts are lifted. Each thread is numbered and the colour is also indicated for both warp and weft.
          (b) Once you have the repeat you can select the square and copy it and then you can paste it onto a finer grid so as to produce the overall design. I use a grid of 256 columns by 512  rows and have another script which pastes the selection a multiple number of times both horizontally and vertically.  
3.           Once you have the desired pattern you can "Save as" which enables you to retain the basic grid for further use and at the same time preserves the actual draft which you have produced.
tell application "AppleScript Runner"
  activate
          set nwt to text returned of ¬
                    (display dialog "ENTER THE TOTAL NUMBER OF THREADS IN THE WARP REPEAT DEFINING EACH THREADS COLOR AS IT IS ENTERED USING THE COLOR PICKER" default answer "")
          try
                    set nwt to nwt as number
          end try
          set z1 to 0
          set sc to 17711
          set do to 17701
          set dd to 17701
          set dc to 0
          set de to 0
          repeat until z1 = (nwt + 1)
                    set MyRGB to {choose color}
                    set «class flcl» of «class ccel» sc of «class pSS » of front document to MyRGB
                    if «class flcl» of «class ccel» sc of «class pSS » of front document = {61166, 61166, 61166} and z1 = (nwt + 1) then set z1 to (z1 - 2)
                    if «class flcl» of «class ccel» sc of «class pSS » of front document = {61166, 61166, 61166} and z1 = (nwt + 1) then set sc to (sc + 300)
                    if «class flcl» of «class ccel» sc of «class pSS » of front document = {61166, 61166, 61166} then set z1 to (z1 - 2)
                    if «class flcl» of «class ccel» sc of «class pSS » of front document = {61166, 61166, 61166} then set sc to (sc + 300)
                    set z1 to (z1 + 1)
                    set sc to (sc - 150)
                    set do to (do - 149)
                    set dc to (dc + 1)
                    set de to (de + 1)
                    if dc = 4 then set do to (dd - (de * 150))
                    if dc = 4 then set dc to 0
          end repeat
          set nwp to text returned of ¬
                    (display dialog "ENTER THE TOTAL NUMBER OF THREADS IN THE WEFT REPEAT DEFINING EACH THREADS COLOR AS IT IS ENTERED USING THE COLOR PICKER" default answer "")
          try
                    set nwp to nwp as number
          end try
          set z1 to 0
          set sd to 17862
          set dz to 19362
          set dx to 19362
          set dy to 0
          repeat until z1 = (nwp + 1)
                    set MyRGB to {choose color}
                    set «class flcl» of «class ccel» sd of «class pSS » of front document to MyRGB
                    if «class flcl» of «class ccel» sd of «class pSS » of front document = {61166, 61166, 61166} and z1 = (nwt + 1) then set z1 to (z1 - 2)
                    if «class flcl» of «class ccel» sd of «class pSS » of front document = {61166, 61166, 61166} and z1 = (nwt + 1) then set sd to (sc - 2)
                    if «class flcl» of «class ccel» sd of «class pSS » of front document = {61166, 61166, 61166} then set z1 to (z1 - 2)
                    if «class flcl» of «class ccel» sd of «class pSS » of front document = {61166, 61166, 61166} then set sd to (sd - 2)
                    set z1 to (z1 + 1)
                    set sd to (sd + 1)
                    set dz to (dz - 149)
                    set dy to (dy + 1)
                    if dy = 4 then set dz to (dz + 600)
                    if dy = 4 then set dy to 0
          end repeat
          set wfc to 17712
          set rwfc to wfc
          set sd to 17862
          repeat nwp times
                    repeat nwt times
                              set MyRGB to «class flcl» of «class ccel» sd of «class pSS » of front document
                              set «class flcl» of «class ccel» rwfc of «class pSS » of front document to MyRGB
                              set rwfc to (rwfc - 150)
                    end repeat
                    set sd to sd + 1
                    set wfc to wfc + 1
                    set rwfc to wfc
          end repeat
          set MyRGB to ""
          set wpf to 17712 ---First thread in warp---
          set wpfd to 17712
          set wfc to 17711 ---First colour in warp---
          set wfcd to 17711
          set cclr to 18012 ---First lift in picking plan---
          set wctr to 1
          set w2 to 1
          repeat (nwp / 4) times
                    repeat (nwt / 4) times
                              repeat 1 times
                                        if «class ccel» cclr of «class pSS » of front document = 1 then set MyRGB to «class flcl» of «class ccel» wfc of «class pSS » of front document
                                        set «class flcl» of «class ccel» wpf of «class pSS » of front document to MyRGB
                                        if «class ccel» cclr of «class pSS » of front document = 1 then set MyRGB to «class flcl» of «class ccel» (wfc - 150) of «class pSS » of front document
                                        set «class flcl» of «class ccel» (wpf - 150) of «class pSS » of front document to MyRGB
                                        if «class ccel» (cclr + 1) of «class pSS » of front document = 2 then set MyRGB to «class flcl» of «class ccel» (wfc - 150) of «class pSS » of front document
                                        set «class flcl» of «class ccel» (wpf - 149) of «class pSS » of front document to MyRGB
                                        if «class ccel» (cclr + 1) of «class pSS » of front document = 2 then set MyRGB to «class flcl» of «class ccel» (wfc - 300) of «class pSS » of front document
                                        set «class flcl» of «class ccel» (wpf - 299) of «class pSS » of front document to MyRGB
                                        if «class ccel» (cclr + 2) of «class pSS » of front document = 3 then set MyRGB to «class flcl» of «class ccel» (wfc - 300) of «class pSS » of front document
                                        set «class flcl» of «class ccel» (wpf - 298) of «class pSS » of front document to MyRGB
                                        if «class ccel» (cclr + 2) of «class pSS » of front document = 3 then set MyRGB to «class flcl» of «class ccel» (wfc - 450) of «class pSS » of front document
                                        set «class flcl» of «class ccel» (wpf - 448) of «class pSS » of front document to MyRGB
                                        if «class ccel» (cclr + 3) of «class pSS » of front document = 4 then set MyRGB to «class flcl» of «class ccel» (wfc - 450) of «class pSS » of front document
                                        set «class flcl» of «class ccel» (wpf - 447) of «class pSS » of front document to MyRGB
                                        if «class ccel» (cclr + 3) of «class pSS » of front document = 4 then set MyRGB to «class flcl» of «class ccel» wfc of «class pSS » of front document
                                        set «class flcl» of «class ccel» (wpf + 3) of «class pSS » of front document to MyRGB
                              end repeat
                              set wfc to (wfc - 600)
                              set wpf to (wpf - 600)
                              set wctr to (wctr + 1)
                    end repeat
                    set wpf to wpfd + (4 * w2)
                    set w2 to (w2 + 1)
                    set wfc to wfcd
          end repeat
          set wfc to 17711
          set we to 17701
          set wed to 17701
          set ctr to 0
          set cot to 1
          repeat (nwt / 4) times
                    repeat 4 times
                              set MyRGB to «class flcl» of «class ccel» wfc of «class pSS » of front document
                              set «class flcl» of «class ccel» we of «class pSS » of front document to MyRGB
                              set «class ccel» we of «class pSS » of front document to cot
                              set ctr to ctr + 1
                              set cot to (cot + 1)
                              set we to (we - 149)
                              set wfc to (wfc - 150)
                    end repeat
                    set cot to 1
                    set we to (wed - (150 * ctr))
          end repeat
          set wtt to 19362
          set wtd to 19362
          set wfp to 17862
          set ctr to 0
          set cot to 1
          repeat (nwp / 4) times
                    repeat 4 times
                              set MyRGB to «class flcl» of «class ccel» wfp of «class pSS » of front document
                              set «class flcl» of «class ccel» wtt of «class pSS » of front document to MyRGB
                              set «class ccel» wtt of «class pSS » of front document to cot
                              set ctr to (ctr + 1)
                              set cot to (cot + 1)
                              set wtt to (wtt - 149)
                              set wfp to (wfp + 1)
                    end repeat
                    set cot to 1
                    set wtt to (wtd + (1 * ctr))
          end repeat
end tell
I am sorry but I cannot send you the 130 X 150 Grid as it is a .cwk document and is not accepted by Lion. I would suggest you see if you can access an older system and create a .cwk spreadsheet grid with the squares reduced to 12 point by means of the format instruction for both rows and columns.
I will be interested to see what you think about this problem.
Kind regards,
David Gurney.