100 SCREEN :DIM P(1),X(1),Y(1),Z(1) 110 SKCLOSE :OPTION COM 120 OPEN "COM:TERMINAL:" AS #1 130 FOR I=0 TO 1:SETPFONT 1+I,12:NEXT 140 *LOOP 150 P(0)=PAD(0,1): FWRITE #1,HEX$(P(0)) 160 IF LOF(#1) THEN 170 FREAD #1,I$,LOF(#1) 180 P(1)=VAL("&H"+RIGHT$(I$,LEN(I$)-1)) 190 ENDIF 200 FOR I=0 TO 1 210 IF P(I) AND @PAD_UP THEN Y(I)=Y(I)-1 220 IF P(I) AND @PAD_DOWN THEN Y(I)=Y(I)+1 230 IF P(I) AND @PAD_LEFT THEN X(I)=X(I)-1 240 IF P(I) AND @PAD_RIGHT THEN X(I)=X(I)+1 250 IF P(I) AND @PAD_A THEN Z(I)=Z(I)-1 260 IF P(I) AND @PAD_B THEN Z(I)=Z(I)+1 270 OBJ(I+1,@XP)=X(I),Y(I),Z(I) 280 NEXT 290 VSYNC :GOTO *LOOP