JUEGO -> Laberintos               

1 jugador

Paru sous forme de listing dans le magazine Amstrad Action Issue 63, December 1990.
Auteur : Lee BARWICK

* Le jeu peut engendrer des MEMORY FULL

Corrections par Ross SIMPSON :
AVANT :

510 GOSUB 1500:GOSUB 1520:GOSUB 1570

APRES :

510 GOSUB 1500:IF FNc3=153 OR FNc3=152 THEN 770

511 en=en-1:PLOT 38,328,1:DRAW 38,328-(100-(en/ep)):PLOT 40,328:DRAW 40,328-(100-(en/ep)):IF en<1 THEN 1330

AVANT :

550 GOSUB 1480:GOSUB 1500:GOSUB 1520

APRES :

550 GOSUB 1480:GOSUB 1500:IF FNc3=153 OR FNc3=152 THEN 770

AVANT :

600 yp=yp-1:GOSUB 1520

APRES :

600 yp=yp-1:IF FNc3=153 OR FNc3=152 THEN 770

AVANT :

660 yp=yp+1:GOSUB 1520

APRES :

660 yp=yp+1:IF FNc3=153 OR FNc3=152 THEN 770

AVANT :

700 GOSUB 1580

APRES :

700 en=en-2:PLOT 38,328,1:DRAW 38,328-(100-(en/ep)):PLOT 40,328:DRAW 40,328-(100-(en/ep)):IF en<1 THEN 1330

AVANT :

720 GOSUB 1520:GOSUB 1500

APRES :

720 IF FNc3=153 OR FNc3=152 THEN 770
721 GOSUB 1500

AVANT :

960 yp=0:FOR xp=0 TO 31:GOSUB 1460:NEXT:xp=31:FOR yp=0 TO 21:GOSUB 1460:NEXT

APRES :

960 xp=0:yp=0
961 GOSUB 1460:xp=xp+1:IF INKEY$<>"" THEN 990
962 IF xp<31 THEN 961
963 xp=31:yp=0
964 GOSUB 1460:yp=yp+1:IF INKEY$<>"" THEN 990
965 IF yp<21 THEN 964

AVANT :

970 yp=21:FOR xp=31 TO 0 STEP -1:GOSUB 1460:NEXT:xp=0:FOR yp=21 TO 0 STEP -1:GOSUB 1460:NEXT

APRES :

970 yp=21:xp=31
971 GOSUB 1460:xp=xp-1:IF INKEY$<>"" THEN 990
972 IF xp>0 THEN 971
973 yp=21:xp=0
974 GOSUB 1460:yp=yp-1:IF INKEY$<>"" THEN 990
975 IF yp>0 THEN 974

AVANT :

1460 GOSUB 1480:FOR a=1 TO 10:NEXT:LOCATE 5+xp,4+yp:PAPER 0:PRINT" ";:IF INKEY$<>""THEN 990

APRES :

1460 GOSUB 1480:FOR a=1 TO 10:NEXT:LOCATE 5+xp,4+yp:PAPER 0:PRINT" ";

DELETE 1520-1530
DELETE 1570-1590

Version Commodore 64 : "Lemon64"
Version Spectrum : "Spectrum Computing"