1 REM Ins{nt av 4230
10 REM ++++++++++++++++++++++++++++++++
11 REM + Program ....    KULF]NG.GAM  +
12 REM + Utg}va 1.0      1984-05-10   +
13 REM + av (c) Alf Wirdling          +
14 REM + Minne 16 Kbytes              +
15 REM + Ins{nt av 4230               +
16 REM ++++++++++++++++++++++++++++++++
100 ; CHR$(12);TAB(7);CHR$(151);"l<,l<,l<,l<,l<,l<,l<,l<"
105 ; TAB(7);CHR$(151);"j5Kj5Uj5Lj5Fj5]j5Nj5Gj5"
110 ; TAB(7);CHR$(151);"#######################"
115 ; : ; "Spelet g}r ut p} att 'skjuta ned' 5"
120 ; "m}l-tavlor."
125 ; : ; "Den mittersta m}ltavlan ska skjutas ned"
130 ; "sist."
135 ; : ; "'Bom-prickarna' minskas med h{nsyn"
140 ; "till vald hastighet."
145 ; "Ju h|gre hastighet, desto mer minskning!"
150 ONERRORGOTO 150
155 ; : ; "\nskad skott-tangent V[NSTER ";
160 GET R$ : ; R$ : V1%=ASC(R$)+128%
165 ; : ; "\nskad skott-tangent H\GER   ";
170 GET R$ : ; R$ : H1%=ASC(R$)+128%
175 ONERRORGOTO 175
180 ; : ; "Skott-hastighet (1-100) km/h ";
185 INPUT D2% : IF D2%<1% OR D2%>100% THEN 180
190 D2%=101%-D2%
195 REM * OMG]NGS-LOOP *
200 FOR G%=1% TO 10%
205 S%=0% : B%=0% : W%=1% : T%=0%
210 ; CHR$(12) : FOR I%=0% TO 22%
215 ; CUR(I%,0%);CHR$(151); : NEXT I%
220 ; CUR(0,5);"`t";TAB(12);"`t";TAB(19);"`>t";TAB(27);"`t";TAB(34);"`t";
225 ; CUR(1,5);" !";TAB(12);" !";TAB(19);" +!";TAB(27);" !";TAB(34);" !";
230 REM * ETT SKOTT !!! *
235 IF T%=5% ; CHR$(7); : GOTO 375
240 IF W%=0% B%=B%+1% ELSE ; CHR$(7);
245 GOSUB 475 : REM * SCORE *
250 ; CUR(22,19);"`u";
255 R%=65% : C%=40%
260 SETDOT R%,C% : F%=1% : W%=0%
265 OUT 6,0 : POKE 65013,0 : GET R$ : S%=S%+1%
270 REM * SKOTT LOOP *
275 IF INP(56%)=V1% F%=1% : OUT 6%,17%
280 IF INP(56%)=H1% F%=2% : OUT 6%,17%
285 CLRDOT R%,C% : R%=R%-1%
290 IF F%=1% AND C%>2% C%=C%-1% ELSE IF C%<79% C%=C%+1%
295 IF NOT (DOT(R%,C%)) THEN 355
300 IF C%>20% THEN 310
305 ; CUR(0,5)"  ";CUR(1,5);"  "; : T%=T%+1% : GOTO 350
310 IF C%>34% THEN 320
315 ; CUR(0,12)"  ";CUR(1,12);"  "; : T%=T%+1% : GOTO 350
320 IF C%>50% THEN 335
325 IF T%<>4% GOSUB 495 : GOSUB 475 : GOTO 230
330 ; CUR(0,19);"   ";CUR(1,19);"   "; : T%=T%+1% : GOTO 350
335 IF C%>64% THEN 345
340 ; CUR(0,27)"  ";CUR(1,27);"  "; : T%=T%+1% : GOTO 350
345 ; CUR(0,34)"  ";CUR(1,34);"  "; : T%=T%+1%
350 W%=1% : REM * TR[FF HAR SKETT *
355 SETDOT R%,C%
360 IF R%=0% CLRDOT R%,C% : GOTO 230
365 FOR D%=1% TO D2% : NEXT D%
370 GOTO 270
375 REM * SLUT OMG]NG *
380 I(G%)=B%-((B%*50/100)*(101%-D2%)/100)
385 I2(G%)=101%-D2%
390 FOR F=1 TO 3000 : NEXT F
395 REM * STATISTIK *
400 ; CHR$(12);CHR$(7);"BOM-STATISTIK (HASTIGHETS-JUSTERARDE)"
405 ; : ; "Omg}ng","Bom-prickar","Hastighet"
410 ; : T=0 : T2=0 : FOR I%=1% TO G%
415 ; I%,I(I%),I2(I%) : T=T+I(I%) : T2=T2+I2(I%) : NEXT I%
420 ; : ; "Snitt",T/G%,T2/G%
425 ; : ; "Totalt",T,T2
430 IF G%=10% ; : ; "End of game" : END 
435 ; : ; "En omg}ng till (J/N) "; : POKE 65013,0 : GET R$ : ; R$
440 IF R$="N" OR R$="n" ; : ; "End of game" : END 
445 ONERRORGOTO 465
450 ; : ; "Skott-hastighet (RET =";101%-D2%;")";
455 INPUT D% : IF D%<1% OR D%>100% THEN 450
460 D2%=101%-D%
465 NEXT G%
470 ; : ; "End of game" : END 
475 REM * SCORE *
480 ; CUR(23,0);SPACE$(39);
485 ; CUR(23,0);"Omg}ng:";G%;"    Skott =";S%;"    Bommar =";B%;
490 RETURN 
495 ; CUR(23,0);SPACE$(39);
500 ; CUR(23,0);CHR$(7);"-- MITTERSTA M]LET SKA TR[FFAS SIST --";
505 FOR F=1 TO 3000 : NEXT F
510 ; CUR(23,0);SPACE$(39); : RETURN 
515 REM 
520 REM * VARIABEL-LISTA *
525 REM 
530 REM R$    Slask vid inmatning
535 REM V1%   V{nster-tangent (ASCII)
540 REM H1%   H|ger  -tangent (ASCII)
545 REM D%    F|rdr|jnings-loop
550 REM D2%   F|rdr|jnings-v{rde
555 REM G%    Omg}ngs-loop
560 REM S%    Antal skott/omg}ng
565 REM B%    Antal bom/omg}ng
570 REM T%    Antal tr{ff/omg}ng
575 REM W%    Switch (1=tr{ff)
580 REM I%    Tempor{r (loop)
585 REM R%    Rad-pos. (dot)
590 REM C%    Kol-pos. (dot)
595 REM F%    Styrning v{nster/h|ger
600 REM I()   Bompricks-vektor
605 REM I2()  Hastighets-vektor
610 REM F     F|rdr|jnings-loop
615 REM T     Bompricks-summa
620 REM T2    Hastighets-summa
625 REM 
630 REM * SLUT LISTA *