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