JEU -> Shoot'Em Up               

1 joueur

Votre mission consiste à piloter le vaisseau spatial ENTERPRISE, situé à droite de l'écran, et de le faire progresser à travers les cinq niveaux du jeu. A l'issue de chaque niveau, un vaisseau ravitailleur viendra réparer au plus 4 boucliers de l'ENTERPRISE.

Joystick Haut et Bas : Déplacer le vaisseau ENTERPRISE
Bouton tir du Joystick : Emettre un rayon laser depuis le vaisseau ENTERPRISE

Paru sous forme de listing en pages 54 à 59 du magazine Compute Mit Issue 1/87
Auteur : Guenter FELDMANN

1) Lorsque le score de la partie est inférieur au plus petit score du tableau des meilleurs scores alors le score de la partie est anormalement enregistré en dernière position du tableau des meilleurs scores
AVANT :

4260 t=0:IF sc < score(4) THEN 4310

APRES :

4260 t=0:IF sc < score(4) THEN 4350

2) Le message "Memory full in 1890" apparaît au bout de plusieurs sessions de jeu car la pile Basic déborde
Ajouter :

1455 IF ks=0 THEN 2460 ELSE IF sh=0 THEN 3580 ELSE IF kollision<>0 THEN kollision=0:GOTO 1290
1615 IF sh=0 THEN 3580

AVANT :

1630 IF kx>=636 THEN RESTORE 4800:MOVE kx,ky:CALL sprite:FOR c=1 TO 200:NEXT c:ks=ks-1:kl=kl+1:GOSUB 2720:IF ks=0 THEN GOTO 2460 ELSE GOTO 1690

APRES :

1630 IF kx>=636 THEN RESTORE 4800:MOVE kx,ky:CALL sprite:FOR c=1 TO 200:NEXT c:ks=ks-1:kl=kl+1:GOSUB 2720:IF ks=0 THEN RETURN ELSE GOTO 1690

AVANT :

1670 GOSUB 2290:RESTORE 4800:MOVE kx,ky:CALL sprite:sh=sh-1:GOSUB 2640:ko=ko+1:IF sh=0 THEN GOSUB 2210:GOTO 3580 ELSE GOTO 1290

APRES :

1670 GOSUB 2290:IF ks=0 THEN RETURN ELSE RESTORE 4800:MOVE kx,ky:CALL sprite:sh=sh-1:GOSUB 2640:ko=ko+1:IF sh=0 THEN GOSUB 2210:RETURN ELSE kollision=1:RETURN

AVANT :

1960 GOSUB 2210:RESTORE 4800:MOVE kx,ky:CALL sprite:GOTO 3580

APRES :

1960 GOSUB 2210:RESTORE 4800:MOVE kx,ky:CALL sprite:RETURN

AVANT :

2410 IF ks=0 THEN d=d+1:GOSUB 2720:GOTO 2460

APRES :

2410 IF ks=0 THEN d=d+1:GOSUB 2720

AVANT :

3670 IF a$="J" THEN GOSUB 4120:CLS:RUN ELSE 3650

APRES :

3670 IF a$="J" THEN 4120 ELSE 3650

AVANT :

3800 IF a$="J" THEN GOSUB 4120:RUN ELSE 3780

APRES :

3800 IF a$="J" THEN 4120 ELSE 3780

3) Compatible uniquement avec du Basic 1.0, sinon les vaisseaux n'apparaissent pas