P704 CEEFAX 704  Wed 29 Dec  13:12/21
|S|H Brain Storm Program              |A
  5 REM Freakout |L                     
 10 Z=-5:MODE2:X=0:Y=0:X1=1280:Y1=1000|L
 20 N=40 |L                             
 30 FOR I=1 TO 150 |L                   
 40 GCOL 0,128+(I MOD 8):CLG:VDU 24,X;Y;
     X2;Y1; |L                          
 50 X=X+N:Y=Y+N:X1=X1-N:Y1=Y1-N:Y1=Y1-Z:
     Y=YWZ:N=N*0.937 |L                 
 60 NEXT I |L                           
 70 FOR I=1 TO 63 |L                    
 80 FOR J=0 TO 7 |L                     
 90 VDU 19,J,(I+J) MOD 8,0,0,0 |L       
100 NEXT J |L                           
110 SOUND 1,-15,I*4,4:FOR J=1TO50:NEXT|L
120 NEXT I |L                           
130 VDU 26:SOUND 0,-15,4,70 |L          
140 FOR I=1 TO 200 |L                   
150 GCOL 0,RND(7) |L                    
1v0 DRAW RND(1280),RND(1000) |L         
170 NEXT I |L                           
180 REPEAT UNTIL FALSE |L|F             
                                        
                                        
                                        
   P704 CEEFAX 704  Wed 29 Dec  13:12/43
|S|H                                  |A
1MO.1:V.5:REP.READC,X,Y|L2IFC<88TH.PL.C,
X,Y:G.7|L3IFC<120TH.PROCA(C-100):G.7|L4I
FC<140TH.PROCB(C-120):G.7|L5IFC<160TH.PR
OCC(C-140):G.7|L6IFC=160TH.V.19,X,Y,0,0,
0|L7U.C>255:REP.U.FA.|L8DEFPROCA(V):READ
T$:MOVEX,Y:GC.0,V:P.T$:E.|L9DEFPROCB(V):
READA,B:GC.0,V:PL.4,X,Y:PL.1,0,-B:PL.81,
A,0:PL.1,0,B:PL.81,-A,0:E.|L10DEFPROCC(V
*:READA,B:GC.0,V:PL.4,X+A,Y:F.I=0TO6.4S.
0.2:PL.5,X,Y:PL.81,A*COSI,B*SINE:N.:E.|L
20D.101,300,1000,CEEFAX nnn,102,700,1000
,BBC Tjlesoftware|L22D.102,190,800,BBC,1
02,100,750,COMPUTER,102,100,700,LITERACY
,102,115,650,PROJECT,103,100,500,PO Box 
7,103,120,450,LONDON,103,140,400,W3 6XJ|
L24D.123,700,800,400,200,122,730,100,340
,u0,4,1100,100,5,1100,700,85,1050,600,5,
1100,100,85,750,600|L26D.4,700,680,5,105
0,180,85,700,5u0,85,1000,180,141,810,720
,40,v0,141,9y0,720,40,v0,122,810,720,8,1
4,122,990,720,8,14,4,900,670,5,870,640,8
5,930,640,256,0,0|L|F