bwBASIC/G65/REDIM4.BAS

  100 REM Purpose: Verify a matrix can be re-dimensioned using MAT READ ...
  110 REM  Author: Howard Wulf,AF5NE
  120 REM    Date: 2015-12-09
  130 REM
  200 OPTION BASE 1
  210 DIM A(100),B(10,10),C(2,50),D(25,2,2)
  220 RESTORE
 1000 PRINT "----------------------------------------"
 1010 PRINT "MAT READ varname( ubound [,...] ) ,1 dimension"
 1020 MAT READ A(1)
 1025 DATA 1
 1030 MAT READ B(2)
 1035 DATA 1,2
 1040 MAT READ C(3)
 1045 DATA 1,2,3
 1050 MAT READ D(4)
 1055 DATA 1,2,3,4
 1060 MAT PRINT A;B;C;D;
 1100 PRINT "----------------------------------------"
 1110 PRINT "MAT READ varname( ubound [,...] ) ,2 dimensions"
 1120 MAT READ A(1,1)
 1125 DATA 11
 1130 MAT READ B(2,2)
 1135 DATA 11,12,21,22
 1140 MAT READ C(3,3)
 1145 DATA 11,12,13,21,22,23,31,32,33
 1150 MAT READ D(4,4)
 1155 DATA 11,12,13,14,21,22,23,24,31,32,33,34,41,42,43,44
 1160 MAT PRINT A;B;C;D;
 1200 PRINT "----------------------------------------"
 1210 PRINT "MAT READ varname( ubound [,...] ),3 dimensions"
 1220 MAT READ A(1,1,1)
 1225 DATA 111
 1230 MAT READ B(2,2,2)
 1235 DATA 111,112,121,122
 1236 DATA 211,212,221,222
 1240 MAT READ C(3,3,3)
 1245 DATA 111,112,113,121,122,123,131,132,133
 1246 DATA 211,212,213,221,222,223,231,232,233
 1247 DATA 311,312,313,321,322,323,331,332,333
 1250 MAT READ D(4,4,4)
 5000 DATA 1111,1112,1113,1114
 5010 DATA 1121,1122,1123,1124
 5020 DATA 1131,1132,1133,1134
 5030 DATA 1141,1142,1143,1144
 5040 DATA 1211,1212,1213,1214
 5050 DATA 1221,1222,1223,1224
 5060 DATA 1231,1232,1233,1234
 5070 DATA 1241,1242,1243,1244
 5080 DATA 1311,1312,1313,1314
 5090 DATA 1321,1322,1323,1324
 5100 DATA 1331,1332,1333,1334
 5110 DATA 1341,1342,1343,1344
 5120 DATA 1411,1412,1413,1414
 5130 DATA 1421,1422,1423,1424
 5140 DATA 1431,1432,1433,1434
 5150 DATA 1441,1442,1443,1444
 5160 DATA 2111,2112,2113,2114
 5170 DATA 2121,2122,2123,2124
 5180 DATA 2131,2132,2133,2134
 5190 DATA 2141,2142,2143,2144
 5200 DATA 2211,2212,2213,2214
 5210 DATA 2221,2222,2223,2224
 5220 DATA 2231,2232,2233,2234
 5230 DATA 2241,2242,2243,2244
 5240 DATA 2311,2312,2313,2314
 5250 DATA 2321,2322,2323,2324
 5260 DATA 2331,2332,2333,2334
 5270 DATA 2341,2342,2343,2344
 5280 DATA 2411,2412,2413,2414
 5290 DATA 2421,2422,2423,2424
 5300 DATA 2431,2432,2433,2434
 5310 DATA 2441,2442,2443,2444
 5320 DATA 3111,3112,3113,3114
 5330 DATA 3121,3122,3123,3124
 5340 DATA 3131,3132,3133,3134
 5350 DATA 3141,3142,3143,3144
 5360 DATA 3211,3212,3213,3214
 5370 DATA 3221,3222,3223,3224
 5380 DATA 3231,3232,3233,3234
 5390 DATA 3241,3242,3243,3244
 5400 DATA 3311,3312,3313,3314
 5410 DATA 3321,3322,3323,3324
 5420 DATA 3331,3332,3333,3334
 5430 DATA 3341,3342,3343,3344
 5440 DATA 3411,3412,3413,3414
 5450 DATA 3421,3422,3423,3424
 5460 DATA 3431,3432,3433,3434
 5470 DATA 3441,3442,3443,3444
 5480 DATA 4111,4112,4113,4114
 5490 DATA 4121,4122,4123,4124
 5500 DATA 4131,4132,4133,4134
 5510 DATA 4141,4142,4143,4144
 5520 DATA 4211,4212,4213,4214
 5530 DATA 4221,4222,4223,4224
 5540 DATA 4231,4232,4233,4234
 5550 DATA 4241,4242,4243,4244
 5560 DATA 4311,4312,4313,4314
 5570 DATA 4321,4322,4323,4324
 5580 DATA 4331,4332,4333,4334
 5590 DATA 4341,4342,4343,4344
 5600 DATA 4411,4412,4413,4414
 5610 DATA 4421,4422,4423,4424
 5620 DATA 4431,4432,4433,4434
 5630 DATA 4441,4442,4443,4444
 6000 MAT PRINT A;B;C;D;
 9999 END