** EXTR.BAS ** By Dexter Walker ** Copyright 1985 - CodeWorks Tandy 600 version Copyright 1986 - David Dunn Thomas, Timonium, MD$ V 5 "Sorry, "FS$" is not in RAM.":   "Sorry, insufficient RAM for "FD$:  :::"Seem to have error"" in"", better check it.": : ,!:"The CodeWorks": ,!:"E X T R A C T": (,!)(,"),,BF:Z  ,<: :"Press any key ";()" "();: :P$$():z : : :  : , "This program extracts portions of an existing file and creates a new file" "containing the selected lines. The source file must have been saved as"b "an ASCII file with .TXT extension. The extract will also be .TXT." "Source &/or extract may be either RAM or disk files."  :  : , "These .TXT files are in RAM:": "*.TXT":  "Enter the name of the SOURCE file:";FS$H "Enter the name of the EXTRACT file:";FD$ " ((FS$,),)"." ((FD$,),)"." "Please to not include an extension; .TXT is assumed.":  $"Enter line numbers to extract (enter E to end)" &J ( "Starting line: ";SL$A * SL$"E" SL$"e" 4 : SL(J)(SL$)~ , ,: "Last line (may be same as start line) ";EL(J) .JJ 0: 2 ( 4JTJ 6 :  : , 8"Display of extracted lines" :FS$FS$".TXT":FD$FD$".TXT" < FS$ AS 1* > FD$ OUTPUT AS 2I @ () L : #,A$V BV(A$)e D J JT F VSL(J) VEL(J) A$: #,A$ H J J @ L N :  P  ,:"FILE EXTRACT COMPLETE!": :