1 REM Ins{nd av Lennart Einarsson <6554>    1986-06-01 14.23.36
940 GET G$ : GOTO 130
10 REM >    B A L L  G A M E
20 REM >     BO ARAB[CK
30 REM >    H[R B\RJAR SPELET
40 REM >    F\R ABC80 i 40tkn
50 IF PEEK(590%)<>40% ; INP(3%)
60 ; CHR$(12)
70 RANDOMIZE 
80 D$(1)="44566"
90 D$(2)="67656"
100 D$(3)="15668"
110 D$(4)="65756"
120 D$(5)="12378"
130 D$(6)="45354"
140 D$(7)="12445"
150 D$(8)="43454"
160 C%=128%
170 GOTO 210
180 ; CUR(3%,25%);"GAME";CUR(4%,25%);"OVER";CUR(21%,0%);"NEW GAME ?";CHR$(7);CUR(21%,0%); : GET Y$
190 IF Y$="N" OR Y$="n" END 
200 IF NOT (Y$="J" OR Y$="j") THEN 180
210 IF P%>P1% THEN P1%=P%
220 P%=0% : B%=0% : B1%=8%
230 GOSUB 690
240 ; CUR(7%,6%);P1%
250 GOSUB 630
260 ; CHR$(7);CUR(14%,0%); : GET Y$ : GET Y$
270 POKE 32096,112 : POKE 32117,112
280 IF Y$<>"-" THEN 260
290 B%=B%+1% : ; CUR(11%,7%);B%
300 ; CUR(0%,20%);"*****1000*****";
310 R%=29% : K%=53%
320 R%=FIX(R%+R1) : K%=FIX(K%+K1)
330 IF DOT(R%,K%) THEN OUT 6%,0% : OUT 6%,157% : GOTO 420
340 IF R%=23% GOSUB 1070
350 IF R%=40% GOSUB 1080
360 SETDOT R%,K%
370 IF INP(56%)=136% THEN ; CUR(21%,15%);"     ggggo    ?;;;;     "; : GOTO 400
380 IF INP(56%)=218% THEN ; CUR(21%,15%);"     ggggo"; ELSE ; CUR(21%,15%);"ggggo     ";
390 IF INP(56%)=137% THEN ; CUR(21%,29%);"?;;;;     "; ELSE ; CUR(21%,29%);"     ?;;;;";
400 FOR X=1 TO 18 : NEXT X
410 CLRDOT R%,K% : GOTO 320
420 IF R%=63% THEN OUT 6,0 : OUT 6,133 : GOTO 540
430 IF R%=56% THEN 670
440 IF R%<>3% THEN 510
450 P%=P%+1000% : ; CUR(3%,3%);P%
460 POKE 31764%,42+C%,77+C%,125+C%,110+C%,115+C%,115+C%,111+C%,110+C%,32+C%,111+C%,32+C%,67+C%,111+C%,42+C%
470 FOR X=1 TO 1000 : OUT 6,255 : NEXT X
480 C%=128%
490 OUT 6%,0% : ; CUR(O%,20%);"              ";
500 GOTO 540
510 IF P%>P1% THEN P1%=P% : B1%=B1%+1% : IF B1%>8% THEN B1%=8%
520 IF R%=69% AND B%<>B1% THEN R%=FIX(R%-R1) : K%=FIX(K%-K1) : SETDOT R%,K% : OUT 6,93 : GOTO 260
530 IF R%=69% AND B%=B1% THEN 180
540 D1%=INT(RND*5%)+1%
550 R%=FIX(R%-R1) : K%=FIX(K%-K1)
560 D%=VAL(MID$(D$(D%),D1%,1%))
570 ON D% GOSUB 590,600,610,620,630,640,650,660
580 GOTO 320
590 D%=1 : R1=-1 : K1=0 : RETURN 
600 D%=2 : R1=-1 : K1=1 : RETURN 
610 D%=3 : R1=0 : K1=1 : RETURN 
620 D%=4 : R1=1 : K1=1 : RETURN 
630 D%=5 : R1=1 : K1=0 : RETURN 
640 D%=6 : R1=1 : K1=-1 : RETURN 
650 D%=7 : R1=0 : K1=-1 : RETURN 
660 D%=8 : R1=-1 : K1=-1 : RETURN 
670 OUT 6,0 : OUT 6%,45% : P%=P%+100 : ; CUR(3,3);P%; : POKE 32096%,112+C% : POKE 32117%,112+C% : C%=0 : GOTO 540
680 REM 
690 REM >         GRAF-SUB
700 ; CHR$(12)
710 FOR R%=1% TO 23% : ; CUR(R%,13);CHR$(151); : NEXT R%
720 FOR R%=5% TO 22% : ; CUR(R%,14%);"";CUR(R%,39%);""; : NEXT R%
730 ; CUR(23%,14%);"";
740 ; CUR(10%,26%);"*%";
750 ; CUR(14%,26%);"*%";
760 ; CUR(19%,26%);"__";
770 ; CUR(12%,26%);"j5";
780 ; CUR(16%,26%);"*%";
790 ; CUR(4%,22%);"";CUR(4%,31%);"";
800 ; CUR(7%,17%);"j";CHR$(135%);" $ $ $**$ $ $ ";CHR$(151%);"5";
810 ; CUR(11%,15%);CHR$(135%);" * * * *    * * * * ";CHR$(151%);
820 ; CUR(15,15);CHR$(135);" * * * *    * * * * ";CHR$(151);
830 FOR K%=0% TO 3%
840 SETDOT 20,36%+K% : SETDOT 20,68%+K% : SETDOT 32%,30%+K% : SETDOT 32%,74%+K% : SETDOT 36%,30%+K% : SETDOT 36,74+K%
850 SETDOT 44,30%+K% : SETDOT 44,74%+K% : SETDOT 48%,30%+K% : SETDOT 48%,74%+K% : SETDOT 56%,31%+K% : SETDOT 56,73+K%
860 SETDOT 24%,36%+K% : SETDOT 24%,68%+K%
870 NEXT K%
880 ; CUR(21,15);"ggggo";CUR(21,34);"?;;;;";
890 SETDOT 71%,79% : SETDOT 70%,79% : SETDOT 70%,78% : SETDOT 71%,78% : SETDOT 69%,78% : SETDOT 69%,79%
900 FOR S%=0% TO 11%
910 SETDOT 3%+S%,39%-S% : SETDOT 3%+S%,68%+S% : SETDOT 3%+S%,40%-S% : SETDOT 3%+S%,67%+S%
920 SETDOT 56%,42% : SETDOT 56%,65% : SETDOT 56%,50% : SETDOT 56%,57%
930 NEXT S%
940 SETDOT 20%,35% : SETDOT 20%,72% : SETDOT 24%,35% : SETDOT 24%,72%
950 ; CUR(0,0)" * * * * * *        **************"
960 ; " *  YOUR   *";CUR(1,20);"##############"
970 ; " *S C O R E*"
980 ; " *         *"
990 ; " * * * * * *"
1000 ; : ; "HIGHEST SCORE"
1010 ; "TODAY:" : ; : ; 
1020 ; "  BALL IN" : ; "  PLAY:" : ; : ; 
1030 ; 'PRESS "-" FOR' : ; 'NEW BALL' : ; : ; 
1040 ; "FOR FLIPPERS" : ; 'USE"Z"AND"->"'
1050 POKE 32720%,66%,65%,45%,84%,101%,107%,110%,105%,107%
1060 RETURN 
1070 P%=P%+10 : ; CUR(3,3);P% : RETURN 
1080 P%=P%+1 : ; CUR(3,3);P% : RETURN