Gury's Atari 8-bit Forever Portal - Site dedicated to Atari 8-bit home computers by Bostjan Gorisek (Gury)

Entry name:
Cavern 10
Category:
Games
Publisher/Developer:
BASIC 10-liner Contest 2014 (NOMAM 2014)
Year:
2014
Code:
Lyren Brown
Media format:
Diskette
Controllers:
Joystick
Maximum players:
1
Programming language:
Turbo Basic XL

Entry name:
Cavern 10
Category:
Games
Publisher/Developer:
BASIC 10-liner Contest 2014 (NOMAM 2014)
Year:
2014

Short description

			
Cavern 10 is a simplified re-interpretation of Caverns of Mars, created for the "NOMAM Basic Ten-Liners 2014" competition. The entire code, written in the Turbo Basic XL language, is 10 lines long.

The entire game takes 100 seconds to complete, and consists entirely of moving your ship left and right, steering it past obstacles and outcroppings in the rocky tunnel so that it reaches the end goal safely. Any collision causes a game over and forces the player to start over.

Link to description source

Listing 1

0 MOVE ADR("XZVUUU hUUUwwwwUUU]]UV"P=|PjZVpjV<<hSjVWcZXhZ)*UUp*)%#U@%*6ph18hZa8**)cP)**2H"),$A000,219
1 MOVE ADR("*c(UUVVjVZUUP@UAUU(@PUUVef3Y@?C?#eP%AIKU_i*U=IH @tDDD*&$pqrstsrqJ"),$A0DB,220
2 MOVE ADR("=<<ffo &_ &/  /b/+R4  ./o!?% f'"),$A1B7,220
3 MOVE ADR("!/C"#/ ? $%&"/"/"@9"/"/"/"/"/""zHgL<V P./"O"),$A293,208
4 MOVE ADR("!'(>!*/,&?V%)*+\B$/lJVtP/&3xk/@2/\`j/.Hx/|P9-n("f/B/X</t"),$A363,219
5 MOVE ADR("B/6DJ/Lh7/f|eO,,,-o .///01/ 01,/D01< )./$  DO 2345O 6789/_01"),$A43E,186:I=$A000:O=$4800:WHILE I<$A4F8
6 ? 0;:L=PEEK(I):MO=DPEEK(I+1):R=L DIV 16:M=L&15:I=I+3:IF R=15:R=PEEK(I):I=I+1:ENDIF:IF M=15:M=DPEEK(I):I=I+2:ENDIF:MOVE I,O,R:I=I+R:O=O+R:MOVE O-MO,O,M+4:O=O+M+4:WEND:PAUSE 0:MOVE $4A03,$D400,15
7 MOVE $4A12,$D000,31:DO:V=0:POKE $D01E,0:S=$5000:X=100:SOUND 0,0,10,6:REPEAT:V=V+1:IF V=16:V=0:S=S+32:ENDIF:J=PEEK($D300):X=X+(J=$F7)-(J=$FB):WHILE PEEK($D40B)<82:WEND
8 DPOKE $49D1,S:POKE $D405,V:POKE $D000,X:MOVE $49E3+V,$D200,1:MOVE $49F3+V,$D018,1:UNTIL PEEK($D004) OR PEEK($D00C):IF S>=$76E0:FOR I=0 TO 128:MOVE $4A31+I,$D200,1:WHILE PEEK($D40B)>12:WEND:NEXT I
9 ELSE:SOUND 0,48,0,15:ENDIF:FOR I=0 TO 999:NEXT I:POKE $D000,0:LOOP

References

http://atariage.com/forums/topic/221948-basic-ten-liners-contest-2014/

http://atariage.com/forums/blog/387/entry-10864-high-scores-for-nomam-turbo-basic-ten-liners/

http://www.newbreedsoftware.com/atari/nomam2014/

http://www.mathyvannisselroy.nl/meetings/meetings.htm#nomam2014

http://www.retrovideogamer.co.uk/index.php?topic=3886.0

http://www.abbuc.de/community/forum/viewtopic.php?f=10&t=7872

http://www.mobygames.com/game-group/nomam-basic-ten-liners-2014-competition

http://www.youtube.com/watch?v=7wwQyvmyVeA

http://atarionline.pl/v01/index.php?subaction=showfull&id=1393071552&ucat=1&ct=nowinki

http://atarionline.pl/v01/index.php?subaction=showfull&id=1398624454&archive=&start_from=0&ucat=1&ct=nowinki

http://atariage.com/forums/blog/387/entry-10928-cavern-10/

http://www.lulu.com/shop/gunnar-kanold/basic-tenliners/paperback/product-21660593.html

https://github.com/lybrown/cavern10

https://www.mobygames.com/group/10645/nomam-basic-ten-liners-2014-competition/

https://www.mobygames.com/game/65758/cavern-10/

https://forums.atariage.com/blogs/entry/10928-cavern-10/

Listing downloads

Download link 1

Downloads

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