100 REM 1981-03-24
110 REM REAKTION REV.B
120 REM ** Edvard Lagus - Bor}s **
130 RANDOMIZE 
140 FOR I%=1% TO 10%
150 S$(I%)="---"
160 NEXT I%
170 GOSUB 500
180 R%=0%
190 FOR J%=1% TO 5%
200 FOR I%=0% TO 5000% : NEXT I%
210 GOSUB 340
220 FOR I%=0% TO 4000% : NEXT I%
230 GOSUB 550
240 GOSUB 600
250 GOSUB 670
260 R%=R%+P%
270 NEXT J%
280 FOR I%=0% TO 7000% : NEXT I%
290 GOSUB 960
300 GOSUB 340
310 GOSUB 1100
320 GOTO 170
330 END 
340 REM ######### BILD ##############
350 ; CHR$(12)" R E A K T I O N "
360 ; "================="
370 IF J%>5% THEN J%=0%
380 ; CUR(2%,0%)J%". F|rs|k "
390 ; "____________"
400 ; 
410 ; "Namn : ";A$
420 ; 
430 ; R%" Po{ng"
440 FOR I%=1% TO 10%
450 ; CUR(I%+12%,0%)RIGHT$(NUM$(100%+I%),3%)"  "S$(I%);
460 ; CUR(I%+12%,10%)B%(I%);
470 NEXT I%
480 RETURN 
490 REM -------------------------------
500 REM ######### NAMN ###############
510 ; CHR$(12) : ; : ; "Skriv dina initialer" : ; 
520 ; "> "; : INPUTLINE A$
530 RETURN 
540 REM -------------------------------
550 REM ####### START BILD ###########
560 FOR I%=0% TO 200% : NEXT I%
570 ; CUR(0%,27%)""
580 RETURN 
590 REM -------------------------------
600 REM ######### TID ###############
610 IF J%>5% THEN RETURN 
620 FOR I%=0% TO 1000%+3000%*RND
630 IF INP(56%)>127% THEN GOSUB 860 : GOTO 600
640 NEXT I%
650 RETURN 
660 REM -------------------------------
670 REM ######## FALL ###############
680 IF J%>5% THEN RETURN 
690 IF J%<>3% THEN 740
700 ; CUR(5%,5%)" ";
710 FOR Y%=0% TO 80% : NEXT Y%
720 ; CUR(5%,5%)":";
730 FOR Y%=0% TO 500% : NEXT Y%
740 ; CHR$(7%);
750 X%=0%
760 REM ...............
770 FOR P%=69% TO 0% STEP -1%
780 X%=(69%-P%)/3%
790 ; CUR(X%,27%)" ";
800 ; CUR(X%+1%,27%)""P%" ";
810 IF INP(56%)>127% THEN RETURN 
820 NEXT P%
830 IF P%=-1% THEN P%=-10%
840 RETURN 
850 REM -------------------------------
860 REM ######### FUSK ! #############
870 ; CHR$(12)CUR(10%,10%)"F U S K !"
880 J%=J%+1% : P%=0%
890 OUT 6%,7%
900 FOR I%=0% TO 5000% : NEXT I%
910 OUT 6%,0% : IF J%>5% THEN RETURN 
920 GOSUB 340
930 GOSUB 550
940 RETURN 
950 REM -------------------------------
960 REM ######### SORT ###############
970 IF R%<B%(10%) THEN RETURN 
980 FOR I%=9% TO 0% STEP -1%
990 IF B%(I%)>R% THEN 1020
1000 NEXT I%
1010 I%=0%
1020 FOR L%=9% TO I%+1% STEP -1%
1030 S$(L%+1%)=S$(L%)
1040 B%(L%+1%)=B%(L%)
1050 NEXT L%
1060 B%(I%+1%)=R%
1070 S$(I%+1%)=A$
1080 RETURN 
1090 REM -------------------------------
1100 REM ####### NAMN ? ###############
1110 ; CUR(23%,10%)"Skall du forts{tta ? "; : GET W$
1120 IF W$="j" OR W$="J" THEN GOTO 180
1130 IF W$="N" OR W$="n" THEN GOTO 170
1140 GOTO 1100
1150 REM -------------------------------