Programm 8 - CAS PrePro

10 DIM A$(5):PRINT CHR$(125)
20 REM 
30 PRINT "          1x1 - TRAINING"
40 PRINT "        ******************"
60 POSITION 5,5
70 PRINT "BIS ZU WELCHER ZAHL MOECHTEN SIE    UEBEN ";:INPUT Z
80 POSITION 3,8
90 PRINT "LOESEN SIE BITTE FOLGENDE AUFGABEN"
100 P=0
110 FOR I=1 TO 12
120 X=INT((Z+1)*RND(0))
130 Y=INT((Z+1)*RND(0))
140 PRINT X;" x ";Y;" = ";
150 INPUT E
160 IF E<>X*Y THEN 190
170 PRINT :PRINT " RICHTIG !":PRINT 
180 GOTO 270
190 PRINT :PRINT " FALSCH !";
195 PRINT " RICHTIG WAERE ";X*Y;" GEWESEN."
200 P=P+1
210 ON P GOTO 270,270,220,240,260,270,270,260,240,270,270,270
220 PRINT :PRINT "ETWAS MEHR KONZENTRATION BITTE !"
230 GOTO 270
240 PRINT :PRINT "BESSER AUFPASSEN !"
250 GOTO 270
260 PRINT :PRINT "NUN NEHMEN SIE SICH ABER ZUSAMMEN !"
270 PRINT 
280 NEXT I
290 PRINT :PRINT 
295 PRINT CHR$(125)
297 POSITION 3,3
300 ON P+1 GOTO 310,340,340,360,360,360,360,380,380,380,380,380,380
310 PRINT "AUSGEZEICHNET ! SIE KOENNEN SICH"
320 PRINT "GROESSERE ZAHLEN ZUTRAUEN."
330 GOTO 395
340 PRINT "DAS WAR GUT."
350 GOTO 395
360 PRINT "BEFRIEDIGEND;SIE SOLLTEN WEITER UEBEN."
370 GOTO 395
380 PRINT "DAS WAR KEINE HELDENLEISTUNG. UEBEN"
390 PRINT "SIE EVENTUELL MIT KLEINEREN ZAHLEN !"
395 PRINT :PRINT " SIE HATTEN ";P;" FEHLER."
400 PRINT :PRINT "MOECHTEN SIE WEITER UEBEN  ";:INPUT A$
410 IF A$="J" THEN RUN 
420 END