100 INPUT R
200 OUT 128,R
300 INPUT D
400 OUT 129,D
500 GOTO 100
1000 J=0
1010 FOR I=1 TO 16
1020 OUT 128,J
1030 PRINT J,INP(129)
1040 J=J+1
1050 NEXT I
1060 GOTO 1000
D
500 GOTO 100
1000 J=0
1010 FOR I=1 TO 16
1020 OUT 128,J
1030 PRINT J