38 lines
958 B
Plaintext
38 lines
958 B
Plaintext
100 CLS : rem 100 HOME for Applesoft BASIC
|
|
110 DIM v1(2)
|
|
120 v1(1) = 5 : v1(2) = 7
|
|
130 DIM v2(2)
|
|
140 v2(1) = 2 : v2(2) = 3
|
|
150 DIM v3(2)
|
|
160 FOR n = 1 TO 2
|
|
170 v3(n) = v1(n)+v2(n)
|
|
180 NEXT n
|
|
190 PRINT "[";v1(1);", ";v1(2);"] + [";v2(1);", ";v2(2);"] = ";
|
|
200 GOSUB 370 : rem showarray(vect3)
|
|
210 FOR n = 1 TO 2
|
|
220 v3(n) = v1(n)-v2(n)
|
|
230 NEXT n
|
|
240 PRINT "[";v1(1);", ";v1(2);"] - [";v2(1);", ";v2(2);"] = ";
|
|
250 GOSUB 370 : rem showarray(vect3)
|
|
260 FOR n = 1 TO 2
|
|
270 v3(n) = v1(n)*11
|
|
280 NEXT n
|
|
290 PRINT "[";v1(1);", ";v1(2);"] * ";11;" = ";
|
|
300 GOSUB 370 : rem showarray(vect3)
|
|
310 FOR n = 1 TO 2
|
|
320 v3(n) = v1(n)/2
|
|
330 NEXT n
|
|
340 PRINT "[";v1(1);", ";v1(2);"] / ";2;" = ";
|
|
350 GOSUB 370 : rem showarray(vect3)
|
|
360 END
|
|
370 rem SUB showarray(vect3)
|
|
380 PRINT "[";
|
|
390 svt$ = ""
|
|
400 FOR n = 1 TO 2
|
|
410 svt$ = svt$+STR$(v3(n))+", "
|
|
420 NEXT n
|
|
430 svt$ = LEFT$(svt$,LEN(svt$)-2)
|
|
440 PRINT svt$;
|
|
450 PRINT "]"
|
|
460 RETURN
|