Random game
Random software
Random game
Short description
			
The player controls a blue block moving around the screen, using a touch tablet (or paddle controllers.) Yellow squares appear at the bottom and fly up, and the goal is to catch the squares before they reach the top of the screen. Two bars at the top show the number of successfully caught yellow blocks, and the number of blocks which you failed to catch in time; when either bar reaches its maximum length (40), the game is over, and the score is tallied. A point is earned for catching a block, and lost for missing a block. Catching or missing 40 blocks results in a bonus or penalty of 100 points. As the player catches the yellow squares, the background changes in color, and the rate at which the blocks appear increases. Link to description source
Slice Slice Slice Slice Slice Slice Slice
Listing 1
0 REM S."D:​SLICE.TBS":​RUN
10 GRAPHICS 19:​SC=DPEEK(88):​Y=3:​SZ=SC+30:​SPD=3:​IT=0:​RAT=10:​OK=1
20 POKE SZ,​0:​POKE SZ+10,​0:​Q=Q+1:​IF Q>=SPD THEN Q=0:​MOVE SC+30,​SC+20,​220:​OK=1:​IT=(IT+1) MOD 10:​IF IT=0 THEN SPD=SPD-1
30 PX=PADDLE(0):​PY=PADDLE(1):​IF PX<228 AND PY<228:​X=INT(PX/6):​Y=22-INT(PY/11):​ENDIF:​SZ=SC+Y*10+INT(X/4)
40 IF PEEK(SZ)+PEEK(SZ+10):​V=15:​PT=PT+1:​COLOR 3:​PLOT PT MOD 40,​0:​ENDIF:​COLOR 3:​PLOT X,​Y
70 FOR XX=0 TO 9:​IF PEEK(SC+20+XX):​POKE SC+20+XX,​0:​BD=BD+1:​COLOR 2:​PLOT 39-(BD MOD 40),​1:​SOUND 0,​100,​12,​8:​ENDIF:​NEXT XX
80 IF RAND(RAT)=0 AND OK:​COLOR 1:​PLOT RAND(30)+5,​22:​OK=0:​ENDIF:​IF SPD=0 THEN SPD=3:​RAT=RAT-1:​POKE 712,​(10-RAT)*16:​IF RAT<1 THEN RAT=1
90 SOUND 0,​255-PT*6,​10,​V:​V=V-1:​IF V<0:​V=0:​ENDIF:​IF BD>=40 OR PT>=40:​GOTO 1000:​ENDIF:​GOTO 20
1000 GRAPHICS 18:​? #6;"hit +";PT:​? #6;"miss -";BD:​IF BD>=40:​? #6;"loss -100":​PT=PT-100:​ELSE:​? #6;"win +100":​PT=PT+100:​ENDIF
1010 ? #6;"total ";PT-BD:​SOUND 0,​0,​0,​0:​PAUSE 600:​RUN	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!