SPIEL -> Denkspiel   

1 Spieler

Just like the electronic game of the same name, use the cursor keys to imitate the flashing colours on the screen in sequence. It's easy to start off with, but it'll have you reeling as you reach the higher scores.

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 73 : December 1990
Auteur : David HALL

Le listing, comme publié dans Amstrad Computer User, manque le hasard en son choix de couleurs. Le hasard peut être augmenté en modifiant les lignes 40 et 50 :
AVANT :

40 FOR t=1 TO 2:k(t)=INT(RND(1)*4)+8:NEXT:f=2:PEN 9:LOCATE 3,23:PRINT "Press 'SPACE' to":LOCATE 3,24:PRINT " begin... ":WHILE INKEY$<>"":WEND:WHILE INKEY$<>" ":WEND
50 PEN 9:LOCATE 3,23:PRINT " Watch VERY ":LOCATE 5,24:PRINT " carefully! ":f=f+1:k(f)=INT(RND(1)*4)+8:FOR g=1 TO f:INK k(g)+4,h(k(g)-7):SOUND 1,20+20*k(g),10,15:SOUND 2,22+20*k(g),10,15:FOR i=1 TO 200:NEXT:INK k(g)+4,p(k(g)-7):FOR i=1 TO 300:NEXT

APRES :

40 FOR t=1 TO 2:k(t)=INT(RND(TIME)*4)+8:NEXT:f=2:PEN 9:LOCATE 3,23:PRINT "Press 'SPACE' to":LOCATE 3,24:PRINT " begin... ":WHILE INKEY$<>"":WEND:WHILE INKEY$<>" ":WEND
50 PEN 9:LOCATE 3,23:PRINT " Watch VERY ":LOCATE 5,24:PRINT " carefully! ":f=f+1:k(f)=INT(RND(TIME)*4)+8:FOR g=1 TO f:INK k(g)+4,h(k(g)-7):SOUND 1,20+20*k(g),10,15:SOUND 2,22+20*k(g),10,15:FOR i=1 TO 200:NEXT:INK k(g)+4,p(k(g)-7):FOR i=1 TO 300:NEXT