190 DEFPROCgame 200 dotleft%=dotnum%+1 210 PROCbackground 220 GCOL 3,7 230 FOR num%=0 TO dotnum% 240 PROCsetdot(num%) 250 NEXT 260 GCOL 8,0 270 xpos%=200:ypos%=200 280 PROCget_bg 290 *SChoose mun_right 300 PLOT 237,xpos%,ypos% 310 start%=TIME 320 REPEAT 330 PROCmove 340 UNTIL dotleft%=0 350 PRINT TAB(10,25)"You took ";(TIME-start%)/100" seconds" 360 PRINT TAB(10,26)"Another go? (y/n)" 370 REPEAT 380 char%=GET 390 UNTIL (char% AND &DF)=ASC("Y") OR (char% AND &DF)=ASC("N") 400 ENDPROC 410 :