P723 CJEFAX 723  Mon 13 Oct  21:13/06
|B2201206|b17KeyPrnt|j24BBBC332k|m40000|
p÷e÷X÷d÷d÷F—- ÷=—5ThJ÷e÷X÷l£÷C7:*KEY10 P
A.=&1500||MOLD||MRUN||M÷e÷X÷v÷k÷G23;8202
;0;0;0;÷e÷X(÷^÷C0÷e÷X2(÷G24,0;285;1279;1
023;:÷G28,20,31,70,24÷e÷X<#÷6 A$(10,6):F
%=0:C*=1:R*=1:X%=96:Y%=938:s=1:L%=0:E%=0
:R$="":÷;r%=0—|—6:÷;c%=0—|—10:A$(c%,r%)=
"":÷E,÷e÷XF÷i÷M:÷3:f=0:÷Jm:÷Uf÷e÷XP÷p÷G2
,1,27,1,64:÷G3:÷C7:÷8÷e÷XZ÷v÷L"—)Printer
—1back to NORMAL!÷e÷Xd÷#÷5÷Jm÷e÷Xn÷]÷3÷e
÷Xx—@÷I"Key 1 to select format"'"Key 2 t
o save new file"'"Key 3 to load existing
 file"'"Key 4 to edit text"'"Key 5 to pr
intout Keystrip"'"Key 0 to finish"÷e÷X—*
÷e÷M:*FX25,1÷e÷X—4>÷I—20,6)"PLEASE RELIC
T ?   ";:A%=—M:÷UA%>47 —(A%<54:÷I—20,6)—
1(40)÷e÷X—>÷i÷?A%=48 f=-1:÷9÷e÷X—H÷g÷?A%
=49 ÷Jf:÷9÷e÷X—R÷g÷?A%=50 ÷Jn:÷9÷e÷X—\÷r
÷?A%=51 ÷Jo:÷Jdi(E%):÷JF:÷9÷e÷X—f÷g÷?A%=
52 ÷Jj:÷9÷e÷X—p÷i÷?A%=53 ÷Jp(L%)÷e÷X÷*÷]
÷9÷e÷X÷4÷d÷5÷Jdi(E%)÷e÷X÷>÷f÷?F%=1 L%=6÷
e÷X÷H÷f÷?F%=2 L*=3÷e÷X÷R÷f÷?F%=3 L%=2÷e÷
Y÷\]÷2:÷>0,1:÷G5:x=88:x1=1208:a=1023|c  
                                        
                                        
   P723 CEEFAX 723  Mon 13 Oct  21:21/21
|B2202206|a17KeyPrnt|j24BBBC332k|m402CA|
p:c=(288+F**32):b=1023-c:f%=0:s>1:Z%=1:X
%=96:Y%=938:C%=1:R%=1÷e÷Y÷f—Q÷;y=a —|—b 
—0-c:y2=y-64:y2=y1-(192+F%*32):K%=y-24:÷
Dx,y:÷7x1,y:÷Dx,y1:÷7x1,y2:÷;J*=184—|—10
80 —0224:÷DJ*,K%:÷I"f";f%:f%=f%+1:÷E:÷;H
*=1 —|—F%:÷Dx,y2-(y1-y2)/F%*H%:÷7x1,y1-(
y2-y2I/F**H%:÷E÷e÷Y÷p&÷;V%=88—|—1208—022
4:÷DV%,y:÷7V%,y2:÷E,:÷G4÷e÷Y"÷]÷9÷e÷Y,÷c
÷5÷Jp(M%)÷e÷Y6:÷?F%=0 ÷3:÷I"format not s
pecified # cannot print":÷Jd(2):÷9÷e÷Y@v
÷G2:÷I':÷G3:÷? —>(-4)<>63 ÷3:÷;t%=1—|—5:
÷I—20,4)"PRINTER not on LINE!!!";:÷Jd(1.
5):÷I—20,4)"                      ";:÷Jd
(0.5):÷E:÷9÷e÷YJ÷]÷3÷e÷YT÷c*FX3,10÷e÷Y^÷
s÷L"—0Disable—1—.VDU—/drivers÷e÷Yh"÷G2,2
7,64:÷L"—-Printer on & RESET÷e÷Yr ÷G15:÷
L" —*Condensed characters÷e÷Y||÷u÷G27,51
,24:÷L"—*Line spacing÷e÷Y—.f÷;T*=1—|—10:
÷I"+";—l12,"-");:÷E:÷I"+":÷;k%=0—|—::÷I"
!";—1(5)"f";k*;—1(5);:÷E:÷I"!":÷;B%=1—|—
10:÷I"+";—l12,"-");:÷E:÷I"+"÷e÷Y—8÷i÷?N%
=6 ÷JP(1,6)÷e÷Y—B÷q÷?N%=3 ÷JP(1,3):÷J|c 
                                        
                                        
   P723 CEEFAX 723  Mon 13 Oct  21:22/47
|B2203206}a17KeyPrnt|j24BBBC332k|m405A9|
pP(4,6)÷e÷Y—L!÷?N%=2 ÷JP(1,2):÷JP(3,4):÷
JP(5,6)÷e÷Y—V÷j÷;D%=1—|—8:÷I:÷E:÷G3÷e÷Y—
|—÷|—*FX3÷e÷Y—j÷u÷L"—*VDU default settin
g÷e÷Y—t÷]÷9÷e÷Y÷.÷f÷5÷JP(U%,+%)÷e÷Y÷8—+÷
;R*=U%—|—W*:÷;C%=1—|—10:l=—P((12-—Q(A$(C
*,R%)))/2):÷I"!";—1(l);A$(C%,R%);—1(12-(
—Q(A$(C%,R*))+l));:÷E:÷I"!":÷E:÷;B%=1—|—
10:÷I"+";—l12,"-");:÷E:÷I"+"÷e÷Y÷B÷]÷9÷e
÷Y÷L÷#÷5÷Jo÷e÷Y÷Vn÷2:÷;r%=0—|—6:÷;c%=0—|
—10:A$(c%,r%)="":÷E,:÷3:÷I"What is the K
eystrip title to "e searched for "'':÷@"
           ",j$÷e÷Z÷|—8fl=—U(f$):÷@£fl,F
%:÷;r=1—|—6:÷;c=1—|—10:÷@£fl,A$(c,r):÷E,
:÷1£fl÷e÷Z÷j÷]÷9÷e÷Z÷t÷#÷5÷Jn÷e÷Z&1÷?F%=
0 ÷3:÷I"No data # cannot open file":÷Jd(
2):÷9÷i÷Z0R÷3:÷@"Enter file title ",f$:f
l=—V(e$):÷I£fl,F%:÷;r=1—|—6:÷;c=1—|—10:÷
I£fl,A$(c,r):÷E,:÷1£fl÷e÷Z:÷]÷9÷e÷ZD÷#÷5
÷Jf÷e÷ZN/FJ=0:R$="":÷;r%=0—|—6:÷;c%=0—|—
10:A$(c%,r%I="":÷E,÷e÷ZX÷p÷M:F%=F%+1:÷?F
%=4 F%=1÷e÷Zbi÷Jdi(F%):÷3:÷I'"         f
ormat ";F*:÷I'''"Please press <RETUR|c  
                                        
                                        
   P723 CEEFAX 723  Mon 13 Oct  21:12/17
|B2204206|b17KeyPrnt|j24BBBC332k|m4086C|
pN> to select format":Q*=—N(200):÷UQ%=13
:÷Ji:÷Jc÷e÷Zl÷]÷9÷e÷Zv÷#÷5÷Jc÷e÷Z—(,÷?F%
=0 ÷3:÷I"Nothing to edit!":E%=0:÷Jd(2):÷
9÷e÷Z—2÷e÷G5:*FX4,1÷e÷Z—<q÷M:÷M:÷M:ok=0:
÷Jcm:÷U ok:÷DX*,Y%:÷I"*";:÷Jim:÷U imp$="
" —,R$="M" —,R$="m":÷G4:÷Jg:÷UR$="M" —,R
$="m":÷G5:÷DX%,Y%:÷I"*":÷G4:*FX4,0÷e÷Z—F
÷]÷9÷e÷Z—P÷|—÷5÷Jcm÷e÷Z—Z÷e÷G5:*FX4,1÷e÷
Z—d.st=0:÷>3,1:÷M:÷DX%,Y%:÷I"*":st=st+1:
÷?st=2 st=0÷e÷Z—n÷qI=—N(20):÷UI>134 —(I<
140÷e÷Z÷(÷r÷?st=1 ÷DX%,Y%:÷I"*":st=0÷e÷Z
÷2÷j÷?I=135 ok=-1:÷9÷e÷Z÷<£÷?I=136 —((%>
96 X*=X*-224:C%=C%-1÷e÷Z÷F$÷?I=Q37 —(X%<
912 X*=X*+224:C%=C*+1÷e÷Z÷PG÷?I=138 —(s<
12 s=s+1:R%=R%+1:÷Iud(0):Y%=Y%-32*Z%:÷?Z
%=5 R*=R*-6:C*=C%+5÷e÷[÷ZG÷?I=139 —(s>1 
s=s-1:R*=R*-1:÷Iud(-1):Y%=Y%+32*Z%:÷?Z%=
5 R*=R%+6:C%=C%-5÷e÷[÷d÷|—Z%=1÷e÷[÷n÷]÷9
÷e÷[ ÷|—÷5÷Jim÷e÷[*Einp$="":L=0:÷?E%=1 ÷
DX*,Y%:÷I"*";A$(C%,R*):A$(C%,R*)="":÷DX%
,Y%:÷I"*";÷e÷[4&÷?E%=0 —(A$(C%,R*)<>"" ÷
DX%,Y%:÷I"*":÷9÷e÷[>÷o÷M:÷Jgc:÷UL>12|c  
                                        
                                        
   P723 CEJFAX 723  Mon 13 Oct  21:13/13
|B220u206}b17KeyPrnt|j24BBBC332k|m40B3E|
p —,i$=—e13÷e÷[H ÷?imp$="" —(E%=0 ÷DX%,Y
%:÷I"*":÷9÷e÷ R-imp$=—hinp$,12):A$(C%,R%
)=imp$:÷DX*,Y%:÷I"*"÷e÷[\÷]÷9÷e÷[f÷e÷5÷J
ud(dir)÷e÷[p÷p÷?s —+(7+dir)=0 Z%=5:÷9÷e÷
[zV÷?((s=4+dir —,s=10+dir) —(F%=2) —,((s
=3+dir —,s>5+dir —,s>9+dir —,s>11+dir) —
(F%=3) Z%=2:÷9÷e÷[—,÷|—Z%=1÷e÷[—6÷]÷9÷e÷
[—@÷#÷5÷Ji÷e÷[—J÷i÷?F%=0 ÷3:÷9÷e÷[—T÷]÷3
÷e÷ —^"÷?E*=1 ÷I"            EDIT MODE"÷
e÷[—h+÷I"Use cursor keys to move around 
grid."÷e÷[—rT÷?E%=1 ÷I"Press <COPY> to D
ELITE original text"'"now TYPE IN NEW TE
XT and RETURV."÷e÷[÷,H÷?E%=0 ÷I"Press <C
OPY> then Enter text"'"Press <RETURN> wh
en text ok."÷e÷[÷6£÷I"max. 12 characters
/position."÷e÷[÷@#÷?E%=0 ÷I" To END pres
s <COPY> (if text at cursor porn.)"'"or 
<COPY> and <RETURV> if no text"÷e÷[÷J÷]÷
9÷e÷[÷T÷#÷5÷JF÷e÷\÷^E÷Bx,y,c,r,k,s:÷G5:x
=112:y=970:c=0:r=0:÷;k=1—|—5:c=k:÷;s=1—|
—12:r=s:÷Iud(0)÷e÷\÷h÷l÷?s>6 c=k+5:r=3-6
÷e÷\÷r0y=y-32*Z%:÷Dx,y:÷IA$(c,r):÷E:|c  
                                        
                                        
   P723 CEEFAX 723  Mon 13 Oct  21:14/28
|B2206206|a17KeyPrnt|j24BBBC332k|m40E27|
px=x+224:y=970:÷E:÷G4÷e÷\$÷]÷9÷e÷\.÷v÷5÷
Jd(ti):÷;de=1 —|—ti*1000:÷E:÷9÷e÷\8;÷5÷J
e:E%=1:R$="M":s=1:Z%=1:X%=96:Y%=938:C%=1
:R*=1:÷Ji:÷Jc:÷9÷e÷\B÷|—÷5÷Jgc÷e÷\L÷ai$=
""÷e÷\V÷|—i$=—f÷e÷\|—÷e÷?i$=—e13 ÷9÷e÷\j
÷k÷?i$<>—e127 L=L+1÷e÷\t÷c÷?L>12 ÷9÷e÷\|
÷÷j÷?i$=—e127 ÷Jdc:÷9÷e÷\—0÷|—÷Ii$;÷e÷\—
:÷hinp$=imp$+i$÷e÷\—D÷]÷9÷e÷\—N÷#÷5÷Jg÷e
÷\—X,÷?R$="M" —,R$="m" E%=0:÷G5:÷DX%,Y%:
÷I"*":÷G4:÷9÷e÷\—b÷]÷3÷e÷\—lD÷I"Press 'C
' to continue text entry"''"or 'M' to re
turn to menu."÷e÷\—v)÷MR$=—f:÷UR$="C" —,
R$="M" —,R$="c" —,R$="m"÷k÷\÷0÷n÷?R$="C"
 —,R$="c" ÷Ji÷e÷\÷:%÷?R$="M" —,R$="m" ÷G
5:÷DX%,Y%:÷I"*":÷G4÷e÷\÷D÷]÷9÷e÷\÷N÷|—÷5
÷Jdc÷e÷]÷X÷tL=L-1:÷?L<0 L=0:imp$="":÷9÷e
÷]÷b÷|—÷G127÷e÷]÷l÷iinp$=—hinp$,L)÷e÷]÷v
÷]÷9÷e÷](÷j÷F—-—/:÷1£0:*FX4,0÷e÷]2C÷?—G=
222 ÷I"Eile NOT found":÷Jd(4):÷Q:—3 ÷? —
G<>17 ÷N:÷I" at line ";—F —3 ÷Q÷e÷W|c