10 CLR
20 O=RN(0)/20+3
30 CO(O)=RN(O)
40 IF(YP(0)<24)GOTO 30
50 XV(0)=XP(O)-XP(0)
60 YV(0)=YP(O)-YP(0)
70 IF(VS(0)=1)GOTO 50
80 GOTO 20
RUN