P705 CEEFAX 705  Tue 18 Sip  23:44/57
|B2201208|a17REVERSE|i44BBBC316k|m8FFFF0
ppp÷e÷X÷b$÷Lb—,*************************
****÷e÷X÷l$÷L"—,**                      
   **÷e÷X÷v$÷L"—,**     —) REVERSE      
 —,   **÷e÷X(d÷L"—,**                   
      **÷e÷XF$÷L"—,**  —*  By Pete Smith
      —,**÷e÷XP$÷L"—,**                 
        **÷e÷Xd$÷L"—,**                 
        **÷e÷Xg$÷L"—,**      —+19.9.83  
        —,**÷e÷Xi$÷L"—,**               
          **÷e÷Xn$÷L"—,*****************
************÷e÷Xs+÷: 1,1,2,2,2,20,10,10,
127,0,0,-5,126,126÷e÷Xx÷bflag=0÷j÷Xp*÷sd
elay=1÷e÷X—4÷^÷C7÷e÷X—>÷e÷3:X=—[(-—9)÷e÷
X—H÷j÷G23,1,0;0;0;0;÷e÷X—R÷jlowthiusrq=5
0p÷e÷X—\$ ÷v L(8):÷v Q(8):÷6 R(8):÷6 Aka
in(8)÷e÷X—f÷b÷Jbjgin÷e÷X—p÷q÷? G=89 p, G
=121 ÷= —5df@÷e÷X÷*÷g÷3:÷Jinstruct÷e÷X÷4
"÷L"—)***************************÷u÷X÷7"
÷L"—)**—+ Main Programmj Loop —)**÷i÷X÷9
"÷L"—)***************************÷e÷X÷>
s÷3:÷Jborder:÷JTI(10):÷Jinit÷e÷X÷H5÷I—20
,23)—e131;"How many do you want mr z|c  
                                        
                                        
   P705 CEEFAX 705  Tue 18 Sip  23:42/41
|B2202208|a17REVERSE|i24BBBC316k|m8FFFF0
2E0o reverse?"÷e÷Y÷\÷e÷Jattempts÷i÷Y÷f÷|
—÷Jget÷e÷Y÷p÷i÷I—20,23);—1(39)÷e÷Y"÷d÷JS
WOP(n*÷e÷Y,÷b÷Jcheck÷e÷Y6÷l÷? Total< 0 ÷
=—5D@A÷i÷Y8÷m÷? delay=1 delay=2÷u÷Y;÷j÷J
attempts:÷Jend÷e÷Y<1÷? flag=1 ÷3:÷c 23,1
,1;0;0;0;:÷8 —3 ÷3:÷JAgain:÷=—5DJA÷e÷Y@÷
a÷=—5dp@÷e÷YJ÷p÷? G=78 —, G=110 ÷=—5df@÷
j÷YT£÷L"—)***                      ***÷e
÷YV£÷L"—)*—+ Conj here for same seq—) *÷
j÷YX£÷L"—)***                      ***÷e
÷Y^÷e÷3:÷Jbordet÷i÷Yh÷c÷JTjxt#1÷e÷Yt÷v÷3
:÷;I=0 —|— 8:Q(I)=Again(I):÷E÷e÷Y||£÷; I
=0 —|— 8:÷I;Again(I);" ";:÷E:÷G26÷e÷Y—./
÷? Attempts<lowthisseq —4 lowthiuseq=Art
empts÷e÷Y—8<÷I—44,9)—e133;"Low score fgu
 THIS sequence";—e130;lowthiuseq÷e÷Y—B÷f
Attempts=0÷e÷Y—L÷a÷=—5dp@÷e÷Y—V£ ÷L"—)**
*************************÷i÷Y—X£ ÷L"—)**
    —+Proceedures   —)   **÷e÷Y—Z£ ÷L"—)
***************************÷e÷Y—|—÷b÷5J
init÷e÷Y—j÷fAttempts=0÷e÷Y—t$÷L  ARR—Y L
(8) HOLDS 1#9 IN ORDER÷e÷Y÷.!÷L  ARR|c  
                                        
                                        
   P705 CEEFAX 705  Tue 18 Sip  23:45/25
|B2203208|a17REVERSE|i24BBBC316k|m8FFFF0
5A7AY Q(8) HOLDS 1#9 MIXED÷e÷Y÷8) ÷;Clea
r=0 —|— 8:L(Clear)=0:Q(Clear)=0:÷E÷u÷Y÷B
÷q ÷; l=0 —|— 8:L(l)=l+1:÷E÷e÷Y÷L÷i ÷; S
et =0 —|— 8÷e÷Y÷V÷g Pot=—[(9)-1÷e÷Z÷|—— 
÷? L(Pot)=0 ÷= —5d|÷A —3 Q(Set)=L(Pot):A
gain(Set)=L(Pot*:L(Pot)=0÷e÷Z÷j÷^ ÷E÷e÷Z
÷t÷q ÷; l=0 —|— 8:L(l)=l+1:÷E÷e÷Z&'÷JTex
t#1:÷; I=0 —|— 8:÷I;Q(I);" ";:÷E:÷G26÷e÷
Z0÷w÷I—40,9);—1(35):lowthiusjq=500÷e÷Z:÷
]÷9÷e÷ZD÷f —5DXB —5DvB÷e÷ZN$L"—)*p**—)*
—**—)*—**—)*—**—)*—**—)*—**—)*—**—)*÷e÷Z
X÷f ÷5÷Jswop(n)÷e÷Zb$÷L Array R used onn
y for reversal÷e÷Zl÷r ÷; I=0 —|— 8:R(I)=
Q(I):÷E÷e÷Zv÷h ÷; I=0 —|— n-1÷i÷Z—(÷l Q(
I)=R((n-1)-I)÷e÷Z—2^ ÷E÷e÷Z—<^ ÷]÷uZp
F$÷L"—)*—**—)*—**—)*—**—)*—**—)*—**—)*—*
*—)*—**—)*÷e÷Z—P÷d÷5÷JText#1÷e÷Z—Z÷n÷G28
,10,20,28,18:÷9 ÷e÷Z—d$÷L"—)*—**—)*p**—)
*—**—)*—**—)*—**—)*—**—)*—**—)*÷i÷Z—n÷e÷
5÷JSWOP(n)÷e÷Z÷(÷c÷JText#1÷i÷Z÷2d÷I;—1(
2*n)÷e÷Z÷<÷w÷I:÷; I=0 —|— n-1:÷I;Q(I);" 
";:÷E÷e÷Z÷F÷b÷JTI(5)÷e÷Z÷P÷d÷Jswop(n|c  
                                        
                                        
   P705 CEEFAX 705  Tue 18 Sip  23:40/20
|B2204208|a17REVERSE|i24BBBC316k|m8FFFF0
83B)÷e÷[÷Z÷h÷; Move=1 —|— n÷e÷[÷#÷#÷)=0÷
e÷[÷d÷p÷JTJ(.1):÷JSOUND(Move)÷e÷[÷n÷w÷?M
ove<n*.5 step=-1 —3 step>1÷e÷[ ÷p÷I—22*(
n-Move),2);" ";÷i÷[*÷d÷JTJ(.02)÷e÷[4(÷; 
Run=2*(n-Move) —|— 2*(Move-1) —0 step÷e÷
 >÷n÷I—2Run,1);Q(Move-1)÷e÷[H÷v÷? dela9=
1 ÷TUE(.2) —3 ÷RTE(0)÷i÷ R÷h÷I—2Run,1);"
 "÷e÷[\÷]÷E÷e÷[f÷u÷I—22*(Move-1),0);Q(Mo
ve-1)÷e÷[k÷h÷M÷U—9>50/delay÷e÷[p÷]÷E÷e÷[
z÷#÷G26÷e÷[—,÷]÷9÷e÷[—6$÷L"—)*—**—)*—**—
)*—**—)*—**—)*—**—)*—**—)*—**—)*÷e÷[—@÷c
÷5÷JTI(T*÷e÷[—J÷rTimj=—9:÷M ÷U —9 Time+1
0*T÷e÷[—T÷]÷9÷i÷[—^$÷L"—)*—**—)*—**—)*—*
*—)*—**—)*—**—)*—**—)*—**—)*÷e÷[—h÷f÷5÷J
SOUND(P)÷e÷[—r÷g÷,1,1,20*P,7÷i÷[÷,÷]÷9÷e
÷ ÷6d÷L"—)*—**—)*—**—)*—**—)*—**—)*—**—)
*—**—)*—**—)*÷e÷[÷@÷c÷5÷Jchjck÷e÷[÷J÷cTo
sal=0÷e÷[÷T÷i÷; check=0 —|— 8÷i÷\÷^$Rota
l=Total+—<(Q(check)-L(check))÷e÷\÷h÷c÷E 
check÷e÷\÷r÷]÷9÷e÷\$$÷L"—)*—**—)*—**—)*—
**—)*—**—)*—**—)*—**—)*—**—)*÷e÷\.÷a÷5÷J
get÷e÷\8÷c*FX15,0÷e÷\B÷]÷M÷u\L÷#c —M|s 
                                        
                                        
   P705 CEEFAX 705  Tue 18 Sip  23:40/05
|B2205208|a17REVERSE|i24BBBC316k|m8FFFF0
AB4÷e÷\V÷t÷U(G>48—(G<58)—,(G>32—(G<42)÷e
÷\|—÷n÷? G>32—(G<42 G=G+16÷e\j÷bn=c-4 
e÷\t÷oAttempts=Attempts+1÷e÷\|÷÷]÷9÷e÷\—
0d÷L"—)*—**—)*—**—)*—**—)*p**—)*—**—)*—*
*—)*—T*—)*÷e÷\—:÷a÷5÷Jjnd÷i÷\—D÷c÷JTI(10
*÷i÷\—N=÷I—211,2);—e141;—e136;"THAT'S IT
b:÷I—211);—e141;—e136;"THAT'S IT"÷e÷\—X-
÷; Z=1 —|— 25:÷,2,-15,Z*4,2:÷,3,-15,Z*4+
16,2:÷E÷e÷\—b÷c÷JTI(30)÷e÷\—l?÷3:÷I—213,
10)—e141;—e134"WELL DONE":÷I—213)—e141;—
e134"WELL DONE":÷I'÷i÷\—vs÷I—26)—e141;—e
131"YOU REVERSED IN";—e135;Attempts;—j13
1"GOES":÷I—26)—e141;—e131"YOU REVERSED I
N";—e135;Attempts;—e131"GOES"÷e÷\÷:÷c÷JT
I(20)÷e÷\÷D)÷I—27,22)—e130;"Do you want 
anothjt go?"÷e÷\÷N÷c*FX15,0÷e÷]÷X£÷M:c —
M:÷U G=78 —, G=110 —, G=89 —, G=121÷e÷]÷
b÷s÷? G=78 —, G=110 flag=1:÷9÷e÷]÷l÷]÷9÷
e÷]÷v$÷L"—)*—**—)*—**—)*—**—)*—**—)*—**—
)*—**—)*—**—)*÷e÷](÷f÷5÷Jattempts÷e÷]2Z÷
? Attempts<>0 —( Attempts<>1 ÷I—26,13);—
e133;"You have reversed";—e130;Attjm|c  
                                        
                                        
   P705 CEEFAX 705  Tue 18 Sip  23:33/23
|B2206208|a17REVERSE|i24BBBC316k|m8FFFF0
D6Epts;—e133"times"÷e÷]<=÷? Attempts=1 ÷
I—26,13);—e133;"You have reversed";—r130
;"once"÷e÷]F÷]÷9÷i÷]P$÷L"—)*—**—)*—**—)*
—**—)*—**—)*—**—)*—**—)*—**—)*÷e÷]Z÷c÷5
JAgain÷i÷]d0÷I—23,10)"Do you want the sa
me numbers again?"÷e÷]x÷c*FX15,0÷e÷]—*'÷
M:G=—M:÷U G=78 —, G=110 —, G=89 —, G=121
÷e÷]—4÷]÷9÷e÷]—>$÷L"—)*—**—)*—**—)*p**—)
*—**—)*—**—)*—**—)*—**—)*÷e÷]—H÷f÷5÷Jink
truck÷e÷]—RE÷I—23,0)"I'll give you th  n
umbers 1 to 9"'"   in the wrong order."÷
e÷]—\÷c÷JTI(30)÷ ÷]—f÷u÷I—22,2);—e133;"L
ike this:-b÷e÷]—p÷c÷Jborde ÷e÷]÷*÷c÷JTI(
10)÷e÷]÷4÷a÷Jinit÷e÷]÷>÷c÷JTJ(30)÷e÷]÷H÷
eXX=—[(4)+1÷e÷]÷RJ÷I—23,4)"If you type "
;XX;", I'll rivjrse the"'"   fir t ";XX;
" numbers"÷e÷^÷\÷c÷JTI(30)÷e÷^÷f÷u÷I—22,
6);—e133;"Like this:-"÷e÷^÷p÷c÷JTI(10)÷e
÷^"÷e÷JSWOP(XX*÷i÷^,÷c÷JTI(30)÷e÷^6÷ XZ=
—[(4)+5÷e÷^@J÷I—23,8)"If you type ";XY;"
, I'll r v rsi the"'"   first ";XY;" mum
bets"÷i÷^J÷c÷JTI(30)÷e÷^T÷v÷I—22,10)|c  
                                        
                                        
   P705 CEEFAX 705  Tue 18 Sip  23:41/11
|B2207208|a17REVERSE|i24BBBC316k|m FFFF1
p2D;—e133;"Like this:-"÷e÷^^÷c÷JTI(10)÷e
÷^h÷e÷JSWOP(XZ)÷e÷^r÷c÷JTI(20)÷e÷^||÷t÷I
—217,11)"....and so on."÷e÷^—.÷c÷JTJ(25)
÷e÷^—8/÷I—44,13);—e131;"You have to whni
sh up with:-"÷e÷^—B)÷I—23,15);—1T6);—e13
2;"1 2 3 4 5 6 7 8 9"÷e÷^—L÷c÷JTJ(35)÷j÷
^—V@÷I—213,22);—e141;—e134;—e136;"O.K.?"
:÷I—213);—e141;—e134;—e136;"O.K.?"÷e÷^p>
—÷c*FX15,0÷e÷^—j'÷M:G=—M:÷U G=78 —, G=11
0 —, G=89 —, G=121÷e÷^—t"÷? G=78 —, G=11
0 ÷3:÷JTJ(10):÷=—5tjE÷e÷^÷.÷]÷9÷e÷^÷8$÷L
"—)*—**—)*—**—)*—**—)*—**—)*—**—)*—**—)*
—**—)*÷e÷^÷B÷c÷5÷Jbegin÷i÷^÷L÷p÷L  Tzrn 
on caps lock÷e÷^÷V÷g?602=&20   ÷u÷#÷>—÷m
÷L Turn cursor off÷e÷#÷j÷j÷G23;11,0;0;0;
0÷e÷#÷t÷]÷3÷e÷#&1÷I—210,10);—j135;—e141;
—e157;—e129;"REVERSE  ";—e156÷e÷#0.÷I—21
0);—e135;—e141;—e157;—e129;"REVERSE  ";—
e156÷e÷#5÷p÷I—212,14)"SMILE 1608"÷e÷#:÷b
÷TUE(1)÷e÷#D%÷I—27,20);—e134;"Do you wan
t sound?"÷e÷#N÷c*FX15,0÷e÷#X'G=—M:÷M ÷U 
G=78 —, G=110 —, G=89 —, G=121÷e÷#b÷y|c 
                                        
                                        
   P705 CEEFAX 705  Tue 18 Sip  23:41/31
|B2208208|a17REVERSE|i24BBBC316k|m8FFFF1
2E4÷? G=89 —, G=121 ÷= —5t@G÷e÷#l÷d*FX21
0,1÷e÷#v÷a÷=—5tJG÷e÷#—(÷d*FX210,0÷u÷#—2
i÷I—22,20);—1(39)÷e÷#—<4÷I—22,20);—e130;
"Have you played this game before?"÷e÷#—
F÷c*FX15,0÷e÷#—P'÷M:G=—M:÷U G=78 —, G=11
0 —, G=89 —, G=121÷e÷#—Z÷]÷9÷e÷#—d$÷L"—)
*—**—)*—**—)*—**—)*—**—)*—**—)*—**—)*—**
—)*÷e÷#—n÷d÷5÷Jbordet÷e÷#÷(%÷I—25,17);—j
145;—e183;—l24,—e163);—e235 ÷e÷#÷2*÷I—25
,18);—e145;—e181;—e135;—1(22);—j145;—e23
4÷i÷#÷<*÷I—25,19);—e145;—i181;—j135;—1(2
2);—e145;—e434÷e÷#÷F*÷I—25,20);—r845 —j8
81;—e135;—1(22);—e145;—e434÷e÷#÷P$÷I—25,
21);—e145;—e245;—l24,—e240);—e250÷e÷|—÷Z
÷]÷9÷e÷|—÷d÷n÷L"—)*****     *****÷e÷|—÷n
÷n÷L"—)**   —/END   —)**÷e÷|— ÷n÷L"—)***
**     *****÷e÷k—0$÷L"—)*—**—)*—**—)*—**
—)*—**—)*—**—)*—**—)*—**—)*÷e÷W|c