EDUCATIF -> Histoire, Geographie               

1 joueur

Ce logiciel éducatif vous permettra de vous apprendre la géographie des Etats-Unis en un jeu de questions/réponses.

Paru sous forme de listing dans le magazine CPC HS n° 3 (Février 1987).
Auteur : Vincent PERNICE

* La routine de remplissage ne fonctionne que sur les machines CPC 464, et pour la faire fonctionner sur les autres machines, il faut effacer la commande REM dans la ligne 75 du premier listing. Il est néanmoins possible de la configurer automatiquement en modifiant cette ligne :
AVANT :

75 REM POKE &9A5D,&99:POKE &9A5E,&B6:POKE &9A61,&97:POKE &9A62,&B6:POKE &9A94,&3E:POKE &9A95,&B6

APRES :

75 IF PEEK(6)<>128 THEN POKE &9A5D,&99:POKE &9A5E,&B6:POKE &9A61,&97:POKE &9A62,&B6:POKE &9A94,&3E:POKE &9A95,&B6

* Les points qui représentent les villes principales sont affichés en bas à gauche de l'écran pour certains États (Delaware, Rhode Island et le District de Columbia), et ils ne sont pas écrasés une fois les informations de ces États ont été affichées. Ce bug peut être corrigé en modifiant les lignes 4035 et 4065 du deuxième listing et en ajoutant les nouvelle lignes en dessous :
AVANT :

4035 Q=2:Q1=0:Q2=1:Q3=3:PLOT A1(I),A2(I),Q1:GOSUB 4100:PLOT B1(I),B2(I),Q2:GOSUB 4100:PLOT C1(I),C2(I),Q3
4065 Q1=2:Q2=2:Q3=2:PLOT A1(I),A2(I),Q1:GOSUB 4100:PLOT B1(I),B2(I),Q2:GOSUB 4100:PLOT C1(I),C2(I),Q3

APRES :

4035 Q=2:Q1=0:Q2=1:Q3=3:IF A1(I)<>0 AND A2(I)<>0 THEN PLOT A1(I),A2(I),Q1:GOSUB 4100
4036 IF B1(I)<>0 AND B2(I)<>0 THEN PLOT B1(I),B2(I),Q2:GOSUB 4100
4037 IF C1(I)<>0 AND C2(I)<>0 THEN PLOT C1(I),C2(I),Q3
4065 Q1=2:Q2=2:Q3=2:IF A1(I)<>0 AND A2(I)<>0 THEN PLOT A1(I),A2(I),Q1:GOSUB 4100
4066 IF B1(I)<>0 AND B2(I)<>0 THEN PLOT B1(I),B2(I),Q2:GOSUB 4100
4067 IF C1(I)<>0 AND C2(I)<>0 THEN PLOT C1(I),C2(I),Q3

* Une fois les informations pour l'État du Maryland affichées, il reste quelques points blancs sur l'écran sur toutes les machines sauf le CPC 464. Ce bug peut être corrigé en modifiant les coordonnées dans la ligne 239 du deuxième listing :
AVANT :

239 PLOT 418,232,C:GOSUB 253:RETURN:'MARYLAND

APRES :

239 PLOT 420,234,C:GOSUB 253:RETURN:'MARYLAND

* Le jeu manque de hasard dans la sélection des États dans les jeux de questions-réponses. Le hasard peut être augmenté en ajoutant des commandes RANDOMIZE au début du deuxième listing :
AVANT :

5 MODE 1:INK 0,1:INK 1,24:INK 2,26:INK 3,6:BORDER 6

APRES :

5 MODE 1:INK 0,1:INK 1,24:INK 2,26:INK 3,6:BORDER 6:RANDOMIZE TIME:RANDOMIZE RND

* Le programme ne reconnaît que les réponses durant les jeux de questions-réponses s'il sont saisies en majuscules. Ce bug peut être corrigé en ajoutant une commande UPPER$ aux lignes 5120 et 20120 du deuxième listing :
AVANT :

5120 IF ET$(Y)=E$(Y) THEN LOCATE #2,1,5:PRINT #2,"BRAVO":FOR I=1 TO 10:SOUND 1,I*20,20,7:NEXT I:GOTO 5140
20120 IF VC$(Y)=C$(Y) THEN LOCATE #2,1,5:PRINT #2,"BRAVO":FOR I=1 TO 10:SOUND 1,I*20,20,7:NEXT I:FOR I=1 TO 500:NEXT:GOTO 20140

APRES :

5120 ET$(Y)=UPPER$(ET$(Y)):IF ET$(Y)=E$(Y) THEN LOCATE #2,1,5:PRINT #2,"BRAVO":FOR I=1 TO 10:SOUND 1,I*20,20,7:NEXT I:GOTO 5140
20120 VC$(Y)=UPPER$(VC$(Y)):IF VC$(Y)=C$(Y) THEN LOCATE #2,1,5:PRINT #2,"BRAVO":FOR I=1 TO 10:SOUND 1,I*20,20,7:NEXT I:FOR I=1 TO 500:NEXT:GOTO 20140

* La population de l'état de l'Arkansas est affichée avec la valeur 1923.000 au lieu de 1.923.000, la superficie de Rhode Island est affichée avec la valeur 3144 au lieu de 3.144, et le nom de la ville de Fairbanks en Alaska est mal orthographié. Ces bugs peuvent être corrigés en modifiants les lignes suivantes dans le deuxième listing :
AVANT :

320 DATA ARKANSAS,LITTLE ROCK,FORT SMITH,FAYETTEVILLE,137.539,1923.000,290,161,279,163,279,170
331 DATA ALASKA,JUNEAU,ANCHORAGE,FAIBANKS,1.520.000,352.000,113,55,75,71,79,88
346 DATA RHODE ISLAND,PROVIDENCE,NEWPORT,WARWICK,3144,950.000,0,0,0,0,462,276

APRES :

320 DATA ARKANSAS,LITTLE ROCK,FORT SMITH,FAYETTEVILLE,137.539,1.923.000,290,161,279,163,279,170
331 DATA ALASKA,JUNEAU,ANCHORAGE,FAIRBANKS,1.520.000,352.000,113,55,75,71,79,88
346 DATA RHODE ISLAND,PROVIDENCE,NEWPORT,WARWICK,3.144,950.000,0,0,0,0,462,276