home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / defini.cst / 01005_Script_1005 < prev    next >
Text File  |  1997-10-10  |  298b  |  11 lines
  1. ON LEVA_I
  2.   REPEAT WITH FLD = 1 TO 1004
  3.     SET P TO THE LAST CHAR OF FIELD FLD OF CASTLIB 2
  4.     REPEAT WHILE P = RETURN
  5.       DELETE THE LAST CHAR OF FIELD FLD OF CASTLIB 2
  6.       SET P TO THE LAST CHAR OF FIELD FLD OF CASTLIB 2
  7.     END REPEAT
  8.     PUT FLD
  9.   END REPEAT
  10.   PUT "FINITO"
  11. END