0 CLS0:A$=CHR$(207):PRINT@234,"alro presents";:POKE16622,32



1 GOSUB22:CLS:FORT=0TO480STEP32:PRINT@T,A$;:NEXT



2 PRINT@16,B$;:PRINT@48,C$;:PRINT@19,"barrel run";




3 POKE16409,32:GOTO19


4 PRINT@113,"SCORE";S:PRINT@145,"HI SCORE";HS:X=15:Y=31




5 A=X:B=Y:SL=18: 



6 K=PEEK(17023)ANDPEEK(2):IFK=65ANDPOINT(X-1,Y-1)<>4THENX=X-1



10 IFK=83ANDPOINT(X+1,Y-1)<>4THENX=X+1



11 RESET(A,B):Y=Y-1:IFY=0THENY=31:IFSL>.1THENSL=SL-.1



12 SET(X,Y,4):A=X:B=Y:IFPOINT(X,Y-1)THEN18



13 IFPOINT(X+1,Y)=4,RESET(X+1,Y):SOUND200,1:S=S+1:PRINT@123,S;




14 IFPOINT(X-1,Y)=4,RESET(X-1,Y):SOUND200,1:S=S+1:PRINT@123,S;





15 A1=RND(SL)-1:IFA1=0THENA2=RND(28)+1:A3=RND(30)+1:SET(A2,A3,4)




16 IFS>HSTHENHS=S:PRINT@155,HS




17 GOTO6




18 PRINT@245,"crunch";:FORT=1TO10:SOUNDRND(2)+240,1:NEXT




19 PRINT@497,E$;:I$=INKEY$




20 I$=INKEY$:IFI$=""THEN20




21 FORZ=0TO480STEP32:PRINT@Z,A$;:NEXT:S=0:PRINT@245,D$;:PRINT@497,"BY ALAN BLOUNT";:GOTO8



22 FORT=1TO14:A$=A$+CHR$(128):NEXT:A$=A$+CHR$(207):FORX=1TO16:B$=B$+CHR$(207):NEXT



23 FORX=1TO16:C$=C$+CHR$(204):NEXT:FORT=1TO6:D$=D$+CHR$(128):NEXT:E$=CHR$(128)+"PRESS ANY KEY":FORT=1TO1400:NEXT:RETURN



24 REM MC-10 EDITS JIM GERRIE



31 S=0:PRINT@245,D$;:PRINT@497,"BY ALAN BLOUNT";:GOTO4




32 A$=A$+CHR$(207):FORX=1TO16:B$=B$+CHR$(207):NEXT




33 NEXT:E$=CHR$(128)+"PRESS ANY KEY":FORT=1TO1400:NEXT:RETURN




