5 ! Bil av Magnus <8042> 1991 10 INTEGER : NO EXTEND : ATTRIBUTE 0 15 OPEN "bilspel2.dat" AS FILE 1 20 FOR I=0 TO 9 : INPUT #1,P$(I),P(I) : NEXT I : CLOSE 1 25 POKE 55000,62,23,187,250,253,214,1,80,0,6,8,33,0,120,203,57 30 POKE 55016,48,1,25,203,35,203,18,16,245,205,1,215,22,0,25,126 35 POKE 55032,33,0,0,111,201,33,0,0,201,58,6,215,95,201,0 40 GOTO 200 45 ; CHR$(12) 50 X=30 : T=1 55 X1=40 60 POKE 65523,0,0,0 65 ; CUR(23,X);BLBG;" ";GRN NWBG : ; CUR(22,0);GRN NWBG 70 ; CUR(10,X1);GRED "" 75 ; CUR(9,X1);" " 80 POKE 55046,X1+3 : IF CALL(55000,10)<>32 THEN 155 85 POKE 55046,X1-2 : IF CALL(55000,9)<>32 THEN 155 90 ; CUR(0,0);BLBG YEL;PEEK(65523);PEEK(65524);PEEK(65525) 95 V=INT(RND*3) 100 IF V=1 THEN X=X+T : IF X>67 THEN X=67 105 IF V=0 THEN X=X-T : IF X<1 THEN X=1 110 IF SYS(5)=0 THEN 130 115 GET A$ 120 IF A$="z" THEN X1=X1-1 : IF X1<1 THEN X1=1 125 IF A$="x" THEN X1=X1+1 : IF X1>78 THEN X1=78 130 T=PEEK(65523)+1 135 IF PEEK(65524)>10 THEN 65 140 FOR I.=0. TO 100. : NEXT I. 145 FGCTL BLK 150 GOTO 65 155 ; CUR(0,0);BLBG RED EL " Game over" 160 ; CUR(2,10);BLBG MAG "Du k|rde i";PEEK(65523);"Minuter och";PEEK(65524);"sekunder och";PEEK(65525);"hundradels sekunder" 165 GOSUB 225 170 IF SYS(5)=0 THEN 170 175 GET A$ 180 ; CUR(20,10);BLBG CYA EL "Vil du spela mer j/n " 185 GET A$ 190 IF A$="j" THEN 45 195 GOTO 330 200 ; CHR$(12) 205 ; TAB(10) EL RED " Bil spel av Magnus " 210 ; CUR(10,20);CYA;"(z) V{nster (x) H|ger " 215 GET A$ 220 GOTO 45 225 M=PEEK(65523) : S=PEEK(65524) 230 P=M*100+S 235 IF SYS(5)=0 THEN 235 240 ; CUR(10,10);CYA "Du fick ";P;" Po{ng" 245 FOR I=0 TO 9 : IF P>P(I) THEN 265 250 NEXT I 255 ; CUR(11,5);RED;"Tyv{rr kommer du inte in p} Tio i topp listan" 260 GOTO 290 265 FOR J=9 TO I+1 STEP -1 270 P$(J)=P$(J-1) : P(J)=P(J-1) 275 NEXT J 280 INPUT "Vad heter du ";P$(I) 285 P(I)=P 290 ; CHR$(12) 295 ; CUR(0,20) GRN DBLE;"* Bil spel *" 300 ; CUR(4,18);"***** De tio b{sta hittills *****" 305 FOR I=0 TO 9 310 ; CUR(I+5,18);"*";RED;P$(I); : ; CUR(I+5,40);P(I) : ; CUR(I+5,49) WHT;"*" 315 NEXT I 320 ; CUR(15,18);"*********************************" 325 RETURN 330 PREPARE "bilspel2.dat" AS FILE 1 335 FOR I=0 TO 9 340 PRINT #1,P$(I) "," P(I) 345 NEXT I 350 CLOSE 1 355 END