SPIEL -> Labyrinth   

1 Spieler

You'll be amazed at this neat program. Watch carefully as the maze unfolds before your eyes, then try to retrace it with the cursor keys against time when it disappears. You'll need to be quick to reach the finishing block.

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 70 : September 1990
Auteur : Paul WATERMAN

Le listing, comme publié dans Amstrad Computer User, manque le hasard lorsque le labyrinthe est généré. Le hasard peut être augmenté en modifiant les lignes 1 et 2 et en ajoutant des commandes RANDOMIZE à la ligne 1 :
AVANT :

1 MODE 1:PRINT "MAZE by PAUL WATERMAN":PEN #1,5:PRINT "Please Wait":CALL &BC02:INK 4,6:INK 8,26,0:INK 9,0,26:INK 6,16:FOR a=&9000 TO &90B3:READ a$:POKE a,VAL("&"+a$):tot=tot+VAL("&"+a$):NEXT:IF tot<>20896 THEN PRINT "ERROR in DATA":END
2 MODE 0:FOR t=1 TO 500:i%=RND*4:IF i%=1 THEN x%=0:y%=4 ELSE IF i%=2 THEN x%=0:y%=-4 ELSE IF i%=3 THEN x%=8:y%=0 ELSE IF i%=4 THEN x%=-8:y%=0:DATA c3,67,90,c3,4a,90,c3,2c,90,c3,0f,90,c3,85,90,06,80,21,40,c1,11,00,c0,c5,d5,01,28,00,ed,b0,e1,cd

APRES :

1 RANDOMIZE TIME:RANDOMIZE RND:MODE 1:PRINT "MAZE by PAUL WATERMAN":PEN #1,5:PRINT "Please Wait":CALL &BC02:INK 4,6:INK 8,26,0:INK 6,16:FOR a=&9000 TO &90B3:READ a$:POKE a,VAL("&"+a$):tot=tot+VAL("&"+a$):NEXT:IF tot<>20896 THEN PRINT "ERROR in DATA":END
2 MODE 0:INK 9,0,26:FOR t=1 TO 500:i%=RND*4:IF i%=1 THEN x%=0:y%=4 ELSE IF i%=2 THEN x%=0:y%=-4 ELSE IF i%=3 THEN x%=8:y%=0 ELSE IF i%=4 THEN x%=-8:y%=0:DATA c3,67,90,c3,4a,90,c3,2c,90,c3,0f,90,c3,85,90,06,80,21,40,c1,11,00,c0,c5,d5,01,28,00,ed,b0,e1,cd