seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-25 17:34:06 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
MPM OPERATING SYSTEMS/MPM-86/MISC DRI DISKS/05/LFUNC1.C Normal file
View File

@@ -0,0 +1,58 @@
#include <logo.h>
/*****************************************************************/
/* */
/* LOGO Primitive Functions-1 */
/* */
/*****************************************************************/
double tan();
double sin();
double cos();
double sqrt();
double atan();
double exp();
double log();
double log10();
double fabs();
lnum rnval();
lnum nval();
sub_f ();
add_f ();
div_f ();
lss_f ();
gtr_f ();
mul_f ();
pow_f ();
nextcom()
{
editon = FALSE; /* not in editor */
defining = FALSE; /* not in TO */
getcom('?');
if (acceq("to"))
makdef();
else
{
if (!(initial || inpath == CONSOLE))
{
if (!((acceq("make")) ||
(acceq("package")) ||
(acceq("pprop"))))
putcom();
}
if (acceq("bye"))
{
full_scr();
exit(0);
}
else
if (acceq("collect"))
debcoll = !debcoll;
else
{
interp();
}
}
}