Juego en BASIC ensamblador

Bibliografiia

"JUEGOS PARA EL DRAGOON"

M.James / S.M. Gee / K. Ewbank, 1983.

ENSAMBLADOR, "BASIC" O "BEGINNERS ALL PURPOSE SYMBOLIC INSTRUCTION CODE"

Invasores

Bucle principal
Inicializacioon de la cadena de invasores
Inicializacioon de la pantalla
Loogica de movimiento y disparo
Disparo de los misiles
Movimiento de los misiles y comprobasioon del impacto
Rutina de explosioon
Borrado del invasor destruido
Visualizacioon de la cadena de invasores
Movimiento de los invasores de un lado al otro
Final del juego.

Programa

Rem Invasores
Clear 2000
Gosub 150
Gosub 260
Gosub 330
Gosub 280
If F=1 then gosub 480 else for Q=1 to 20:Next Q
if h=1 then gosub 540
M=M+1
If M>4 then M=0:Gosub 740
If RND(0)>.98 then print@L, B
$; :L+32:Gosub 720
If L>319 then gosub 800
If L$=B$ Then goto 890
goto 50

I$=CHR$(158)+CHR$(157)+CHR$()
FOR I=1 TO 8
L$=L$+I$+CHR$(128)
NEXT I
E=O
L$=L$+ST5RING$(65,128)+LEFT$(L$,LEN(L$)-2)
X=31
B$=STRING$(127,128)
K=0
L=32
RETURN

CLSO
PRINT@L,L$;
SET(X,31,2)

SET(X+1,31,2)
SET(X+2,31,2)
SET(X+1,30,2)
RETURN
X$=INKEY$
IF X$="" THEN RETURN
IF X$=CHR$(94) THEN GOTO 420
RESET(X,31)
RESET(X+1, 30)
RESET(X+2,31)
IF X$=CHR$(8) AND X>2 THEN X =X-1
IF X$CHR$(9) AND X<60 THEN
X=X+1
RETURN
RESET (XM, YM)

XM=X+1
YM=29
SET (XM,YM,0)
F=1
RETURN

RESET(XM, YM)
YM= YM-1
IF YM=0 THEN F=0:RETURN
IF POINT(XM,YM)=2 THEN H=1:R
RETURN
SET(XM, YM,0)

FOR Q=1 TO 10
SET (XM+2-RND(4),YM+1-RND(2),RND(5))
SOUND RND(255), 1
NEXT Q
FOR I=XM-2 TO XM+1
FOR J=YM-1 TO YM
RESET(I,J)
NEXT J
NEXT I

IF E=1 THEN RETURN
F=0
H=0
D=INT (XM/2)+INT(YM/2)*32-L
IF D=1 THEN D=2
L$=LEFT$(L$,D-2)+CHR$(128)+C HR$(128)+CHR$(128)+CHR$(128)+RIGHT$(L$,LEN(L$)-D-2)
GOSUB 720
YM=30
RETURN
PRINT@L,L$:
RETURN

IF K THEN L$=RIGHT$(L$,LEN(L$)-2)+CHR$(128)+CHR$(128) IF NOT K THEN L$=CHR$(128)
+CHR$(128)+LEFT$(L$, LEN(L$)-2) K=NOT K
IF K THEN SOUND 50,1
IF NOT K THEN SOUND 25.1
GO TO 720
XM=X:YM=31
E=1
GOSUB 540

PRINT@1."HAS PERDIDOO!!.";
INPUT"OTRA PARTIDA":A$
IF A$="S" THEN RUN
IF A$<>"N" THEN GOTO 840
CLS
END
PRINT@1, "HAS GANADO!!.";
GOTO 840

Este es un ejemplo, de un juego en lenguaje BASIC ensamblador.