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: HPLOT 140,80:A = 8: FOR I = 1 TO 16: ROT= A: SCALE= I *2: DRAW 1:A = (A +16) *(A <240): NEXT : SCALE= 3: FOR I = 1 TO 99999: DRAW 2 AT X,Y: IF PEEK(234) >0 THEN PRINT CHR$(7): GOTO 10
20 XDRAW 2 AT X,Y:X = X +( PDL(0) >200) -( PDL(0) <75):Y = Y +( PDL(1) >200) -( PDL(1) <75): VTAB 23: PRINT "SCORE IS ";I:I = I +((X >130) *(X <140) *(Y >80) *(Y <90) *(99999 -I)): NEXT : PRINT "YOU WIN!!!": DATA 2,0,6,0,9,0,45,5,0,53,39,0
