New release: Meteor Storm

Mike · Post by **Mike** » Thu Mar 05, 2009 3:25 pm

Maybe one of the shortest VIC games of all time:

Meteor Storm for unexpanded VIC-20. Steer your space ship through a seemingly infinite meteor field. Z for left, C for right. 4 lines in CBM BASIC. Download

Greetings,

Michael

Pedro Lambrini · Post by **Pedro Lambrini** » Thu Mar 05, 2009 4:46 pm

The best 4 lines of code I've ever played! I just wish I didn't have to type RUN every time the game ends!

Mike · Post by **Mike** » Thu Mar 05, 2009 4:58 pm

Adding this line restarts the game by pressing the Y key:

Code: Select all

5 GETA$:ON-(A$<>"Y")GOTO5:RUN

But then's already 5 lines.

Cheers,

Michael

Pedro Lambrini · Post by **Pedro Lambrini** » Thu Mar 05, 2009 5:09 pm

Wow, that's the best 5 lines of code I've ever played!

GreyGhost · Post by **GreyGhost** » Thu Mar 05, 2009 7:23 pm

Yes, I've seen much larger programs that end up doing the same thing. Nice work.

Post by **Jeff-20** » Thu Mar 05, 2009 11:16 pm

I want screenshots of Mike's games in the Release thread. Could also post the code here?

orion70 · Post by **orion70** » Fri Mar 06, 2009 2:31 am

Great demonstration of programming skills, congratulations!

Please Mike, follow Jeff's advice, and post screenshots here and in the General Topics thread.

Mike · Post by **Mike** » Fri Mar 06, 2009 3:30 am

Jeff-20 wrote:I want screenshots of Mike's games in the Release thread.

I've just found out, that Skydrive indeed supports deep linking of images.

Could also post the code here?

Here's the game listing:

Code: Select all

1 PRINT"{CLR,WHT}":DATA,,,,,,,,24,60,60,24,153,255,255,153,56,110,255,251,127,222,252,56
2 POKE56,28:CLR:POKE36879,14:FORT=0TO23:READA:POKE7424+T,A:NEXT:POKE36869,255:A=8174
3 POKEINT(RND(1)*330)+7702,34:GETA$:A=A+(A$="Z"ANDA>8164)-(A$="C"ANDA<8185):SC=SC+1
4 PRINT"{HOME,RVS ON}"SC"{HOME,DOWN,LEFT}"CHR$(148):IFPEEK(A)<>34THENPOKEA,33:POKE218,PEEK(218)OR128:GOTO3

The magic happens in line 4, where PRINT"{HOME,DOWN,LEFT}"CHR$(148) extends the first logical line, thereby scrolling everything below the first line down. POKE218,PEEK(218)OR128 then separates this logical line into two physical lines again.

Post by **Jeff-20** » Fri Mar 06, 2009 4:11 am

This reminds me of the 20 line game contest we had years ago. We should have a 5 line BASIC game contest.