10 ! R[KNE\VN.800
11 ! EFTER R[KNE\VN.L]G (ABC80) - F\R ALLA ABC 800 80 tecken men l{tt
12 ! att {ndra f|r 40 tecken. B M}rtensson Word & Music har {ndrat
13 ! layout m.m. och tagit bort on|diga REM.
40 ! MATEMATIK P] L]GSTADIET
60 ! STEN BURHAMMAR 1979 -N]GONG]NG
70 FLOAT : NO EXTEND 
80 REM ============================================
90 REM 
91 ON ERROR GOTO 10 ! PF-TANGENT ]TERF\R
100 ; CHR$(12) : \=0
101 ; " R[KNE\VN.800 " TAB(80) ""
102 ; STRING$(80,61) ! [NDRA 80 TILL 40 P] 40 TECKEN
110 IF \>19 THEN 1540
120 RANDOMIZE 
130 ; 
140 ; 'Vilket vill du r{kna med?'
141 ; "(Skriv tecknet inom parentes.)"
150 ; 
160 ; 'ADDITION  (+)'
170 ; 
180 ; 'SUBTRAKTION  (-)'
190 ; 
200 ; 'DIVISION  (:)'
210 ; 
220 ; 'MULTIPLIKATION  (X)'
230 ; 
240 ; "? "; : GET A$
250 IF A$="X" GOTO 890
260 IF A$="+" GOTO 340
270 IF A$="-" GOTO 540
280 IF A$=":" GOTO 1400
290 GOTO 40
320 REM ********
340 REM ADDITION
360 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 340
490 REM 
520 REM ************
540 REM SUBTRAKTION
560 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 540
700 REM ***********
720 REM DIVISION
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 720
880 REM **************
890 REM MULTIPLIKATION
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
1060 REM *************
1080 REM SVARSRUTIN
1100 REM *************
1120 K=0
1130 PRINT "DITT SVAR = ";
1140 K=K+1
1150 ON ERROR GOTO 1360
1180 INPUT C;
1190 IF C=X THEN 1240
1200 PRINT ". Svaret {r felaktigt!"
1220 GOTO 1130
1240 PRINT ". R[TT SVAR."
1250 PRINT "Du klarade det p}" K "f|rs|k. ";
1260 \=\+1
1270 ; "Antal svar {r" \ "."
1280 Z=2000
1290 Z=Z-1
1300 IF Z>11 THEN 1290
1310 PRINT 
1320 IF \>19 THEN 1540
1330 RETURN 
1340 PRINT CHR$(12)
1350 REM ********
1360 GOTO 40
1380 REM ********
1400 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 1400
1540 ; CHR$(12)
1550 ; CHR$(7);
1560 ]=]+1
1570 IF ]>20 THEN 1590
1580 GOTO 1550
1585 ; : ; : ; 
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 GET K$
1690 GOTO 10