start tok64 d64-Chm3BN 10 PRINT"{clear}":POKE53280,6:POKE53281,0 20 PRINTTAB(14);"{space*2}slalom" 30 PRINTTAB(6);"{red}{down*4}antal spelare (1-4)";:INPUT np 40 IFnp<1ORnp>4THEN10 50 PRINTSPC(6);"{orange}{down*2}skriv in spelarens fo{up}{left}R{down}rnamn" 55 FORi=1TOnp 60 PRINTTAB(6);"{yellow}{down}spelare ";i;:INPUT name$(i) 70 NEXTi 100 PRINT"{clear}":POKE53280,0:POKE53281,7 110 PRINTTAB(10);"{orange}{reverse on}{cm a}{sh asterisk*18}{cm s}" 120 PRINTTAB(10);"{reverse on}B* sva{up}{left}.{down}righetsgrad *B" 130 PRINTTAB(10);"{reverse on}{cm z}{sh asterisk*18}{cm x}" 140 PRINT"{black}{reverse on}{down*5}";TAB(13);"1{reverse off} amato{up}{left}R{down}r":PRINTTAB(13);"{156}{down}{reverse on}2{reverse off} specialist" 150 PRINTTAB(13);"{red}{reverse on}{down}3{reverse off} proffs":PRINTTAB(12);"{orange}{down*6}ditt val{space*2}{reverse on}1-3{reverse off}" 160 GETch$:IFch$=""THEN160 170 IFch$="1"THENs=13:obs=6 175 IFch$="2"THENs=12:obs=5 180 IFch$="3"THENs=10:obs=3 190 PRINT"{clear}":POKE53280,6:POKE53281,3 200 PRINT"{black}{down*6}{space*4}va{up}{left}R{down}nta lite, jag sa{up}{left}R{down}tter upp banan" 205 PRINT"{down*2}{right*12}joystick i port 2" 210 GOTO1010 220 GOSUB1200:GOSUB900 225 FORt=1TOnp 230 PRINT"{clear}":POKE53280,14:POKE53281,1:x=160:y=145:sc(t)=50000:m(t)=0:ga=0 235 FORa=1TO10:PRINT:NEXTa 240 PRINTTAB(12);"{black}go{up}{left}R{down}r dig klar ,";name$(t) 245 FORa=1TO11:PRINT:NEXTa 250 POKEv,x:POKEv+1,y:POKEv+21,1 255 FORd=1TO1500:NEXTd 260 si=54272:FORi=0TO24:POKEsi+i,0:NEXTi 270 FOR count=1TO600:c=INT(RND(0)*11) 280 PRINT"{green}";TAB(c);CHR$(94);TAB(c+28);CHR$(94) 285 POKEsi+24,3:POKEsi+5,64:POKEsi+6,130:POKEsi+1,17:POKEsi,37:POKEsi+4,129 290 SYS(49400) 300 IFPEEK(v+31)ANDx=xTHENPOKE2040,14:sc(t)=sc(t)-150:m(t)=m(t)+1 320 b=b+1:IFb>=sTHENc2=INT(RND(0)*15)+10:GOTO340 330 GOTO350 340 PRINT"{black}{down}";TAB(c2);CHR$(95);TAB(c2+5);CHR$(95):b=0:POKE2040,13:ga(t)=ga(t)+1 350 NEXT count 360 FORa=1TO30:c=INT(RND(0)*11):PRINT"{green}";TAB(c);CHR$(94);TAB(c+28);CHR$(94) 365 NEXTa 370 POKEsi+4,16:POKEsi+1,0:POKEsi,0 380 le$="fo{up}{left}R{down}rsta":GOSUB800 390 PRINT"{clear}":POKE53280,14:POKE53281,1:x=160:y=145:m=0 400 FORa=1TO10:PRINT:NEXTa 410 PRINTTAB(12);"{black}go{up}{left}R{down}r dig klar, ";name$(t) 420 FORa=1TO11:PRINT:NEXTa 430 POKEv,x:POKEv+1,y:POKEv+21,1 440 FORd=1TO1000:NEXTd 450 POKEsi+24,2:POKEsi+5,64:POKEsi+6,130:POKEsi+1,17:POKEsi,37:POKEsi+4,129 460 FORcount=1TO700:c=INT(RND(0)*11):c1=INT(RND(0)*15)+11 470 PRINT"{green}";TAB(c);CHR$(94);TAB(c+28);CHR$(94) 475 IFb=obsTHEN477 476 GOTO480 477 PRINTTAB(c1);"{light green}";CHR$(96) 480 SYS(49400) 490 IFPEEK(v+31)ANDx=xTHENPOKE2040,14:sc(t)=sc(t)-250:m(t)=m(t)+1 500 b=b+1:IFb>=sTHENc2=INT(RND(0)*15)+10:GOTO520 510 GOTO530 520 PRINT"{blue}{down}";TAB(c2);CHR$(95);TAB(c2+5);CHR$(95):b=0:POKE2040,13 530 NEXT count 540 FORa=1TO25:c=INT(RND(0)*11):PRINT"{green}";TAB(c);CHR$(94);TAB(c+28);CHR$(94) 545 NEXTa 550 POKEsi+4,16:POKEsi+1,0:POKEsi,0 560 le$="andra":GOSUB800 570 PRINT"{clear}":POKE53280,14:POKE53281,1:x=160:y=145:m=0 575 FORa=1TO10:PRINT:NEXTa 580 PRINTTAB(12);"{orange}go{up}{left}R{down}r dig klar, ";name$(t) 585 FORa=1TO11:PRINT:NEXTa 590 POKEv,x:POKEv+1,y:POKEv+21,1 595 FORd=1TO1000:NEXTd 600 POKEsi+24,2:POKEsi+5,64:POKEsi+6,130:POKEsi+1,17:POKEsi,37:POKEsi+4,129 610 FOR count=1TO800:c=INT(RND(0)*11):c1=INT(RND(0)*15)+9 620 PRINT"{green}";TAB(c);CHR$(94);TAB(c+28);CHR$(94) 630 IF b=obsTHEN650 640 GOTO660 650 PRINTTAB(c1);"{light green}";CHR$(96);TAB(c1+5);"{orange}{down}";CHR$(100);CHR$(101);CHR$(102) 660 SYS(49400) 670 IFPEEK(v+31)ANDx=xTHENPOKE2040,14:sc(t)=sc(t)-350:m(t)=m(t)+1 680 b=b+1:IFb>=sTHENc2=INT(RND(0)*15)+10:GOTO700 690 GOTO710 700 PRINT"{blue}{down}";TAB(c2);CHR$(95);TAB(c2+5);CHR$(95):b=0:POKE2040,13 710 NEXT count 720 FORa=1TO25:c=INT(RND(0)*11):PRINT"{green}";TAB(c);CHR$(94);TAB(c+28);CHR$(94) 730 NEXTa 740 POKEsi+4,16:POKEsi+1,0:POKEsi,0 750 le$="tredje":GOSUB800 760 IFle$="tredje"ANDt=npTHENEND 770 NEXTt 800 PRINT"{clear}":POKEv+21,0:POKE53280,0:POKE53281,6 810 PRINT"{black}";TAB(9);"* ";le$;" lopp resultat*" 815 PRINT"{down}{yellow}{space*3}";name$(1);":" 816 PRINT"{white}";TAB(8);"antal portar{.*4}";ga(1) 817 PRINTTAB(8);"hit poang{.*7}";m(1) 818 PRINTTAB(8);"total poang{.*5}";sc(1) 820 IFt<2THENFORa=1TO16:PRINT:NEXTa:GOTO860 825 PRINT"{yellow}{space*3}";name$(2);":" 826 PRINT"{white}";TAB(8);"antal portar{.*3}";ga(2) 827 PRINTTAB(8);"hit poang{.*7}";m(2) 828 PRINTTAB(8);"total poang{.*5}";sc(2) 830 IFt<3THENFORa=1TO12:PRINT:NEXTa:GOTO860 835 PRINT"{yellow}{space*3}";name$(3);":" 836 PRINT"{white}";TAB(8);"antal portar{.*4}";ga(3) 837 PRINTTAB(8);"hit poang{.*7}";m(3) 838 PRINTTAB(8);"total poang{.*5}";sc(3) 840 IFt<4THENFORa=1TO8:PRINT:NEXTa:GOTO860 845 PRINT"{yellow}{space*3}";nam$(4);":" 846 PRINT"{white}";TAB(8);"antal portar{.*4}";ga(4) 847 PRINTTAB(8);"hit poang{.*7}";m(4) 848 PRINTTAB(8);"total poang{.*5}";sc(4) 850 FORa=1TO3:PRINT:NEXTa 860 IFle$<>"tredje"THENmsg$="na{up}{left}R{down}sta lopp kommer" 870 IFle$="tredje"ANDt<>npTHENmsg$="na{up}{left}R{down}sta spelare" 880 IFle$="tredje"ANDt=npTHENmsg$="* slut resultat *" 885 cent=INT(40-LEN(msg$))/2 890 PRINTTAB(cent);"{yellow}";msg$:FORd=1TO4500:NEXTd:RETURN 895 CLR:RUN 900 FORi=1TO101:READa:POKE49151+i,a:NEXTi 910 FORi=1TO19:READa:POKE49399+i,a:NEXTi:RETURN 1010 PRINTCHR$(142):POKE52,48:POKE56,48 1020 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251 1030 FORi=0TO511:POKEi+12288,PEEK(i+53248):NEXT 1040 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:POKE53272,(PEEK(53272)AND240)+12 1050 READloc:IFloc=-1THEN1100 1060 FORa=0TO7:READch:POKEloc+a,ch:NEXTa:GOTO1050 1070 DATA 12528,24,24,60,126,255,24,24,24 1080 DATA 12536,112,124,126,127,96,96,96,96 1090 DATA 12512,0,2,252,124,60,124,236,196 1100 DATA 12800,48,124,126,62,62,127,255,255 1110 DATA 12832,12,3,127,191,191,127,0,0 1120 DATA 12840,0,0,255,255,255,255,1,6 1130 DATA 12848,0,0,252,254,254,252,128,0,-1 1150 GOTO220 1200 v=53248:POKE2040,13:POKEv+39,6:POKEv+28,3:POKEv+38,10:POKEv+37,9 1210 FORa=0TO62:READch:POKE832+a,ch:NEXTa 1220 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,190,0,0,190,0,0,255,0,15 1230 DATA 255,240,51,195,204,0,255,0,0,255,0,0,130,0,0,130 1240 DATA 0,0,130,0,0,130,0,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0 1250 POKE2041,14:POKEv+40,6:POKEv+38,10:POKEv+37,9 1255 FORa=0TO62:READch:POKE896+a,ch:NEXTa 1260 DATA 0,0,0,0,0,0,0,0,0,0,192,192,8,51,192,8,15,192,8,12,192 1270 DATA 8,63,0,11,255,192,8,12,48,8,12,0,8,12,0,8,8,0,0,8,0,0,8,0 1280 DATA 0,8,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0 1300 RETURN 1400 DATA 173,0,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,38,173 1410 DATA 0,208,208,15,173,16,208,41,1,240,12,173,16,208,41,254,141,16 1420 DATA 208,206,0,208,96,173,16,208,9,1,162,63,141,16,208,142,0,208,96 1430 DATA 74,176,32,238,0,208,240,28,173,16,208,41,1,240,20,169,64,205 1440 DATA 0,208,208,13,173,16,208,41,254,162,0,141,16,208,142,0,208,96 1450 DATA 173,16,208,9,1,141,16,208,96 1460 DATA 32,0,192,32,0,192,32,0,192,32,0,192,96,32,0,192,76,5,193 stop tok64 (bastext 1.0)