0 CLEAR999:SCREEN1,1,0:DEFUSR=342:WIDTH32:KEYOFF:COLOR1,15,15:FORN=384TO728:D=VPEEK(N):VPOKEN,DORD\2:NEXT:FORN=768TO775:READD,C:VPOKEN,D:VPOKEN+64,D:VPOKEN+128,D:VPOKEN+192,C:NEXT:FORV=0TO23:READD:VPOKE14336+V,D:NEXT:FORN=0TO18:READC,D:VPOKEC,D:NEXT:GOTO7
1 IFK=0THENSOUND0,Y:SOUND1,2:SOUND8,16:S=STICK(0)ORSTICK(1):Y=Y+8*((S=8ORS=1ORS=2)ANDY>78)-8*((S=4ORS=5ORS=6)ANDY<103)ELSEK=K+1:L=L+J:J=J+4*(K>1ANDK<6):SOUND0,190+K*10:SOUND1,0:SOUND8,11:IFK=6THENJ=0:K=0:L=0:STRIG(0)ON:STRIG(1)ON
2 IFC>0THENFORI=0TO2:P$(I)=P$(I)+"xx":NEXTELSEC=3:Z=INT(RND(1)*24):IFZ>=DTHENFORM=0TO2:P$(M)=P$(M)+"xx":NEXTELSEFORM=0TO2:Q=2^M:IF(ZANDQ)>0THENP$(M)=P$(M)+"pp":NEXTELSEP$(M)=P$(M)+"xx":NEXT
3 PUTSPRITE0,(120,Y-L),4,0:PUTSPRITE1,(132+E,Y-L),8,1:PUTSPRITE2,(120,Y),1,2:E=EXOR2:FORN=0TO2:L$=MID$(P$(N),P,32):LOCATE0,9+(N*2):PRINTL$:LOCATE0,10+(N*2):PRINTL$:NEXT:VPOKE8204,A:VPOKE8205,B:SWAPA,B:P=P+2:C=C-1:F=F+1:LOCATE17,17:PRINTF
4 IFK<2ORK>5THENN=((Y+1)\16)-4:IFMID$(P$(N),13+P,1)="p"ORMID$(P$(N),14+P,1)="p"THENSTRIG(0)OFF:STRIG(1)OFF:LOCATE11,19:PLAY"T255V15FRFRDEFEFEDC","T255O4V15ABBABBABB":PRINT"GAME  OVER":FORT=0TO2000:NEXT:LOCATE11,19:GOTO7
5 IFP>100THENFORN=0TO2:P$(N)=MID$(P$(N),P,32):NEXT:P=1:D=D-8*(D<24):GOTO1ELSE1:DATA60,0,122,4,253,21,253,21,253,0,255,32,255,168,126,168, 60,118,218,235,171,255,255,126, 26,21,16,14,28,252,252,240, 0,0,0,0,0,85,170,85
6 STRIG(0)OFF:STRIG(1)OFF:K=1:J=8:RETURN:DATA8204,64,8205,128,8206,111,8207,32,8208,17,8209,255,8223,255,6912,208,6913,0,6914,0,6915,4,6916,208,6917,12,6918,1,6919,8,6920,208,6921,120,6922,2,6923,1
7 CLS:SOUND7,62:SOUND11,120:SOUND12,10:SOUND13,14:VPOKE6913,0:VPOKE6912,95:VPOKE6917,12:VPOKE6916,95:VPOKE6920,208:FORX=0TO12:LOCATEX,8:PRINT" SNAIL":LOCATE26-X,10:PRINT"RALLY ":P=X*9.5:VPOKE6913,P:VPOKE6917,P+12:NEXT:LOCATE9,15
8 PRINT"- PRESS  KEY -":U=USR(0):A$=INPUT$(1):PLAY"T255O5V15DRDEFEAEC-":FORT=0TO999:NEXT:FORX=13TO25:LOCATEX,8:PRINT" SNAIL":LOCATE26-X,10:PRINT"RALLY ":P=X*9.5:VPOKE6913,P:VPOKE6917,P+12:NEXT:VPOKE6912,208:P$(0)=STRING$(32,"x"):MID$(P$(0),20)=""
9 P$(1)=P$(0):P$(2)=P$(0):MID$(P$(1),20)="":Q$="``hh``hh":Q$=Q$+Q$+Q$+Q$:A=64:B=128:C=5:D=8:F=0:K=0:Y=87:P=1:CLS:LOCATE0,8:PRINTQ$:LOCATE0,15:PRINTQ$:LOCATE11,17:PRINT"SCORE:":U=RND(-TIME):ONSTRIGGOSUB6,6:STRIG(0)ON:STRIG(1)ON:GOTO1