PattB10L (Commodore Plus/4) by FeCO

******************
* PattB10L PUR80 *
******************

by FeCO, 2024

Basic10Liner Contest, PUR80 Category

Commodore 16/116/232/Plus4

You have to guide the ball through the fields avoid the missing and the red brackets. You can get long jump option when you touch the yellow brick (possible more than one touch). You can earn points when touch the black bricks (only one touch counts). Have Fun!

Keys:

X - normal Jump

c - long jump if you can (yellow number) or normal jump

Program Lines: 

 0: Set the graphic mode, the array of the field ( O()) disable the keyrepeat (poke) set the colors and the field X coordinate (G), 8 levels (FOR N) plays the next level sound 

1: plays the rest of the levels sound,set the color of the long jump brick, FOR P... Made the field, black bricks, and random red one these stores in O(). 

2: Set the color of the bricks frame, and draws the frames, then paint them black, red or yellow. Sets the balls variables as start

3: Set the balls color, FORC will delete some bricks if you are next levels FORQ is the main routin A$ - keypressed

4: check X or C keys pressed and if still in game jumps, if you pressed C and you have long jump (U) then long jumps the ball

5-6: check if the ball on the lowest position, then touches..  no brick (H 0) - falls E=20, Yellow brick (H =2) increase long jumps, or red/black bricks: falls or earn points (M) with sounds

7: Move/Draw the ball

8: Check if the ball still in the field, Long jump reversed to normal (V=1)

9: Level completed sound, or finished the game

Have Fun!