test_float_array_index.bas

10 REM Test floating point array indices (like Star Trek torpedo course 7.2)
11 REM Some basics round floating point subscripts. We truncate
20 DIM A(10)
30 A(7.2) = 42
40 A(3.9) = 99
50 A(1.0) = 11
60 IF A(7) <> 42 THEN PRINT "FAIL: A(7) should be 42": STOP
70 IF A(3) <> 99 THEN PRINT "FAIL: A(3) should be 99": STOP
80 IF A(1) <> 11 THEN PRINT "FAIL: A(1) should be 11": STOP
90 PRINT "PASS: Float array indices work correctly"
100 END