Commodore 64 User Manual page 113

20 PRINT "{ CLR/H E}"
30 FOR R = 1 TO 4
40 PRINT " QUESTION # : "; R
50 PRINT " 1-YES 2-NO 3-UNDECIDED 11
60 PRINT " WHAT WAS THE RESPONSE :
61 GET C : IF C < 1 or C > 3 THEN 61
65 PRINT C: PRINT
70 A(R , C) = A(R,C ) + 1: REM UPDATE ELEMENT
80 NEXT R
85 PRINT
90 PRINT " 00 YOU WANT TO ENTER ANOTHER": PRINT
"RESPONSE (YIN)";
i00 GET A$ : IF A$ = "" THEN 100
110 IF A3 = " Y" THEN 20
120 IF A$ <> "N" THEN 100
130 PRINT "{ CLRIHOME }";"THE TOTAL
RESPONSES
WERE :": PRINT
140 PRINT `SPC(18 );" RESPONSE"
141 PRINT " QUESTION "," YES","NO "," UNDECIDED"
142 PRINT "--- ---- ------------°---------------
150 FOR R = I TO 4
160 PRINT R, A(R,1), A(R,2 ), A(R,3)
170 NEXT R
RUN
QUESTION # : 1
1-YES 2 - NO 3-UNDECIDED
WHAT WAS THE RESPONSE 1 1
QUESTION # : 2
1-YES 2-NO 3- UNDECIDED
WHAT WAS THE RESPONSE 1
And so on...
THE TOTAL- RESPONSES WERE:
RESPONSE
QUESTION YES NO
UNDEC InFn
1 6 1 0
2 5 2 0
3 7 0 0
4 2 4- 1
103