P706 CEEFAX 706  Tue  4 Sip  23:31/18
|B2201206|a16CIRCLE|i44BBBC316k|m FFFF00
00÷e÷X÷Y÷j÷?—8>&1900÷JRELOC÷e÷Xb£L"p.*
***************************÷e÷Xl£÷L"—.*
*                        **÷e÷X÷v£÷L"—.*
*       —+CIRCLE—.         **÷e÷X(£L"p.
**                        **÷e÷X2£L"p.*
*   —-By Peter Smith     —.**÷e÷X £÷L"—.
**                        **÷e÷XF£÷L"—.*
*  —)Tel. 01-263 5668    —.**÷e÷XP£L"p.
**                        **÷j÷XZ£L"p.*
***************************÷eX|÷^÷C7÷j
X—*÷b÷Jintro÷e÷X—4"÷L"—.****************
***********÷e÷X—>"÷L"—.** —+Main Program
me Loop —.**÷e÷X—H"L"—.****************
***********÷e÷X—R÷^÷C1÷e÷X—\÷o÷G24,0;195
;850;1005;÷e÷X—f÷e÷Jchooseno÷e÷X—p÷i÷)=0
:÷M ÷U —9>100÷e÷X÷*÷c÷Jpoints÷e÷X÷4÷i÷Jj
umpsize÷e÷X÷>i÷M:G=—M:÷UG=32:÷Etd|twhn#0
:÷3:÷S3:÷I'"Press the space bar to hold 
the pattern"'"                       ###
#"÷e÷X÷H÷f÷Jtextwin#1÷i÷X÷R÷q÷I—20,22)"L
ines:      "÷e÷Y÷\÷l÷I'"Revgl4tign;:"÷j
Y÷f÷a÷Jjump÷e÷Y÷p÷g÷Janothjr#go÷e÷Y"|s  
                                        
                                        
   P706 CEEFAX 706  Tue  4 Sip  23:30/27
|B2202206|a16CIRCLE|i44BBBC316k|m8FFFF02
D5÷a÷=—5tj@÷e÷Y,÷]÷8÷e÷Y6 ÷L"—.*********
****************÷i÷Y@ ÷L"—.**    —-Ptocj
edures    —.**÷e÷YJ ÷L"—.***************
**********÷e÷YT÷d÷5÷Jpoints÷e÷Y^÷e—=360/
 NP÷e÷Yh÷h÷G29,440;600;÷e÷Yt÷s÷G23;11,0 
0;0;0:÷L CURSOR OFF÷e÷Y||÷|—÷D0,0÷e÷Y—.
k÷; T=0 —|— 359 —0 A÷e÷Y—8÷w÷H69,488*—]T
—Z(T)),4p0*—C(—Z(T))÷e÷Y—B÷#÷E T÷e÷Y—L÷]
÷9÷e÷Y—V÷g÷L"—*********÷e÷Y—|—÷b÷5÷Jjump
÷i÷Y—j÷j÷G 19,1,6,0,0,0÷e÷Y—t÷w÷G23;11,0
;0;0;0:÷L CURSOR OFF÷e÷Y÷.÷|—÷>0,1÷i÷Y÷8
÷h÷)=0:÷M ÷U —9=50÷e÷Y÷B÷nLines=1:Revs=0
:J=0÷e÷Y÷L÷h÷G29,440;600;÷e÷Y÷V÷bD0,400
÷e÷Z÷|—÷f÷Jtextwin#4÷e÷Z÷j÷c÷M:J=J+1÷j÷Z
÷t÷nX=—N(0):÷?X=-1 ÷=—5DbB÷e÷Z&÷c*FX15,0
÷e÷Z0÷i÷)=0:÷M ÷U —9 =50÷i÷Z:÷f÷Jtextwin
#0÷e÷ZD÷v÷3:÷I'"Prius 'R' to reutpzt"÷j
ZN'P=—N(0):÷? P=82 —,P=114 ÷=—5DXB —3 ÷=
 —5DNB÷i÷ZXS÷3::÷S3:÷I'"Pteus the space 
bar to hold the pattjtn"£"              
         ####"÷e÷Zb&H5,408*—]TpZ(J*S*A)
),400*—C(—Z(J*S*A))÷e÷Zl÷o   Revs=TJ|s  
                                        
                                        
   P706 CEEFAX 706  Tue  4 Sip  23:44/45
|B2203206|a16CIRCLE|i24BBBC316k|m8FFFF05
85*S*A)—)360÷e÷Zv÷i ÷Jtextwin#4:÷5÷u÷Zp(
÷h     ÷I;Lines÷e÷Z—4÷h     ÷I';Revs÷ ÷Z
—<÷iLinjs=Lines+1÷e÷Z—F÷h÷)=0:÷M ÷U —9=3
5÷e÷Z—P1÷U —X400*—](—Z((J+1)*S*A)),400*—
C(—Z((J+1)*S*A)))=1÷e÷Z—Z,J=J+1:H5,400*
—](—Z(J*S*A)),400*—C(—Z(J*S*A))÷j÷Z—d$÷I
;Lines:Revs=(J*S*A)—X360:÷I';Revs÷e÷Z—n
]÷9÷e÷Z÷(÷g÷L"—*********÷e÷Z÷2f÷5÷Jchoo
reno÷e÷Z÷<÷f÷Jtextwin#0÷e÷Z÷F÷c*FX15,0÷u
÷Z÷P&÷I'"How many points do you want? " 
÷e÷ ÷Z÷i÷Jget(4):NP=XX÷e÷[÷d&÷? NP<2 ÷I'
"2 or more please.":÷=—5dnB÷e÷[÷n)÷? NP>
180 ÷I'"180 or less plepsj":÷=—5dnb÷u÷[ 
÷#÷G26÷i÷[*÷]÷3÷i÷[4÷s÷I—425,3)"Point : 
   ";NP÷e÷ >÷w÷G23;11,0;0;0;0:L CURSOR 
OFF÷e÷[H÷]÷9÷e÷ R÷g÷L"—*********÷e÷[\÷c÷
5÷Jintro÷i÷[f!÷3:÷G23;11,0;0;0;0:L CURS
OR OFF÷e÷[p/÷I—212,4);—e135;—e141;—e157;
—e129;"CIRCLE  ";—e156÷e÷[z-÷I—412);—j13
5;—e141;—e157;—e129;"AIRCLE  ";—j856÷j÷[
—,÷p÷I—214,8)"SMILE 1702" ÷j÷[—6÷i÷)=0:
M ÷U —9>200÷i÷[—@(÷I—27,10)—e134;"an>s  
                                        
                                        
   P706 CEEFAX 706  Tue  4 Sip  23:40/23
|B2204206|a16CIRCLE|i24BBBC316k|m8FFFF08
40 investigation about"÷e÷[—J£÷I—2 )—r03
4;"patterns in a circle"÷e÷[—T÷i÷)=8:÷M 
÷U —9>300÷e÷[—^>÷I''"* you choose the nu
mber of points around   the cirale"÷u÷[—
h)÷I"* you decide the si:r of epch jzm8"
÷e÷[—u÷i÷)=0:÷M ÷U —8 400÷j÷[,C÷I£"* yg
u can interrupt the pattjtn bz"'"   pres
sing the space bar."÷e÷[÷6÷i÷)=0:÷M ÷U —
:>200÷i÷[÷@0÷I'''—47);—e131;"Prius zhe s
pace bar to start."÷e÷[÷J÷c*FX15,0÷u÷[T
÷g÷M:G=—M:÷UG=32÷e÷\÷^÷]÷9÷e÷\÷h÷g÷L"—**
*******÷e÷\÷r÷f÷5÷Jjumpsi:j÷e\$÷f÷Jte|z
win#0÷e÷\.÷c*FX15,0÷e÷\8$÷I'"Sh:e of jzm
p? ";:÷Jget(4):S=XX÷e÷\B-÷? S>=NP ÷I'';N
P-1;" or less please.":÷=—5T|D÷ \L)÷? S
<1 ÷I''"One or more please"  :÷=—5TxD÷e÷
\V8÷3:÷S4:÷I''" Prius the space bar to s
ie the pattern":÷S3÷e÷\|—÷f÷Jtextwin#1÷e
÷\j÷q÷I—21,5)"Jump size: ";S÷e\t÷i÷)=0:
÷M ÷U —9=100÷e÷\|÷÷]÷9÷e÷\—0÷g÷L"—******
***÷e÷\—:÷g÷5÷Jtextwin#1÷e÷\—D÷j÷G2 ,24,
25,39,0÷e÷\—N÷]÷9÷i÷\—X÷g÷L"—*******>s  
                                        
                                        
   P706 CEEFAX 706  Tue  4 Sip  23:49/42
|B2205206|a16CIRCLE|i24BBBC316k|m FFFF0B
0F**÷e÷\—b÷g÷5÷Jtextwin#0÷u\pl÷j÷c  ,0,
31,39,27÷e÷\—v÷]÷9÷j÷\÷0÷g÷L"—*********
e÷\÷:÷g÷5÷Jtextwin#4÷i÷\÷D÷o    ÷G28,36,
25,39,22÷e÷\÷N÷]÷9÷e÷]÷X÷g÷L"—*********÷
e÷]÷b÷h÷5÷Janothjr#ko÷e÷]l÷f÷Etd|t{hn#0
÷e÷]÷v÷]÷3÷e÷](÷w÷I''"Do you want angthe
r? ";÷e÷]2÷c*FX15,0÷e÷]< ÷M:G=—M:÷Uc 89—
,G=121—,G=78—,G=110÷e÷]F'÷? G=89p,G=121:
÷I"Yes":÷)=0:÷M ÷U —:=100:÷9÷j÷]P÷6÷S8:
J"No":÷)=0:÷M ÷U —9=250:÷2:÷8÷e÷]Z÷a÷=—5
T E÷e÷]d÷]÷9÷e÷]n÷g÷L"—*********÷e÷]|÷d
5÷Jget(n)÷e÷]—*÷aA$=""÷e÷]—4÷fNOS=1:XX=0
÷e÷]—>÷]÷M÷e÷]—H÷c*FX15,0÷i÷]—R?Z —M:÷? 
—T(Z=13 —, Z=127 —, (Z>47 —( Z<58) p, (Z
>32 —( Z<42)) ÷=—5tjE÷e÷]—\÷q÷?(Z>32 —( 
Z<42) Z=Z+16÷e÷]—f÷q÷? Z=13 —( A$="" ÷=p
5t|—E ÷i÷]—p÷v÷? A$=>"" —( Z=13 XX>—s(A$
):÷9÷e÷]÷*÷t÷? Z=127 —( —Q(A$)=0 ÷= —5u>
—E÷i÷]÷4@÷? Z=127 —( —Q(A$)<>0 —4 A$=—hA
$,—Q(A$)-1):÷I —i127;:NOS=NOS-1:÷=—5u|—E
÷e÷]÷>÷t÷?NOS=0 NOS=1:A$="":÷=—5u|—E÷j÷]
÷H"A$=A$+—k(Z-48):÷I;Z-48;:XX=—a(—$)>c  
                                        
                                        
   P706 CEEFAX 706  Tue  4 Sip  23:45/50
|B2206206|a16CIRCLE|i24BBBC316k|m FFFF0D
AB÷e÷]÷R÷eNOS=NOS+1÷e÷^\÷u÷U NOS n+1÷e
^÷f÷]÷9÷e}÷X÷c÷5÷JRELOC÷i}÷b÷s?&70=p8 —+
256:?&71=—8 —)256÷e}÷l÷u?&72=—|—P —+256:
?&73=—|—P —)256÷e}÷v÷k?&74=0:?&75=&19÷e|
(÷b÷6 W 26÷e}2÷j÷; Q%=0 —|p 3 —09 ÷r|^>
—P%=W÷e}F÷a[OPT0÷i}P||.START:INa &73:LDY
 £0:.LOOP:LDA (&70),Y:STA (&74),Y:INY:BN
E LOOP:INC &75:CLC:LDA &71:ADC £1:ST— &7
1:CMP &73:BCC LOOP:RTS÷e}Z÷#]:÷E÷e}d÷a*T
APE÷e}n÷c÷. START÷e}x÷s?&13=?&13-(p8-&19
00)—)256÷e}—*÷e÷(=&1900:÷Q÷i÷W|c