Making Program Code Space your playground...

[Acetronics2]

Bonsoir Roger,

Have a look to those nice Subroutines ...

as you see they are placed at the end of the Basic File ...

END ' This is the Program END


'*****************************************************************************
'*****************************************************************************
'Tables de linéarisation
'*****************************************************************************
'*****************************************************************************


'*****************************************************************************
Linearisation2:'Linearisation complète Courbe A(15A)> Linéaire B(1B)
'*****************************************************************************

LOOKUP Lecture, [  0,  0,  0,  0,  0,  0,  4, 16, 16, 16,   18, 21, 25, 25, 26, 26, 26, 27, 27, 27,   28, 28, 28, 29, 29, 30, 30, 30, 31, 31,   31, 32, 32, 32, 33, 33, 33, 34, 34, 34,   35, 35, 35, 36, 36, 37, 37, 37, 38, 38,_
				  38, 39, 39, 39, 40, 40, 40, 41, 41, 41,   42, 42, 42, 43, 43, 43, 44, 44, 45, 45,   45, 46, 46, 46, 47, 47, 47, 48, 48, 48,   49, 49, 49, 50, 50, 50, 51, 51, 52, 52,   52, 53, 53, 53, 54, 54, 54, 55, 55, 55,_
				  56, 56, 56, 57, 57, 57, 58, 58, 59, 59,   59, 60, 60, 60, 61, 61, 61, 62, 62, 62,   63, 63, 63, 64, 64, 64, 65, 65, 65, 66,   66, 67, 67, 67, 68, 68, 68, 69, 69, 69,   70, 70, 70, 71, 71, 71, 72, 72, 72, 73,_
				  73, 74, 74, 74, 75, 75, 75, 76, 76, 76,   77, 77, 78, 78, 79, 80, 80, 81, 82, 83,   83, 84, 85, 85, 86, 87, 87, 88, 89, 89,   90, 91, 92, 92, 93, 94, 94, 95, 96, 96,   97, 98, 99, 99,100,101,101,102,104,106,_
				 108,110,112,114,116,118,120,122,124,126,  128,130,132,134,136,138,140,142,144,146,  148,150,152,155,157,159,161,163,165,167,  169,171,173,175,177,179,181,183,185,187,  189,191,193,195,197,199,201,205,208,214,_
				 220,230,240,250,255,255], Result
				 
RETURN

END

'*****************************************************************************
Linearisation1:'Linéarisation exp simple à 26 points
'*****************************************************************************

LOOKUP Lecture, [  1,  1,  1,  1,  1,  2,  2,  2,  2,  3,    3,  3,  3,  4,  4,  4,  5,  5,  5,  6,    6,  7,  8,  9, 10, 11, 12, 12], Result
				  								  
RETURN

END

'*****************************************************************************
'****************************************************

PbP will AUTOMATICALLY place them in the free memory space ... with some blanks lines before !!!

just use a "Gosub Linearisation2 " in your program and PbP will do all the Work !!!

Yes ..., you can cry ...

Alain