Quiz par jeu

Le film sous-estimé et désormais largement oublié de Disney, The Black Hole (1979), est arrivé en salles à une époque où le cinéma était inondé d'arnaques de Star Wars.

Mais The Black Hole est un original cinématographique pour un certain nombre de raisons, la moindre n'étant pas la musique d'une beauté envoûtante de John Barry.

Par exemple : à la fin des années 70, les effets spéciaux à l'écran n'étaient pas encore complètement transférés aux ordinateurs, mais The Black Hole possède la plus longue séquence de film (à cette époque) entièrement générée par ordinateur : le voyage vertigineux dans un trou noir tournant en forme d'échiquier vert déformé.

Plusieurs années plus tard, lorsque Tandy Corporation a lancé sa gamme de machines Color Computer, Disney a accordé une licence aux personnages et au concept du logiciel de cassettes The Black Hole intitulé Space Probe: Math (1983).

Bien qu'apparemment conçues pour les enfants afin de les aider à renforcer leurs compétences en mathématiques – « les réponses correctes génèrent des réponses positives et renforçantes », comme l'explique le dos du boîtier en plastique orange vif et noir.

Les histoires d'aventures sont si convaincantes, et les valeurs de production si élevé que vous gagnerez un débat si vous prétendez que le récit du logiciel est meilleur que celui du film.

Space Probe : Math était l’une des premières pièces de divertissement ludo-éducatif sur ordinateur personnel.

QPP.BAS prend PAINT.BAS (voir le section précédent) et l'entoure d'une structure de questions et réponses.

Ce n'est pas Space Probe : Math, mais c'est dans la même veine. Répondez correctement à deux questions de multiplication et vous obtenez une récompense : du temps pour dessiner sur l'écran.

Les problèmes mathématiques sont écrits aux lignes 240 et 250, tandis que la ligne 490 limite votre temps de dessin.

Écrire des programmes ludo-éducatifs (ou d'info divertissement) plus complexes n'est pas une tâche facile, mais plus que réalisable avec GW-BASIC. Si vous le pouvez, procurez-vous Space Probe: Math pour voir l’apothéose du genre.

QPP.BAS

10 KEY OFF:SCREEN 7:COLOR 15,0:CLS
20 LOCATE 10,10:PRINT"Le système Quiz par jeu. Appuyez sur ESC pour terminer"
30 FOR V=1 TO 1000
40 IF I$=CHR$(27) THEN CLS:END
50 IF I$="S" OR I$="s" THEN 200
60 NEXT V
70 CLS
80 LOCATE 10,7:PRINT"2 problèmes, temps passé à la machine"
90 FOR V=1 TO 1000
91 I$=INKEY$
92 IF I$="S" OR I$="s" THEN 200
93 NEXT V
95 CLS
100 LOCATE 10,5:PRINT"Jeu de dessin une fois terminé"
110 FOR V= 1TO 3000
120 I$=INKEY$
130 IF I$="S" OR I$="S" THEN 200
140 NEXT V
150 CLS
160 LOCATE 10,7:PRINT "Apuuyez sur 'S' commencer quand vous êtes prêt"
170 FOR V=1 TO 1000
175 I$=INKEY$
180 IF I$="S" OR I$="s" THEN 200
185 NEXT V
190 CLS
195 GOTO 20
200 CLS
210 RANDOMIZE TIMER
220 FOR Z=1 TO 2
230 PRINT:PRINT:PRINT:PRINT" Qu'est-ce que:"
240 C=INT(RND*40):B=INT(RND*9)
250 V=C*B
260 PRINT:PRINT" ";C;" Multiplié par: ";B," =";
270 INPUT G
280 IF G=V THEN GOTO 300
290 CLS:GOTO 20
300 PRINT"Correct":NEXT Z
310 PRINT:PRINT" et très bien fait.":FOR H=1 TO 9999:NEXT H
320 CLS:PRINT:PRINT:PRINT:PRINT:PRINT" Utilisez les chiffres 8,4,2,6 pour dessiner avec le curseur."
330 PRINT"Utilisez + pour faire défiler les différentes couleurs du curseur."
340 PRINT:PRINT:PRINT" Appuyez sur <ENTER> pour commencer.";
350 INPUT E$
360 CLS:T=0
370 X=40:Y=40:C=15
380 I$=INKEY$:T=T+1:IF T=19000 THEN CLS:GOTO 20
390 PSET(X,Y),C
400 IF I$="" THEN 380
410 T=T+1:PSET(X,Y),C
420 IF I$="8" THEN Y=Y-1
430 IF I$="2" THEN Y=Y+1
440 IF I$="6" THEN X=X+1
450 IF I$="4" THEN X=X-1
460 IF C=>16 THEN C=1
470 IF I$=CHR$(27) THEN CLS:END
480 IF I$="+" THEN C=C+1
490 IF T=19000 THEN CLS:GOTO 20
500 GOTO 380