Initial data commit

Task/Multiplication-tables/Tiny-BASIC/multiplication-tables.basic

@@ -0,0 +1,39 @@
+10 REM MULTIPLICATION TABLES
+20 LET N=12
+30 REM TO ALIGN NUMBERS TO THE RIGHT
+40 REM ASSUME THAT N IS AT MOST TWO-DIGIT.
+50 LET J=1
+60 PRINT " ";
+70 IF J<10 THEN PRINT " ";
+80 PRINT J;" ";
+90 LET J=J+1
+100 IF J=N THEN GOTO 120
+110 GOTO 60
+120 PRINT " ";
+130 IF N<10 THEN PRINT " ";
+140 PRINT N
+150 LET J=0
+160 PRINT "----";
+170 J=J+1
+180 IF J=N THEN GOTO 200
+190 GOTO 160
+200 PRINT "+"
+210 LET I=1
+220 LET J=1
+230 IF J<I THEN GOTO 290
+240 LET P=I*J
+250 IF P<100 THEN PRINT " ";
+260 IF P<10 THEN PRINT " ";
+270 PRINT P;" ";
+280 GOTO 300
+290 PRINT "    ";
+300 IF J=N THEN GOTO 330
+310 LET J=J+1
+320 GOTO 230
+330 PRINT "! ";
+340 IF I<10 THEN PRINT " ";
+350 PRINT I
+360 IF I=N THEN GOTO 390
+370 LET I=I+1
+380 GOTO 220
+390 END