> TxEd/src v0.30  Small text editor >((fx(135,0)&FF00)256)&80:A$=OS_GetEnv:init:=start% (info: err:exit() 2+:X%=ctrl%:Y%=X%256:ed%:edit menu <:exit(0): F: Pinit:ver$="0.30" Z! ctrl% 31,name% 79:?name%=13 d+23,128,0,0,0,0,&7E,&42,&24,&18: space n#23,129,0,0,4,6,&7F,6,4,0: tab x*23,130,0,2,2,&22,&62,&FE,&60,&20: cr "23,131,0,8,8,8,42,28,8,0: lf Cstart%=+4096:mtop%=memtop:end%=start%:here%=start%:top%=here% -?end%=13:x%=0:y%=0:hg%=0:file$="":ed%=: : ݤmemtop: =fx(132,0) :ș "OS_GetEnv" ,A%:=A% : -on:"FX4,2":"FX225,128":"FX226,144": *off:"FX4":"FX225,1":"FX226,128": : ݤerr:=17:ed%:info =17:ed%=ed%:= *:" at line "+Þ,<128 <>17):=-1 : 8info::"Small Text Editor v";ver$;" (C)1991 JGH"' "8"Bytes free ";mtop%-end%'"Bytes used ";end%-start%' ,-"Editing ";file$;"",file$="")' 6-"Screen mode ";(fx(135,0)&FF00)256': @: J&menu:off:"=> "A$:cmd:info T := ^: h8ݤcmd:A%=A$+" "," "):C$=uc(A$,A%-1)):A$=A$,A%+1) rC$="MODE":=mode |C$="LOAD":=load C$="SAVE":=save C$="NAME":file$=A$:= 'C$="NEW":!start%=13:end%=start%:= C$,1)="*":C$+" "+A$:= "Mistake":= : Aݤload:A%=file(A$,5):X%!10>mtop%-start%:"File too long":= @"LOAD "+A$+" "+~start%:end%=start%+X%!10:?end%=13:file$=A$ "top%=start%:x%=0:y%=0:hg%=0:= : ݤsave:A$="":A$=file$ ?"SAVE "+A$+" "+~start%+" "+~end%+" FFFF0000 FFFFFF00":= : Dݤmode:A%=A$:fx(130,0)=&FFFF:fx(133,A%)=en%: vx:0:135: y:7:128: z:0:129: 3b(B%):hg% B%>63 B%<128 x:B%:y:hg%=0: hg% x:42:hg%=0:y B%=28 x:45:y: B%=29 hg%=: B%>31 B%<127 B%: B%=13 130,32,8,8:: B%=9 129:(7-( 8));: #B%<32 0:129:B%+64:128:7:  scr(here%) 3:prH:here%=here%+1+$here%:>22 here%>=end%  here%>=end% x:"*End*";:y   :  : *: 4!edit::scr(top%):x%,y%); >on::K%=:K%>126 high:0 H2?here%=13 K%=13 ins(1):?here%=32:9,130,8,8 R*?here%=9 ins(1):?here%=32:9,129,8,8 \jK%=13 32:=0:8:28,0,23,,+1,30,11,26,31,x%,y%,130::?here%=13:here%=here%+1:prH:x%,y%):q:0 f-K%=9 ?here%=9:prH:x%,y%);:b(9):8:q p?here%=K%:K%:p:0 z0 : p:here%=here%+1:q: q:x%=:y%=:  high KK%=127 here%>start% ?(here%-1)>31 127:here%=here%-1:?here%=32:q: RK%=127 here%>start% ?(here%-1)=13 left:?here%=32::scr(top%):x%,y%);:  K%=127 (K%=141 here%start% ?(here%-1)>31 8:here%=here%-1:q: 1K%=140 here%>start% ?(here%-1)=13 left:  K%=140 K%=136 inschar:  K%=136 $0K%=137 here%K%=157 prL(here%,here%+$here%):here%=here%+$here%:q: V(K%=156 13:here%=thisL(here%):q: ` jNleft:here%=here%-1:11:?(here%-1)<>13 e%=thisL(here%):prL(e%,e%+$e%) tq: ~;ݤthisL(ad%)::ad%=ad%-1:?(ad%-1)=13 ad%=start%:=ad% "ins(n%):end%>memtop-n%-2 A A%=end% here% -1:A%?n%=?A%::end%=end%+n%:data%!4=end%: Idel(n%): A%=here% end%+4:?A%=A%?n%::end%=end%-n%:data%!4=end%: inschar:end%>memtop-2 Cins(1):?here%=32:32,8:prL(here%,here%+1+$here%):x%,y%);: ݤx(A$):="HELLO"