1S=0:X=640:Y=0:MODE5:FORI=1TO50:VDU5 ,18;1,25,4,RND(1270);RND(1023);42,18;2,9 ,9,124,18;3:NEXT:REPEAT:PLOT69,X,Y:DRAWX +8,Y:X=X+8*(INKEY-98-INKEY-67):X=(X+1280 )MOD1280:Y=Y+4:Y=Y MOD1024:P=POINT(X,Y): S=S-(P=2):UNTIL(1ANDP)=1:VDU7,4:PRINTS 2REPEAT:UNTIL INKEY-99:RUN