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!
Atari 8-bit Source code
|
|
|
-
Entry name:Left / Right
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
Listing 1
100 DIM BG(4) 110 GRAPHICS 0:? " " 120 ?:? " The idea of this game is to see" 130 ? "if you know your left from your" 140 ? "right. The computer will put a box" 150 ? "on the screen and two colored bars" 160 ? "at the bottom. Push the joystick" 170 ? "towards the bar that matches the" 180 ? "color of the box, the" 190 ? "background around the box is gray." 200 ? "Then, push the stick the other way." 210 ?:? "Take your time, because one mistake" 220 ? "ends the game, but don't take too" 230 ? "long, because you have a limited" 240 ? "amount of time." 250 ?:? "When you are ready, press the button" 260 IF STRIG(0)=1 THEN 260 270 GRAPHICS 3:TIME=500:SC=0:SETCOLOR 0,0,4 280 FOR A=1 TO 4:BG(A)=INT(RND(0)*2):NEXT A:LR=INT(RND(0)*2) 290 HPOS=INT(RND(0)*2):VPOS=INT(RND(0)*2):X=5+HPOS*20:Y=VPOS*10+3:KPOS=VPOS*2+HPOS+1 300 I=INT(RND(0)*2):BOXBRT=I*4+2:BARBRT=( NOT I)*4+2 310 BOXCOL=INT(RND(0)*16):IF BOXCOL=0 OR BOXCOL=5 THEN 310 320 BARCOL=INT(RND(0)*16):IF BARCOL=0 OR BARCOL=5 OR BARCOL=BOXCOL THEN 320 330 SETCOLOR 1,BOXCOL,BOXBRT:SETCOLOR 2,BARCOL,BARBRT 340 IF SC>26 THEN 430 350 IF SC<18 THEN Y=9 360 IF SC<9 THEN X=15 370 IF SC>2 THEN 390 380 FOR A=1 TO 4:BG(A)=0:NEXT A:GOTO 430 390 IF SC>11 THEN 410 400 FOR A=2 TO 4:BG(A)=BG(1):NEXT A:GOTO 430 410 IF SC>20 THEN 430 420 BG(1)=BG(3):BG(2)=BG(4) 430 FOR A=0 TO 9:COLOR BG(1):PLOT 0,A:DRAWTO 19,A:COLOR BG(2):PLOT 20,A:DRAWTO 39.00344783,A:NEXT A 440 FOR A=10 TO 19:COLOR BG(3):PLOT 0,A:DRAWTO 19,A:COLOR BG(4):PLOT 20,A:DRAWTO 39,A:NEXT A 450 COLOR 2:FOR A=Y TO Y+5:PLOT X,A:DRAWTO X+5,A:NEXT A 460 COLOR 3:PLOT ( NOT LR)*35,19:DRAWTO ( NOT LR)*35+3,19:COLOR 2:PLOT LR*35,19:DRAWTO LR*35+3,19 470 ? "";TIME 480 TIME=TIME-1:IF TIME=0 THEN GRAPHICS 0:? "TIME RAN OUT.":GOTO 570 490 J=STICK(0):IF J=15 THEN 470 500 IF J=11 THEN 530 510 IF J=7 THEN 550 520 GOTO 470 530 IF BG(KPOS)=LR THEN SC=SC+1:GOTO 280 540 GOTO 560 550 IF BG(KPOS)<>LR THEN SC=SC+1:GOTO 280 560 GRAPHICS 0:? "YOU PUSHED THE STICK THE WRONG WAY." 570 ? "YOUR SCORE IS ";SC 580 IF SC<HS THEN ? "YOU DIDN'T BEAT THE HIGH SCORE OF ";HS 590 IF SC>HS THEN ? "":HS=SC 600 ? "PUSH THE BUTTON TO TRY AGAIN.":GOTO 260
References
Listing downloads
Downloads
Copyright holder