Go

2410 FOR x=0 TO 3
2420 IF m(x)>0 THEN 2460
2430 m(x) =mem:p=tnem:GOSUB 1670
2440 POKE &3B25+2*x,tl:POKE &3B26+2*x,t
2450 X=3
2460 NEXT
2470 GOTO 1390
2480 '** TRANSPORTERS **
2490 FOR X=4 TO 5
2500 IF m(x)>0 THEN 2600
2510 m(x)=tnem
2520 IF x=4 THEN d=19
2530 IF x=5 THEN d»29
2540 GOSUB 2740
2550 IF x=4 THEN POKE &3B1B,PEEK(&3B15)
2560 IF x=4 THEN POKE &3B1C,PEEK(&3B16)
2570 IF x=5 THEN POKE &3B11,PEEK(&3B1F)
2580 IF x=5 THEN POKE &3B12,PEEK(&3B20)
2590 x=5
2600 NEXT:GOTO 1390
2610 '** TOP LEFT OF SCREEN **
2620 tlx=newx-4:tly=newy-4
2630 IF newx-4<0 THEN tlx=0
2640 IF newx+5>32 THEN tlx=24
2650 IF newy-4<0 THEN tly=0
2660 IF newy+5>32 THEN tly=24
2670 RETURN
2680 e=PEEK(mem)
2690 a(e)=a(e) -1
2700 a(n)=a(n)+l
2710 IF e=4 THEN GOSUB 2890
2720 IF e=14 THEN GOSUB 2930
2730 RETURN
2740 STORE X,Y DATA **
2750 p=mem
2760 POKE &3B00+d,newx
2770 POKE &3B01+d,newy
2780 GOSUB 1670
2790 POKE &3B02+d,tl
2800 POKE &3B03+d,t
2810 GOSUB 2610
2940 IF m(x)=mem THEN m(x)=0:x=5
2950 NEXT
2960 RETURN
2840 p=tly*32+tlx+43C00
2850 GOSUB 1670
2860 POKE &3B06+d,tl
2870 POKE &3B07+d,t
2970 LOCATE 37,(X+l):PRINT
2980 RETURN
2990 WINDOW SWAP 0,3:RETURN
3000 END