10 ! HUVUDR[K.BAC
20 ! Huvdr{knings program
30 ! Av Magnus Nilsson <8042> 1991
40 ! 
50 ! "EL" borttaget f|r att fungera p} alla 800-modeller <7759>
60 ! M|jlighet till "avsluta" inf|rd <7759>
70 ! 
80 FLOAT : NO EXTEND 
85 IF PEEK(39)=4 OR PEEK(39)=6 POKE 65266,0 ! "Attribute 0" <7759>
90 RANDOMIZE 
100 ; CHR$(12%)
110 ; RED CHR$(8) "** HUVUDR[KNING **" : ; 
120 ; 'Avsluta genom att trycka <RETN> i st{llet f|r "svar"' CHR$(10%,10%)
130 INPUT "R{knes{tt:  + - * /  ? ";R$
140 INPUT "Max tal 1 : ";M1
150 INPUT "Max tal 2 : ";M2
160 T1=INT(RND*M1)+1
170 T2=INT(RND*M2)+1
180 IF T2>T1 THEN T=T2 : T2=T1 : T1=T
190 IF R$="+" THEN S=T1+T2
200 IF R$="-" THEN S=T1-T2
210 IF R$="*" THEN S=T1*T2
220 IF R$="/" THEN S=T1/T2
230 ON ERROR GOTO 280
240 ; "Vad blir";T1;R$;T2; : INPUT A
250 IF A=S THEN ; GRN CHR$(8) "R[TT !"
260 IF A<>S THEN ; RED CHR$(7,8) "FEL !  R{tt svar = " S
270 GOTO 160
280 END