10 SYMBOL AFTER 200:SYMBOL 200,0,60,124,227,192,227,124,60:SYMBOL 201,0,56,56,56,124,124,214,214:DIM P(2,2):DATA 239,60,0,10,239,60,0,10,239,30,0,5,239,30,0,5,201,45,0,5,213,30,0,5,213,30,0,5,239,30,0,5,239,30,0,5,253,30,0,5,239,90 20 CLS:PRINT "1: ";CHR$(200);" OR 2: ";CHR$(201):INPUT C: C=199+C:CLS:MODE 1:P(1,1)=40:P(1,2)=20:P(2,1)=68:P(2,2)=16:Y=10:S=0:PEN 3:FOR I=1 TO 40:LOCATE I,20:PRINT CHR$(143):NEXT I 30 PEN 3:FOR I=1 TO 2:IF P(I,1)<26 THEN LOCATE P(I,1)+15,P(I,2):PRINT " " 40 IF P(I,1)>0 AND P(I,1) < 41 THEN LOCATE P(I,1),P(I,2):PRINT CHR$(143) 50 IF (P(I,1)<-13) THEN P(I,1) = 40:P(I,2)=15+ROUND(RND*9) ELSE P(I,1) = P(I,1) - 1 60 NEXT I:LOCATE 10,Y+1:B$ = COPYCHR$(#0):PEN 2 70 IF INKEY(47)<>-1 THEN J=J+1 ELSE IF J>0 AND B$=CHR$(143) THEN LOCATE 10,Y:PRINT " ":Y=Y-5-J:J=0:SOUND 7,200+5*J,3,15:IF Y < 1 THEN Y = 1 80 IF Y < 24 AND B$<>CHR$(143) THEN LOCATE 10,Y:PRINT " ":Y=Y+1:SOUND 7,Y*8+60,3,5 ELSE S=S+1:LOCATE 35,1: PRINT S 90 IF Y = 24 THEN GOTO 100 ELSE LOCATE 10,Y:PRINT CHR$(C):GOTO 30 100 CLS:LOCATE 15,10:PRINT"GAME OVER":LOCATE 15,12:PRINT "SCORE ";S:FOR I = 1 TO 21: READ NO,DU:SOUND 1,NO,DU,6:NEXT:RESTORE:GOTO 20