C : **********************************************************************
C : **********************************************************************
C :     THIS FIRST PART OF THE PROGRAM CREATES A SERIES OF SPLINES
C :            BY READING A TEXT FILES OF COORDINATES
C : **********************************************************************
C : ***********  PROGRAM FILE DEVELOPPED BY :                        *****
c : ************** MOHAMED BEY                                       *****
C : ************** CENTRE DE DEVELOPPEMENT DES TECHNOLOGIES AVANCEES *****
C : ************** CDTA                                   ****************        
C : ************** ALGIERS - ALGERIA - MAY 2000           ****************
c : ************** MASTER SERIES 3                        ****************
C : **********************************************************************
C : **********************************************************************
C : **********************************************************************
c : *** the name of the files of coordinates must be :
c : ***** coordinates1.dat
c : ***** coordinates2.dat
c : ***** coordinates3.dat
c : ***** coordinates4.dat
C :
k : #echo none
c : #on_error pause
k : cl
c : 
k : #input "GIVE THE NUMBER OF FILES TO READ  :" numb_files
c :
k : #coor="MOHAMED BEY"
k : #var="ALGERIA"
k : #var1="ALGIERS"
c :
c :
k : #ff=1
c :
k : #loop_files:
c :
k : #var="coordinates"+ff+".dat"
k : #open fich1 var
c :
k : #var1="draw_spline_3d"+ff+".dat"
k : #open fich var1
c :
k : #write fich "k : $ return"
k : #write fich "k : /cr m3 sp key"
c :
c :
k : #loop:
k : #read fich1 coor
k : #if(z_error eq 0)then;,
k : #write fich "k : " coor;,
k :  #goto loop
c :
k : #write fich "k : DON" 
k : #write fich "k : OP"
k : #write fich "k : CP OF"
k : #write fich "k : TA OF"
k : #write fich "k : OKAY"
k : #write fich "k : N"
k : #write fich "k : DON" 
k : #write fich "k : AU" 
c :
k : #close fich1
c :
k : #close fich
c :
k : /f pr r fil var1 okay
c :
k : #ff=ff+1
c :
k : #if(ff le numb_files)then goto loop_files
c :
K : $ return
K : $ AU
k : redi
c :
k : #output "******* END OF THE PROGRAM ********"
c :
K : $ mpos :; /F PR E
E : **** END OF SESSION ****