CLS
10 DIM A(103)
J = 0
15 J = J + 1: P = P + 1
20 IF A(P) = 1 THEN J = J + 1: GOTO 30
25 IF J MOD 2 <> 0 THEN A(P) = 1: S = S + 1
30 IF S = 101 THEN 50
35 IF P = 102 THEN P = 0: J = 0
40 GOTO 15
50 FOR I = 1 TO 102: IF A(I) = 0 THEN PRINT I,
60 NEXT I