JUEGO -> Reflexion               

1 jugador

Paru sous forme de listing dans le magazine Amstar & Cpc n° 37 Septembre 1989.
Programmation : Stephane De CANEVA

Il y a plusieurs bugs dans les listings.

* Le programme peut terminer sous BASIC 1.0 avec l'erreur "Memory full in 90". Ce bug peut ĂȘtre corrigĂ© en modifiant la ligne 10 :
AVANT :

10 IF PEEK(&A000)<>1 THEN MEMORY &5800-1:LOAD"KRISTAX1":LOAD"KRISTAX2":POKE &A000,1

APRES :

10 IF PEEK(&A000)<>1 THEN OPENOUT"D":MEMORY &5800-1:CLOSEOUT:LOAD"KRISTAX1":LOAD"KRISTAX2":POKE &A000,1

* Lorsque le message de fĂ©licitations est affichĂ©, le programme n'attend pas qu'une touche soit appuyĂ©e et le jeu recommence tout de suite. Ce bug peut ĂȘtre corrigĂ© en modifiant la ligne 160 et en ajoutant une nouvelle ligne 165 :
AVANT :

160 IF NIV=13 THEN PAPER #1,5:CLS#1:A=1:B=48:A$="FELICITATION":GOSUB 870:B=64:A$="VOUS AVEZ RETROUVE":GOSUB 870:B=80:A$="TOUS LES KRISTAXS":GOSUB 870:B=96:A$="SAUVE LE MONDE":GOSUB 870:B=112:A$="ET DETRUIT LES MUTANTS":GOSUB 870:CALL &BB06:NIV=1

APRES :

160 IF NIV=13 THEN PAPER #1,5:CLS#1:A=1:B=48:A$="FELICITATION":GOSUB 870:B=64:A$="VOUS AVEZ RETROUVE":GOSUB 870:B=80:A$="TOUS LES KRISTAXS":GOSUB 870:B=96:A$="SAUVE LE MONDE":GOSUB 870:B=112:A$="ET DETRUIT LES MUTANTS":GOSUB 870:WHILE INKEY$<>"":WEND
165 IF NIV=13 THEN CALL &BB06:NIV=1

* Le jeu affiche un high score de 50.000, mais le programme ne l'enregistre pas dans une variable, et de toute façon, il est presque impossible de le battre à moins qu'on ne joue tous les niveaux plusieurs fois.

* Si une ligne n'est pas saisie correctement dans le listing 2, le programme affiche une erreur, mais le numĂ©ro de la ligne qui est affichĂ© est faux ! Il peut ĂȘtre corrigĂ© en modifiant la ligne 20 :
AVANT :

20 FOR A=&5800 TO &5800+&999 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:LIG=LIG+10:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE NEXT

APRES :

20 FOR A=&5800 TO &5800+&999 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE LIG=LIG+10:NEXT

* La mĂȘme erreur se produit dans le listing 3. Il peut ĂȘtre corrigĂ© en modifiant la ligne 20 :
AVANT :

20 FOR A=&9023 TO &9023+&71 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:LIG=LIG+10:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE NEXT

APRES :

20 FOR A=&9023 TO &9023+&71 STEP 16:SOM=0:FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$):SOM=SOM+VAL("&"+A$):NEXT:PRINT LIG:READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE LIG=LIG+10:NEXT