1 S=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
    2 REPEAT:UNTIL INKEY-99:RUN