Commodore 64 Bedienungshandbuch Seite 112

Das Kernstück des Programms ist ein Feld aus 4 mal 3 Elementen. In
diesen Elementen werden die Antworten gezählt. Aus Gründen der
Übersichtlichkeit haben wir dabei die Elemente A(0,0) bis A(0,4) nicht
benutzt.
Im Klartext: Wenn auf die Frage 1 die Antwort "JA" gegeben wurde, so
wird A(1,1) um 1 vergrößert - Zeile 1, da es sich um Frage 1 handelt und
Spalte 1, da die Antwort "JA" lautet. Eine Beantwortung der Frage 3 mit
NEIN würde das Element A(3,2) um 1 vergrößern etc.
20 PRINT"{CLEAR}"
30 FOR R=1TO4
40 PRINT"FRAGE NUMMER :";R
50 PRINT"1-JA 2-NEIN 3-ENTHALTUNG"
60 PRINT"WAS IST DIE ANTWORT:";
61 GET C : IFC<1 OR C>3 THEN 61
65 PRINT C : PRINT
70 A(R,C)=A(R,C)+1
80 NEXT R
85 PRINT
90 PRINT"WOLLEN SIE EINE NEUE ANTWORT EINGEBEN":PRINT"ANTWORT (J/N)"
100 GET A$ : IF A$=""THEN 100
110 IF A$="J"THEN20
120 IF A$<>"N"THEN100
130 PRINT"{CLEAR}DIE GESAMTEN ANTWORTEN SIND:":PRINT
140 PRINTSPC(18);"ANTWORT"
141 PRINT"FRAGE","JA","NEIN
142 PRINT"-----
150 FOR R=1 TO 4
160 PRINT R,A(R,1),A(R,2),A(R,3)
170 NEXT R
RUN
FRAGE NUMMER : 1
1-JA 2-NEIN 3-ENTHALTUNG
WAS IST DIE ANTWORT: 2
FRAGE NUMMER : 2
1-JA 2-NEIN 3-ENTHALTUNG
WAS IST DIE ANTWORT: 1
FRAGE NUMMER : 3
1-JA 2-NEIN 3-ENTHALTUNG
WAS IST DIE ANTWORT: 1
DIE GESAMTEN ANTWORTEN SIND:
FRAGE JA
----- ----------------------------
1 7
2 6
3 8
4 2
ENTHALTUNG"
----------------------------"
ANTWORT
NEIN ENTHALTUNG
1 0
2 0
0 0
5 1
104