Meteor by Toolkitman

EXPLANATION

IT IS REALLY HARD TO PUBLISH AN APPLE II GAME IN ONLY 10 LINE OF CODE SO I HAVE MADE A BIG SEARCH ON THE NET AND FOUND A CURIOUS BLOG ABOUT THIS SMALL BUT ALWAISE NICE GAME, I HAVE ADAPTED IT TO MY IDEA OF  SPACESHIP GETTING ABOURD AS MANY AS POSSIBLE METEORITIES (MAXIMUM 10) IN LESS TIME POSSIBLE.

CODE

10 REM "METEOR APPLE II GAME! BY MATTEO TREVISAN FROM MUNCH THE SNAILS BY KURT LEUCHT"
20 TEXT: HOME: H = 20: PRINT CHR$ (21): POKE 35,22
30 K = PEEK (49152): ON K < 128 GOTO 40: H = H + (K = 149) - (K = 136)
40 POKE 49168,0: IF RND (1) * 10 < 1 THEN VTAB 20: HTAB RND (1) * 20 + 10: PRINT "@": GOTO 70
50 VTAB 22: HTAB RND (1) * 39 + 1: PRINT CHR$ (46)
60 IF PEEK (1535 + H) = 192 THEN S = S + 1: VTAB 5: HTAB H: PRINT "#"; CHR$ (7): VTAB 23: PRINT "GOT IT: ";S: GOTO 80
70 VTAB 5: HTAB H: PRINT "V"
80 T = T + 1: IF S < 10 THEN 30
90 TEXT: VTAB 23: PRINT S;" METEOR GOT IN ";T;" METEOR SECONDS.": END