From b20c2c13f229704f5b4b9a43d8323f24e18977f2 Mon Sep 17 00:00:00 2001 From: Gregory Nutt Date: Fri, 7 Nov 2014 15:03:03 -0600 Subject: BAS: Rename examples/bas to examples/bastest. Hook into build and configuration system. Finish ROMFS logic --- apps/examples/bastest/tests/test25.bas | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 apps/examples/bastest/tests/test25.bas (limited to 'apps/examples/bastest/tests/test25.bas') diff --git a/apps/examples/bastest/tests/test25.bas b/apps/examples/bastest/tests/test25.bas new file mode 100644 index 000000000..bf4d34c93 --- /dev/null +++ b/apps/examples/bastest/tests/test25.bas @@ -0,0 +1,14 @@ +10 dim a(3,3) +20 for i=1 to 3 : for j=1 to 3 : read a(i,j) : next : next +30 mat print a +40 mat a=(3)*a +45 print +50 mat print a +60 data 1,2,3,4,5,6,7,8,9 +80 dim inch_array(5,1),cm_array(5,1) +90 mat read inch_array +100 data 1,12,36,100,39.37 +110 mat print inch_array +120 mat cm_array=(2.54)*inch_array +130 mat print cm_array + -- cgit v1.2.3