home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / dbmsa / jan95 / thor12.gif < prev    next >
Graphics Interchange Format  |  1995-08-06  |  90.1 KB  |  621x578  |  8-bit (174 colors)
   ocr: Omnis7 Eile Edit Design Iools Modify Help € Procedures for' WTOURS2 Init # FBEFORE TO_ID HTO_PRICE-D TO_NAME Calculate TO_PRICE as 500 (Redraw field) TO_COUNTRY End I TO_DURATION Else ISAFTER TO_AGE HTOPRICE>5000 TO_AGE Yes/No EArC (smnd be lis thas prce corecta TO_AGE H fiag dalse TO_AGE Calculate TO_PRUICE as 500 (Redrew field) TO_AGE SNA do not perform detault action 10 TO PRICIS Endlf 11 TO_ACTIVE Endi # 12 TO_NOTES Endif 13 Next 14 Previous 15 SFind 16 Edit 17 Sinsert 18 Delete 19 OK 20 Cancel 21 TO_AG_IO 22 23 24 ar 10: TO_PRICE 0 Finding data.. Undo Changing data.. Deta management.. Imp ...