Teleporter

F0RX=.TO48:P0KED+25*64+X,255:NEXT
160 FORX=48TO63:P0KED+25*64+X,.:NEXT
165 FORX=.T063:P0KED+26*64+X,255:NEXT
170 POKEV+4,25O:POKEV+5,216:POKED+1O16,2
175 POKED+1O19,24:POKEV+6,159:POKEV+7,13
180 A=780:X=781:Y=782:P=783:P0KEV+2,159:
185 P0KEV+3,133:S=54272:F0RSC=ST0S+24:P0
190 GOSUB510:PRINTS$(.)
195 POKES+1,34:POKES,10:POKES+5,129:POKE
200 POKEV+21,27:FORSC=26TO255:POKED+1016
205 POKED+1020,25:POKED+1016,20:POKES+4,
210 F=.:GOSUB640:R%=22+RND(0)*3:IFRND(1)
215 NB=INT(RND(1)*45+50):NT=INT(RND(1)*3
220 NB=NB+INT(RND(l)*10)/10:NT=NT+INT(RN
225 POKED+1019,R%:IFFANDRND(1)*7>LTHENP0
230 G03UB550
235 N$=S$(3+(RND(1)*7)):T$=S$(1O+(RND(1)
240 G0SUB510:PRINTTAB(9);CHR$(18);S$(2);

POKEV+22,(PEEK(V+22)AND248):POKES+4,