Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Create-an-HTML-table/BBC-BASIC/create-an-html-table.basic
+++ b/Task/Create-an-HTML-table/BBC-BASIC/create-an-html-table.basic
@ -0,0 +1,30 @@
+      ncols% = 3
+      nrows% = 4
+
+      *spool temp.htm
+
+      PRINT "<html><head></head><body>"
+      PRINT "<table border=1 cellpadding=10 cellspacing=0>"
+
+      FOR row% = 0 TO nrows%
+        IF row% = 0 THEN
+          PRINT "<tr><th></th>" ;
+        ELSE
+          PRINT "<tr><th>" ; row% "</th>" ;
+        ENDIF
+        FOR col% = 1 TO ncols%
+          IF row% = 0 THEN
+            PRINT "<th>" CHR$(87 + col%) "</th>" ;
+          ELSE
+            PRINT "<td align=""right"">" ; RND(9999) "</td>" ;
+          ENDIF
+        NEXT col%
+        PRINT "</tr>"
+      NEXT row%
+
+      PRINT "</table>"
+      PRINT "</body></html>"
+
+      *spool
+
+      SYS "ShellExecute", @hwnd%, 0, "temp.htm", 0, 0, 1