Labels:text | screenshot | font | menu OCR: Our solution to Outside Assignment 5: with TEXT_10; use TEXT_IO; procedure LEDIT is MAX_LENGTH constant := 80 MAX_LINE_NUMBER constant := 29_999; type TEXT is record LEN : INTEGER range 0 .. MAX_LENGTH := 0; VAL : STRING(1 .. MAX_LENGTH ) ; end record; type LINK; type P is access LINK; type LINK is record NUM : POSITIVE; LINE : TEXT; NEXT : P; end record; HEAD P := new LINK; .... .. .. .. .. TEMP INPUT_FILE, OUTPUT_FILE FILE_TYPE; INPUT TEXT: FINISHED BOOLEAN := FALSE; LINE_NUM : NATURAL := 10; function STR(T : in TEXT) return STRING is separate; procedure READ_INPUT_FILE is separate; procedure DO_COMMAND is separate; begin PUT("Input file: "); GET_LINE(INPUT. VAL, INPUT . LEN); READ_INPUT_FILE; PUT ("Output file: "); GET_LINE(INPUT. VAL, INPUT. LEN); CREATE (OUTPUT_FILE, NAME => STR(INPUT ...
(.png)
