Random demo
Random game
Random software
Short description
			
The player controls a ship flying to the right, with enemies randomly appearing from the other side, the more frequently the longer the game is running. The player can move up and down, and shoot lasers with the joystick's Fire button. Enemies are destroyed instantly when hit by a laser, and each destroyed enemy raises the score by a single point. Collision with an enemy ship takes away one life. When all lives run out, the score and progress is displayed, and the game can be restarted. Link to description source
Shmup Shmup Shmup Shmup Shmup Shmup Shmup Shmup Shmup
Listing 1
0 REM S."D:​SHMUP.TBS":​RUN
10 GRAPHICS 17:​SC=DPEEK(88):​SC1=SC+1:​SC440=SC+440:​SC420=SC+420:​YSC=SC+220:​Z479=479:​Z19=19:​Z20=20:​SOUND 1,​200,​0,​4:​LV=3
100 POKE SC+Z19+RAND(23)*Z20,​14:​FOR I=SC TO SC440 STEP Z20:​POKE I,​%0:​NEXT I:​IF RAND(12-WV)=0:​BSC=SC+Z19+RAND(22)*Z20
110 POKE BSC,​74:​POKE BSC+Z20,​126:​ENDIF:​MOVE SC1,​SC,​Z479:​IF EX=0:​C=PEEK(YSC+1):​DPOKE YSC,​40669:​S=PEEK(632):​F=STRIG(%0)
120 IF C<>%0 AND C<>14 THEN EX=30:​LV=LV-%1:​IF LV=%0 THEN ? #6;"SC:​";PT;" WV:​";WV:​PAUSE 2:​WHILE STRIG(%0):​WEND:​RUN
130 IF S=14 AND YSC>SC:​YSC=YSC-Z20:​ENDIF:​IF S=13 AND YSC<SC420 THEN YSC=YSC+Z20
140 IF F=%0:​FOR X=2 TO 18 STEP 2:​LX=X:​C=DPEEK(YSC+X):​IF C<>%0 AND C<>14 AND C<>3584 AND C<>3598:​GOSUB 1000:​ENDIF
150 DPOKE YSC+LX,​65535:​DPOKE YSC+LX-2,​%0:​NEXT X:​DPOKE YSC+LX,​%0:​ENDIF:​ELSE:​DPOKE YSC,​RAND(65536):​EX=EX-1
999 SOUND 0,​R,​12,​EX/%2:​ENDIF:​R=PEEK(53770):​DPOKE 708,​(R&15)+R*256:​IF WV<10:​WV=WV+0.01:​ENDIF:​GOTO 100
1000 ESC1=YSC+X:​X=18:​ESC2=ESC1:​IF YSC>SC:​ESC2=ESC1-Z20:​ENDIF:​FOR I=%0 TO 7:​DPOKE ESC1,​I*257:​DPOKE ESC1+Z20,​I*257
1010 DPOKE ESC2,​I*257:​SOUND %0,​PEEK(53770),​8,​14-I*%2:​NEXT I:​DPOKE ESC1,​%0:​DPOKE ESC1+Z20,​%0:​DPOKE ESC2,​%0:​PT=PT+1:​RETURN	

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!