10 RESTORE : HOME :X = 10:Y = 10: HGR : HCOLOR= 3: FOR I = 768 TO 779: READ A: POKE I,A: NEXT : POKE 232,0: POKE 233,3: SCALE= 10: FOR I = 1 TO 70: ROT= ( RND(1) >.5) *16: DRAW 1 AT RND(1) *250, RND(1) *180: NEXT : SCALE= 4: FOR I = 1 TO 99999: DRAW 2 AT X,Y: IF PEEK(234) >0 THEN PRINT CHR$(7): GOTO 10
20 HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0: XDRAW 2 AT X,Y:X = X +2 *( PDL(0) >200) -2 *( PDL(0) <75):Y = Y +2 *( PDL(1) >200) -2 *( PDL(1) <75): VTAB 23: PRINT "SCORE IS ";I:I = I +((X >269) *(Y >150) *(99999 -I)): NEXT : PRINT "YOU WIN!!!": DATA 2,0,6,0,9,0,45,5,0,53,39,0
