10 PRINT CHR$(12)
20 \=0
30 REM ******************************
40 REM 
50 REM MATEMATIK P] L]GSTADIET
60 REM 
70 REM STEN BURHAMMAR 1979 -N]GONG]NG
80 REM 
90 REM *******************************
100 REM 
110 IF \>99 THEN 1540
120 RANDOMIZE 
130 ; 
140 ; 'VILL DU R[KNA'
150 ; 
160 ; 'ADDITION        +  SKRIV  +'
170 ; 
180 ; 'SUBTRAKTION     -  SKRIV  -'
190 ; 
200 ; 'DIVISION        :  SKRIV  :'
210 ; 
220 ; 'MULTIPLIKATION  X  SKRIV  X'
230 ; 
240 GET A$
250 IF A$="X" GOTO 870
260 IF A$="+" GOTO 300
270 IF A$="-" GOTO 500
280 IF A$=":" GOTO 1370
290 GOTO 50
300 REM 
310 REM 
320 REM ******************************
330 REM 
340 REM ADDITION
350 REM 
360 REM ******************************
370 REM 
380 GOSUB 390
390 LET A=INT(RND*111)
400 IF A<1 THEN 390
410 IF A>110 THEN 390
420 LET B=INT(RND*121)
430 IF B<3 THEN 410
440 IF B>97 THEN 410
450 PRINT A"+"B
460 LET X=A+B
470 GOSUB 1120
480 GOTO 300
490 REM 
500 REM 
510 REM 
520 REM *******************************
530 REM 
540 REM SUBTRAKTION
550 REM 
560 REM *******************************
570 REM 
580 LET A=INT(RND*101)
590 IF A<5 THEN 580
600 IF A>99 THEN 580
610 LET B=INT(RND*107)
620 IF B<1 THEN 600
630 IF B>98 THEN 600
640 IF B>A THEN 600
650 PRINT A'-'B
660 LET X=A-B
670 GOSUB 1120
680 GOTO 500
690 REM 
700 REM *******************************
710 REM 
720 REM DIVISION
730 REM 
740 REM *******************************
750 LET A=INT(RND*131)+2
760 IF A<3 THEN 750
770 IF A>111 THEN 750
780 LET B=INT(RND*97)-2
790 IF B<1 THEN 770
800 IF B>99 THEN 770
810 IF B>A THEN 770
820 PRINT A':'B
830 LET X=A/B
840 GOSUB 1120
850 GOTO 690
860 REM 
870 REM ****************************
880 REM 
890 REM MULTIPLIKATION
900 REM 
910 REM ****************************
920 REM 
930 RANDOMIZE 
940 LET A=INT(RND*11)
950 IF A<2 THEN 940
960 IF A>9 THEN 940
970 LET B=INT(RND*11)
980 IF B<2 THEN 970
990 IF B>9 THEN 970
1000 IF B=5 THEN 970
1010 PRINT A"X"B
1020 LET X=A*B
1030 GOSUB 1120
1040 GOTO 930
1050 REM 
1060 REM ****************************
1070 REM 
1080 REM SVARSRUTIN
1090 REM 
1100 REM ****************************
1110 REM 
1120 K=0
1130 PRINT "MITT SVAR [R"
1140 K=K+1
1150 ONERRORGOTO 1360
1160 PRINT 
1170 ; '=';
1180 INPUT C
1190 IF C=X THEN 1230
1200 PRINT "SVARET [R FEL"
1210 PRINT 
1220 GOTO 1130
1230 PRINT 
1240 PRINT "SVARET [R R[TT"
1250 PRINT "DU KLARADE DET P]";K;" F\RS\K"
1260 \=\+1
1270 ; CUR(0,20)"ANTAL SVAR"\
1280 Z=2000
1290 Z=Z-1
1300 IF Z>11 THEN 1290
1310 PRINT CHR$(12)
1320 IF \>99 THEN 1540
1330 RETURN 
1340 PRINT CHR$(12)
1350 REM *******************************
1360 GOTO 50
1370 REM 
1380 REM ******************************
1390 REM 
1400 REM 
1410 REM DIVISION
1420 REM ******************************
1430 REM 
1440 LET A=INT(RND*14)-2
1450 IF A>10 THEN 1440
1460 IF A<2 THEN 1440
1470 LET B=INT(RND*13)-2
1480 IF B<1 THEN 1470
1490 LET C=A*B
1500 ; C':'A
1510 LET X=B
1520 GOSUB 1120
1530 GOTO 1370
1540 ; CHR$(12)
1550 ; CHR$(7)
1560 ]=]+1
1570 IF ]>200 THEN 1590
1580 GOTO 1550
1590 ; "*****************************"
1600 ; "***                       ***"
1610 ; "***     AVL\NINGSDAX      ***"
1620 ; "***                       ***"
1630 ; "*****************************"
1640 ; : ; : ; : ; 
1650 ; "JAG V[NTAR MEDAN DU G]R OCH H[MTAR      2 KRONOR HOS PAPPA ELLER MAMMA"
1660 ; : ; : ; 
1670 ; 'N[R DU [R KLAR SKRIV "K"'
1680 INPUT K$
1690 GOTO 10