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