* Encoding: UTF-8.
DO REPEAT original=Q1A to Q10B / recoded=Q1Arec Q1Brec Q2Arec Q2Brec Q3Arec Q3Brec Q4Arec Q4Brec Q5Arec Q5Brec Q6Arec Q6Brec Q7Arec Q7Brec Q8Arec Q8Brec Q9Arec Q9Brec Q10Arec Q10Brec.
    RECODE original (1 THRU 2=1) (3 THRU 5=0) (6=SYSMIS) INTO recoded.
END REPEAT.

DO REPEAT original=Q13 Q14 / recoded= Q13rec Q14rec.
    RECODE original (1 THRU 3=1) (4 = 2) (5 THRU 7=-1) (8=SYSMIS) INTO recoded.
END REPEAT.

DO REPEAT original=Q18_1 Q18_2 / recoded= Q18_1rec Q18_2rec.
    RECODE original (1 THRU 2=1) (3 THRU 4=-1) (5=SYSMIS) INTO recoded.
END REPEAT.

FORMATS Q1Arec to Q18_2rec (F8.0).

EXECUTE.