:-style_check(-atom).
-[].
-[H|T]:-(H=9,tab(7);H=74,-"jfaiowperjvkaj";H=70,-"fawpfjkgf;ap;g";put(H)),-T.
a(42,"	1:*Nice
	2:*To
	3:*Meet
	4:*You
	5:*^Z
*1
	1:*Nice
	1:*Rice
*3
	3:*Meet
	3:*Meat
*l
	1: Rice
	2: To
	3:*Meat
	4: You").
a(30,"	1:*1
	2:*2
	3:*4
	4:*5
	5:*^Z
*3i
	3:*3
	4:*^Z
*1d
*l
	1:*2
	2: 3
	3: 4
	4: 5").

a(75,"	1:*skjg;sdrljagjk
	2:*J
	3:*F
	4:*^Z
*1Sf
	2: J
*2Sf
	2:*J
*3Sf
	3: F
*1?Sf
	2: J
O.K.? n
	3:*F
O.K.? n
Not found").
m:-read_file_to_codes('/dev/fd/0',C,[]),length(C,L),a(L,R),-"New file
*i
",-R,-"
*q
Abort edit (Y/N)? y".