Aquariorb (Mattel Aquarius) by AquariusRevival

Aquariorb by Heidi Taylor (AquariusRevival)

Game for the BASIC 10 Liner Contest 2025

Author: Heidi Taylor (Aquarius Revival)

Platform: Mattel Aquarius

Language: Microsoft BASIC v2.0

Category: PUR-80

Text & Instructions:

You are an orb flying through Aquarispace.

Your goal is to hit the exclamation target.

Press E for UP, press D for DOWN  

Hit the target at an angle, one point; hit the minefield, no point.

Press CTRL+C to STOP program

Program:

0?chr$(11):poke12369,32:forL=13312to14311:pokeL,96:next:P=12769:S=48
1X=12367+40*int(rnd(1)*23):R=13287:Z=33:Y=42:W=32:pokeR+1024,6
2K$=inkey$:ifK$=""then4:remBASIC10L2025:remAquariusRevival
3sound(20,300):pokeP,Z:pokeP+40,Z:pokeP+80,Z:D$=K$
4forI=12328to13248step40:pokeI,Y:nextI
5ifD$="e"andX>12369thenX=X-40:pokeX+40,W:pokeX-40,W
6ifD$="d"andX<13209thenX=X+40:pokeX-40,W:pokeX+40,W
7ifpeek(X)=Ythensound(20,400):sound(20,500):pokeR,S:goto1
8ifpeek(X)=Zthensound(20,250):sound(20,150):S=S+1:pokeR,S:goto1
9pokeX,32:pokeX-1,111:forT=1to5:next:pokeX-1,79:X=X-1:goto2

Line 0 -

clear screen:

hide the black box at screen location 12369:

set a parameter between color locations 13312 to 14311:

fill the frame and screen with black background, cyan font:

next for:

set a constant for a location:

set a constant for a character (this is the score counter).

Line 1 -

roll for a random location between the 12367 and 13248:

set a constant for a location:

set a constant for a character:

set a constant for a character:

set a constant for a chacter:

change the color of this location to cyan background, black font.

Line 2 -

set an array of intermediate key:

if that array is anything then goto line 4:

remark this is for the BASIC 10 Liner Competition 2025:

remark that my screen name on Bluesky is Aquarius Revival.

Line 3 -

midtone to recognize/show any input for the entire line:

poke a character of the center location of the target:

poke a character one line up from the center location of the target:

poke a character one line below the center location of the target:

D array and K array always equal each other.

Line 4 -

set a parameter for a horizontal line from the screen location 12328 to 13248:

poke a character for that set horizontal line:

next for.

Line 5 -

this entire line makes the orb move up until it reaches the top of the screen and then follows the top of the screen in a line.

Line 6 -

this entire line makes the orb move down until it reaches to bottom of the screen and then follows the bottom of the screen in a line.

Line 7 -

if the peek of X is also Y, make a low tone:

make a lower tone than the tone previous:

poke the score space in the bottom right corner of the screen:

goto line 1.

Line 8 -

if the peek of X is also Y, make a high tone:

make a higher tone than the tone previous:

add one point to the score:

poke the score space in the bottom right corner of the screen:

goto line 1.

Line 9 -

erase the current orb character location to blank:

add the lower case orb character to what is one location forward to the player but one location behind to the Aquarius:

pause for the space of one to five:

add the upper case orb character to the same location one location forward to the player but one location behind to the Aquarius:

location of orb moves one step forward to the player, one step behind to the machine:

goto line 2.