diff --git a/py65/conds.c02 b/py65/conds.c02 deleted file mode 100644 index 2453a9a..0000000 --- a/py65/conds.c02 +++ /dev/null @@ -1,57 +0,0 @@ -/**************************************** - * CONDS - Test Conditional Expressions * - ****************************************/ - -#include -#include -#include - -char passed = " Passed. "; -char failed = " Failed. "; - -main: - puts("1==1 "); if (1==1) puts(&passed); else puts(&failed); - puts("1==2 "); if (1==2) puts(&failed); else puts(&passed); - puts("1+1=2"); if (1+1 == 2) puts(&passed); else puts(&failed); - puts("1<>2 "); if (1<>2) puts(&passed); else puts(&failed); - puts("1<>1 "); if (1<>1) putln(&failed); else putln(&passed); - - puts("1<2 "); if (1<2) puts(&passed); else puts(&failed); - puts("2<1 "); if (2<1) puts(&failed); else puts(&passed); - puts("1<1 "); if (1<1) putln(&failed); else putln(&passed); - - puts("1<=2 "); if (1<=2) puts(&passed); else puts(&failed); - puts("2<=1 "); if (2<=1) puts(&failed); else puts(&passed); - puts("1<=1 "); if (1<=1) putln(&passed); else putln(&failed); - - puts("2>1 "); if (2>1) puts(&passed); else puts(&failed); - puts("1>2 "); if (1>2) puts(&failed); else puts(&passed); - puts("1>1 "); if (1>1) putln(&failed); else putln(&passed); - - puts("2>=1 "); if (2>=1) puts(&passed); else puts(&failed); - puts("1>=2 "); if (1>=2) puts(&failed); else puts(&passed); - puts("1>=1 "); if (1>=1) putln(&passed); else putln(&failed); - - puts("$FF "); if ($FF) puts(&passed); else puts(&failed); - puts("$00 "); if ($00) puts(&failed); else puts(&passed); - puts("1|0 "); if (1|0) puts(&passed); else puts(&failed); - puts("1&0 "); if (1&0) puts(&failed); else puts(&passed); - puts("1^1 "); if (1^1) putln(&failed); else putln(&passed); - - puts("!$FF "); if (!$FF) puts(&failed); else puts(&passed); - puts("!$00 "); if (!$00) puts(&passed); else puts(&failed); - puts("!1|0 "); if (!1|0) puts(&failed); else puts(&passed); - puts("!1&0 "); if (!1&0) puts(&passed); else puts(&failed); - puts("!1^1 "); if (!1^1) putln(&passed); else putln(&failed); - - puts("$FF:+"); if ($FF:+) puts(&failed); else puts(&passed); - puts("$FF:-"); if ($FF:-) puts(&passed); else puts(&failed); - puts("$00:+"); if ($00:+) puts(&passed); else puts(&failed); - puts("$00:-"); if ($00:-) puts(&failed); else puts(&passed); - puts("!0:+ "); if (!0:+) putln(&failed); else putln(&passed); - - puts("atoc(\"0\")"); if (atoc("0")) puts(&failed); else puts(&passed); - puts("atoc(\"1\")"); if (atoc("1")) puts(&passed); else puts(&failed); - puts("atoc(\"128\"):-"); if (atoc("128"):-) putln(&passed); else putln(&failed); - - goto exit; diff --git a/py65/forforpf.c02 b/py65/forforpf.c02 deleted file mode 100644 index ed1a4ad..0000000 --- a/py65/forforpf.c02 +++ /dev/null @@ -1,21 +0,0 @@ -/****************************************** - * FORFORPF - Test Nested FOR with PRINTF * - ******************************************/ - -#include -#include -#include -#include - -char i,j,result; -main: - for (i=0;i<5;i++) - { - for (j=0;j<5;j++) - { - result=div(mult(mult(i,5)+j,3),5)+32; //(i*5+j)*3/5+32; - printf(result,"%d"); - newlin(); - } - } -goto exit;