Sharp PC-1500 : "Rase-mottes" game

"Rase-mottes" for Sharp PC-1500 (any version).
Unpublished.
Author: E. Beaurepaire.
BASIC program - 855 bytes.

Download zipped WAV (7.8 KB)

A very simple game : you pilot a small plane that crosses the screen from left to right, and you must fly as close to the ground as possible (without crashing). And don't miss the exit at the right !

Start the program with DEF S or RUN.
Press any key to start the game. The plane goes from left to right automatically.
"8" : move up
"." : move down
After the game is over, press "ON/Break" to exit the program, or any key to replay.


BASIC program.

1 "RASE-MOTTES"
2 "E.BEAUREPAIRE"
10 "S" CLEAR :RANDOM :DIM A$(0)*40
20 WAIT 5:I=0,U=5:CLS :CURSOR 0:PRINT USING "*####";M
30 CURSOR U:PRINT "*GAME OVER"
40 IF INKEY$ <>"" CLS :GOTO 70
50 U=U+1:IF U=26 LET U=5
60 GOTO 30
70 WAIT 0:CLS :USING "####":A=1:GCURSOR 0
80 FOR J=1 TO 5
90 RESTORE 200+RND 6:READ A$(0):GPRINT A$(0);
100 NEXT J:GCURSOR 103:GPRINT "7D07"
110 FOR P=1 TO 103:GCURSOR P-1
120 R=I,I=POINT P
130 GPRINT R;I OR A:BEEP 1,0,1:M=M+INT (A/4):CURSOR 18:PRINT M
140 IF (I AND A)>0 GOTO 200
150 IF INKEY$ ="" GOTO 180
160 IF INKEY$ ="." LET A=A*2:IF A>64 LET A=64
170 IF INKEY$ ="8" LET A=INT((A+1)/2):IF A<1 LET A=1
180 NEXT P:BEEP 1,54,100:BEEP 1,58,87:BEEP 1,66,81:BEEP 1,76,70
190 BEEP 1,87,62:BEEP 1,93,55:BEEP 1,105,52:BEEP 1,117,48:GOTO 20
200 M=0:CURSOR 18:PRINT M:FOR K=0 TO 30:POKE# 64000,1:NEXT K:GOTO 20
201 DATA "70707078787C7C7C7C78606060604040404040"
202 DATA "6060606060707070787E40404040404000000000"
203 DATA "000000000070707078784040404040"
204 DATA "4040404040406060606060707070606040404040"
205 DATA "4040400000006060600000000060607E7E404000"
206 DATA "4040404040606060606000000000000000787878"


Return to the main page