2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     TEXTED.800
4 ! Utg}va  1.0      1983-06-04
5 ! av (c) Bo Kullmar
8 ! Ins{nt av Bo Kullmar, 1789.
9 ! En liknande rutin finns i TVMAIN som {r skriven av Niklas Notteman med
10 ! WHILE-satser.
11 ! +++++++++++++++++++++++++++++++++++
40 EXTEND : FLOAT 
100 Z$=FNEd$('JAG TESTAR',80)
65000 DIM In$=80%,In2$=80%,Ut$=80%
65010 DEF FNEd$(In$,Postl{ngd%) LOCAL R%,K%,C%,L{ngd%,C$=1,In2$=80,Ut$=80
65020   ; In$
65030   In2$=In$
65040   R%=PEEK(-173%) : K%=PEEK(-174%)
65050   ; CUR(R%,K%); : GET C$ : C%=ASCII(C$)
65060   IF C%=13% THEN 65190
65070   IF C%<>8% AND C%<>24% THEN 65130
65080   IF Ut$="" THEN 65050
65090   K%=K%-1% : IF K%<0% THEN K%=39% : R%=R%-1%
65100   ; CUR(R%,K%) " " CUR(R%,K%);
65110   Ut$=LEFT$(Ut$,LEN(Ut$)-1%)
65120   IF C%=24% THEN 65070 ELSE 65050
65130   IF C$=CHR$(9%) AND In2$<>"" THEN C$=LEFT$(In2$,1%) : In2$=RIGHT$(In2$,2%)
65140   IF ASCII(C$)<32% THEN 65050
65150   Ut$=Ut$+C$ : ; C$;
65160   K%=FNM%(K%+1%,80%) : IF K%=0% AND R%<>23% THEN R%=R%+1%
65170   IF K%=0% AND R%=23% THEN ; 
65180   IF LEN(Ut$)<Postl{ngd% THEN 65050
65190   L{ngd%=LEN(Ut$)
65200   IF L{ngd%<Postl{ngd% THEN Ut$=Ut$+SPACE$(Postl{ngd%-L{ngd%)
65210   RETURN Ut$
65220 FNEND 
65230 DEF FNM%(X%,Y%)=X%-X%/Y%*Y%