P708 CEEFAX 708 Wed 29 May 22:21/00
‖B2202210‖!06LID-OFF<i24BBBC332k‖m402ED>
D$-,-L1:÷9÷e÷YJ(÷5-L1:÷?-N-33M=M-661:÷,1
,-15,200,2:÷M÷U-T-N-33÷e÷YT÷↑=M÷e÷Y↑G÷%‖
JS:÷?-T-N-114÷9:-3÷,1,-15,200,2:÷M÷U-T-N
-114:÷M÷U-N-114:÷,1,-15,200,2:÷M÷U-T-N-1
14:÷9÷e÷Yh ÷5÷D@:‖?-NM006V=V-*-a:÷,1,-15
,200,2:÷M÷U-T-N- 04~e~Yr~]~9~e~Y|<%~5~JA
:÷BI:I=-9+S:÷M÷U-9>I:÷?S>0÷,1,-6,40,1÷e÷
Y-.÷d÷M÷U-T-N-2:‖9÷e÷Y-8÷o÷5÷J2(J$)÷BI:T
=-I:¾=-5tdA÷e÷Y-B÷e÷5÷J@(m$)÷BI÷e÷Y-L÷k÷
?W%=0-(M:T=-a:÷3:÷9÷e÷Y-V÷d÷?T÷I:-3T=-a÷
e÷Y-‖-*÷?o&<<4- L:÷;I=1-‖--QJ$:÷I-iJ$,I,
1);:÷JA:÷E:÷H8:÷9÷e÷Y-j(÷H0 <6*:‖?I=2÷I
'"O.S. Print characterB¾e÷Y-d#÷J1 ÷J0(0)
:÷; <1-‖--QJ$8÷J0 0 :÷JB(-?-iJ$ 0 :
÷J2(" decimal = "+-k-?-iJ$ H 0 :÷J1:÷?
-TL:÷JJ(-?-iJ$ H 0 (÷e÷Y÷8G÷J0(4):÷G-?-
iJ$ ,1):‖J1:‖J0(1):÷I'-jJ$,-QJ$-I 2"
";:÷J1:÷E:÷J1:÷J0(I):‖J0 4 :÷9÷e÷Y÷L-Z÷5
÷JT:÷J@hSHs it a delete? ):÷?K%=127÷J2("
YEs") ÷J@("Delede the last character"):-
3÷J2("No"):÷J@("Whad does id look like?"
):÷J@("Search for the 0attern"):÷J@(‖c