Catch The Falling Woman! (Apple II) by Toolkitman

🎮 Game Description (English)

“Catch The Falling Woman!” is a tiny AppleSoft BASIC arcade game where an object falls from the top of the screen and the player must move left or right to catch it before it hits the ground.

You control a small character at the bottom of the screen.

The falling object is drawn using ASCII‑style graphics loaded from DATA statements.

How to Play

Press A to move left.

Press D to move right.

Press Q to quit the game.

If you catch the falling object, your score increases.

If you miss it, the computer beeps and the object resets.

The game loops endlessly, becoming a simple reflex challenge.

code

10 DIM I$(3),P$(3):FOR I=1 TO 3:READ I$(I):NEXT:FOR I=1 TO 3:READ P$(I):NEXT:W=38:H=20:X=INT(RND(1)*W)+1:E=2:PX=W/2:S=0
20 DATA " /\\ ","/##\","/__\","[__]"," |  ","/__\"
30 HOME:VTAB1:PRINT "CATCH!  A/D MUOVI   SCORE:";S:FOR R=0 TO 2:VTAB E+R:HTAB X:PRINT I$(R+1):VTAB H+R-2:HTAB PX:PRINT P$(R+1):NEXT
40 GET A$:IF A$="A" THEN IF PX>2 THEN PX=PX-2
50 IF A$="D" THEN IF PX<W-3 THEN PX=PX+2
60 IF A$="Q" THEN END
70 FOR R=0 TO 2:VTAB H+R-2:HTAB PX:PRINT "     ":VTAB E+R:HTAB X:PRINT "     ":NEXT:E=E+1
80 IF E<=H-2 THEN 30
90 IF ABS(PX-X)<3 THEN S=S+1:E=2:X=INT(RND(1)*W)+1:GOTO 30
100 E=2:X=INT(RND(1)*W)+1:PRINT CHR$(7):GOTO 30

🔍 Line‑by‑Line Explanation

Line 10

Creates two string arrays:

I$() = falling object image

P$() = player image

Reads 3 lines of image data for each.

Sets screen width (W) and height (H).

Randomizes the falling object's starting X position.

Sets the falling object's starting row (E).

Centers the player (PX).

Initializes score (S).

Line 20

Contains 6 strings:

First 3 = falling object ASCII art

Last 3 = player ASCII art

Line 30

Clears the screen.

Prints the title and score.

Draws the falling object at row E.

Draws the player at the bottom row.

Line 40

Reads a key using GET.

If the key is A, and the player is not too far left, move left.

Line 50

If the key is D, and the player is not too far right, move right.

Line 60

If the key is Q, exit the game.

Line 70

Erases the previous positions of the player and falling object.

Moves the falling object down one row (E = E + 1).

Line 80

If the falling object has not reached the bottom, go back to line 30 (next frame).

Line 90

If the player is close enough to the falling object (collision):

Increase score

Reset falling object

Restart loop

Line 100

If the player missed the object:

Reset falling object

Play a beep

Restart loop

Emulator advice APPLEWIN or similar emulator Load the .dsk and press apple button.