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:Olympics 6502
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
0 GRAPHICS 0:POKE 752,1:SETCOLOR 1,9,6:SETCOLOR 2,0,14:SETCOLOR 4,0,10:DIM A$(2),B$(2),C$(15),D$(3),E$(3):C$="OLYMPICS 6502":POSITION 13,1:? C$:PAUSE 90 1 ? CHR$(125):POSITION 13,1:? C$:POSITION 5,22:? "100-METER DASH":POSITION 35,10:? "GOAL":POSITION 35,16:? "GOAL":A$="//":B$=">\":D$=" " 2 FOR X=2 TO 35 STEP 3:POSITION X,5:? "--":POSITION X,6:? " --":POSITION X,7:? "--":NEXT X:POSITION 0,11:? D$:POSITION 1,12:? "|>":D$(3)=CHR$(20):E$=CHR$(18) 3 FOR X=1 TO 38:POSITION X,4:? E$:POSITION X,8:? E$:POSITION X,14:? E$:POSITION X,20:? E$:NEXT X:H=53264:POSITION 1,13:? A$(A+1,A+1);B$(A+1,A+1) 4 POSITION 0,17:? D$:POSITION 1,19:? A$(B+1,B+1);B$(B+1,B+1):PAUSE 25:POSITION 15,9:? "GO! LEVEL:";(V+1) 5 REPEAT:S=STICK(0):C=RAND(10-V):IF (S=14 AND A) OR (S=13 AND A=0):N=N+1:A=ABS(A-1):ENDIF:IF C=0:M=M+1:B=ABS(B-1):ENDIF 6 POSITION N,11:? D$:POSITION N,12:? " |>":POSITION N,13:? " ";A$(A+1,A+1);B$(A+1,A+1):POSITION M,17:? D$:POSITION M,18:? " |>" 7 POSITION M,19:? " ";A$(B+1,B+1);B$(B+1,B+1):UNTIL N>35 OR M>35:P=P+N-M:G=(N<M):POSITION 32,16:? " ":POSITION 32,10:? " " 8 POSITION 13,9:? "WON #";(G+1);" SCORE=";P:IF ( NOT G):POSITION M,16:ELSE:POSITION N,10:ENDIF:? " ??":SOUND 0,8,8,15:PAUSE 35 9 SOUND 0,0,0,0:IF PEEK(H):GOTO 9:ENDIF:IF ( NOT G):V=V+1:N=0:M=0:GOTO 1:ENDIF:POSITION 12,16:? "*** GAME OVER ***":REPEAT:UNTIL 1=0
References
Downloads
Downloads
Copyright holder