END PROGRAM 57

10 PRINT "PROGRAM FILE 58: ARRAY ASSIGNMENT WITH OPTION BASE 1." 20 PRINT " ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4" 30 PRINT

45 GOTO 60

50 OPTION BASE 1

60 PRINT

100 PRINT "SECTION 58.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE"

330 PRINT "SECTION 58.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE "

650 PRINT "SECTION 58.3: ONE-DIMENSIONAL ARRAYS WITH THE"

960 PRINT "SECTION 58.4: TWO-DIMENSIONAL ARRAYS WITH THE"

1000 DIM N(20,2), P(2,20), R(20,20) 1010 FOR I=1 TO 20

1020 LET I1=I+1

1030 LET N(I,1)=I1

1040 LET N(I,2)=-I

1050 FOR J=2 TO 1 STEP -1

1060 LET J1=I*J

1070 LET P(J,I)=J1

1080 NEXT J

1090 NEXT I

1100 FOR K=1 TO 20

1110 FOR L=1 TO 20

1120 LET K1=K+L 1130 LET R(K,L)=K1

1140 NEXT L

1150 NEXT K

1160 LET N1=0

1170 LET P1=0

1180 LET R1=0

1190 LET C=0

1200 LET T=0

1210 FOR I=1 TO 20

1220 LET I1=I+1

1230 LET T8=N(I, 1)

1240 LET T9=N(I,2)

1250 IF T8 <> I1 THEN 1510

1260 IF T9 <>-I THEN 1510

1270 FOR J=1 TO 2

1280 LET F1=N(I, J)

1290 LET N1=N1+F1 1300 LET G1=P(J,I) 1310 LET P1=P1+G1

1320 LET J1=I*J

1330 IF G1 <> J1 THEN 1350

1340 LET C=C+1

1350 NEXT J

1360 NEXT I

1550 PRINT "

1560 PRINT

1570 PRINT

1580 PRINT "END PROGRAM 58" 1590 END

END TEST."

PROGRAM FILE 58: ARRAY ASSIGNMENT WITH OPTION BASE 1. ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4

**

**

10 PRINT "PROGRAM FILE 59: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'." 20 PRINT " ANSI STANDARD 6.2, 6.4"

30 PRINT

40 PRINT "SECTION 59.1: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'."

160 PRINT "LOST CORRECT VALUE IN ARRAY ELEMENT #";I

PROGRAM FILE 59: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'.
ANSI STANDARD 6.2, 6.4

SECTION 59.1: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'.