If table for editm2 is static, you may try PLANETS=: 0 : 0 pc planets; ... pas 6 6; rem form end; set editm2 *<table> )
PLANETS=: PLANETS rplc '<table>';table table is expected to be a rank-1 character array with possibly embedding LF. (untested) remember PLANETS is noun so that it itself will not execute any code. Чтв, 19 Июл 2012, adam dunne писал(а): > Below is form: > > PLANETS=: 0 : 0 > pc planets; > xywh 6 7 50 10;cc ccstatic static;cn "Place:"; > xywh 61 4 51 11;cc placef edit; > xywh 5 19 51 10;cc ccstatic static;cn "Date (y m d):"; > xywh 61 18 50 11;cc datef edit; > xywh 5 32 50 10;cc ccstatic static;cn "Lat(+ve N) deg dec"; > xywh 61 30 50 11;cc latf edit; > xywh 4 44 50 11;cc ccstatic static;cn "Long(+ve E) deg dec"; > xywh 61 41 50 12;cc longf edit; > xywh 4 56 74 12;cc ccstatic static;cn "(0=GMT/BST,1=IST)"; > xywh 60 53 51 12;cc istf edit; > xywh 5 119 50 66;cc editm editm; > xywh 5 184 50 10;cc dccstatic static;cn "Planet Nos (vec)"; > xywh 63 182 50 11;cc plvecf edit; > xywh 7 80 60 11;cc Mm static;cn "M'm"; > xywh 8 90 42 11;cc Dublin static;cn "Dublin"; > xywh 60 69 16 11;cc lat static;cn "lat"; > xywh 79 69 21 11;cc long static;cn "long"; > xywh 79 80 39 11;cc longMm static;cn "80.22"; > xywh 54 90 60 11;cc latD static;cn "53.43"; > xywh 80 89 60 11;cc longD static;cn "_6.36"; > xywh 54 80 24 11;cc latMm static;cn "12.6"; > xywh 5 203 94 40;cc editm2 editm; > xywh 3 246 53 11;cc lct static;cn "Local Civil Time:"; > xywh 62 245 17 12;cc lcthrsf edit; > xywh 83 245 17 12;cc lctminf edit; > xywh 37 260 48 12;cc process button;cn "Process"; > pas 6 6; > rem form end; > ) > editm2 is a table of sunrise and sunset. > It requires date, latritude,longitude, ist. > > -Adam > > The result of the form is a table with sunrise,sunset, > altitude.azimuth,magnitude of planets selected, displayed on the > (ijx)screen. > Why need sunrise sunset on form? To put in a useful local Civil Time. > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm -- regards, ==================================================== GPG key 1024D/4434BAB3 2008-08-24 gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
