Side-scrolling Breakout like game.
Source Code
1 REM \2A\0C\40\06\18\C5\23\7E\32\21\40\54\5D\23\01\1F\00\ED\B0\2B\3A\21\40\77\23\C1\10\E9\C9\25\1C\1D 10 POKE 16418,0 20 PRINT "\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@";AT 15,5;"% " 30 FOR Z=1 TO 50 31 PRINT AT INT (RND*10)+3,INT (RND*32);"%*" 32 NEXT Z 40 LET B=0 50 LET S=0 100 PRINT AT 22,15;" " 110 RAND USR 16514 120 PRINT AT 22,15;"\..% \.." 130 IF NOT B THEN GOTO 200 135 LET P=P-1 140 PRINT AT P,16; 150 LET N=PEEK (PEEK 16398+256*PEEK 16399) 155 PRINT "*" 160 IF N=8 THEN GOTO 300 170 IF N THEN GOTO 400 180 PRINT AT P,16;" " 190 GOTO 100 200 IF INKEY$="" THEN GOTO 100 210 LET P=22 220 LET B=1 230 GOTO 100 300 PRINT AT 1,1;"GAME OVER...YOUR SCORE->";S 310 IF INKEY$<>CHR$ 118 THEN GOTO 310 320 CLS 330 RUN 400 LET S=S+1 410 LET B=0 420 GOTO 180