start tok64 d64-57KRzk 0 DIMa$(21):PRINT"{clear}{down}{right}joystick i port#2.":PRINT"{down*5}{right}var god v[nta":PRINT"{right}{down*2}sw90 1 GOTO3:INTerrupt-styrd sprite 2 >programmerad av harald fragner 1988< 3 READy:IFy<0THENGOSUB1000:GOTO5 4 POKE49152+x,y:x=x+1:s=s+y:GOTO3 5 IFs-16525THENPRINT"fel i data!":STOP 6 :y=.:x=y:s=y:q4=192:p=y:z=y:o=y:z9=y 7 REM slalomspel av harald fragner 1988 modified by mr.p. of softwolves 1990 8 POKE53249,50:POKE53264,.:POKE53269,255:POKE53248,24:POKE53275,. 9 POKE2040,11:FORx=.TO62:POKE704+x,0:NEXT:FORq=.TO4:d(q)=-1+q*.5:NEXT 10 FORx=1TO37STEP3:POKE704+x,126:NEXT 20 POKE53280,6:POKE53281,15:POKE53287,7:PRINT"{red}{clear}":x=PEEK(53279):r=PEEK(53279) 101 a$="*{space*9}*":s=LEN(a$):r=. 105 FORx=1TOs-2:a$(y)=LEFT$(a$,x)+"{black}Q{green}"+RIGHT$(a$,s-x-1):y=y+1:NEXT:x=RND(.) 120 x=RND(1)*20:FORi=24TO64+x*8:POKE53248,i:NEXT 140 c=RND(1)*8+8:d=d(RND(1)*q) 145 c=c-1:IFc<0THEN140 147 IFo>5THENPRINT"{green}***************************************{up} 148 IFo=10THENSYS49152 150 IFRND(1)38)):IFPEEK(53279)=1ORz9=1THEN240 231 p=p+PEEK(53249)/40:o=o+1+(o>30)*10 232 IFo>24THENONo-24GOSUB2000,2300,2200,2100,2300,2200,2100,2300,2200 233 GOTO145 240 p=INT(p):PRINT"{home}{blue}game over! score ="p:POKE53275,31 241 POKE788,49:POKE789,234:POKE53269,31:GOSUB2000:GOSUB2100:GOSUB2200:GOSUB2300 242 IFPEEK(53264)<>1THEN244 243 FORi=PEEK(53248)TO.STEP-1:POKE53248,i:FORj=.TO10:NEXT:NEXT:POKE53248,255:POKE53264,. 244 FORi=PEEK(53248)TO24STEP-1:POKE53248,i:FORj=.TO10:NEXT:NEXT 245 FORi=PEEK(53249)TO229:POKE53249,i:FORj=.TO10:NEXT:NEXT 246 hp=hp+(hp-p)*(p>hp):PRINT"{clear}game over! score ="p"hi-score:"hp 250 PRINT"do you want to play again? {reverse on}y{reverse off} or {reverse on}n 260 GETa$:IFa$="y"THENGOSUB1010:PRINT"{clear}";:GOTO6 270 IFa$<>"n"THEN260 280 POKE53269,30:PRINT"{white}{clear}{down*23}hiscore:{light blue}{home}"; 290 p=hp:GOSUB2000:GOSUB2100:GOSUB2200:GOSUB2300:POKE53280,14:POKE53281,6:END 1000 FORi=192TO202:FORj=.TO63:POKEi*64+j,.:NEXT:FORj=.TO7:READq 1005 POKEi*64+j*3,q:NEXT:NEXT 1010 FORi=1TO4:POKE2040+i,192:POKE53248+i*2,16+(8*i):POKE53249+i*2,242 1020 POKE53287+i,1:NEXT:RETURN 2000 z9=PEEK(53279):x$=STR$(p+10000):POKE2041,ASC(MID$(x$,3))+144:RETURN 2100 z9=PEEK(53279):x$=STR$(p+10000):POKE2042,ASC(MID$(x$,4))+144:RETURN 2200 z9=PEEK(53279):x$=STR$(p+10000):POKE2043,ASC(MID$(x$,5))+144:RETURN 2300 z9=PEEK(53279):x$=STR$(p+10000):POKE2044,ASC(MID$(x$,6))+144:RETURN 49152 DATA120,169,13,141,20,3,169,192 49160 DATA141,21,3,88,96,173,,220 49168 DATA201,255,240,34,72,41,1,208 49176 DATA3,32,57,192,104,72,41,2 49184 DATA208,3,32,68,192,104,72,41 49192 DATA4,208,3,32,79,192,104,41 49200 DATA8,208,3,32,113,192,76,49 49208 DATA234,173,1,208,201,50,144,3 49216 DATA206,1,208,96,173,1,208,201 49224 DATA229,176,3,238,1,208,96,173 49232 DATA16,208,41,1,208,10,173, 49240 DATA208,201,24,144,19,76,109,192 49248 DATA173,,208,208,8,173,16,208 49256 DATA41,254,141,16,208,206,,208 49264 DATA96,173,16,208,41,1,240,10 49272 DATA173,,208,201,63,176,21,76 49280 DATA145,192,173,,208,201,255,208 49288 DATA8,173,16,208,9,1,141,16 49296 DATA208,238,,208,96,-1 50000 DATA126,102,102,102,102,102,102,126 50001 DATA6,6,6,6,6,6,6,6 50002 DATA126,6,6,126,96,96,96,126 50003 DATA126,6,6,126,6,6,6,126 50004 DATA6,102,102,126,6,6,6,6 50005 DATA126,96,96,126,6,6,6,126 50006 DATA96,96,96,126,102,102,102,126 50007 DATA126,6,6,6,6,6,6,6 50008 DATA126,102,102,126,102,102,102,126 50009 DATA126,102,102,126,6,6,6,6 50010 DATA,,,,,,, stop tok64 (bastext 1.0)