10 HOME : GR : COLOR= 1: FOR I = 1 TO 50: PLOT ( RND(1) *40),( RND(1) *40): NEXT :X = 20:Y = 1:YI = 1: COLOR= 7: FOR I = 0 TO 39 STEP 39: VLIN 0,39 AT I: HLIN 0,39 AT I: NEXT : FOR I = 1 TO 1000: VTAB 23: PRINT "SCORE IS ";S:X = X +XI:Y = Y +YI: IF SCRN( X,Y) = 7 THEN END
20 S = S +( SCRN( X,Y) = 1): PLOT X,Y:T = PEEK( -16384): POKE -16368,0:XI = (T = 203) -(T = 202) +(XI *((T < >203) AND (T < >202) AND (T < >201) AND (T < >205))):YI = (T = 205) -(T = 201) +(YI *((T < >203) AND (T < >202) AND (T < >201) AND (T < >205))): FOR V = 1 TO 200: NEXT V: NEXT
