Т > TtxToPROC ,Т Make a PROC to display a teletext page : (8ч ctrl% 31,mem% 1023:X%=ctrl%:Y%=X%│256:in%=0:out%=0 2Н ┘ Ж:РCloseAll:Я:Ю <,Я "Create PROC to display teletext page" FХ "Input file: "in$ P3size%=1024:in%=▌(єfname(in$)):Г in%:size%=╒#in% ZЯ "Frame number (1"; d:Г size%>1024:Я "-";(size%+1023)│1024;") "; ▀ Я") "; nХ ""ptr%:Г ptr%<1:ptr%=1 x9Х "Procedure name: "proc$:Г proc$="":proc$="page" ┌6Х "Start line number: "line%:Г line%=0:line%=1000 ▄4Х "Line step: "step%:Г step%=0:step%=10 √ Х "Output file: "out$ ═!Х "(T)ext or (B)asic: "type$ ╙,Г ї"Bb",юtype$,1)):type$="B" ▀ type$="T" Є: Ў'Г in%=0:Я"File '"in$"' not found":Ю хKptr%=(ptr%-1)*1024:Г ptr%+1>size%:Я"Frame past end of file":РCloseAll:Ю рDout%=ў(єfname(out$)):Г out%=0:Я"Can't save '"out$"'":РCloseAll:Ю э!Ц A%=0 ╦ 1023 ┬ 4:mem%!A%=0:М Ф+Рgbpb(3,in%,mem%,1024,ptr%):ы#in%:in%=0 Пrows%=єttx_rows(mem%) ЗГ type$="B":у#out%,13 ?text$=єtkn(Ґ&DD+Ґ&F2+proc$+":"+Ґ&DB,"DEFPROC"+proc$+":CLS") ;Г rows%=25 └ rows%=23:text$=text$+єtkn(":"+Ґ&EF,":VDU") <Г rows%=25:text$=text$+"31,39,24,"+цmem%?999+",32,30,11" "Г rows%=23:text$=text$+"10" ,Рoutput:Ц row%=0 ╦ rows%-1 6-Я Ґ13;line%;:ptr%=mem%+row%*40:text$="""" @#Ц col%=ptr% ╦ ptr%+39+(row%=24) J/A%=?col% ─ 127:Г A%<32 └ A%=127:A%=A% └ &80 T(A$=ҐA%:A$=а"`#_"+A$,ї"#_`"+A$,A$),1) ^)text$=text$+A$:Г A%=34:text$=text$+A$ h М col% r;Г бtext$,1)=" ":Уtext$=юtext$,╘text$-1):Щбtext$,1)<>" " |+text$=text$+Ґ34:Г text$="""""":text$="" ├2Г text$<>"":Г A%<>32 └ row%=24:text$=text$+";" ░"text$=єtkn(Ґ&F1,"PRINT")+text$ 6Г row%=rows%-1:text$=text$+єtkn(Ґ&BD,"CHR$")+"30;" є Рoutput:М row%:Я Ґ13;┴6;Ґ13; ўtext$=єtkn(Ґ&E1,"ENDPROC") ╦"Рoutput:Г type$="B":у#out%,255 бы#out%:out%=0:Н ┘ Ю л+Ъ "SetType "+out$+" "+єtkn("FFB","FFF") жЮ Ю: Й&щєtkn(B$,T$):Г type$="B":=B$ ▀ =T$ Т: ЧщРoutput <Г type$="B":Рout(out%,Ґ(line%│256)+Ґ(line%)+Ґ(4+╘text$)) Рout(out%,text$+Ґ13) line%=line%+step% &А 0: :щРout(o%,A$):Г A$="":А D$Ц A%=1 ╦ ╘A$:у#o%,≈аA$,A%,1):М:А N: XщРCloseAll bA%=out%:out%=0:ГA%:ы#A% lA%=in%:in%=0:ГA%:ы#A% vА ─: ┼#щєfname(A$):=A$+ю".",?(╦P-3)=0) ■#щРgbpb(A%,chn%,addr%,num%,ptr%) ·>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFFF:ж&FFD1:А ╗ГA%=1└A%=3:о#?X%=X%!9 ╡5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% ╪5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А ф: п:щєttx_rows(D%):A%=919:УA%=A%+1:ЩA%>999└D%?A%<32:=A%│40 Ъ