10 REM Trapper 20 REM By J.FOX-GEEN 30 REM Amstrad Action 1988 40 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,6 50 DRAW 0,365,1:DRAW 635,365:DRAW 635,0:DRAW 0,0 60 D1%=2:D2%=4:X1%=20:Y1%=20:X2%=620:Y2%=20 70 LOCATE 17,1:PRINT "Trapper    by J.Fox-Geen" 80 LOCATE 17,2:PRINT "-------" 90 PLOT x1%,y1%,1:PLOT x2%,y2%,2:i$=INKEY$ 100 IF i$="z" THEN d1%=d1%-1 110 IF i$="x" THEN d1%=d1%+1 120 IF i$="," THEN d2%=d2%-1 130 IF i$="." THEN d2%=d2%+1 140 IF d1%=0 THEN d1%=4 150 IF d1%=5 THEN d1%=1 160 IF d2%=0 THEN d2%=4 170 IF d2%=5 THEN d2%=1 180 IF d1%=1 THEN y1%=y1%+2 190 IF d1%=2 THEN x1%=x1%+2 200 IF d1%=3 THEN y1%=y1%-2 210 IF d1%=4 THEN x1%=x1%-2 220 IF d2%=1 THEN y2%=y2%+2 230 IF d2%=2 THEN x2%=x2%+2 240 IF d2%=3 THEN y2%=y2%-2 250 IF d2%=4 THEN x2%=x2%-2 260 IF TEST(x1%,y1%)<>0 THEN GOTO 280 265 IF TEST(x2%,y2%)<>0 THEN GOTO 285 270 GOTO 90 280 a$="Player 1 CRASHED !!!":GOTO 290 285 a$="Player 2 CRASHED !!!" 290 LOCATE 11,7:PRINT a$:LOCATE 7,24:PRINT "Press any key to play again":FOR n=0 TO 100:NEXT:CALL &BB18:RUN