edlin by mskzzzz

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

a(75,"\x091:*skjg;sdrljagjk
\x092:*J
\x093:*F
\x094:*^Z
*1Sf
\x092: J
*2Sf
\x092:*J
*3Sf
\x093: F
*1?Sf
\x092: J
O.K.? n
\x093:*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".

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page