Chuck's Challenge by romwer

################################# # BASIC Tenliners Contest 2021 # # # # Chuck's Challenge # # (c) 2021 Roman Werner @romwer # # email: [email protected] # ################################# Let's turn back time to 1980. You are Chuck Peddle, the great engineer of the MOS 6502 and you have set up a meeting with Jack Tramiel to get funding for the next revision of your CPU! This is a fictional dialog, but may just as well have happened like this... ;) Jack : "You want some maaaney for the next rrrrevision of your cheap design? Ok! Cheap sounds good. I give you 10 dollars. Now leave my office!" Chuck: "No Jack. I said 'Chip' design". I have some wonderful ideas. And it will cost you some dollars, I'm afraid." Jack : "Whoooot? Can't you just make something up from scrap? I need the budget for the next Commodore commercial. It goes like "Are you keeping up with..." Chuck: "Sorry, Jack. We have already used all scrap material to pimp the CEO restroom so you can play Jupiter Lander while..." Jack : "All right, all right. Let's see. One of my sons made a game that needs to be tested. It is a Tenliner. To keep costs low, you know." Chuck: "And...?" Jack : "Well it has platforms where you need to collect coins. I'm a bit of a gambler, so let's say, one collected coin stands for $50'000. Equal to one revision." Chuck: "I need to play a game to get funded my next CPU revisions? What's the catch?" Jack : "You only have one go. That's it. Let's see how well you love your team. After that no more money. Everrrrrr!" Chuck: "Ok. Looks like this is my last chance to get some money. I can do that. Let's focus..." Now do your best to assure many many more years of Research & Development for your 65xx CPU architecture and help MOS and Commodore to stay ahead of the growing competition. Task and Goal ============= Try to collect as many coins as possible. You can only use the black platforms to stay in the game. While one platform disappears with your own gravitation momentum another one will appear from the top. Try to estimate the best route to get to the coin but also to land again on a platform in reach. You can also leave the screen to the left or right to enter the screen again from the other side. Good luck (and focus)! Control: ======== Use Joystick in Port 2 for moving left and right. Fire button to restart the game. Game Requirements: ================== - C64/C128* with BASIC 2.0 runtime environment (or compatible) - 1 Player *Also playable on Windows/MacOS/iOS/Android (C64 Emulator required) Starting in VICE: C64 emulator (http://vice-emu.sourceforge.net/): ================================================================== Start the emulator and then drag and drop the "chuckschallenge.prg" into the VICE window. -or- Load the program with the command: load "chuckschallenge.prg",8 Then start the program with: run Chuck's Challenge BASIC program code: ===================================== 0v=53248:j=56320:f=255:u=f*8:l=16:pokev+21,7:pokeu,13:pokeu+1,14:pokeu+2,14:print"{yellow}{clear}{down*3}" 1poke210,208:print"44{right*5}100{home}";:x=136:y=90:m=x:n=126:g=-1:pokev+2,m:fori=.to23:poke920+i,f 2printtab(30)"{reverse on}{light gray}{cm w}{black}{space*6}{gray}{cm q}":poke833+int(i/3)*3,f:next:poke833,n:poke854,n:print"{home}{down}"tab(32)"{reverse on}{black}6502{down*2}" 3printtab(32)"{up}{reverse on}r"q:q=q+1:pokea,32:a=peek(v+31):a=1224+int(rnd(.)*5)*40+rnd(.)*29:b=34:c=66 4d=peek(j):x=x+(dand4)*2-(dand8)andf:z=g<.:y=y+g:g=g+1:pokev+1,yandf:pokev,x:ifz<.goto7 5ify>nthenify<n+gthenifx>=m-lthenifx<=m+ltheng=-g+1 6ify>pthenify<p+gthenifx>=o-lthenifx<=o+ltheng=-g+1 7c=147-c:pokea,c:onz+1goto9:n=n-gandf:p=p-gandf:ifn<bthenn=b:m=rnd(.)*216+24andf:pokev+2,m 8pokev+3,n:pokev+5,p:ifp<bthenp="b:o=rnd(.)*216+24andf:pokev+4,o" 9onpeek(v+31)and1goto3:on-(y<f)goto4:printtab(11)"{down*6}game="" over":waitj,l,l:pokev+3,.:pokev+5,.:run="" chuck's="" challenge="" basic="" program="" code="" (pur-80="" version="" using="" command="" abbreviations):="=================================================================================" 0v="53248:j=56320:f=255:u=f*8:l=16:pOv+21,7:pOu,13:pOu+1,14:pOu+2,14:?"{yellow}{clear}{down*3}"" 1po210,208:?"44{right*5}100{home}";:x="136:y=90:m=x:n=126:g=-1:pOv+2,m:fOi=.to23:pO920+i,f" 2?ta30)"{reverse="" on}{light="" gray}{cm="" w}{black}{space*6}{gray}{cm="" q}":po833+int(i="" 3)*3,f:ne:po833,n:po854,n:?"{home}{down}"ta32)"{reverse="" on}{black}6502{down*2}"="" 3?ta32)"{up}{reverse="" on}r"q:q="q+1:pOa,32:a=pE(v+31):a=1224+int(rN(.)*5)*40+rN(.)*29:b=34:c=66" 4d="pE(j):x=x+(daN4)*2-(daN8)aNf:z=g<.:y=y+g:g=g+1:pOv+1,yaNf:pOv,x:ifz<.gO7" 5ify="">ntHify<n+gthifx>=m-ltHifx<=m+ltHg=-g+1 6ify>ptHify<p+gthifx>=o-ltHifx<=o+ltHg=-g+1 7c=147-c:pOa,c:onz+1gO9:n=n-gaNf:p=p-gaNf:ifn<bthn=b:m=rn(.)*216+24anf:pov+2,m 8pov+3,n:pov+5,p:ifp<bthp="b:o=rN(.)*216+24aNf:pOv+4,o" 9onpe(v+31)an1go3:on-(y<f)go4:?ta11)"{down*6}game="" over":waj,l,l:pov+3,.:pov+5,.:ru="" tip:="" copy="" paste="" the="" program-code="" into="" cbm="" prg="" studio="" (http:="" www.ajordison.co.uk="" ).="" there="" you="" can="" see="" commands="" in="" nice="" color="" highlighting="" and="" directly="" execute="" game="" an="" emulator="" of="" your="" choice.="" chuck's="" challenge="" tenliner="" explained="" (000="row" 0="" 100="row" 1="" ...):="==============================================================" 000="" v="53248:" rem="" vic="" ii="" base="" address="" 001="" j="56320:" cia="" joystick="" port="" 2="" 002="" f="255:" konstant="" 255="" 003="" u="f*8:" 2040="" 004="" l="16:" 005="" pokev+21,7:="" enable="" sprite0,="" sprite1="" sprite2="" 006="" pokeu,13:="" set="" sprite0="" pointer="" to="" 832="" (white="" ball)="" 007="" pokeu+1,14:="" 896="" (black="" platform)="" 008="" pokeu+2,14:="" same="" for="" 009="" print"{yellow}{clear}{down*3}":="" clear="" screen="" fill="" with="" yellow="" poke210,208:="" print="" mirror="" room="" starting="" at="" offset="" 53408...="" 101="" print"44{right*5}100{home}";:="" sets="" frame,="" background="" sprite="" colors="" 102="" x="136:" initial="" x-pos="" white="" ball="" 103="" y="90:" y-pos="" 104="" m="x:" has="" as="" 105="" n="126:" bit="" sequence="" %011111110="" make="" top="" bottom="" 106="" g="-1:" gravity="" 107="" pokev+2,m:="" x-position="" 108="" fori=".to23:" 24="" lines...="" 109="" poke920+i,f:="" 14="" addressroom="" create="" black="" platform="" 200="" printtab(30)"{reverse="" on}{light="" gray}{cm="" w}{black}{space*6}{gray}{cm="" q}":="" draw="" cpu="" on="" right="" side="" 201="" poke833+int(i="" 3)*3,f:="" 13="" adressrom="" body="" 202="" next="" 203="" poke833,n:="" and...="" 204="" poke854,n:="" ...bottom="" 205="" print"{home}{down}"tab(32)"{reverse="" on}{black}6502{down*2}":="" label="" 300="" printtab(32)"{up}{reverse="" on}r"q:="" show="" revision="" no="" (initial="" 0)="" 301="" q="q+1:" increase="" 302="" pokea,32:="" write="" space="" location="" last="" coin="" position="" 303="" a="peek(v+31):" collions="" flag="" by="" reading="" it="" 304="" choose="" random="" 305="" b="34:" y-position="" when="" new="" is="" added="" 306="" c="66:" poke="" value="" (side="" view)="" 400="" d="peek(j):" read="" 401="" add="" left="" direction="" ball's="" 402="" z="g<.:" if="" minus="" (ball="" going="" up)="" then="" -1="" otherwise="" 403="" 404="" acceleration="" 405="" pokev+1,yandf:="" update="" 406="" pokev,x:="" 407="" ifz<.goto700:="" up="" skip="" checking="" platforms="" 500="" ify="">nthenify<n+gthenifx>=m-lthenifx<=m+ltheng=-g+1: rem revert gravity if ball has same x/y as platform1 600 ify>pthenify<p+gthenifx>=o-lthenifx<=o+ltheng=-g+1: rem revert gravity if ball has same x/y as platform2 700 c=147-c: rem toggle coin char between 81 and 66 (animation) 701 pokea,c: rem poke to screen position 702 onz+1goto900: rem if gravity is positiv (ball is moving down) then skip move of platforms 703 n=n-gandf: rem add gravity value to platform 1 y position 704 p=p-gandf: rem add gravity value to platform 2 y position 705 ifn<bthenn=b:m=rnd(.)*216+24andf:pokev+2,m: rem="" when="" platform1="" y="" position="" is="" wrapping="" (255="">0) then assign new x-position 800 pokev+3,n: rem set sprite1 y position (platform1) 801 pokev+5,p: rem set sprite2 y position (platform2) 802 ifp<bthenp=b:o=rnd(.)*216+24andf:pokev+4,o: rem="" when="" platform2="" y="" position="" is="" wrapping="" (255="">0) then assign new x-position 900 onpeek(v+31)and1goto300: rem when white ball sprite collides with coin background then collect coin and update revision no 901 on-(y</bthenp=b:o=rnd(.)*216+24andf:pokev+4,o:></bthenn=b:m=rnd(.)*216+24andf:pokev+2,m:></p+gthenifx></n+gthenifx></bthn=b:m=rn(.)*216+24anf:pov+2,m></p+gthifx></n+gthifx></bthenn=b:m=rnd(.)*216+24andf:pokev+2,m></p+gthenifx></n+gthenifx>