P702 CEEFAX 702 Sun 22 Feb 20:30/00
30102040* PI 30102040*
22 Y=Y+12 : IF Y<0 THEN Y=0 ELSE IF
Y>71 THEN Y=71‖$23 TXPOINT X,Y‖424
NEXT J. ‖925 P.=4.-4.*K./(I.+L.)‖.26
P$=NUM$(P.) : FOR I1=LEN(P$)+1 TO 10 :
P$=P$+" " : NEXT I1 : L$=P$+L$‖+27 FO
R I1=1 TO 10‖x28 PRINT CUR(21,0) MID
$(L$,LEN(L$)-40,40)‖y29 L$=LEFT$(L$,
LEN(L$)-1)‖n30 FOR I2=1 TO 150 : NEX
T I2 ‖‖31 NEXT I1 ‖932 P1=INT(100.*(
P.-3.14159)+.5)‖333 IF P1=0 THEN C=-1
ELSE C=1‖f34 X1=I./L.+13 : Y1=42+P1‖+3
5 IF P1<25 AND P1>-25 THEN IF NOT TXPO
INT(X1,Y1) THEN TXPOINT X1,Y1,C‖e36 NEXT
I. ‖¼37 PRINT CUR(22,0) YEL "End of pro
gram - press spacebar"‖;38 IF SYS(5) THE
N GET A$ ELSE GOTO 38‖<39 IF A$<>" " THE
N GOTO 38‖-40 GOTO 65531‖¾‖