1 CLS:A=14PALETS 0,A,48,18,18PALETS 1,A,A,16,0PALETS 2,A,48,40,24PALETS 3,A,A,A,A:GOSUB45:I=810RESTORE51:R=0SC=0L=3PAUSE30LOCATE7,5PRINT"ÃÃ BELTECH ÃÃ":LOCATE5,9PRINT"´ STUDIO-SOMYOU":LOCATE7,11PRINT"VASKAROM 1988 2 READA$IFA$<>"Z"POKEI,VAL("&H"+A$):I=I+1GOTO2 3 IFSTRIG(R)MOD2=0THEN3 4 NC=0Q=0R=R+1V=900+R*99L=L-(R MOD3=Q)POKE1152,14,37,14,6,42,6 5 PLAY"M1V6Y2T2O3R3":GOSUB46:POKE16405,15:POKE72,0,29:GOSUB44:N=0IFNC>0FORI=0TONC-1:LOCATEPEEK(1232+I)*4+1,1PRINT"ÿÿ":NEXT 6 V=V+(V>1)K=0PALETB 3,P,P,P*20,0P=3-P:A=P*3B=PEEK(1150+A)POKE1150+A,PEEK(1149+A):POKE1149+A,PEEK(1151+A):POKE1151+A,B:PALETB P,P,PEEK(1149+A),PEEK(1150+A),PEEK(1151+A) 7 IFMOVE(1)=0A=RND(2)DEFMOVE(1)=SPRITE(15,A*4+3,3,128,0,2)POSITION1,247+A,RND(11)*16MOVE1 8 CALL881:IFJY=0THEN33 9 POSITION0,X,YY:IFY=YPOS(1)+32ANDCRASH(1)=0THEN40 10 IF(PEEK(1200+PEEK(672+K)/16)ANDP*16)=0GOSUB31 11 K=K+16IFK<96THEN10 12 S=STICK(0)T=STRIG(0):GOSUB19:IFX<8ORX>232THEN40 13 JX=JY/39YY=Y-JY:IFYY<0YY=YY+255IFYY<239YY=239 14 POKE1182,Y,JX:SPRITE0,X,YY:CALL810:POKE16392,16,0,PEEK(906+D)*16,64:D=(D+1)*-(D<39)IFT MOD2=0THEN18 15 A=MOVE(1)CUT1:POKE16405,0:POKE16405,15:POKE16384,239,218,128,70:PAUSE90 16 IFSTRIG(0)MOD2=0THEN16 17 POKE16384,239,210,24,64:PAUSE80IFA MOVE1 18 GOTO6 19 IFJY>0THEN24 20 IFT<4THEN30 21 JP=1JX=0JF=0JC=-1JU=0JZ=4JS=S:JT=T:POKE1168,14,10,8,6,4:POKE16384,139,156,204:IFJT>11JU=(JS AND4)/2-(JS AND8)/4GOTO23 22 IFJS AND3POKE16385,157:IF(JT AND8)*(JS AND2)OR(JT AND4)*(JS AND1)JZ=6POKE1168,22,18,14,12,10,8,4:POKE16385,158 23 POKE16387,65:IFJU<>0JZ=1 24 JC=JC+JP:IF(JT AND128)=0AND(JC>JZ OR(JU=0ANDT<>JT))JT=JT+128POKE1168+JC,2,0 25 IFJP>0JJ=PEEK(1168+JC)JY=JY+JJ:POKE1184+JC,JY:IFJJ=0JP=-1 26 IFJP<0JY=PEEK(1184+JC)IFJC<0JY=0 27 Y=Y+JU:Y=Y+((Y>192)-(Y<32))*2IF(JT AND12)=12THEN30 28 IFJT AND8X=X+2+(JS AND1)*4IFX>232X=232 29 IFJT AND4X=X-2-(JS AND2)*2IFX<8X=8 30 RETURN 31 B=PEEK(675+K)+8-(PEEK(1200+PEEK(672+K)/16)MOD2)*16IFB<8ORB>232A=VAL("&H"+MID$(B$,Q+1,1))*16+39B=(PEEK(1200+A/16)MOD2)*224+8POKE672+K,A:Q=(Q+1)*-(Q<11) 32 POKE675+K,B:POKE845,K:CALL844:RETURN 33 POSITION0,X,Y+7I=2A=(X-12)/8IF(S AND8)ANDN>0AND(A MOD4=1)A=A/4IFY=32ANDPEEK(1232+NC)=A POKE 16384,171,172,128,64:COLORA*4,0,0COLORA*4+2,0,0LOCATEA*4+1,1PRINT"ÿÿ":SC=SC+20POKE72,0,29:GOSUB44:N=0NC=NC+1IFNC>6THEN42 34 POSITIONI,PEEK(643+I*16),PEEK(640+I*16)IFCRASH(I)=0ONI MOD2+1GOTO40,38 35 I=I+1IFI<8THEN34 36 B=PEEK(1200+Y/16)IF(B AND48)AND(B ANDP*16)=0X=X+8-(B MOD2)*16 37 GOTO10 38 IFN=0POKE16388,191,170,16,65:ERAI:N=1A=PEEK(1232+NC)*4COLORA,0,3COLORA+2,0,3POKE643+I*16,255:SC=SC+10POKE72,0,29:GOSUB44 39 GOTO35 40 SPRITEOFFCAN1:POKE16384,191,246,128,64,191,246,132,64:FORI=0TO140:A=RND(61)PALETB I MOD4,A,A+31,RND(45),A+13NEXTPOKE16405,0:CLS:GOSUB45:PAUSE34LOCATE11,8PRINT"MISS!":PAUSE300CLS:PAUSE40L=L-1IFL<1LOCATE9,8PRINT"GAME OVER":PAUSE300RUN 41 GOTO5 42 CUT1:PAUSE140PLAY"AAAAARFRRFGFCDFCDFCGF"PAUSE80PRINT" BONUS"V"0 PTS.!":PAUSE40POKE16405,1:FORI=1TOV:SC=SC+1POKE16384,128,0,128,0:POKE72,0,29:GOSUB44:NEXTPAUSE80IFR<8THEN4 43 SPRITEOFFCLS:PAUSE40LOCATE6,5PRINT"CONGRATULATIONS!":PAUSE80PLAY"M1V8FEDGFEDGFEDGFEDGCDFECGCF"PLAY"CDFECGCFDRFCGDRFCDGFDCE8"PAUSE200RUN 44 PRINT"SC "RIGHT$("0000"+MID$(STR$(SC),2,5),5)"0";:RETURN 45 A=14PALETB 0,2,48,34,40FORI=1TO2:PALETB I,A,A,37,A:NEXTRETURN 46 SPRITEOFFCLS:D=0P=1CLSP:GOSUB45:SCREENP,1DEFSPRITED,(D,P,D,D,D)="rrvv"RESTORE:FORI=0TO3:READA$POKE514+I*4,VAL("&H"+A$):NEXTDATA80,C0,0,40 47 J=239FORI=0TO5:A=I MOD2+1B=I*40POKE672+I*16,J,215,A,B,J,215,A,B,J,216,A,B,J,216,A,B:NEXTCANP:FORI=0TO7:DEFMOVE(I)=SPRITE(D,D)NEXTSPRITED,98,98SPRITE7:FORI=0TO3:POKE625+I*4,209,3:NEXTPOKE1214,17 48 LOCATE7,5PRINT"ROUND"R" START":LOCATE9,7GOSUB44:SPRITEONLOCATE13,10PRINT"µ"L:SCREENP,0A$="Þããß"LOCATED,1PRINTA$A$A$A$A$A$A$;:A$="â â"PRINTA$A$A$A$A$A$A$:LOCATED,23PRINT 49 RESTORE53:FORI=1TOR:READA$NEXTFORY=3TO23STEP2:A=VAL(MID$(A$,Y/2,P))B=A MOD3J=A/3RESTORE55:FORI=0TOJ-(B>D):READB$NEXTPOKE72,D,Y+29:PRINTB$;:PRINTB$:FORI=0TO13:COLORI*2,Y,B:NEXTPOKE1202+(Y-3)/2,J+B*16:NEXT 50 SPRITED:CLSP:PAUSE20RESTORE54:FORI=1TOR:READA$,B$NEXTFORI=1TO8:POKE1231+I,VAL(MID$(A$,I,P)):NEXTX=120Y=192JX=0JY=0YY=Y:SCREEND:POKE8193,24:RETURN 51 DATAAD,9E,4,69,B,8D,70,2,8D,74,2,AD,3,2,69,2,6D,9F,4,8D,73,2,AD,3,2,69,7,ED,9F,4,8D,77,2,60,A2,0,BD,A0,2,9D,A0,2,9D,A4,2,69,4,9D,A8,2,9D,AC,2,BD,A3,2,9D,A3,2,9D,AB,2,69,8,9D,A7,2,9D,AF,2,60 52 DATAAD,90,2,69,2B,8D,78,2,8D,7C,2,AD,93,2,69,1,8D,7B,2,69,4,8D,7F,2,60,9,7,9,0,9,7,9,0,9,7,9,0,9,7,9,0,9,7,6,4,2,4,2,4,C,E,8,C,C,E,8,C,C,E,8,C,C,E,8,4,Z 53 DATA24201502400,40012450240,24502004512,01155022440,05010204010,11111111111,50000000424,42151245121 54 DATA3241506,047285172514,5236041,039856084658,2613045,487948A24970,0615243,367926498364,6543210,159379537597,4651203,56364287906A,1324650,9A80A98A89A8,4231560,342567869A06 55 DATA"ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ","ýþÿýþÿýþÿýþÿýþÿýþÿýþÿýþÿýþÿý","ÿþýÿþýÿþýÿþýÿþýÿþýÿþýÿþýÿþýÿ"