1 REM Ins{nt av 2314
10 ; CHR$(12)
20 ; CHR$(12)"MARISOPERATIONER"
30 ; 
40 DIM A(30,30),B(30,30)
50 ; "1=ADDITION"
60 ; "2=SUBTRAKTION"
70 ; "3=SKAL[R MULT."
80 ; : ; " DITT VAL";
90 INPUT D
100 IF D<>3 THEN 130
110 ; "V[RDET AV SKAL[REN [R";
120 INPUT S
130 ; "HUR STOR MATRIS(RADER,KOLUMNER)";
140 INPUT R,C
150 FOR K%=1 TO 2
160 IF K=2 THEN 190
170 ; "MATRIS 1"
180 GOTO 200
190 ; "MATRIS 2"
200 FOR J%=1 TO R
210 ; "RAD";J%
220 FOR I%=1 TO C
230 ; "VARIABEL";I%;
240 IF K%=2 THEN 270
250 INPUT A(J%,I%)
260 GOTO 280
270 INPUT B(J%,I%)
280 NEXT I%
290 NEXT J%
300 IF D=3 THEN 320
310 NEXT K%
320 FOR J%=1 TO R
330 FOR I%=1 TO C
340 IF D<>2 THEN 360
350 B(J%,I%)=-B(J%,I%)
360 IF D=3 THEN 390
370 ; A(J%,I%)+B(J%,I%);"  ";
380 GOTO 400
390 ; A(J%,I%)*S;"  ";
400 NEXT I%
410 ; 
420 NEXT J%
430 ; 
440 ; : ; "EN TILL? (J/N):"; : GET B$
450 IF B$="n" OR B$="N" THEN 460 ELSE ; CHR$(12) : GOTO 10
460 END