0REM CEEFAX 30 JUN 82
 1MO.1:V.5:REP.READC,X,Y
 2IFC<88TH.PL.C,X,Y:G.7
 3IFC<120TH.PROCA(C-100):G.7
 4IFC<140TH.PROCB(C-120):G.7
 5IFC<160TH.PROCC(C-140):G.7
 6IFC=160TH.V.19,X,Y,0,0,0
 7U.C>255:REP.U.FA.
 8DEFPROCA(V):READT$:MOVEX,Y:GC.0,V:P.T$:E.
 9DEFPROCB(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.
10DEFPROCC(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*SINI:N.:E.
20D.101,300,1000,CEEFAX nnn,102,700,1000,BBC Telesoftware
22D.4,150,600,1,1000,0,4,100,700,5,250,600,5,100,500
24D.121,200,650,200,100
26D.141,600,600,100,100,121,800,650,250,100
28D.123,1150,650,50,150
30D.103,0,740,Sand,103,0,620,Water,103,0,500,Chemical ,103,100,450,X
32D.102,220,620,Mix,102,820,620,Distil
34D.102,420,450,Reaction Vessel
36D.102,430,400,with catalyst
38D.102,1030,450,Crystals,123,190,210,860,50,101,200,200,MAKING BEEBONIUM CEEFONATE,256,0,0