1 REM ********************************* 2 REM * BOLLTJUVSJAKT Ver3.1 * 3 REM * Av Lars Englund 810711 * 4 REM * * 5 REM * Ett program d{r man m}ste ha * 6 REM * nerver av st}l och inte av * 7 REM * rostiga r|r,f|r annars }ker * 8 REM * man fast.Det {r inte roligt! * 9 REM * (Att }ka dit.Programet {r kul)* 10 REM ********************************* 11 ; 12 REM F\RSLAG TILL UTBYGGNAD TILL L.E. TEL. 0586-12018 13 ; 40 ; CHR$(12);'************BOLLTJUVSJAKT**************' 50 ; : ; : ; 'DU HAR TAGIT DEJ IN I EN TR[DG]RD F\R ATT SNO 72 BOLLAR SOM [GARN HAR LAGT UT' 60 ; '(HELKNASIG [GARE SOM L[GGER UT V[RDEFUL-LA BOLLAR MITT I NATTEN)' : ; : ; 'DU STARTAR P] V[NSTRA KANTEN VID EN' 70 ; 'UDDA PRICK.DU SKA TA BOLLARNA GENOM ATT K\RA \VER DEM.DU [R DUBBELT S] SNABB SOMBOLL[GARN,' 80 ; 'MEN HAN F]R G] DIAGONALT.JAG [R [GARN AVBOLLARNA S] SE UPP!DU TAR DIG FRAM P]' 90 ; 'DET H[R S[TTET:"]"=UPP]T."-"=NER]T."\"=V[NSTER."["=H\GER.' 95 ; 'OM DU VILL STOPPA SPELET TILLF[LLIGT F\R ATT TA EN NERVTABLETT ELLER DYL. S] SKA DU TRYCKA "SPACE"' 100 ; : ; 'INNAN DU K\R IG]NG M]STE DU V[LJA HAS- TIGHET.(0=SNABBAST.5L]NGSAMMAST)' 110 ; 'V[LJ HASTIGHET(0-5)'; : INPUT \ 112 IF \<0 OR \>5 THEN 110 120 ; CHR$(12) : FOR R%=0% TO 23% : ; CHR$(151%) : NEXT R% 130 REM R1% & K1% ANGER TJYVENS POSITION. 140 REM R2% & K2% ANGER BOLL[GARNS POSI- TION. 150 Q1%=Q1%+Q% : R1%=10% : K1%=10% : R2%=60% : K2%=75% : Q%=0% : N%=N%+1 160 RANDOMIZE 170 REM BOLLARNA L[GGS UT. 180 FOR K%=4% TO 75% STEP 8% : FOR R%=4% TO 65% STEP 8% 190 SETDOT R%,K% : NEXT R% : NEXT K% 195 ON \+1 GOSUB 1000,1010,1020,1030,1040,1050 200 A%=INP(56%) : REM TANGENT BORDET K[NNS AV. 210 REM TIDLOOP 220 FOR R=0 TO \*10 : NEXT R 270 A$=' IF A%>128% THEN' : CLRDOT R1%,K1% 280 IF W%=0 THEN CLRDOT R2%,K2% 290 REM TJYVEN OCH BOLL[GARN [NDRAR L[GE 300 IF A%=221% THEN R1%=R1%-2% 310 IF A%=173% THEN R1%=R1%+2% 320 IF A%=220% THEN K1%=K1%-2% 330 IF A%=219% THEN K1%=K1%+2% 340 IF R1%R2% THEN R2%=R2%+1% 360 IF K1%>K2% THEN K2%=K2%+1% 370 IF K1%75% THEN K1%=K1%-2% 420 IF R1%>65% THEN R1%=R1%-2% 425 IF DOT(R1%,K1%) THEN Q%=Q%+1 427 IF Q%=72% THEN 570 428 IF DOT(R2%,K2%) THEN W%=1 ELSE W%=0 430 SETDOT R1%,K1% : SETDOT R2%,K2% 440 IF A%=160 THEN GET X$ : REM DU HAR EN CHANS ATT ANDAS UT OM DU TRYCKER "SPACE". TRYCK "],[,\,-" F\R ATT FORTS[TTA 460 GOTO 200 520 OUT 6,219 : FOR R=0 TO 1000 : NEXT R : OUT 6,0 522 ; 'DU SNODDE';Q%;' BOLLAR' 530 ; '[GAREN FICK ALLTS]';72-Q%;' BOLLAR KVAR.'; : GOTO 600 560 ; 'DU FICK TAG I ALLA BOLLAR MEN DU KLARADEDEJ INTE!R[TTEG]NG V[NTAR.KUL!'; : GOTO 600 570 ; 'DU KLARADE DEJ OCH FICK BORT ALLA BOL- LAR.[GAREN L[MNAR DITT SIGNALEMENT TIL POLISEN I MORGON.'; 600 FOR R=0 TO 3000 : NEXT R 605 GET X$ : ; CUR(21,0);STRING$(38,32) : ; CUR(21,0);'NYTT F\RS\K ?'; : GET X$ : IF X$='J' OR X$='j' THEN 110 610 ; CHR$(12) : ; 'TACK F\R MATCHEN' 612 Q1%=Q1%+Q% 615 IF Q1%=0 THEN ; 'DU FICK INTE TAG I EN ENDA BOLL' : ; 'TRY H-A-R-D-E-R NEXT TIME' : GOTO 680 620 ; 'S] H[R BLEV RESULTATET' 630 ; : ; : ; 'ANTAL OMG]NGAR: ';N% 640 ; 'ANTAL PLOCKADE BOLLAR: ';Q1% 650 ; 'ALLTS] ';INT(Q1%/N%);' I SNITT' 660 ; 'V[LKOMMEN ]TER N[R DU VILAT DIG' 670 ; 'SJ[LV [R JAG ALLTID I TOPPFORM' 680 END 1000 ; CUR(22,0);'OM\JLIGT MEN F\RS\K [ND]' 1001 RETURN 1010 ; CUR(22,0);'DET KOMMER ATT BLI H]RT MR FITTIPALDI' 1011 RETURN 1020 ; CUR(22,0);'DU \VERSKATTAR DIG' 1021 RETURN 1030 ; CUR(22,0);'DU HAR EN CHANS SVENSSON' 1031 RETURN 1040 ; CUR(22,0);'OM DU INTE KLARAR DET S] B\R DU V[LJA EN ANNAN BRANSCH' 1041 RETURN 1050 ; CUR(22,0);'HAR DU M]NADSL\N ?' 1051 RETURN